AMENDMENTS TO PRODUCE  09001   401 FROM  09001     0

CONTROL WORD
   ..1  11 11111
   1.111.1  11..
   .. 1 ..1  1..
 1 .. 1 ..   ..1
1  ..   1.   1.1
1  .1  1.. 11...
   ..  111   .1.
   ..   ..   ..1
   ..   ..1  ...
   ..   ..   ...
   ..   ..   ...
   ..   ..   ...
   ..   ..   ...
   ..   ..   ...
   ..   ..   ...
   ..   ..   ...

AMEND;090;01;09001;;2;004
10012R;100;;;;;;*££0*££3*13‼*60‼;
10025D
10029
10102D
10148
10320R;124;104;9;;1;;*££2*263;
10603D
10607
10610R;100;;6;;;;*1:3;
10626D
10627R;106;107;17;;;;*££0*££1*46‼;
10819D
10820R;100;;96;;;;*019*244*234*224;1440009600048
10829R;100;;;;;;*££0*££3*353;
10913D
10917
10918R;100;;8;;;;*1:3;
11002D
11008
11121R;106;112;17;;;;*46‼;
11321R;106;114;17;;;;*46‼46‼;
11502D
11531
11602D
11619
11702D
11731
11802D
11826
11902D
11931
12002D
12019
12102D
12131
12202D
12219
12302D
12331
12402D
12419
12502D
12531
12602D
12619
12702D
12710
12713D
12726
12729D
12735
12926D
12997
17402D
17407
17510D
17521
18109D
18134
18142D
18149
18202D
18223
18226D
18264
18278D
18282
18287D
18295
18302D
18323
18407D
18408
18511D
18719D
18725
19018D
19032
19050D
19064
19082D
19096
19116D
19130
19148D
19162
19180D
19194
19202D
19232
19302D
19372
19402D
19464
19502D
19564
19808D
19810
19917D
19918
19931D
19936
19948R;101;;5;1;2;;*5£+*12+;500005
19955D
19975
19983D
19990
20019D
20020
20202D
20222
20402D
20405
20406R;124;212;2;1;1;;*££0*££2*49‼;
20407D
20408
20410R;100;212;2;;3;;*09‼06‼;SET BINARY
20510D
20511
20516R;101;;1;1;2;;*££2*46‼;
20520D
20708D
20710
20821D
20822
20902D
20903
20913D
21004D
21005R;8000;*££0*££1*3:‼4£‼ ALT RTE INDIC
21015D
21017
21124D
21136
21208R;6000000;*1:3
21216D
21218
21402D
21406D
21436D
21446D
21464D
21470D
21484D
21492D
21502D
21506D
21514
21520D
21544D
21548
21702D
21704
21746D
21748
22120D
22150
22408D
22437
22902R;(D)21;*1:3
22904D
23008D
23019
23022D
23028
23202D
23220
23328R;100;;;;;;*544*443 DUMPS PRINT;2
;108;;4;;;;*2.+62‼*2.+*62‼;4
23333R;100;;;;;;*41‼*3Ю3*14‼*3:‼*60‼;
;100;;;;;;*41‼*3Ю3*14‼*3:‼*60‼;
23343R;100;455;14;;;;*34‼ RETURN ADD FOR;TROFL
23349R;100;;;;;;*80+;
23403D
23407D
23418
23603D
23604
23608D
23620
23802D
23810
23908R;115;228;3;;;;*££0*££2*3Ю3*3‼‼;
23910D
23911
24016D
24022D
24218D
24228D
24232D
24237
24262D
24264D
24273D
24304D
24306D
24309
24328D
24329
24362D
24367D
24368R;124;233;45;;1;;*££0*££1*49‼;LINK UP FROM
24369D
24374
24377D
24380
24406D
24407
24410D
24412D
24422
24425D
24510D
24520D
24527D
24532D
24603D
24822D
24824
24902D
24916
25266D
25272
25282D
25288
25302D
25316
25402D
25416
25602D
25604
25702D
25748
25902D
25952
26010D
26154D
26224D
26226
26310R;100;;;;;;*££0*££2*14‼*42‼*46‼;*5+‼
;100;;;;;;*££0*££2*14‼*42‼*46‼;*5+‼
;100;;;;;;*££0*££2*14‼*42‼*46‼;*5+‼
26314R;100;285;45;;;;*0138Ю‼;(12)RE-READ
26316D
26317
26328D
26329
26406D
26407
26422D
26423
26427D
26429
26433D
26440
26502D
26712R;124;263;18;1;;;*££0*££2*03‼*02‼*04‼;*05‼*19‼*1‼‼*30‼*2.‼
26722R;124;263;18;1;;;*££0*££2*03‼*02‼*04‼;*05‼*19‼*1‼‼*30‼*2.‼
26732R;124;263;18;1;;;*££0*££2*03‼*02‼*04‼;*05‼*19‼*1‼‼*30‼*2.‼
26751D
26762
27004D
27009R;101;;23;1;2;;*3:+;23
27208D
27236
27253D
27261
27421D
27428
27507D
27510D
27514R;124;263;18;1;;;*03‼*02‼*04‼*05‼*30‼;*2.‼
27708D
27758
27803D
27806R;126;351;2;;;;*09‼06‼;TEST RTE NOTING D/B
27902D
27906
27914R;127;279;34;;2;;*42Ю42‼ >NO;
27916R;127;279;34;;;;*42‼;
27926D
27933
28003D
28041
28102D
28114
28402D
28411
28510R;126;351;2;;;;*09‼06‼;TEST RTE NOTING D/B
28515R;127;285;45;;1;;*013 >NO;
28538D
28540D
28555R;126;351;2;;;;*09‼06‼;TEST RTE NOTING D/B
28561D
28562
28571D
28577
28618R;126;351;2;;;;*09‼06‼;TEST RTE NOTING D/B
28650R;126;351;2;;;;*09‼06‼;TEST RTE NOTING D/B
28651D
28655
28659D
28661
28693R;126;351;2;;;;*09‼06‼;TEST RTE NOTING D/B
28709D
28725
28733D
28734
28741R;126;351;2;;;;*09‼06‼;TEST RTE NOTING D/B
29002D
29004
29222R;126;351;2;;;;*09‼06‼;TEST RTE NOTING D/B
29224R;126;351;2;;;;*09‼06‼;TEST RTE NOTING D/B
29235R;127;425;25;;;;*43‼43‼*51‼51‼;>BLOCK 7
29255R;126;351;2;;;;*09‼06‼;TEST RTE NOTING D/B
29269R;126;351;2;;;;*09‼06‼;TEST RTE NOTING D/B
29310R;126;351;2;;;;*09‼06‼;TEST RTE NOTING D/B
29332R;126;351;2;;;;*09‼06‼;TEST RTE NOTING D/B
29510D
29526D
29540
29557D
29558
29580D
29588
29621R;127;296;33;;;;*57‼;
29627D
29632
29806D
29822
30005D
30014
30017D
30037
30039D
30040
30041R;101;;16;1;2;;*3:2*224*234;800016
;127;301;5;;2;;*28‼033;>NO
30102D
30104
30223D
30224
30234D
30257
30303D
30326
30523D
30526D
30528
30611R;126;351;2;;;;*££0*££2*09‼06‼;
30619R;126;351;2;;;;*££0*££2*09‼06‼;
30704D
30709
30734D
30735
30838R;126;351;2;;;;*££0*££2*09‼06‼;
31009D
31011D
31022D
31024D
31211D
31627R;126;351;2;;;;*££0*££2*09‼06‼;
31649R;126;351;2;;;;*££0*££2*09‼06‼;
31711R;126;351;2;;;;*££0*££2*09‼06‼;
31815R;126;351;2;;;;*££0*££2*09‼06‼;
31818R;126;351;2;;;;*££0*££2*09‼06‼;
32103D
32105
32502D
32522
32611R;125;;16;;3;;*244*234*224;240001600008
33202D
33208
34402D
34419
34607D
34612
34702D
34723
35202D
35211
35703D
35728
35733D
36210D
36404R;102;252;50;;;;*53+0Ю+3:+*53+3:+;5000058
36412R;102;252;42;;;;*53+3:+;42
36415R;102;252;46;;;;*53+3:+;46
36419R;102;252;50;;;;*53+0Ю+3:+*53+3:+;5000058
36420D
36504D
36510R;106;252;46;;3;;*53+3:+ FILE ID;46
36515R;106;252;50;;3;;*53+0Ю+3:+*53+3:+;5000058 RL CTR=Ю?
36518R;106;252;50;;3;;*53+0Ю+3:+*53+3:+;5000058 RL CTR=99
36524R;103;252;50;;3;;*53+0Ю+3:+*53+3:+;5000058
36528R;106;252;42;;3;;*53+3:+;42
36540R;102;252;50;;;;*53+0Ю+3:+*53+3:+;5000058
36543R;105;252;42;;;;*53+3:+;42
36547R;105;252;46;;;;*53+3:+;46
36605D
36606
36710R;127;367;31;;;;*16‼;
36730D
36809R;105;252;50;;;;*53+0Ю+3:+*53+3:+;5000058
36814R;106;252;50;;;;*53+0Ю+3:+*53+3:+;5000058
37303D
37304
37311D
37317D
37322
37503D
37507
37514D
37516D
37517
37702D
37715
37802D
37837
37902D
37964
38002D
38053
38102D
38129
38202D
38208
38304D
38312D
38317D
38320
38402D
38444
38502D
38514
38602D
38607
38703D
38803D
38804R;124;390;4;1;;;*3:‼4£‼;
38902D
38906
39003D
39011D
39103D
39202D
39212
39402D
39404
39502D
39507
39602D
39607
39702D
39717
39802D
39805
39902D
39926
40002D
40007
40103D
40105
40307D
40365
40503D
40510D
40513
40605D
40612
40803D
40804
41058D
41066
41105D
41109
41443D
41445
41520R;124;;7;;2;;*14+46+*14+*46+;60051800007
42010D
42146D
42155
42209D
42310D
42313
42509D
42522D
42524
42626D
42628
42630D
42631
42658D
42659
42667D
42668
42674R;126;351;2;;;;*09‼06‼;TEST RTE NOTING D/B
42703D
42774
42907D
42909
43002D
43015
43303D
43313D
43314
43611D
43615D
43705D
44221D
44239
44422D
44428
44753D
44756
44804D
44805
44806R;101;;16;1;2;;*224*2343:+*2443:+;80001600024
;127;263;18;;2;;*££0*££2*223*2333:‼*;2433:‼ >NO
44907R;127;263;18;;2;;*3:‼;
;106;252;50;;3;;*53+0Ю+3:+*53+3:+;5000058
44911D
44912
44913R;101;;16;1;2;;*234*224;1600008
45005D
45028R;101;;23;1;3;;*3:+;23
45102D
45132
45202D
45233
45420R;106;;1;;;;*3Ю4;1
45802D
45840
45913D
45922D
45934D
45938D
45944R;127;460;44;;;;*20‼;
46012D
46013
46021R;102;229;3;;;;*3Ю4*3‼+;300003
46028R;127;460;44;;1;;*20‼20‼;
46038R;127;460;44;;;;*20‼;
46042D
46043
46051D
46219D
46309D
46310R;106;;191;;;;*3Ю4;191
46312D
46313
46407D
46408
46415D
46416
46423D
46424
46608D
46609
46720D
46734
46804D
47006D
47102D
47107
47209D
47226
47302D
47321
47602D
47618
48003D
48030
48136D
48142
48208D
48216
48302D
48323
48514D
48520
48703D
48707
48709D
48745
48750D
48769
48774D
48777D
48778
48785R;124;488;3;1;;;*3Ю3*3‼‼;
48802D
48819R;124;491;10;1;;;*3Ю33Ю3*3‼‼3‼‼;
48919D
48935
49102D
49109
49114D
49117D
49202D
49208
49216D
49228
49326D
49330
49402R;221;3;;;;;1;;3;;;;;*££0*££2*61‼ 3SP,PRIORITY CLASS
49510D
49540
49720D
49732
50202D
50229
50309R;100;477;8;;;;*££0*££2*09‼*3+‼*08‼;*07‼*02‼*04‼*5:‼
;100;477;8;;;;*££0*££2*09‼*3+‼*08‼;*07‼*02‼*04‼*5:‼
50313R;100;477;8;;;;*££0*££2*09‼*3+‼*08‼;*07‼*02‼*04‼*5:‼
50317R;100;477;8;;;;*69‼*68‼*67‼*66‼*6Ю‼;
;100;477;8;;;;*69‼*68‼*67‼*66‼*6Ю‼;
50402D
50431
50502D
50524
50614D
50617
50621D
50627
50709D
50802D
50815
50916R;124;;64;;1;;*3:+;64
50919D
51006R;127;477;8;;2;;*3:‼;C REJ
51008D
51011
51016R;124;510;23;1;;;*3:‼3:‼;
51019D
51021
51024D
51029
51044R;127;511;12;;1;;*8‼‼ >NO;
51102D
51111
51133D
51156
51213R;124;512;44;1;;;*££0*££2*3Ю3*3‼‼;
51227D
51243
51302D
51317
51402D
51422
51521D
51529
51603R;101;;7;1;3;;*64‼61‼0:‼0+‼;
51606D
51608
51619D
51642
51714D
51811R;106;229;2;1;2;;*3Ю4*3‼+;200002
51814R;102;229;2;1;2;;*3Ю4*3‼+;200002
;106;229;3;;2;;*3Ю4*3‼+;300003
51905R;106;228;25;;;;*3Ю4*3‼+;2500025
52002D
52015
52102D
52146
52202D
52221
52403R;101;;6;1;3;;*11+12+40+*11+40+;600008
52412R;100;477;8;;;;*4Ю‼;>REJECT
52415R;100;477;8;;;;*££0*££2*0‼‼*1.3*0:‼;*0+‼*12‼*11‼*40‼
;100;477;8;;;;*££0*££2*0‼‼*1.3*0:‼;*0+‼*12‼*11‼*40‼
;100;477;8;;;;*££0*££2*0‼‼*1.3*0:‼;*0+‼*12‼*11‼*40‼
;100;477;8;;;;*££0*££2*0‼‼*1.3*0:‼;*0+‼*12‼*11‼*40‼
52510D
52512
52517D
52518
52521D
52523
52525R;102;102;8;1;;;*6.+4Ю+*6.44Ю4;800016
52526D
52531D
52532
52602D
52613
52702D
52724
52802D
52815
52902D
52991
53002D
53045
53102D
53193
53202D
53210
53402D
53708D
53709
53941D
53946
54513R;128;551;7;1;2;;*3Ю4 EDIT TO ANNEX;7
54726D
54728
55104D
55106
55108D
55109
55111D
55112
55122R;127;552;10;;2;;*££2*57‼;
55202D
55209
55214D
55217
55302D
55317
55425D
55427D
55428
55608D
55808D
55812
55902R;(D)   ££;*££8
56002R;(D) ££££;
END




















                PROGM   090      1   401     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     10   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      2   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
401       10012    100              0   0  0  Halt                         *££0*££3*13‼*60‼
          10013    124     208     19   1  0  unconditional jump           171>
          10014    100              0   0  0  Halt                         172
          10015    124     243     59   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     268      9   1  0  unconditional jump           183>PRIORITYQUEUE
          10026    100              0   0  0  Halt                         184 USED IN TYPE PQ
          10027    100              0   0  0  Halt                         185 LAST COMMAND
          10028    100              0   0  0  Halt                         186 CD: MIN RT
          10029    100              0   0  0  Halt                         187 CD: MAX RT
          10030    100              0   0  0  Halt                         188 CD: 8*CH
          10031    100              0   0  0  Halt                         189 CD: (8*CH)+4
          10032    100              0   0  0  Halt                         190 TW: RT NO
          10033    100              2   0  0  Halt                         191 TW: RT TYPE

          10100    CONST   101       101     1    FAST CHANNEL ASLS

          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
          10303    100              0   0  0  Halt                         INDICATOR L2 COMMAND IGNORED
    20914>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>
    12705>
    17710>
    19919>
    20916>
    24622>
    54229>10307    100     212      2   0  3  set radix                    *31‼ SET BINARY     HEAD OF QUEUE
          10308    124     212      2   1  1  set modification group       SET MOD GROUP 0
    18115>
    18409>
    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      9   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      2   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
          10317    102     103     14   0  0  transfer (A) to N                                PROG LINK
          10318    124     182      2   1  0  unconditional jump           *293 SLAS=1
          10319    100              0   0  0  Halt                         SETTING OF L5
401       10320    124     104      9   0  1  modify address of next       *££2*263
          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      9   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      9   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
          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              0   0  0  Halt                         SPARE
          10604    100              0   0  0  Halt                         MR3 SETTING FOR REQUEST T/W
401       10605    100              6   0  0  Halt                         *1:3
          10606    124              3   0  1  modify address of next       OPTION 8
          10607    126            158   0  1  leave subroutine             >
    10611>
    10622>10608    124     108     11   1  0  unconditional jump           >
    10404>
    10327>
    10311>10609    124     106     11   1  0  unconditional jump                               SWITCH SM
          10610    124     106     20   1  0  unconditional jump           >CLOSED(S=3)        S=1 TEST ROUTE
    10609>10611    124     106      8   1  0  unconditional jump           >ENGAGED(S=2)
          10612    126     271      2   0  0  enter subroutine             >D/B                TEST ROUTE
          10613    126     300      2   0  0  enter subroutine             >W/E
          10614    106     107      7   0  0  select (N)
          10615    102     106      9   0  0  transfer (A) to N                                S=4
          10616    106     107      8   1  0  select (N)
          10617    102              2   1  0  transfer (A) to N                                SET UP MR1
          10618    106     107      2   1  0  select (N)                   ROUTE NO. & TYPE
          10619    124     265      2   1  0  unconditional jump           >I/P O/P CONTROL
    10610>10620    106            156   0  0  select (N)                   CURRENT TIME        S=3 TEMP, CLOSED
401       10621    106     107     17   0  0  select (N)                   *££0*££1*46‼
          10622    127     106      8   0  3  jump A < Z                   >NO                 ACTION IS REQUIRED
          10623    126     107      8   1  1  set modification register                        SET UP MR1
          10624    126     107     14   0  1  leave subroutine             >
    10707>10625    124     106     31   1  1  set modification group                           S=4 NORMAL
          10626    106     107      8   1  0  select (N)                                       RESET MOD. GROUP
          10627    102              2   1  0  transfer (A) to N                                SET UP MR1
          10628    100     107      2   1  1  replace registers                                RESTORE (A)(B)(C)
          10629    126     107     16   0  1  leave subroutine             >
          10630    126     107     16   0  1  leave subroutine             >
          10631    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     25   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
          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      9   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     32   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)
    10608>10811    124     127      2   1  0  unconditional jump
          10812    124     127      2   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
401       10819    100             96   0  0  Halt                         *019*244*234*224    1440009600048
          10820    100     271      2   0  0  Halt                         W/L
          10821    100            120   0  0  Halt
          10822    127     127      2   0  3  jump A < Z
          10823    118              6   0  3  shift binary                 SAS=1
          10824    106     100     32   0  0  select (N)                   SLAS=2
          10825    124     186      2   1  0  unconditional jump           L1=1
          10826    100              0   0  0  Halt
          10827    100              0   0  0  Halt
401       10828    100              0   0  0  Halt                         *££0*££3*353
          10829    107           6000   0  3  augment (N) by (A)           STORE DUMP='XX'
          10830    102              0   0  0  transfer (A) to N             *:SP:2:SP:SP
          10831    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
401       10913    100              8   0  0  Halt                         *1:3
          10914    100              0   0  0  Halt                         SDB SETTING
          10915    100           7999   0  1  Invalid                      COLLATION CONSTANT
          10916    100              0   0  0  Halt                         STORE DUMP=MR
          10917    100              0   0  0  Halt                         STORE DUMP=MR
          10918    100              0   0  0  Halt                         STORE DUMP=COUNTER
          10919    100              0   0  0  Halt                         STORE DUMP=STORE SIZE

          11000    PROCR   110       110     INITIAL PROGRAMME SWITCH

          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      2   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      2   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      2   1  0  unconditional jump           *062063             >I/P O/P CONTROL
    11110>11120    106            156   0  0  select (N)                                       S=3 TEMP CLOSED
401       11121    106     112     17   0  0  select (N)                   *46‼
          11122    127     127      2   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

          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      2   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      2   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      2   1  0  unconditional jump           *062063             >I/P O/P CONTROL
    11310>11320    106            156   0  0  select (N)                                       S=3.TEMP.CLOSED
401       11321    106     114     17   0  0  select (N)                   *46‼46‼
          11322    127     127      2   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

          11600    PROCR   116       116     3RD COMML SWITCH CONT
          11601     NOTES          RADIX     B

          11700    PROCR   117       117     4TH COMMERCIAL PROGRAMME SWITCH
          11701     NOTES          RADIX     B

          11800    PROCR   118       118     4TH COMML SWITCH CONT
          11801     NOTES          RADIX     B

          11900    PROCR   119       119     5TH COMMERCIAL PROGRAMME SWITCH

          12000    PROCR   120       120     5TH COMML SWITCH CONT

          12100    PROCR   121       121     6TH COMMERCIAL PROGRAMME SWITCH

          12200    PROCR   122       122     6TH COMML SWITCH CONT

          12300    PROCR   123       123     7TH COMMERCIAL PROGRAMME SWITCH

          12400    PROCR   124       124     7TH COMML SWITCH CONT

          12500    PROCR   125       125     8TH COMMERCIAL PROGRAMME SWITCH

          12600    PROCR   126       126     8TH COMML SWITCH CONT

          12700    PROCR   127       127     COUNT INEFFECTIVE TIME
          12701     NOTES          RADIX     B
    11322>
    11311>
    11309>
    11122>
    11111>
    11109>
    10822>
    10812>
    10811>12702    101     103      7   1  3  select literal address
          12703    102              2   0  0  transfer (A) to N                                SET UP MR1
          12704    125           4096   1  1  clear indicators
          12705    124     103      7   1  0  unconditional jump           *319

          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
          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

          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

          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
          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

          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

          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

          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
    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
          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      4   0  0  transfer (A) to N
          17905    126     106      4   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>
    20726>
    20818>
    24018>
    33514>
    33612>
    45515>
    47808>
    53503>18102    106     108     25   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      2   0  0  transfer (A) to N            *293
          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    124            154   0  2  select literal and division  *293743 SET UP ASL
          18110    124     100     32   0  1  modify address of next
          18111    102             64   0  0  transfer (A) to N
          18112    106     209      2   0  0  select (N)
          18113    105     100     32   0  0  subtract (N) from (A)        SET SL=1
          18114    102     103      9   0  0  transfer (A) to N
          18115    124     103      9   1  0  unconditional jump           >TEST ROUTE

          18200    PROCR   182       182     TYPEWRITER MAIN OUTPUT LOOP
          18201     NOTES          RADIX     B
    18624>
    10318>
    10314>18202    124     104      9   0  1  modify address of next       *292
          18203    106              0   1  0  select (N)                   TO BE OUTPUT
          18204    102            154   1  0  transfer (A) to N
          18205    126     402      2   0  0  enter subroutine             >TEST FOR B/E
          18206    124     182     18   1  0  unconditional jump           >B/E FOUND
          18207    124     100     32   0  1  modify address of next       OUTPUT
          18208    119              0   0  0  output
          18209    125              0   1  2  interrogate indicators       DRAIN
          18210    100     109     15   0  2  replace (B) by (N)
          18211    115            154   1  0  collate and add              *292
          18212    101           7710   1  2  subtract literal address     TEST FOR 2 L/E'S IN LAST WORD
          18213    127     184      2   0  0  jump A = Z                   >YES
          18214    106     212      6   0  0  select (N)                   STEP INDIRECT MOD TOO/P NEXT WORD
          18215    107     104      9   0  0  augment (N) by (A)
          18216    125              0   1  2  interrogate indicators
          18217    124     184      4   1  0  unconditional jump           >UPDATE ASSEMBLER TABLE
    18206>18218    115     198      6   1  0  collate and add              *292 COLLATE OUT?
          18219    114            154   1  0  replace selected bits
          18220    124     402     11   1  0  unconditional jump           *292

          18300    PROCR   183       183     CONT

          18400    PROCR   184       184     TYPEWRITER PROCEDURE AT END OF WORD
          18401     NOTES          RADIX     B
    18213>18402    106     103     21   0  0  select (N)                   SET L5=2
          18403    102     182      2   0  0  transfer (A) to N            *293293
    18511>
    18217>18404    100     210      9   0  2  replace (B) by (N)           SET(MR3)=8*CH NO
          18405    115     100     32   0  0  collate and add
          18406    102              6   1  0  transfer (A) to N
          18407    106     100     32   1  0  select (N)                   UPDATE ASSEMBLER TABLE
          18408    102     252      2   1  3  transfer (A) to N
          18409    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
          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      2   0  0  transfer (A) to N            *293293
          18511    124     184      4   1  0  unconditional jump           *293 >UPDATE ASSEMBLER TABLE

          18600    PROCR   186       186     TYPEWRITER ROUTE CLOSED ROUTINE
          18601     NOTES          RADIX     B
    10825>
    10310>18602    124     104      7   1  3  store indicators             SET UP (Q)
          18603    106     182      2   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      2   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     25   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      2   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      2   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     32   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     25   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           >

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

          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;                                                REEL COUNTER
          19020          0;
          19022          0;
          19024          0;
          19026          0;                                                *222
          19028          0;
          19030          0;
          19032          0;
          19034          0;                                                PROGRAMME NUMBER
          19036          0;
          19038          0;
          19040          0;
          19042          0;                                                *222
          19044          0;
          19046          0;
          19048          0;
          19050          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;                                                RUN+RERUN NUMBER
          19118          0;
          19120          0;
          19122          0;
          19124          0;                                                *222
          19126          0;
          19128          0;
          19130          0;
          19132          0;                                                *01Ю HIGH DENSITY INDICATORS
          19134          0;
          19136          0;
          19138          0;
          19140          0;                                                *222
          19142          0;
          19144          0;
          19146          0;

          19200    CONST   192       192     1    MAG TAPE FILE DETAILS CONT

          19300    CONST   193       193     1    DB COUNTS

          19400    CONST   194       194     1    MAG TAPE DETAILS

          19500    CONST   195       195     1    MAG TAPE DETAILS

          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     4     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

          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     20   0  0  jump A = Z                   >NO
          19912    125           6143   1  1  clear indicators             CLEAR I1-I11 I13
          19913    124     199     18   1  0  unconditional jump
    19909>19914    125           1792   1  2  interrogate indicators                           TEST OPTION
          19915    125           6143   1  1  clear indicators             CLEAR I1-I11 I13
          19916    127     200      2   0  0  jump A = Z                   *163 >YES
          19917    125            128   1  0  set indicators               SET I8
    19932>
    19913>19918    102     103      3   0  0  transfer (A) to N            SET C ION INDICATOR
          19919    124     103      7   1  0  unconditional jump           >HEAD OF QUEUE
    19911>19920    106     487      2   0  0  select (N)                                       TEST IF ALLOCATION
          19921    127     199     33   0  0  jump A = Z                   >NO                 IS BEING PERFORMED
          19922    106     222      2   0  0  select (N)
          19923    101           1281   1  2  subtract literal address                         TEST GP 5 FN 1
          19924    127     199     30   0  1  jump A != Z                  >NO
          19925    106     108     12   0  0  select (N)                   *14Ю
          19926    102     106      8   0  0  transfer (A) to N            *14Ю
          19927    125           6143   1  1  clear indicators             CLEAR I1-I11,I13
          19928    125            127   1  0  set indicators               SET I1-I7
          19929    124     295      2   1  0  unconditional jump           *14‼ >
    19924>19930    125           6143   1  1  clear indicators             CLEAR INDICATORS
          19931    125            127   1  0  set indicators               SET I1>I7
          19932    124     199     18   1  0  unconditional jump           >
    19921>19933    125           1792   1  2  interrogate indicators                           TEST GROUP 0
          19934    127     199     41   0  0  jump A = Z                                       >YES
          19935    106     108     12   0  0  select (N)                                       SET M/R SWITCH
          19936    102     106      8   0  0  transfer (A) to N                                NON-INT
          19937    125           1792   1  2  interrogate indicators       GROUP NO.
          19938    118           4126   0  0  shift logical
          19939    103     199     49   0  0  copy (A) to N
401       19940    101              5   1  2  subtract literal address     *5£+*12+            500005
    19934>19941    125           6143   1  1  clear indicators             CLEAR I1-I11,I13
          19942    125            127   1  0  set indicators               SET I1-I7
          19943    127     477      8   0  2  jump A >= Z                  >REJECT
          19944    106     222      2   0  0  select (N)                   STORE COMMAND
          19945    103     233      7   0  0  copy (A) to N
          19946    102     487      2   0  0  transfer (A) to N            SET ALLOCATOR LINK
          19947    124     199     49   0  1  modify address of next
          19948    126     199     49   0  1  leave subroutine
          19949    100              0   0  0  Halt
          19950    100     503      2   0  0  Halt                         *09‼08‼07‼5:‼69‼68‼67‼66‼6Ю‼86‼86‼
          19951    100     516      2   0  0  Halt                         >GROUP2
          19952    100     523      2   0  0  Halt                         *41‼ >GROUP 3
          19953    100     524      2   0  0  Halt                         >GROUP 4

          20000    PROCR   200       200     GROUP D (1)
          20001     NOTES          RADIX     B    TEST SELECTED OPTIONS
    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      7   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    106     222      3   0  0  select (N)
          20020    104             43   0  1  add (N) to (A)               FORM & STORE LOCN. CONTAINING S/C
          20021    102     222      3   0  0  transfer (A) to N            ADDRESS CORRESPONDING TO CHOSEN OPTION
          20022    101             16   0  1  prepare for digit collation
          20023    115             38   0  1  collate and add                                  TEST IF SWITCH TO BE
          20024    127     201      2   0  0  jump A = Z                   >YES                SET AT 4
          20025    124     222      3   0  1  modify address of next       SET LINK FOR SI=1
          20026    106              0   0  0  select (N)
          20027    101     267      2   1  2  subtract literal address
          20028    104     209     10   0  0  add (N) to (A)
          20029    102             31   0  1  transfer (A) to N
          20030    102             45   0  1  transfer (A) to N            CLEAR ASSOCIATED TIME
          20031    106     209      2   0  0  select (N)                   SET SI=1
          20032    105             30   0  1  subtract (N) from (A)
          20033    124     201      7   1  0  unconditional jump           >

          20100    PROCR   201       201     GROUP O(2)
          20101     NOTES          RADIX     B    OUTPUT COMMENT ETC.
    20024>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
    20033>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)
          20111    101             15   0  1  prepare for digit collation  FILL Q1-4
          20112    114     214      4   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

          20300    PROCR   203       203     OPERATOR INTERVENTION REJECTION
          20301     NOTES          RADIX     B
    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
401 10007>20402    124     212      2   1  1  set modification group       *££0*££2*49‼
          20403    126     250      2   0  0  enter subroutine             *599 >STORE MG3 S/R
401       20404    100     212      2   0  3  set radix                    *09‼06‼             SET BINARY
          20405    124              3   0  1  modify address of next       *60Ю                TEST TRIAL
          20406    106             11   0  0  select (N)
          20407    124     233     45   0  1  modify address of next
          20408    127              0   0  1  jump A != Z                  *60Ю                >YES
          20409    126     462      2   0  0  enter subroutine             >REQUEST M/R
          20410    106            179   0  0  select (N)                   UNLOAD/ABDON INDICATOR
          20411    124     295     16   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     210      7   0  0  select (N)
          20511    124              2   0  1  modify address of next
          20512    124             41   0  1  modify address of next
          20513    118              0   0  3  shift binary
401       20514    101              1   1  2  subtract literal address     *££2*46‼
          20515    102             41   0  1  transfer (A) to N                                OF ALLOWABLE OPTIONS
          20516    106     100      4   0  0  select (N)
          20517    102             43   0  1  transfer (A) to N                                1ST OPTION
          20518    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    126     177      2   0  0  enter subroutine             >REQUEST T/W
          20709    126     234      2   0  0  enter subroutine             >EDIT TIME
          20710    126     212      2   1  3  set modification register    SET MRR3 =24/0
          20711    100     198      2   1  2  replace (B) by (N)           BITS 1-6 IN EACH QUARTET
          20712    118           4122   1  0  shift logical
    20721>20713    124              3   0  1  modify address of next       COPY COMMENT TO ANNEXE
          20714    124            169   0  1  modify address of next
          20715    106              0   1  3  select (N)
          20716    102     102      6   1  3  transfer (A) to N
          20717    115     102      6   1  3  collate and add                                  TEST END OF COMMENT
          20718    101           7710   1  2  subtract literal address
          20719    127     207     24   0  0  jump A = Z                   >YES
          20720    125              2   0  3  step on and test
          20721    124     207     13   1  0  unconditional jump           >
          20722    106     211     22   1  0  select (N)                   SET L/E'S IN LAST WORD
          20723    102     102     28   1  0  transfer (A) to N
    20719>20724    106             35   0  1  select (N)                   SET SI=4
          20725    102              7   0  1  transfer (A) to N            *163
          20726    124     181      2   1  0  unconditional jump           >OUTPUT COMMENT

          20800    PROCR   208       208     MASTER ROUTINE
          20801     NOTES          RADIX     B    INTERNAL IMPOSSIBILITY
    29613>20802    101            121   1  3  select literal address       CODE LETTER Z
    29637>
    32711>
    32823>
    45517>
    45720>
    47605>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     26   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

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

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

          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

          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
401       21208          6000000;                                          *1: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          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
          21330          0000000020;
          21332          0000000320;

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

          21500    CONST   215       215     1    MORE ALPHA CONSTANTS
          21502          (A)PR CH;                                         *0‼9
          21504          (A)NEW  ;
          21506          DOUBT;
          21508          STORE;                                            *679
          21510          (A)CH (D)007:;                                    *68Ю
          21512          (D)6940674000;                                    *68Ю
          21514          (A)TAPE ;                                         *69Ю
          21516          UNLOA;
          21518          (A)DED(D)5.5.;
          21520          (A)REWOU;
          21522          (A)ND (D)5.5.;                                    *69Ю
          21524          (A)PREFE;                                         *86Ю
          21526          R GP ;
          21528          R SP ;                                            *86Ю

          21600    TABLE   216       216     1    OFLOW, OREJ, ENTER, END, PROG ALARM EDIT TABLES
          21601     NOTES
          21602   214    30     0     0  2  0   5   0   0   0  0  0  0     *342 O,F,L,O,W
          21604   214    18     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    18     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    14     0     0  2  0   5   0   0   0  0  0  0     O.SP.R.E.J
          21622   214     8     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     2     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     8     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   214    32     0     0  2  0   5   0   0   0  0  0  0     *342 L',O.U,T
          21704   214    18     0     0  2  0   1   1   0   0  0  0  0     N/E
          21706   221     2     0     0  0  0   5   0   0   0  0  0  0     PROG NO
          21708   214    18     0     0  2  0   1   1   0   0  0  0  0     N/E
          21710   222    12     0     0  0  0   1   0   2   0  0  0  0     DIVISION NO(COMPT 16)
          21712   222    12     0     0  0  0   4   1   1   3  0  0  0     LOCATION WITHIN DIV
          21714   222    13     0     0  0  0   1   0   2   0  0  0  0     DIV NO OF LEP
          21716   222    13     0     0  0  0   4   1   1   3  0  0  0     LOCATION WITHIN DIV
          21718   222    14     0     0  0  0   1   0   2   0  0  0  0     DIV NO(COMPT 1)
          21720   222    14     0     0  0  0   4   1   1   3  0  0  0     LOCATION WITHIN DIV
          21722   211    22     0     0  2  0   2   0   2   0  0  0  1     *342 L/E'S
          21724   214    22     0     0  2  0   5   0   0   0  0  0  0     L,O,S,T, SP (OR O'LAY)
          21726   214    18     0     0  2  0   1   1   0   0  0  0  0     N/E
          21728   221     8     0     0  0  0   5   0   0   0  0  0  0     PROG NO
          21730   211    22     0     0  2  0   2   0   2   0  0  0  1     2 SP,L/E,L/E
          21732     0   156     0     0  0  0   2   2   0   0  0  0  0     *31‼234                                   T 1
          21734   214     8     0     0  2  0   1   4   2   0  0  0  1     ///// SP,SP N/E
          21736   105     4     0     0  2  0   1   0   0   0  0  0  0     R/S
          21738     0   156     0     0  0  0   2   2   0   0  0  0  0     *31‼*583 2 DIGS                           T 1
          21740   214     8     0     0  2  0   1   4   1   0  0  0  1     ///// SP N/E

          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

          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

          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

          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     /////
          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
401       22902          (D)21;                                            *1:3

          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
          23009    115           8191   1  3  collate and add

          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)0000000000;                                    (A)ON ENTRY TO PROG
          23204          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     18   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
          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     32   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
401       23328    100              0   0  0  Halt                         *544*443 DUMPS PRINT2
401       23329    108              4   0  0  merge constant length        *2.+62‼*2.+*62‼     4
          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
401       23333    100              0   0  0  Halt                         *41‼*3Ю3*14‼*3:‼*60‼
401       23334    100              0   0  0  Halt                         *41‼*3Ю3*14‼*3:‼*60‼
          23335    100              1   0  0  Halt                         *3.3*04‼ CARDS OR P/T INDICATOR
          23336    100     295     16   0  0  Halt                         RETURN ADDRESS FOR PTS ABDON/END
          23337    100     190      2   0  0  Halt                         PTS=PROG CHANNEL BLOCK CTRS
          23338    100     190     50   0  0  Halt                         PTS=FILE IDENTITIES+REWIND INDS
          23339    100     464     16   0  0  Halt                         *41‼ RETURN ADD FROM START OF STORE DUMP
          23340    100     246     15   0  0  Halt                         RETURN TO RELEASE MR SWITCH
          23341    100     216      2   0  0  Halt                         *343 OFLOW EDIT TABLE
          23342    100     246      9   0  0  Halt                         RETURN ADD FOR O'LAY (END)
401       23343    100     455     14   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     23   0  0  Halt                         *60‼ RETURN ADD FOR O'LAY(START)
          23348    100              0   0  0  Halt                         START OF SECOND STORE AREA
401       23349    100              0   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     11   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    101     217     32   1  1  add literal address          TABLE START
          23404    128     102      4   1  2  edit fixed field formats
          23405    126     234      2   0  1  leave subroutine             >LEAVE S/R

          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
    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    100     220      2   1  1  replace registers
          23604    104     233     26   0  0  add (N) to (A)               RTE NO
          23605    126     100      2   0  0  enter subroutine             >READ
          23606    124            124   0  1  modify address of next       UNPACK
          23607    106             56   1  0  select (N)
          23608    128     228      2   1  0  bulk copy alpha to short
          23609    124     210      3   1  1  set modification group       SET MOD GROUP 3
          23610    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

          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     10   0  1  jump A != Z                  >NO
          23907    101              1   0  1  prepare for digit collation
401       23908    115     228      3   0  0  collate and add              *££0*££2*3Ю3*3‼‼
          23909    101              5   1  2  subtract literal address
    23906>23910    126     239      2   0  1  leave subroutine

          24000    PROCR   240       240     REPORT REQUIRED PROG NOT ON FILE
          24001     NOTES          RADIX     B
    24155>
    24522>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     22   0  2  select literal and division  SET EDIT TABLE FOR LOST
          24008    102     217     24   0  0  transfer (A) to N
          24009    124     217     24   0  2  select literal and division                      FORM COMMENT
          24010    128     102      6   1  2  edit fixed field formats
          24011    106     209      2   0  0  select (N)                   26/1/0/0/0
          24012    105     233     26   0  0  subtract (N) from (A)        RTE NO
          24013    102     106      9   0  0  transfer (A) to N                                SET M/R SWITCH=1
          24014    106     209      6   0  0  select (N)
          24015    102     106     19   0  0  transfer (A) to N                                AMEND S/C AT END OF
          24016    106     233     26   0  0  select (N)                   *59Ю
          24017    102             30   0  1  transfer (A) to N            *59Ю
          24018    124     181      2   1  0  unconditional jump           >LOG ROUTINE
    20906>24019    106     209      7   0  0  select (N)
          24020    102     106     19   0  0  transfer (A) to N                                RESET S/C
          24021    102     224      4   1  0  transfer (A) to N            CLEAR IDENTITY OF LAST PROGRAM USED
          24022    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     10   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     18   0  0  transfer (A) to N
          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     18   0  0  transfer (A) to N
          24141    100     214     10   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     17   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      4   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     56   1  0  subtract (N) from (A)
          24211    127     242     16   0  0  jump A = Z                   >YES
          24212    104     214     56   1  0  add (N) to (A)                                   TEST'DOUBT'
          24213    105     215      6   1  0  subtract (N) from (A)
          24214    127     242      3   0  0  jump A = Z                   >YES
    24225>
    24248>24215    124     242     71   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    102     224      7   0  0  transfer (A) to N
    24232>24219    126     236      2   0  0  enter subroutine             >S/R B8
          24220    124     212      2   1  1  set modification group       MG 0
          24221    126     212      2   1  3  set modification register    SET (MR3)=24/0
    24231>24222    101              0   0  1  prepare for digit collation  CLEAR B
          24223    106     228      2   0  3  select (N)                                       TEST PROG 10=£5
          24224    105     211      2   0  0  subtract (N) from (A)
          24225    127     242     15   0  0  jump A = Z
          24226    106     228      2   1  3  select (N)                                       TEST REQUIRED PROG
          24227    103     224      4   1  0  copy (A) to N                                    1D AND SERIAL
          24228    105     221      8   1  0  subtract (N) from (A)
          24229    127     242     33   0  0  jump A = Z                   >YES
    24244>24230    125              4   0  3  step on and test
          24231    124     242     22   1  0  unconditional jump
          24232    124     242     19   1  0  unconditional jump
    24229>24233    106     228      4   0  3  select (N)                   TEST PASS IND=4
          24234    105     220     11   0  0  subtract (N) from (A)
          24235    127     242     43   0  1  jump A != Z                  >NOT,REJECT IF TRIALS ALLOC
          24236    100     220      3   0  2  replace (B) by (N)           *60Ю
          24237    115     233     26   0  0  collate and add              PTS ROUTE
          24238    101              7   1  2  subtract literal address
          24239    127     242     49   0  1  jump A != Z
          24240    106     228      5   0  3  select (N)                   STORE INDEX IDENTIFIER
          24241    102     233     57   0  0  transfer (A) to N            *60Ю =PARA 55
          24242    124     242     49   1  0  unconditional jump
    24235>24243    104     212      6   0  0  add (N) to (A)                                   TEST INDICATOR=2
          24244    127     242     30   0  1  jump A != Z                  >NO,CONTINUE SEARCH
          24245    100     220      3   0  2  replace (B) by (N)           *60Ю
          24246    115     233     26   0  0  collate and add
          24247    101              7   1  2  subtract literal address
          24248    127     242     15   0  0  jump A = Z                   *60Ю
    24242>
    24239>24249    124             10   0  2  select literal and division  FORM UP IDENTIFIER FOR RUNNING
          24250    118              5   0  0  shift logical
          24251    104     228      5   0  3  add (N) to (A)
          24252    102     221      4   1  0  transfer (A) to N
          24253    106     228      5   0  3  select (N)                                       TEST CORRECT PLACE
          24254    105     224      7   0  0  subtract (N) from (A)
          24255    107     224      7   0  0  augment (N) by (A)
          24256    127     242     63   0  0  jump A = Z                   >YES
          24257    127     242     60   0  3  jump A < Z                   >RUN BACK
          24258    124             38   0  2  select literal and division
          24259    124     242     61   1  0  unconditional jump
    24536>
    24257>24260    124             36   0  2  select literal and division
    24259>24261    100     221      4   1  2  replace (B) by (N)
          24262    126     237      2   0  0  enter subroutine             >RUN FWD/BACK
    24265>
    24268>
    24256>24263    126     236      2   0  0  enter subroutine             >S/R BB
          24264    126     239      2   0  0  enter subroutine             >                   TEST SENTINEL TYPE 5
          24265    127     242     63   0  1  jump A != Z                  >NO
          24266    106     228      2   0  0  select (N)
          24267    105     220     10   0  0  subtract (N) from (A)
          24268    127     242     63   0  1  jump A != Z                  >NO
          24269    124     242      2   0  1  modify address of next
          24270    124              1   1  0  unconditional jump           >LEAVE S/R+1
    24215>24271    101             81   1  3  select literal address       *361                CODE LETTER A
          24272    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    102     224      6   0  0  transfer (A) to N
          24305    126             26   1  2  set modification register    SET(MR2)AT START OF SWITCH
          24306    123             28   0  3  select tag                   *59Ю TEST MOD
          24307    101             14   1  2  subtract literal address     GROUP 3 ALLOCATED
          24308    127     243     36   0  0  jump A = Z                   >NO
          24309    106     209     12   0  0  select (N)                   SET UP 6/0/0 8
          24310    102              2   0  2  transfer (A) to N            ACTION IN 2 OF SWITCH
          24311    106              4   0  0  select (N)                   FORM MODIFIER TO
          24312    101     111      2   1  2  subtract literal address     GIVE THIS SWITCHES
          24313    118           4127   1  0  shift logical                W/L'S
          24314    118              2   1  3  shift binary
          24315    102              6   0  0  transfer (A) to N
          24316    106     209     18   0  0  select (N)                   SET UP 6/1/0 IN
          24317    104              6   0  0  add (N) to (A)               SWITCH
          24318    102             26   0  2  transfer (A) to N
          24319    106     129      5   0  3  select (N)                   SET UP 28/1/1 W/L'S
          24320    103              3   0  2  copy (A) to N                IN 3 OF SWITCH
          24321    104     209     13   0  0  add (N) to (A)               24/1/0 TO BLISTER SPACE IN
          24322    102             28   0  2  transfer (A) to N            28 OF SWITCH
          24323    106             28   0  2  select (N)                   SET UP 26/0/3
          24324    102             27   0  2  transfer (A) to N            IN 27 OF SWITCH
          24325    106     209     14   0  0  select (N)                   SET UP 24/1/0 TO TOP OF PQ
          24326    102              4   0  2  transfer (A) to N            *09Ю062
          24327    106     209     14   0  0  select (N)                   SET UP 24/1/0 TO TOP OF PQ
          24328    102              6   0  2  transfer (A) to N            IN 4 OF SWITCH
          24329    106              3   0  2  select (N)
          24330    127     243     35   0  2  jump A >= Z
          24331    102     243     34   0  0  transfer (A) to N
          24332    106     243     61   0  0  select (N)
          24333    118              5   0  0  shift logical
          24334    100              0   0  0  Halt
    24330>24335    101              0   1  3  select literal address
    24308>24336    123             26   1  0  copy into tag                SET TAG 0 IN MOD
          24337    123             30   1  0  copy into tag                GROUP 3
          24338    123             28   1  0  copy into tag                *59Ю
          24339    106     176     23   0  0  select (N)
          24340    124             26   0  1  modify address of next       FORM SI=4 LINK
          24341    101             14   1  2  subtract literal address
          24342    103             35   0  2  copy (A) to N
          24343    102              7   0  2  transfer (A) to N            SET SI=4
          24344    124             27   0  1  modify address of next       *60Ю                TEST TRIAL
          24345    106             11   0  0  select (N)                   *60Ю
          24346    127     246     13   0  0  jump A = Z                   >NO
          24347    106             26   0  0  select (N)                   *60Ю SET TRIALS     IND
          24348    102     233     46   0  0  transfer (A) to N
          24349    126     480      2   0  0  enter subroutine
          24350    106     218      6   1  0  select (N)                   RESTORE MOD GROUP 3
          24351    128             26   0  0  bulk copy short numeric
          24352    106     106     11   0  0  select (N)                   SET M/R SWITCH AT 2
          24353    102     106      9   0  0  transfer (A) to N
          24354    124             24   0  2  select literal and division  SET LAST CHAP READ AT 24
          24355    102     224      6   0  0  transfer (A) to N
          24356    106     222      7   0  0  select (N)                   TRIAL DATA IND
          24357    124     233     45   0  1  modify address of next
          24358    124              4   1  0  unconditional jump           >PTS
401 10015>24359    124     233     45   0  1  modify address of next       *££0*££1*49‼        LINK UP FROM
          24360    124              5   1  0  unconditional jump           *60Ю >PTS
          24361    102              6   0  0  transfer (A) to N            *599

          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     100      8   0  0  select (N)                                       STORE DETAILS IN
          24407    102             44   0  1  transfer (A) to N                                SWITCH
          24408    126     462      2   0  0  enter subroutine             >REQUEST M/R FOR OVERLAY
          24409    106     212      6   0  0  select (N)                   *14Ю SET OPT A SWITCH AT2
          24410    102     296      6   0  0  transfer (A) to N            *14Ю
          24411    106             37   0  1  select (N)                   START OF LAST CH.
          24412    102              4   1  0  transfer (A) to N
          24413    106             30   0  1  select (N)                                       TEST IF OVERLAYING
          24414    105              4   0  2  subtract (N) from (A)                            CHPT IS AN INITIAL
          24415    127     244     18   0  3  jump A < Z                   >YES                CHPT
          24416    106     210      7   0  0  select (N)
          24417    107             30   0  1  augment (N) by (A)
    24415>24418    106             12   1  2  select (N)                   PROG ID & SL NO
          24419    102     221      8   1  0  transfer (A) to N
          24420    106             30   0  1  select (N)
          24421    102     221     13   0  0  transfer (A) to N
          24422    124     270      2   0  2  select literal and division  *464                00004
          24423    102             42   0  1  transfer (A) to N
          24424    106              9   0  1  select (N)                   SET SI=2
          24425    102              7   0  1  transfer (A) to N
          24426    106              2   1  0  select (N)                   STORE (MR1)
          24427    102     221      6   1  0  transfer (A) to N
          24428    126     107      8   1  1  set modification register    SET (MR1) FOR M/R
          24429    124     214     60   0  2  select literal and division  SET EDIT TABLE FOR O'LAY
          24430    102     217     24   0  0  transfer (A) to N
          24431    124     217     24   0  2  select literal and division  EDIT COMMENT INTO SP CHAP
          24432    124              3   0  1  modify address of next
          24433    128            130   1  2  edit fixed field formats
          24434    124              3   0  1  modify address of next
          24435    124            130   0  2  select literal and division
          24436    123            168   0  2  enter master routine         >TYPE

          24500    PROCR   245       245     OVERLAY 2
          24501     NOTES          RADIX     B
    24022>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     10   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
          24509    124              0   1  0  unconditional jump           *60Ю                >PTS
    24505>24510    114     233     26   0  0  replace selected bits        *572
          24511    106     209      8   0  0  select (N)                   SET UP A.S.L'S
          24512    124     233     26   0  1  modify address of next
          24513    102             64   0  0  transfer (A) to N
          24514    106     209      9   0  0  select (N)
          24515    102            124   0  0  transfer (A) to N
          24516    126     241      2   0  0  enter subroutine             >S/R A
          24517    124     245     21   1  0  unconditional jump           >FILE HAS BEEN OPENED
          24518    106     221      8   1  0  select (N)                                       TEST LAST PROG READ
          24519    105     224      4   1  0  subtract (N) from (A)
          24520    127     245     24   0  0  jump A = Z                   >YES
    24517>24521    126     242      2   0  0  enter subroutine             >S/R B
          24522    124     240      2   1  0  unconditional jump           >'LOST'
          24523    124     245     40   1  0  unconditional jump           >
    24630>
    24520>24524    106     221     13   0  0  select (N)                                       TEST THIS CHAP=
          24525    105     224      6   0  0  subtract (N) from (A)
          24526    101              1   1  2  subtract literal address
          24527    127     245     37   0  0  jump A = Z                   >YES
          24528    127     245     40   0  2  jump A >= Z                  >YES                TEST THIS CHAP>LAST
          24529    106     224      7   0  0  select (N)
          24530    118           4123   1  0  shift logical                SET UP PROG'S IDENTIFIER
          24531    124             10   0  2  select literal and division
          24532    118              5   1  0  shift logical
          24533    102     221      4   1  0  transfer (A) to N
          24534    124     245     22   0  2  select literal and division  SET LINK IN S/R B
          24535    102     242      2   0  0  transfer (A) to N
          24536    124     242     60   1  0  unconditional jump           >S/R B
    24527>24537    100     210      7   0  2  replace (B) by (N)
          24538    124             40   0  2  select literal and division
          24539    126     237      2   0  0  enter subroutine             >STEP BACK
    24544>
    24547>
    24550>
    24631>
    24528>
    24523>24540    126     236      2   0  0  enter subroutine             >S/R BB
          24541    124            124   0  1  modify address of next                           TEST CHAPTER
          24542    106             12   1  0  select (N)                                       HEADING BLOCK
          24543    105     214     58   1  0  subtract (N) from (A)
          24544    127     245     40   0  1  jump A != Z                  >NO
          24545    106     228      4   1  0  select (N)                                       TEST CORRECT PROG
          24546    105     221      8   1  0  subtract (N) from (A)                            IDENTITY AND
          24547    127     245     40   0  1  jump A != Z                  >NO                 SERIAL NO
          24548    106     228      2   0  0  select (N)                                       TEST IF REQUIRED
          24549    105     221     13   0  0  subtract (N) from (A)                            CHAPTER
          24550    127     245     40   0  1  jump A != Z                  >NO
          24551    106     108     12   0  0  select (N)                                       SET M/R SWITCH
          24552    102     106      8   0  0  transfer (A) to N                                NON-INT
          24553    106     218      2   1  0  select (N)                                       STORE GP 3 REGS
          24554    128     222     12   0  0  bulk copy short numeric
          24555    124     212      2   1  1  set modification group                           RESET MOD GP 0
          24556    126     221      6   1  2  set modification register    SET (MR2) FOR PROG
          24557    106             32   0  2  select (N)                   OVERLAYED CH NO
          24558    104             32   0  2  add (N) to (A)                                   SET MR2 FOR START OF
          24559    104             37   0  2  add (N) to (A)               START OF LAST CH    CH TO BE OVERLAYED
          24560    102             28   1  0  transfer (A) to N
          24561    124     210      3   1  1  set modification group                           SET MOD GP3
          24562    124              3   0  2  select literal and division  *14Ю SET OPT A SWITCH AT 3
          24563    102     296      6   0  0  transfer (A) to N            *14Ю
          24564    106             18   0  2  select (N)                   START OF CH
          24565    103             28   1  0  copy (A) to N                                    SET (MR2)=START CH
          24566    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    102     224      6   0  0  transfer (A) to N
          24604    124     221      7   0  1  modify address of next       *60Ю                TESTPROG
          24605    106             11   0  0  select (N)                                       UNDER TRIAL
          24606    127     246      9   0  0  jump A = Z                   >NO
          24607    124     233     45   0  1  modify address of next
          24608    124              7   1  0  unconditional jump           *60Ю                >PTS
    24606>24609    124     212      2   1  1  set modification group       0                   SET MOD GROUP 0
          24610    126     221      6   1  2  set modification register    SET (MR2) FOR PROG
          24611    106             35   0  2  select (N)
          24612    102              7   0  2  transfer (A) to N                                SET SI=4
    24346>24613    106     218      6   1  0  select (N)                   RESTORE GROUP 3 REGISTERS
          24614    128             26   0  0  bulk copy short numeric
    46814>24615    126     107      8   1  1  set modification register    SET (MR1) FOR M/R   (NEEDED FOR PTS)
          24616    106     106     11   0  0  select (N)                   SET M/R SWITCH AT 2
          24617    102     106      9   0  0  transfer (A) to N
          24618    100     220      3   0  2  replace (B) by (N)           *60Ю BITS 1-3
          24619    106     220      3   0  0  select (N)                   7
          24620    114     233     26   0  0  replace selected bits        *60Ю RESET ROUTE IN CASE OF PTS
          24621    126     480      2   0  0  enter subroutine
          24622    124     103      7   1  0  unconditional jump           >HEAD OF QUEUE
          24623    102     221      2   0  0  transfer (A) to N            *60Ю RETURN FROM PTS(START)
          24624    106     209      8   0  0  select (N)
          24625    124     233     26   0  1  modify address of next
          24626    102             64   0  0  transfer (A) to N
          24627    106     209      9   0  0  select (N)
          24628    102            124   0  0  transfer (A) to N
          24629    106     221      2   0  0  select (N)
          24630    127     245     24   0  0  jump A = Z                   >ALIGNED AT END OF CHAP
          24631    124     245     40   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      5   0  0  subtract (N) from (A)                            TEST FOR END OF
          24718    127     247     42   0  0  jump A = Z                   >YES                CHAPTER
          24719    104     210      6   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
          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           >

          24900    PROCR   249       249     SET INDIRECT MR AND SEARCH MULTI-ROUTE LOADING,LIST

          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     16   1  0  select (N)
          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;                                                RT 25/24 PROG NO
          25268          0;                                                RT 27/26 PROG NO
          25270          0;                                                RT 25/24 FILE ID
          25272          0;                                                RT 27/26 FILE ID
          25274          0;                                                RT 25/24 REEL NO
          25276          0;                                                RT 27/26 REEL NO

          25300    CONST   253       253     1    P/T I/P(CH2)W/L'S

          25400    CONST   254       254     1    40-COL CARD READER W/L'S

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

          25600    CONST   256       256     1    PADDING

          25700    CONST   257       257     1    CHANNEL 16 ETC

          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

          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)0;                                             '(64+R)'
          26012          0;                                                INDIRECT MODIFIER
          26014          3£00000000;
          26016          7.00000000;
          26018          0;                                                REEL NO. FILE IDENTITY
          26020          0;                                                W/L
          26022          7.7.7.7.7.;
          26024          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

          26200    TABLE   262       262     1
          26201     NOTES
          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   258    23     0     0  0  0   3   2   2   1  0  0  0     *71Ю*3£9 LIB NO
          26226   211    22     0     0  2  0   2   0   0   0  0  0  1                                               SUM
          26228   260    18     0     0  0  0   5   0   5   0  0  0  0     REEL PROGM 10
          26230   258    23     0     0  0  0   3   2   2   1  0  0  0     *71Ю*3£9 LIB NO
          26232   214    20     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)
401       26310    100              0   0  0  Halt                         *££0*££2*14‼*42‼*46‼*5+‼
401       26311    100              0   0  0  Halt                         *££0*££2*14‼*42‼*46‼*5+‼
401       26312    100              0   0  0  Halt                         *££0*££2*14‼*42‼*46‼*5+‼
          26313    100     286     37   0  0  Halt                                             (11)RE-WRITE
401       26314    100     285     43   0  0  Halt                         *0138Ю‼             (12)RE-READ
          26315    100     291      2   0  0  Halt                         *5+‼                (13)CHANGE DECKS
    26704>
    26712>
    26714>
    26722>
    26724>
    26732>
    26750>
    27512>
    44805>
    44907>
    44912>26316    126     312      2   0  0  enter subroutine             >ZZZ01
          26317    126     312      2   0  0  enter subroutine             >   02
    37306>26318    126     312      2   0  0  enter subroutine             >   03
    42117>26319    126     312      2   0  0  enter subroutine             >   04
    44413>
    44417>
    44605>
    44606>26320    126     312      2   0  0  enter subroutine             >   05
    44510>
    44707>26321    126     312      2   0  0  enter subroutine             >   06
    44538>
    44720>26322    126     312      2   0  0  enter subroutine             >   07
    44214>26323    126     312      2   0  0  enter subroutine             >   08
    27009>
    45018>26324    126     312      2   0  0  enter subroutine             >   09
    43605>26325    126     312      2   0  0  enter subroutine             >10

          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              3   0  1  select (N)                   *59Ю STORING MOD    GROUP 3
          26407    127     264     24   0  2  jump A >= Z                  TEST 28/1/1
          26408    126     250      2   0  0  enter subroutine             *59Ю STORE MOD GROUP 3 S/R
          26409    124     264     24   1  0  unconditional jump
    10003>26410    124     212      2   1  1  set modification group       SET MOD GROUP 0
          26411    124              2   0  1  modify address of next       STORE (AB) IN SI
          26412    100             30   1  0  copy registers
          26413    106              3   0  1  select (N)                   *59Ю STORING MOD GROUP 3
          26414    127     264     18   0  2  jump A >= Z                  >NOT 28/1/1
          26415    102     264     17   0  0  transfer (A) to N
          26416    106     212     16   1  0  select (N)
          26417    128     129      8   1  1  bulk copy long numeric       *59Ю
    26414>26418    106     100      2   0  0  select (N)                   SET UP LINK IN SI
          26419    102             44   1  1  transfer (A) to N            SET ASSOC TIME=0
          26420    106             31   0  1  select (N)                   *169199
          26421    101             48   1  2  subtract literal address     *19Ю TEST SELECT REEL COUNTER
          26422    127     449      2   0  0  jump A = Z                   *19Ю >YES
    28808>
    35110>
    42105>26423    126     338      2   0  0  enter subroutine             SET SI=1
    26409>
    26407>26424    124              2   0  1  modify address of next       *063 OBEY TEST ROUTE(SET DECIMAL)
          26425    124              7   1  0  unconditional jump           *063063 >51+7       (6/0/0/0/157)

          26500    PROCR   265       265     FORM INTERCHANGE AREA ADDRESSES
          26501     NOTES          RADIX     B
    20907>
    11319>
    11119>
    10619>26502    103     188      2   1  0  copy (A) to N
          26503    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
    42157>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     16   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
401       26712    124     263     16   1  0  unconditional jump           *££0*££2*03‼*02‼*04‼*05‼*19‼*1‼‼*30‼*2.‼
          26713    124     401      2   1  0  unconditional jump           *03‼ P/T O/P        OPEN FILE
          26714    124     263     16   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
401       26722    124     263     16   1  0  unconditional jump           *££0*££2*03‼*02‼*04‼*05‼*19‼*1‼‼*30‼*2.‼
          26723    124     408      2   1  0  unconditional jump           *03‼ P/T OUTPUT     CLOSE FILE
          26724    124     263     16   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
401       26732    124     263     16   1  0  unconditional jump           *££0*££2*03‼*02‼*04‼*05‼*19‼*1‼‼*30‼*2.‼
          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     16   1  0  unconditional jump           >ZZZ01 SELECT       48

          26800    PROCR   268       268     UPDATE USE OF ASSEMBLER TABLE ETC.
          26801     NOTES          RADIX
    39107>
    40812>
    26731>
    26726>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
    43616>26806    106     188      2   0  0  select (N)
          26807    126     299      2   0  0  enter subroutine             >CLEAR D/B INDICATOR
    37316>
    37512>
    39007>
    42016>
    43316>
    43722>
    44624>26808    126     349      2   0  0  enter subroutine             >UPDATE ASSEMBLER TABLE
    26907>
    38316>
    39009>
    40511>
    40624>
    40913>
    42147>
    42209>
    43713>
    43927>
    44615>
    44632>
    45052>
    10025>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)
          26901     NOTES          RADIX     B
    38705>26902    102     188      3   0  0  transfer (A) to N            STORE RTE TYPE
    36425>26903    126     349      2   0  0  enter subroutine             >UPDATE USE OF ASSEMBLER TABLE
    40113>
    26721>
    26716>26904    106             40   0  1  select (N)                   SET(A)=RUN NUMBER
          26905    118           4127   0  0  shift logical
    44813>
    44909>
    44916>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      2   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    106     270     16   0  0  select (N)
          27005    124              3   0  1  modify address of next       SET SETTING FOR S101
          27006    102            176   0  0  transfer (A) to N            TO TEST ROUTE
          27007    106             30   0  1  select (N)                   *13Ю                TEST RTE 7/7
401       27008    101             23   1  2  subtract literal address     *3:+                23
          27009    127     263     24   0  0  jump A = Z                   *13Ю >YES,ZZZ COMMENT
          27010    106     214     24   1  0  select (N)                   SET RC FOR COMMENT
          27011    102     258      4   1  0  transfer (A) to N
          27012    126     356      2   0  0  enter subroutine             >SET UP PROGRAMME NO
          27013    101              4   1  3  select literal address
          27014    126     345      2   0  0  enter subroutine             >EDIT TIME SET UP RTE NO
          27015    124     282     11   1  0  unconditional jump           >OUTPUT COMMENT
          27016    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      9   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)
          27209    105     211      2   0  0  subtract (N) from (A)
          27210    127     272     23   0  0  jump A = Z                   >YES
          27211    106     252      3   0  3  select (N)                                       TEST RT TYPE 0
          27212    127     272     14   0  1  jump A != Z                  >NO
          27213    124             11   0  2  select literal and division                      SET RTE TYPE 11
    27212>27214    124     109      2   0  1  modify address of next
          27215    118              0   1  0  shift logical                SET RT TYPE AS D/B INDICATOR
          27216    114     252      4   1  3  replace selected bits
          27217    106     103     15   0  0  select (N)                   SET SAS=2
          27218    102     265      3   0  0  transfer (A) to N
          27219    106     108     24   0  0  select (N)                   SET SLAS=2
          27220    102     103     14   0  0  transfer (A) to N
          27221    106     211      2   0  0  select (N)                   CLEAR ASSEMBLER TABLE
          27222    102     252      3   0  3  transfer (A) to N
    27210>27223    126     272      2   0  1  leave subroutine

          27300    PROCR   273       273     DOUBTFUL BLOCK : DETECTION
          27302    100              0   0  0  Halt                         LINK
          27303    100     210      9   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
          27406    103     109     14   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     23   0  1  jump A != Z                  >NO
          27421    106     108     23   0  0  select (N)                   18/0/36 RESET SWITCH SAS
          27422    102     265      3   0  0  transfer (A) to N
    27420>27423    124     109     14   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           *421*02‼ P/T INPUT  5
          27508    124     279      2   1  0  unconditional jump           *421*04‼
          27509    124     285      2   1  0  unconditional jump           M/T INPUT           7
          27510    124     286      2   1  0  unconditional jump           M/T OUTPUT          8
          27511    124     282      7   1  0  unconditional jump           SPECIAL PRINTER     9
401       27512    124     263     16   1  0  unconditional jump           *03‼*02‼*04‼*05‼*30‼*2.‼

          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     10   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     214     36   1  0  select (N)                   SET DB FOR COMMENT
          27709    102     258      4   1  0  transfer (A) to N
          27710    124     277     12   0  2  select literal and division
          27711    124     282     10   1  0  unconditional jump           >OUTPUT COMMENT
          27712    126     339      2   0  0  enter subroutine             >SET(MR3)=(3)
          27713    106            194   0  3  select (N)                   RESET(64+R)
          27714    102            192   0  3  transfer (A) to N
          27715    106            174   0  3  select (N)                   RESTORE RTE TYPE
          27716    102             31   0  1  transfer (A) to N
          27717    102            174   0  3  transfer (A) to N            CLEAR W/L
          27718    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    124     188      2   0  1  modify address of next       OUTPUT
          27804    119              0   0  0  output
401       27805    126     351      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          27806    126     339      2   0  0  enter subroutine             SET(MR3)=(3)
          27807    106            160   0  3  select (N)                   TEST D/B OCCURED
          27808    126     278      2   0  1  leave subroutine             >

          27900    PROCR   279       279     D/B, P/T & CARD INPUT
          27901     NOTES          RADIX     B    OFFER OPTIONS
    27508>27902    101              6   1  3  select literal address       *422*04Ю
          27903    124     279      5   1  0  unconditional jump           *04Ю
    27507>27904    101              5   1  3  select literal address       *029
    27903>27905    102     280      5   0  0  transfer (A) to N            *422
          27906    124              3   0  1  modify address of next       PROG SP CHAP START
          27907    106            174   0  0  select (N)
          27908    101              7   1  2  subtract literal address     READING?
401       27909    127     279     21   0  2  jump A >= Z                  *42Ю42‼ >NO
          27910    106             33   0  1  select (N)                   TEST IF LINK SPECIFIED IN Q6-10 B
401       27911    127     279     21   0  0  jump A = Z                   *42‼
    28206>
    28566>27912    101             15   0  1  prepare for digit collation
          27913    114             44   0  1  replace selected bits
          27914    106     214     36   1  0  select (N)                   SET 'DB' FOR COMMENT
          27915    102     258      4   1  0  transfer (A) to N
          27916    126     361      2   0  0  enter subroutine             >SET UP PART OF COMMENT
          27917    106     270     16   0  0  select (N)                   SET SETTING OF S101
          27918    124              3   0  1  modify address of next       TO TEST ROUTE
          27919    102            176   0  0  transfer (A) to N
          27920    124     282     11   1  0  unconditional jump           >OUTPUT COMMENT
    27911>
    27909>27921    101     280      2   1  3  select literal address       *422
          27922    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    106     280      5   0  0  select (N)                   *422
          28004    124     287     33   1  0  unconditional jump
          28005    100              0   0  0  Halt                         *422

          28100    PROCR   281       281     ALIGNMENT INCORRECT FOR OPTION 8
          28101     NOTES          RADIX     B

          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     12   0  1  jump A != Z                  *2.286Ю >YES
    28204>
    27511>
    27505>28207    106     214     36   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>
    40612>
    27922>
    27711>28210    126     362      2   0  0  enter subroutine             >SET RTE TO MANUAL  ETC
    37103>
    38310>
    38314>
    45050>
    27920>
    27015>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     33   1  0  unconditional jump           >END ROUTINE

          28400    PROCR   284       284     DOUBTFUL BLOCK-AUTOLECTOR & CHEQUE SORTER

          28500    PROCR   285       285     DOUBTFUL BLOCK:M/T INPUT
          28501     NOTES          RADIX     B
    42132>
    27509>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     43   1  0  unconditional jump           *019                STEP BACK 50/8 BLOCK
    28546>28505    106     212      6   0  0  select (N)
          28506    126     306      2   0  0  enter subroutine             >
    28557>
    29350>28507    126     342      2   0  0  enter subroutine             *019
          28508    126     329      2   0  0  enter subroutine             >READ
          28509    126     343      2   0  0  enter subroutine             *019
401       28510    126     351      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
401       28515    127     285     43   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     61   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
    28660>28527    102             41   0  1  transfer (A) to N
          28528    124     294      2   1  0  unconditional jump           >OFFER OPTIONS
    28513>28529    106     214     36   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
          28534    101     285     59   1  3  select literal address       SET UP LINK FOR SI=5
    28712>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    107     258     10   1  0  augment (N) by (A)
          28539    125              0   1  2  interrogate indicators
          28540    124              3   0  1  modify address of next       CLEAR COUNTER C
          28541    102            167   0  0  transfer (A) to N
          28542    124     432     11   1  0  unconditional jump           *43Ю
    28515>
    28504>28543    124     188      2   0  1  modify address of next       *01Ю                TEST<52/10 BLOCKS
          28544    106     190      2   0  0  select (N)
          28545    101             82   1  2  subtract literal address     *8Ю4                00010
          28546    127     285      5   0  3  jump A < Z                   >YES
          28547    101             50   1  3  select literal address       *8Ю4                00008
          28548    126     306      2   0  0  enter subroutine             >STEP BACK 50 BLOCKS,FORWARD 1
          28549    126     339      2   0  0  enter subroutine             >SET(MR3)=(3)
          28550    101             48   1  3  select literal address       *8Ю4 COUNTER        00006
    28558>28551    102            177   0  3  transfer (A) to N
          28552    126     355      2   0  0  enter subroutine             STEP FORWARD
401       28553    126     351      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          28554    126     339      2   0  0  enter subroutine             >SET(MR3)=(3)
          28555    106            177   0  3  select (N)                                       STEP COUNTER BY
          28556    105     210      7   0  0  subtract (N) from (A)                            MINUS ONE AND
          28557    127     285      7   0  0  jump A = Z                   >YES                TEST END
          28558    124     285     51   1  0  unconditional jump           *01Ю
          28559    101              7   1  3  select literal address
          28560    124     287     33   1  0  unconditional jump
    28522>28561    101              7   1  3  select literal address
          28562    102             31   0  1  transfer (A) to N            RESET RTE TYPE 7 IN SI+31
          28563    124              3   0  1  modify address of next
          28564    102            167   0  0  transfer (A) to N            CLEAR ATTEMPTS COUNTER
          28565    106             33   0  1  select (N)
          28566    124     279     12   1  0  unconditional jump           > AMEND LINK

          28600    PROCR   286       286     DOUBTFUL BLOCK:M/T OUTPUT
          28601     NOTES          RADIX     B
    27510>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
401       28618    126     351      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
          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
    28668>
    28673>
    28686>
    28621>28624    126     314      2   0  0  enter subroutine             >TEST A1=BLOCK CTR
          28625    127     286     61   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
    28681>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
    28655>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>28648    126     330      2   0  0  enter subroutine             WRITE
          28649    126     343      2   0  0  enter subroutine             *019
401       28650    126     351      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          28651    124              3   0  1  modify address of next                           TEST D/B IND SET
          28652    106            160   0  0  select (N)
          28653    127     287      2   0  0  jump A = Z                   *43‼
          28654    126     358      2   0  0  enter subroutine             >STEP COUNTER C
          28655    127     286     37   0  1  jump A != Z                  >NO                 TEST C=6
          28656    106     212      6   0  0  select (N)
          28657    124              3   0  1  modify address of next
          28658    102            175   0  0  transfer (A) to N
          28659    101           5121   1  3  select literal address       *14+5++*14+*5++     010240512001025
          28660    124     285     27   1  0  unconditional jump           >
    28625>28661    126     315      2   0  0  enter subroutine             >TEST A1 FOR FBM
          28662    124     286     74   1  0  unconditional jump           >FMB FOUND
          28663    126     339      2   0  0  enter subroutine             >SET(MR3)=3
          28664    101     286     24   1  3  select literal address       STORE RETURN LOCATION
          28665    102            162   0  3  transfer (A) to N
          28666    126     323      2   0  0  enter subroutine
          28667    126     316      2   0  0  enter subroutine             >ALIGNMENT FAILURE
          28668    124     286     24   1  0  unconditional jump           >
          28669    126     318      2   0  0  enter subroutine             >TEST BLOCK 6
          28670    124     291     27   1  0  unconditional jump           >OPEN REEL
          28671    126     317      2   0  0  enter subroutine             >REREAD
          28672    126     319      2   0  0  enter subroutine             >STEP ATTEMPTS COUNTER
          28673    124     286     24   1  0  unconditional jump           >
    28662>28674    101              3   0  1  prepare for digit collation
          28675    126     339      2   0  0  enter subroutine             SET(MR3)=3
          28676    115            179   1  3  collate and add                                  CORRECTLY FOR REWRIT
          28677    102     221      2   0  0  transfer (A) to N
          28678    126     341      2   0  0  enter subroutine             (MR3)=(64+R)
          28679    115              1   1  3  collate and add
          28680    105     221      2   0  0  subtract (N) from (A)
          28681    127     286     29   0  0  jump A = Z                   >YES
          28682    101              3   1  3  select literal address
          28683    126     306      2   0  0  enter subroutine             >STEP BACK(3)FORWARD 1
          28684    126     355      2   0  0  enter subroutine             >STEP FORWARD
401       28685    126     351      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          28686    124     286     24   1  0  unconditional jump           >

          28700    PROCR   287       287     DB/COMMENT:M/T OUTPUT
          28701     NOTES          RADIX     B
    29347>
    28653>28702    106     214     36   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    106     109     10   1  0  select (N)                   SET UP O/P:1
          28710    102     258     10   1  0  transfer (A) to N
          28711    124     287     13   0  2  select literal and division
          28712    124     285     35   1  0  unconditional jump           > OUTPUT 'DB'
          28713    106             30   1  1  select (N)                   SET UP ROUTE NO AND TYPE
          28714    102     188      2   1  0  transfer (A) to N
          28715    126     359      2   0  0  enter subroutine             *43Ю
          28716    126     341      2   0  0  enter subroutine             >SET(MR3)=(64+R)
          28717    124              3   0  1  modify address of next       RESTORE A1
          28718    106            178   1  0  select (N)
          28719    102              0   1  3  transfer (A) to N
          28720    106     210      7   0  0  select (N)
          28721    126     333      2   0  0  enter subroutine             >STEP BLOCK CNTR BY 1
401       28722    126     351      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          28723    126     188      2   1  2  set modification register    *01Ю
          28724    100     210      7   0  2  replace (B) by (N)           SET(B)
          28725    124              3   0  1  modify address of next
          28726    106            179   1  0  select (N)                                       TEST BLOCK 7
          28727    105     220      3   0  0  subtract (N) from (A)
          28728    127     287     30   0  0  jump A = Z                   >YES
          28729    126     342      2   0  0  enter subroutine             *01Ю
    28728>28730    126     330      2   0  0  enter subroutine             >WRITE
          28731    126     343      2   0  0  enter subroutine             *019
          28732    106     212      5   0  0  select (N)                   SET RTE TYPE 8
    28560>
    28304>
    28004>28733    103     188      3   0  0  copy (A) to N
          28734    126     349      2   0  0  enter subroutine             >UPDATE ASSEMELER TABLE
          28735    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     23   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      7   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

          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)
          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>
    28670>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      6   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      7   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
401       29222    126     351      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          29223    126     355      2   0  0  enter subroutine             >STEP FORWARD
401       29224    126     351      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
401       29235    127     425     21   0  0  jump A = Z                   *43‼43‼*51‼51‼      >BLOCK 7
    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
    42666>
    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
401       29255    126     351      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
401       29269    126     351      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
          29309    126     343      2   0  0  enter subroutine             *019
401 29356>29310    126     351      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      7   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>
401 29326>29332    126     351      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
          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      7   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
          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
    19929>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     15   0  0  jump A = Z                   >NO
          29510    106     108     10   0  0  select (N)
          29511    124     233     26   0  1  modify address of next       RESTORE A.S.L.
          29512    102             64   0  0  transfer (A) to N
          29513    124     233     45   0  1  modify address of next
          29514    124              6   1  0  unconditional jump           *60Ю
    29509>29515    126     462      2   0  0  enter subroutine             *14Ю                >REQUEST M/R
    29634>
    29707>
    51714>
    20411>29516    102     106      2   0  0  transfer (A) to N            SET INDICATOR
          29517    101              2   1  3  select literal address       RESET ABANDON/UNLOAD INDICATOR
          29518    102            179   0  0  transfer (A) to N
          29519    124              2   0  1  modify address of next
          29520    124             37   0  1  modify address of next
          29521    102             16   0  0  transfer (A) to N
          29522    106             39   0  1  select (N)                   SET UP PROGRAM NO
          29523    102     221     12   0  0  transfer (A) to N
          29524    126     298      2   0  0  enter subroutine             >CLEAR D/B INDICATORS
          29525    106              3   0  1  select (N)                   *59Ю TEST PROGRAM USES MOD GROUP 3
          29526    127     295     45   0  2  jump A >= Z                  >NO
          29527    106     209     11   0  0  select (N)                   SET UP 6/0/0 IN 2 OF SWITCH
          29528    102              2   0  1  transfer (A) to N
          29529    106              0   0  1  select (N)                   100/1/0 ACTION
          29530    101           8191   1  1  add literal address          TURN INTO
          29531    101              1   1  1  add literal address          100/1/1 ACTION
          29532    102             26   0  1  transfer (A) to N
          29533    106     209     15   0  0  select (N)                   FORM 2/0/0 44 IN 3 OF SWITCH
          29534    104              2   0  0  add (N) to (A)
          29535    102              3   0  1  transfer (A) to N
          29536    106     209     16   0  0  select (N)                   FORM UP 24/1/0 IN 6 OF SWITCH
          29537    102              6   0  1  transfer (A) to N
          29538    106     209     17   0  0  select (N)                   FORM UP 26/0/3 IN 28 OF SWITCH
          29539    105              2   0  0  subtract (N) from (A)
          29540    102             28   0  1  transfer (A) to N
          29541    106              6   0  1  select (N)
          29542    102              4   0  1  transfer (A) to N
          29543    106             28   0  1  select (N)
          29544    102             27   0  1  transfer (A) to N            *59Ю*06209Ю
    29526>29545    106              9   0  1  select (N)                   CLOSE PROG SWITCH FIRMLY
          29546    102              7   0  1  transfer (A) to N
          29547    124     106      2   0  1  modify address of next       AMEND EDIT TABLE FOR
          29548    124     214     46   0  2  select literal and division  ABDON'OR'END'
          29549    102     482      2   0  0  transfer (A) to N
          29550    124     106      2   0  1  modify address of next
          29551    124     295     52   1  0  unconditional jump
    29551>29552    106              9   0  1  select (N)                   CORRUPT SI+35 TO PREVENT
          29553    102             35   0  1  transfer (A) to N            SWITCH BEING OPENED
          29554    126     179      2   0  0  enter subroutine             >SEARCH LOG QUEUE S/R
          29555    124     176     12   0  2  select literal and division  TEST OPTION OUTSTANDING
          29556    105     175      4   0  3  subtract (N) from (A)        FOR THIS PROG
          29557    127     295     59   0  1  jump A != Z                  >NO
          29558    102     175      3   0  0  transfer (A) to N            CLEAR OPT OUTSTANDING INDICATOR
    29557>29559    102     175      4   0  3  transfer (A) to N            CLEAR A
          29560    102     175      4   0  3  transfer (A) to N            CLEAR LOG REQUEST
          29561    124     475      2   1  0  unconditional jump           >END ROUTINE

          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
401       29621    127     296     27   0  0  jump A = Z                   *57‼
          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      3   1  0  unconditional jump           *361                C REG COMMENT
    29621>29627    102     224      4   1  0  transfer (A) to N            CLEAR IS LAST PROG LOCATED
          29628    106     221      8   0  0  select (N)
          29629    126     479      2   0  0  enter subroutine             >S/R M*
          29630    124     296     36   1  0  unconditional jump           >NOT FOUND
          29631    124              4   0  1  modify address of next
          29632    124     230      3   0  1  modify address of next
          29633    126             36   1  1  set modification register    SET MR1 FOR PROG
          29634    124     295     16   1  0  unconditional jump           >ABANDON PROGRAM
          29635    101              2   1  3  select literal address       'M'
    29630>29636    101             98   1  1  add literal address          'K'
          29637    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      7   0  0  select (N)                   RESET M/R SWITCH
          29705    102     106     19   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     16   1  0  unconditional jump           >ABANDON PROGRAM
    29611>29708    124     214     62   0  2  select literal and division  *41Ю
          29709    124     468      5   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)
    29820>29804    106             34   1  3  select (N)                   TEST RELEASED
          29805    127     298     19   0  3  jump A < Z                   >YES
          29806    101              3   0  1  prepare for digit collation
          29807    125              0   1  2  interrogate indicators       *521
          29808    115             34   0  3  collate and add
          29809    126     299      2   0  0  enter subroutine             >CLEAR A D/B INDICATOR
          29810    125              0   1  2  interrogate indicators
          29811    101              3   0  1  prepare for digit collation                      TEST THIS ROUTE
          29812    115             34   0  3  collate and add                                  IN ASSEMBLER TABLE
          29813    124     258     32   0  1  modify address of next
          29814    105     252      2   0  0  subtract (N) from (A)
          29815    127     298     19   0  1  jump A != Z                  >NO
          29816    106     211      2   0  0  select (N)
          29817    124     258     32   0  1  modify address of next       SET RTE TYPE  £5
          29818    102     252      3   0  0  transfer (A) to N
    29815>
    29805>29819    125              2   0  3  step on and test                                 TEST END OF TABLE
          29820    124     298      4   1  0  unconditional jump           >NO
          29821    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             30   1  1  select (N)                   SET UP ROUTE NO. & TYPE
          30006    102     188      2   1  0  transfer (A) to N
          30007    106     188      2   0  0  select (N)                                       TEST IF M/T
401       30008    101             16   1  2  subtract literal address     *3:2*224*234        800016
401       30009    127     301      2   0  2  jump A >= Z                  *28‼033             >NO
          30010    106     188      3   0  0  select (N)                                       TEST RTE TYPE 8
          30011    101              8   1  2  subtract literal address
          30012    127     305      2   0  0  jump A = Z                   >YES                RTE TYPE 8
          30013    101             40   1  2  subtract literal address                         TEST RTE TYPE 48
          30014    127     300     19   0  0  jump A = Z                   >YES
          30015    125              0   1  2  interrogate indicators       CLEAR W/E INDICATOR
          30016    101             16   0  1  prepare for digit collation
          30017    124     188      2   0  1  modify address of next
          30018    114     190     18   0  0  replace selected bits
    30219>
    30014>30019    126     300      2   0  1  leave subroutine             >SI+12

          30100    PROCR   301       301     WARNING OF END:P/T OUTPUT
    30009>30102    106     188      3   0  0  select (N)                   *281
          30103    105     210      7   0  0  subtract (N) from (A)                            TEST RTE TYPE 1
          30104    127     302      2   0  1  jump A != Z                  >NO
          30105    105     210      2   0  0  subtract (N) from (A)
          30106    124              3   0  1  modify address of next       SET W/E INDICATOR
          30107    102            157   0  0  transfer (A) to N
          30108    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
    30104>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      9   1  2  subtract literal address     TEST SINGLE ANNEX WORKING
          30218    105     209     10   0  0  subtract (N) from (A)        *54Ю44Ю
          30219    127     300     19   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
          30222    102            157   0  0  transfer (A) to N
          30223    124     303      2   0  2  select literal and division  RETURN LOCATION
          30224    126     362      2   0  0  enter subroutine             >SET RTE TO MANUAL, ETC.
          30225    126     341      2   0  0  enter subroutine             >SET (MR3)=(64+R)
          30226    124              3   0  1  modify address of next       *86Ю
          30227    106            157   0  0  select (N)
          30228    101              4   1  2  subtract literal address
          30229    127     302     32   0  0  jump A = Z
          30230    101             20   1  2  subtract literal address
          30231    127     302     32   0  0  jump A = Z                   *86Ю
    30404>
    30231>
    30229>30232    102     258      8   1  0  transfer (A) to N
          30233    106     214     38   1  0  select (N)                   'WE'
          30234    102     258      4   1  0  transfer (A) to N
          30235    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    126     330      2   0  0  enter subroutine             >WRITE
          30304    101              4   1  3  select literal address       *2.486+             00009
          30305    102     188      3   0  0  transfer (A) to N
          30306    106            157   0  3  select (N)                   ORIGINAL ROUTE TYPE
          30307    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     32   1  0  unconditional jump           >COMMENT

          30500    PROCR   305       305     WARNING OF END
          30501     NOTES          RADIX     B    MAGNETIC TAPE OUTPUT
    30012>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     18   0  3  collate and add                                  SET
          30505    127     305     13   0  1  jump A != Z                  >YES
          30506    106     210      5   0  0  select (N)                   SET W/E INDICATOR
          30507    114     190     18   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      5   0  0  subtract (N) from (A)                            TEST IF INDICATOR
          30514    127     305     18   0  1  jump A != Z                  >YES                IS.
          30515    105     209     10   0  0  subtract (N) from (A)        SET INDICATOR AS .
          30516    107     190     18   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     324      2   0  0  enter subroutine             >UNLOAD. NEW TAPE
          30524    126     425      2   0  0  enter subroutine             >OPEN OUTPUT REEL

          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
401       30611    126     351      2   0  0  enter subroutine             *££0*££2*09‼06‼
          30612    126     339      2   0  0  enter subroutine             SET(MR3)=3
          30613    106            177   0  3  select (N)                   SELECT CNTR
          30614    105     210      7   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
          30617    126     357      2   0  0  enter subroutine             >COUNT 500 MILLISECS
          30618    126     355      2   0  0  enter subroutine             >STEP FORWARD
401       30619    126     351      2   0  0  enter subroutine             *££0*££2*09‼06‼
          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     307      2   0  0  select (N)
          30705    102            165   0  3  transfer (A) to N
    29132>30706    125              0   1  2  interrogate indicators       DRAIN
          30707    102            157   0  3  transfer (A) to N            CLEAR INDICATORS
          30708    102            158   0  3  transfer (A) to N
          30709    126     340      2   0  0  enter subroutine             >SET (MR3)=R
          30710    100     210      5   0  2  replace (B) by (N)                               TEST IF THIS REEL
          30711    115     190     50   0  3  collate and add                                  HAS BEEN REWOUND
          30712    127     307     16   0  0  jump A = Z                   >NO
          30713    125              0   1  2  interrogate indicators       CLEAR REWIND IND
          30714    114     190     50   0  3  replace selected bits
          30715    126     357      2   0  0  enter subroutine             >COUNT 500 MILLISECS
    30712>30716    124     188      2   0  1  modify address of next       RUN FORWARD
          30717    119              0   0  3  run forward
          30718    126     343      2   0  0  enter subroutine             *019 CLEAR BIT 1 OF ASL
          30719    126     351      2   0  0  enter subroutine             >TEST RTE NOTING D/B
          30720    126     355      2   0  0  enter subroutine             > STEP FORWARD
          30721    126     351      2   0  0  enter subroutine             >TEST RTE NOTING D/B
          30722    101              5   1  3  select literal address
          30723    124     188      2   0  1  modify address of next       SET BLOCK CNTR=5
          30724    102     190      2   0  0  transfer (A) to N
          30725    126     308      2   0  0  enter subroutine             >READ, TEST BLOCK
          30726    126     341      2   0  0  enter subroutine             >SET MR3=64+R
          30727    106              7   1  3  select (N)
          30728    124              3   0  1  modify address of next
          30729    102            182   0  0  transfer (A) to N
          30730    124              3   0  1  modify address of next
          30731    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      7   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
          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>
401 30811>30838    126     351      2   0  0  enter subroutine             *££0*££2*09‼06‼
          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      7   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      6   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
          31004    106     210      7   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     330      2   0  0  enter subroutine             >WRITE
          31010    106     310      2   0  0  select (N)                   STORE LINK
          31011    124              3   0  1  modify address of next
          31012    102            197   0  0  transfer (A) to N
          31013    106     212      5   0  0  select (N)                   SET RTE TYPE 8
          31014    102     188      3   0  0  transfer (A) to N
          31015    126     350      2   0  0  enter subroutine             >TEST RTE DEALING WITH D/B
          31016    126     341      2   0  0  enter subroutine             >SET (MR3)=(64+R)
          31017    106     258     30   1  0  select (N)                   SELECT (END)
          31018    103              0   1  3  copy (A) to N                1ST WORD
          31019    102              2   1  3  transfer (A) to N            2ND WORD
          31020    126     330      2   0  0  enter subroutine             >WRITE
          31021    126     351      2   0  0  enter subroutine             >TEST RTE NOTING D/B
          31022    125              0   1  2  interrogate indicators
          31023    126     331      2   0  0  enter subroutine             >AUGMENT BLOCK CTR BY-1
          31024    124              3   0  1  modify address of next
          31025    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     50   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     18   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     40   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     16   1  2  subtract literal address
          31211    103     258      7   0  0  copy (A) to N                *13Ю
          31212    101              9   1  2  subtract literal address     TEST 22209
          31213    127     312     15   0  1  jump A != Z                  >NO
          31214    102     258      8   0  0  transfer (A) to N            CLEAR ROUTE NO
    31213>31215    125              0   1  2  interrogate indicators       *13Ю
          31216    102     188      3   0  0  transfer (A) to N
          31217    126     349      2   0  0  enter subroutine             > CLEAR ASSEMBLER TABLE
          31218    106     438      2   0  0  select (N)                   STORE SETTING OF S101
          31219    124              3   0  1  modify address of next
          31220    102            176   0  0  transfer (A) to N
          31221    124     432     10   1  0  unconditional jump           >OUTPUT COMMENT

          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     30   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
401       31627    126     351      2   0  0  enter subroutine             *££0*££2*09‼06‼
          31628    124              3   0  1  modify address of next                           TEST ALIGNED
          31629    106            177   0  0  select (N)                                       CORRECTLY
          31630    105     210      7   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
401 31635>31649    126     351      2   0  0  enter subroutine             *££0*££2*09‼06‼
          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
401 31715>31711    126     351      2   0  0  enter subroutine             *££0*££2*09‼06‼
          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
401       31815    126     351      2   0  0  enter subroutine             *££0*££2*09‼06‼
          31816    124     316     48   1  0  unconditional jump           >ALIGNMENT FAILURE
    31813>31817    126     357      2   0  0  enter subroutine             >COUNT 500 MILLISECS
401       31818    126     351      2   0  0  enter subroutine             *££0*££2*09‼06‼
          31819    124     188      2   0  1  modify address of next       REWIND
          31820    119              0   1  1  rewind
          31821    106     210      5   0  0  select (N)
          31822    124     188      2   0  1  modify address of next       SET REWIND INDICATOR
          31823    107     190     50   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      7   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      7   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     76   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    106     321      2   0  0  select (N)                   STORE
          32104    124              3   0  1  modify address of next       LINK
          32105    102            173   0  0  transfer (A) to N
          32106    124              3   0  1  modify address of next                           TEST ATTEMPTS COUNTE
          32107    106            185   0  0  select (N)                                       ZERO
          32108    127     321     21   0  0  jump A = Z                   >YES
          32109    106     214     70   1  0  select (N)                   SET UP 'SER'
          32110    102     258      4   1  0  transfer (A) to N
          32111    126     361      2   0  0  enter subroutine             >SET UP PART OF COMMENT
          32112    102     258     12   1  0  transfer (A) to N            CLEAR COL 5
          32113    124              3   0  1  modify address of next       SET UP FOUND SERIAL NO
          32114    106            184   0  0  select (N)
          32115    102     258     10   0  0  transfer (A) to N
          32116    124              3   0  1  modify address of next       CLEAR ATTEMPTS CTR
          32117    102            185   0  0  transfer (A) to N
          32118    124     321     20   0  2  select literal and division
          32119    124     426     56   1  0  unconditional jump           >
          32120    126     359      2   0  0  enter subroutine             >SET SI=4,RESTORE LINK FOR SI=3
    32108>32121    106             30   1  1  select (N)                   STORE RTE NUMBER AND
          32122    102     188      2   1  0  transfer (A) to N            TYPE
          32123    124              3   0  1  modify address of next
          32124    126            173   0  1  leave subroutine             *50Ю
          32125    125              0   1  2  interrogate indicators
          32126    124              3   0  1  modify address of next
          32127    102            185   0  0  transfer (A) to N            CLEAR ATTEMPTS COUNTER
          32128    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     38   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
          32406    106     215      4   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

          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
401       32611    125             16   0  3  step on and test             *244*234*224        240001600008
          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
    45012>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      4   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
          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      7   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

          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
          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      7   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     18   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>
    31314>
    29422>33502    124              3   0  1  modify address of next       EDIT INTO SPECIAL CHAP
          33503    128            130   1  2  edit fixed field formats
          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      5   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>
    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>
    42664>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      2   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
          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      7   0  2  replace (B) by (N)           SET(B)
          34205    106     191     32   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      7   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

          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     11   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
          34602    100              0   0  0  Halt                         LINK
          34603    101     217     32   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

          34700    PROCR   347       347     SET ASSOC TIME=CURRENT TIME+3 MIN
          34701     NOTES          0

          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      9   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
          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     10   0  0  add (N) to (A)
    36558>
    37606>
    42141>
    30307>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     23   1  0  unconditional jump           > SET SI=1, TEST RTE

          35200    PROCR   352       352     TEST RTE NOTING D/B
          35201     NOTES          RADIX     B    TIMINGS OFF

          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
    45011>
    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    101           2143   1  3  select literal address       *3Ю9*2‼4*2+4*2:4    00000028390485402000
    35705>35704    101              1   1  2  subtract literal address
          35705    127     357      4   0  1  jump A != Z
          35706    126     357      2   0  1  leave subroutine

          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      7   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
          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    106     270     16   0  0  select (N)
          36211    124              3   0  1  modify address of next       SET SETTING FOR S101
          36212    102            176   0  0  transfer (A) to N            TO TEST ROUTE
          36213    101              4   1  3  select literal address
          36214    126     345      2   0  0  enter subroutine             >EDIT TIME, SET UP RTE. NO.
          36215    126     356      2   0  0  enter subroutine             >SET UP PROG NO
          36216    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      7   0  0  select (N)                   *02Ю SET REEL CNTR=1
          36403    124     188      2   0  1  modify address of next
401       36404    102     252     50   0  0  transfer (A) to N            *53+0Ю+3:+*53+3:+   5000058
          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
401       36412    102     252     42   0  0  transfer (A) to N            *53+3:+             42
          36413    106              5   0  3  select (N)                   STORE FILE ID
          36414    124     188      2   0  1  modify address of next
401       36415    102     252     46   0  0  transfer (A) to N            *53+3:+             46
          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
401       36419    102     252     50   0  0  transfer (A) to N            *53+0Ю+3:+*53+3:+   5000058
          36420    101              5   1  3  select literal address       *02Ю SELECT RTE TYPE
    36606>36421    102     188      3   0  0  transfer (A) to N            *02Ю04Ю
          36422    124              3   0  1  modify address of next
          36423    102            168   0  0  transfer (A) to N            CLEAR(168)
          36424    126     329      2   0  0  enter subroutine             > READ
          36425    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
    37320>36502    101     365     34   1  3  select literal address       *02Ю
          36503    126     362      2   0  0  enter subroutine             >UNLOAD ETC
          36504    106     215      4   1  0  select (N)                   SET UP'NEW'
          36505    102     258      4   1  0  transfer (A) to N
          36506    101              4   1  3  select literal address
          36507    126     345      2   0  0  enter subroutine             >EDIT TIME, SET UP RTE NO
          36508    126     340      2   0  0  enter subroutine             >SET (MR3)=R
401       36509    106     252     46   0  3  select (N)                   *53+3:+ FILE ID     46
          36510    118              1   0  0  shift logical
          36511    101             49   1  1  add literal address
          36512    118              4   0  0  shift logical
          36513    102     258     10   1  0  transfer (A) to N
401       36514    106     252     50   0  3  select (N)                   *53+0Ю+3:+*53+3:+   5000058 RL CTR=Ю?
          36515    101             10   1  2  subtract literal address
          36516    127     365     32   0  0  jump A = Z                   >YES
401       36517    106     252     50   0  3  select (N)                   *53+0Ю+3:+*53+3:+   5000058 RL CTR=99
          36518    100     210      3   0  3  set radix
          36519    101            153   1  2  subtract literal address
          36520    127     365     30   0  0  jump A = Z                   >YES
          36521    101            154   1  1  add literal address          STEP REEL COUNTER
    36531>36522    100     212      2   0  3  set radix
401       36523    103     252     50   0  3  copy (A) to N                *53+0Ю+3:+*53+3:+   5000058
          36524    102     258     19   1  0  transfer (A) to N            SET UP REEL NO
          36525    106     258     18   1  0  select (N)
    36533>36526    107     258     10   1  0  augment (N) by (A)
401       36527    106     252     42   0  3  select (N)                   *53+3:+             42
          36528    102     258      8   0  0  transfer (A) to N
          36529    124     432     11   1  0  unconditional jump           >OUTPUT COMMENT
    36520>36530    106     210      7   0  0  select (N)                   SET REEL CNTR=-1
          36531    124     365     22   1  0  unconditional jump           >
    36516>36532    101           4112   1  3  select literal address       SET-? FOR COMMENT
          36533    124     365     26   1  0  unconditional jump           >
          36534    126     367      2   0  0  enter subroutine             >READ, TEST SENTINEL
          36535    126     368      2   0  0  enter subroutine             >TEST REEL NO
          36536    127     371      2   0  1  jump A != Z                  >HDG COMMENT        TEST REEL CNTR=Ю
          36537    115              5   1  3  collate and add              STORE REEL NO
          36538    124     188      2   0  1  modify address of next
401       36539    102     252     50   0  0  transfer (A) to N            *53+0Ю+3:+*53+3:+   5000058
          36540    106              3   1  3  select (N)                                       TEST CORRECT PROG NO
          36541    124     188      2   0  1  modify address of next
401       36542    105     252     42   0  0  subtract (N) from (A)        *53+3:+             42
          36543    127     371      2   0  1  jump A != Z                  >HDG COMMENT
          36544    106              5   0  3  select (N)                                       TEST CORRECT FILE ID
          36545    124     188      2   0  1  modify address of next
401       36546    105     252     46   0  0  subtract (N) from (A)        *53+3:+             46
          36547    127     371      2   0  1  jump A != Z                  >HDG COMMENT
          36548    124              3   0  1  modify address of next
          36549    102            168   0  0  transfer (A) to N            CLEAR(168)
          36550    106     365     59   0  0  select (N)                   CLEAR FIRST
          36551    118              5   0  0  shift logical                EIGHT LOCATIONS
          36552    124     188      2   0  1  modify address of next
          36553    124             64   1  2  modify address of next
          36554    128              0   0  0  bulk copy short numeric
          36555    126     329      2   0  0  enter subroutine             >READ
          36556    101              5   1  3  select literal address       SET UP RTE TYPE
          36557    103     188      3   0  0  copy (A) to N
          36558    124     351      7   1  0  unconditional jump           > TEST RTE, DEALING WITH D/B
          36559    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    101              6   1  3  select literal address       SELECT RTE TYPE
          36606    124     364     21   1  0  unconditional jump           >

          36700    PROCR   367       367     READ, TEST ROUTE, TEST SENTINEL
          36701     NOTES          RADIX     B
          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
401       36710    127     367     30   0  0  jump A = Z                   *16‼
          36711    101              5   1  3  select literal address       *02+                00006
    36731>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     36   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    101              6   1  3  select literal address       SELECT RT
          36731    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
401       36809    105     252     50   0  0  subtract (N) from (A)        *53+0Ю+3:+*53+3:+   5000058
          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=Ю
401       36814    106     252     50   0  0  select (N)                   *53+0Ю+3:+*53+3:+   5000058
          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>
    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>
    36719>37006    102     258      8   1  0  transfer (A) to N
    30235>37007    102     258     11   1  0  transfer (A) to N
          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
    36547>
    36543>
    36536>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      9   0  0  transfer (A) to N            *02Ю*4£1*3:1
          37303    126     341      2   0  0  enter subroutine             *422
          37304    106              0   1  3  select (N)                   *422
          37305    105     211     16   1  0  subtract (N) from (A)                            TEST F8M
          37306    127     263     18   0  0  jump A = Z                   >YES
          37307    105     211     14   1  0  subtract (N) from (A)        SUBT SENTINEL MINUS FAULTY BLOCK WORD
          37308    127     373     17   0  0  jump A = Z                   >YES                TEST SENTINEL BLOCK
          37309    100              0   0  0  Halt                         *4£1*3:1
          37310    125              0   1  2  interrogate indicators       CLEAR 2ND WORD
          37311    124     188      2   0  1  modify address of next       OF ANNEXE
          37312    124             64   0  1  modify address of next
          37313    102              2   1  0  transfer (A) to N
          37314    124     188      2   0  1  modify address of next       READ
          37315    119              0   0  1  input one block/reset timer
          37316    124     268      8   1  0  unconditional jump           >UPDATE ASSEMBLER TABLE
    37308>37317    101              4   0  1  prepare for digit collation  SET(B)=0.0.£.0.0
          37318    115              5   1  3  collate and add              COLLATE SENTINEL TYPE IN Q3
          37319    101            512   1  2  subtract literal address     SUBTRACT 2 IN Q3    TEST SENTINEL TYPE 2
          37320    127     365      2   0  0  jump A = Z                   >OPEN NEXT I/P TAPE

          37400    PROCR   374       374     SET UP SENTINEL:INPUT
    37507>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
          37408    124     282     10   1  0  unconditional jump           >OUTPUT

          37500    PROCR   375       375     CARD INPUT
          37501     NOTES          RADIX     B
    26708>37502    102     375      9   0  0  transfer (A) to N            *04Ю*3:3*4£3
          37503    126     341      2   0  0  enter subroutine             *422 SET(MR3)=(644R)
          37504    106              0   1  3  select (N)                   *422
          37505    127     375      8   0  3  jump A < Z                   >YES                TEST 1ST WORD NEG
          37506    105     211     12   1  0  subtract (N) from (A)        SUBT SENTINEL WORD  TEST SENTINEL BLOCK
          37507    127     374      2   0  0  jump A = Z                   >YES
    37505>37508    125              0   1  0  set indicators
          37509    100              0   0  0  Halt                         *4£1*3:1
          37510    124     188      2   0  1  modify address of next       READ
          37511    119              0   0  1  input one block/reset timer
          37512    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

          37800    PROCR   378       378     POCKET-SELECT UPTIME CARD READER

          37900    PROCR   379       379     CLOSE UPTIME ROUTE

          38000    PROCR   380       380     SET EVERYTHING BACK AFTER ALLOC OR O'LAY WITH UPTIME

          38100    PROCR   381       381     MANUAL UPTIME S/R

          38200    PROCR   382       382     TEST UPTIME INDICATOR

          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     362      2   0  0  enter subroutine             >SET ROUTE TO MANUAL, ETC.
          38305    124     383     15   0  2  select literal and division
          38306    126     363      2   0  0  enter subroutine             >SET LINK FOR SI=5,SETTING OF S101
          38307    126     341      2   0  0  enter subroutine             >SET (MR3)=(64+R)
          38308    106              0   1  3  select (N)                                       TEST SENTINEL BLOCK
          38309    105     211     12   1  0  subtract (N) from (A)
          38310    127     282     11   0  1  jump A != Z                  *5:1                >NO,EDG COMMENT
          38311    101              4   0  1  prepare for digit collation
          38312    115              5   1  3  collate and add
          38313    101            768   1  2  subtract literal address
          38314    127     282     11   0  1  jump A != Z                  *5:1                NO,EDG COMMENT
          38315    126     359      2   0  0  enter subroutine             >SET SI=4, RESTORE LINK FOR SI=3
          38316    124     268      9   1  0  unconditional jump           >RESET MOD GROUP

          38400    PROCR   384       384     OPEN & CLOSE CARD FILES FOR UPTIME

          38500    PROCR   385       385     SET UP SI+45 IF UPTIME STOPPED OTHERWISE SI+7

          38600    PROCR   386       386     TEST UPTIME

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

          38800    PROCR   388       388     CARD OUTPUT
    26705>38802    102     390      3   0  0  transfer (A) to N            *05Ю*3:1*4£1
401       38803    124     390      3   1  0  unconditional jump           *3:‼4£‼

          38900    PROCR   389       389     NHKG OUTPUT

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

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

          39200    PROCR   392       392     SUBROUTINE LC

          39300    PROCR   393       393     SET UP SENTINEL
          39301     NOTES          RADIX     B
          39302    100              0   0  0  Halt                         *05Ю
          39303    104     214      6   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

          39500    PROCR   395       395     AUTOLECTOR INPUT

          39600    PROCR   396       396     OPEN FILE-CHEQUE READER

          39700    PROCR   397       397     INPUT-CHEQUE READER

          39800    PROCR   398       398     POCKET SELECT-CHEQUE READER

          39900    PROCR   399       399     READ DATA TRANSMISSION

          40000    PROCR   400       400     OPEN FILE DATA TRANSMISSION

          40100    PROCR   401       401     OPEN PAPER TAPE FILE
    26713>40102    126     339      2   0  0  enter subroutine             *03Ю
          40103    106             33   0  1  select (N)                                       STORE FILE IDENTITY
          40104    102            195   0  3  transfer (A) to N
          40105    124             65   0  2  select literal and division  SET REEL COUNTER=1
          40106    102            196   0  3  transfer (A) to N
          40107    126     407      2   0  0  enter subroutine             >SET UP SENTINEL BLOCK
          40108    124     188      2   0  1  modify address of next       STORE ASL
          40109    106             64   0  0  select (N)
          40110    103            192   0  3  copy (A) to N
          40111    102            194   0  3  transfer (A) to N
          40112    126     403      2   0  0  enter subroutine             >OUTPUT BLOCK
          40113    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
          40204    102     260     12   1  0  transfer (A) to N
          40205    100     260     14   1  2  replace (B) by (N)
    40217>40206    115            154   1  0  collate and add              COLLATE WORD TO BE OUTPUT
          40207    102     260     20   1  0  transfer (A) to N            W/L
          40208    115     260     22   1  0  collate and add              TEST WORD CONTAINS BLOCK END CHARACTER
          40209    105     260     20   1  0  subtract (N) from (A)
          40210    127     402     20   0  0  jump A = Z                   >YES
    18220>40211    123              2   0  0  step on and test             STEP INDIRECT MOD REGISTER
          40212    100     260     12   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
    27718>40306    126     339      2   0  0  enter subroutine             >SET(MR3)=(3)
          40307    124              3   0  1  modify address of next
          40308    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      3   0  0  transfer (A) to N            *03Ю*3:1*4£1
          40503    100              0   0  0  Halt                         *3:1*4£1
          40504    126     339      2   0  0  enter subroutine             >SET(MR3)=(3)
          40505    124     188      2   0  1  modify address of next       STORE ASL
          40506    106             64   0  0  select (N)
          40507    103            192   0  3  copy (A) to N
          40508    102            194   0  3  transfer (A) to N
          40509    126     403      2   0  0  enter subroutine             >OUTPUT BLOCK S/R
          40510    106            157   0  3  select (N)                                       TEST W/E OCCURED
          40511    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    126     407      2   0  0  enter subroutine             >SET UP SENTINEL BLOCK
          40606    106     209     10   0  0  select (N)                   SET SENTINEL TYPE 2
          40607    107              4   1  2  augment (N) by (A)
          40608    126     403      2   0  0  enter subroutine             >OUTPUT BLOCK S/R
          40609    106     215      4   1  0  select (N)                   SET UP 'NEW'
          40610    102     258      4   1  0  transfer (A) to N
          40611    101     406     13   1  3  select literal address
          40612    124     282     10   1  0  unconditional jump           >OUTPUT COMMENT
          40613    126     339      2   0  0  enter subroutine             SET(MR3)=(3)
          40614    100     210      3   0  3  set radix                    SET DECIMAL
          40615    101              1   1  3  select literal address       AUGMENT REEL COUNTER
          40616    107            197   1  3  augment (N) by (A)
          40617    100     212      2   0  3  set radix                    SET BINARY
          40618    106            194   0  3  select (N)                   RESET(64+R)
          40619    102            192   0  3  transfer (A) to N
          40620    126     407      2   0  0  enter subroutine             >SET UP SENTINEL BLOCK
          40621    126     403      2   0  0  enter subroutine             >OUTPUT BLOCK S/R
          40622    125              0   1  2  interrogate indicators       CLEAR W/E INDICATOR
          40623    102            157   0  3  transfer (A) to N
          40624    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     16   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    126     407      2   0  0  enter subroutine             >SET UP SENTINEL BLOCK
          40804    106     209     10   0  0  select (N)                   SET SENTINEL TYPE 3
          40805    104     209     10   0  0  add (N) to (A)
          40806    107              4   1  2  augment (N) by (A)
          40807    124     188      2   0  1  modify address of next       STORE ASL
          40808    106             64   0  0  select (N)
          40809    103            192   0  3  copy (A) to N
          40810    102            194   0  3  transfer (A) to N
          40811    126     403      2   0  0  enter subroutine             >OUTPUT BLOCK S/R
          40812    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     16   0  3  collate and add              Q10 SOURCE FILE NO
          40908    118           4123   1  0  shift logical
          40909    106     190     50   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

          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     18   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     47   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     18   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     18   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     18   0  0  copy (A) to N                *719 STORE FOR COMMENT
          41045    124     188      2   0  1  modify address of next
          41046    102     190     34   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     50   0  0  transfer (A) to N
    41157>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     16   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     18   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

          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      7   0  0  subtract (N) from (A)
          41104    127     411      7   0  1  jump A != Z                  *01‼                >NO
          41105    106     211      6   0  0  select (N)                   *01Ю
          41106    124     411      8   1  0  unconditional jump
    41104>41107    125              0   1  2  interrogate indicators
    41106>41108    124     188      2   0  1  modify address of next       SET LOW/HIGH DENSITY
          41109    102     191     32   0  0  transfer (A) to N            *01Ю
          41110    124              3   0  1  modify address of next                           TEST OPENED FOR
          41111    106            165   0  0  select (N)                                       INPUT
          41112    101     410     10   1  2  subtract literal address
          41113    127     428     29   0  1  jump A != Z                  >NO
          41114    126     339      2   0  0  enter subroutine             >SET (MR3)=(3)
          41115    106            158   0  3  select (N)                                       TEST IND 3
          41116    127     411     39   0  0  jump A = Z                   *01‼01‼
          41117    125              0   1  2  interrogate indicators       CLEAR IND 3
          41118    102            158   0  3  transfer (A) to N
          41119    126     341      2   0  0  enter subroutine             >SET (MR3)=(64+R)
          41120    126     431      2   0  0  enter subroutine             >SET UP COMMENT
          41121    106             17   1  3  select (N)                   *01Ю                TEST 90K TAPE
          41122    127     411     25   0  0  jump A = Z                   >NO
          41123    106     492      6   1  0  select (N)                   SET UP HIP
          41124    124     411     26   1  0  unconditional jump           *01Ю
    41122>41125    106     214     44   1  0  select (N)                   SET UP 'LIP'
    41124>41126    102     258      4   1  0  transfer (A) to N
          41127    126     339      2   0  0  enter subroutine             >SET (MR3) = (3)
          41128    106            182   0  3  select (N)                   SET UP TAPE NO
          41129    102     258     10   0  0  transfer (A) to N
          41130    106     262     28   1  0  select (N)                   *71Ю                SET UP TABLE
          41131    102     262     22   1  0  transfer (A) to N                                FOR PROG IDENTITY
          41132    106     262     26   1  0  select (N)                   *3£Ю
          41133    102     262     24   1  0  transfer (A) to N            *71Ю*3£Ю
          41134    124     411     36   0  2  select literal and division  SELECT LINK
          41135    124     426     56   1  0  unconditional jump
          41136    126     359      2   0  0  enter subroutine             >SET SI=4, RESTORE LINK FOR SI=3
          41137    106             30   0  1  select (N)                   RESTORE ROUTE NO
          41138    102     188      2   0  0  transfer (A) to N
    41116>41139    126     342      2   0  0  enter subroutine             *019
          41140    126     308      2   0  0  enter subroutine             >READ
          41141    126     343      2   0  0  enter subroutine             *019
    42832>41142    126     339      2   0  0  enter subroutine             >SET(MR3)=(3)
          41143    106            168   0  3  select (N)
          41144    102     410      2   0  0  transfer (A) to N
          41145    102            168   0  3  transfer (A) to N            CLEAR(168)
          41146    126     410      2   0  1  leave subroutine
    41016>41147    126     341      2   0  0  enter subroutine             >SET (MR3)=(64+R)
          41148    126     413      2   0  0  enter subroutine             >TEST CORRECT SOURCE BLOCK
          41149    126     412      2   0  0  enter subroutine             >                   TEST Y>X
          41150    127     411     56   0  2  jump A >= Z                  >NO
          41151    106     190     18   0  3  select (N)                   SET X=Y
          41152    118              2   0  0  shift logical
          41153    114     190     18   0  3  replace selected bits
          41154    124              3   0  1  modify address of next       SET IND 3
          41155    102            158   0  0  transfer (A) to N
    41150>41156    126     341      2   0  0  enter subroutine             >SET(MR3)=(64+R)
          41157    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     18   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     18   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     18   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     34   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     50   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     16   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     32   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
          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

          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     18   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
401       41520    124              7   0  2  select literal and division  *14+46+*14+*46+     60051800007
          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     18   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     34   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     16   0  3  select (N)                   SET UP RUN & RERUN NOS
          41709    124     414     18   1  0  unconditional jump           >

          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     10   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    100              0   0  0  Halt                         *4£1*3:1
          42011    126     342      2   0  0  enter subroutine             *019
          42012    126     329      2   0  0  enter subroutine             READ
          42013    126     343      2   0  0  enter subroutine             *019
          42014    106     210      7   0  0  select (N)                   STEP BLOCK COUNTER
          42015    126     333      2   0  0  enter subroutine             >
          42016    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     23   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      7   0  0  subtract (N) from (A)
          42111    127     421     42   0  0  jump A = Z                   >YES
          42112    105     210      7   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     19   0  0  jump A = Z                   >YES ZZZ4 COMMENT
    42145>
    42113>42118    101     421     52   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
          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             33   0  1  select (N)                                       TEST LINK
          42147    127     268      9   0  3  jump A < Z                   >YES
          42148    126     334      2   0  0  enter subroutine             >STEP REEL COUNTER
          42149    126     357      2   0  0  enter subroutine             >COUNT 500 MILLISECS
          42150    126     324      2   0  0  enter subroutine             >UNLOAD, 'NEW' COMMENT
          42151    126     410      2   0  0  enter subroutine             >OPEN NEW REEL
          42152    101              7   1  3  select literal address       SET UP RTE TYPE
          42153    103     188      3   0  0  copy (A) to N
          42154    102             31   0  1  transfer (A) to N
          42155    106     188      2   0  0  select (N)
          42156    118              6   0  3  shift binary
          42157    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    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     11   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)
          42309    127     436     11   0  0  jump A = Z                   >YES
          42310    106     109      6   1  0  select (N)                   SET UP'EDG'
          42311    102     258      4   1  0  transfer (A) to N
          42312    126     357      2   0  0  enter subroutine             COUNT 500 MILLISECS
          42313    126     362      2   0  0  enter subroutine             >UNLOAD ETC
          42314    124     188      2   0  1  modify address of next       SET UP BLOCK NO.
          42315    106     190      2   0  0  select (N)
          42316    102     258      8   0  0  transfer (A) to N
          42317    124     188      2   0  3  modify address of next       CLEAR BLOCK COUNTER
          42318    102     190      2   0  0  transfer (A) to N
          42319    124     188      2   0  1  modify address of next       CLEAR REEL COUNTER
          42320    102     190     18   0  0  transfer (A) to N
          42321    126     326      2   0  0  enter subroutine             *179 >ALTERNATE ROUTES
          42322    124     383     15   0  2  select literal and division
          42323    126     363      2   0  0  enter subroutine             >SET LINK FOR SI=5 SETTING OF S101
          42324    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    101             14   1  3  select literal address       FORM NEW ASL
          42510    118              4   0  0  shift logical                C+106
          42511    104              3   0  0  add (N) to (A)
          42512    101            106   1  1  add literal address
          42513    105     221      2   0  0  subtract (N) from (A)        *5+Ю                TEST ALREADY SET UP
          42514    127     425     19   0  0  jump A = Z                                       >YES
          42515    104     221      2   0  0  add (N) to (A)               *5+Ю
          42516    102             64   0  2  transfer (A) to N
          42517    106     221      2   0  0  select (N)                   *5+Ю
          42518    102            163   0  3  transfer (A) to N            *5+Ю
    42514>42519    101             15   1  3  select literal address       SET TAG 15
          42520    123            126   1  3  copy into tag                IN LIMIT WORD
    29235>42521    126     307      2   0  0  enter subroutine             >RUN FORWARD ETC
          42522    124              3   0  1  modify address of next       *5+Ю                TEST CHD
          42523    106            164   0  0  select (N)
          42524    127     425     29   0  0  jump A = Z                   >NO
          42525    124              3   0  1  modify address of next
          42526    106            189   0  0  select (N)                                       TEST OPEN FILE
          42527    127     428      2   0  0  jump A = Z                   >NO,REOPEN O/P REEL
          42528    124     425     34   1  0  unconditional jump           *5+Ю YES REWRITE BLOCK 7
    42524>42529    126     429      2   0  0  enter subroutine             >TEST TAPE RELEASED S/R
          42530    124     428      2   1  0  unconditional jump           >NO
          42531    101              1   1  3  select literal address
          42532    124              3   0  1  modify address of next
          42533    102            189   0  0  transfer (A) to N            SET OPEN FILE IND(FOR CMD
    42528>42534    126     340      2   0  0  enter subroutine             >SET (MR3)=R
          42535    106     190     18   0  3  select (N)                                       TEST REEL COUNTER
          42536    103     221      2   0  0  copy (A) to N
          42537    127     425     52   0  0  jump A = Z                   >YES                =0
          42538    118           4126   1  0  shift logical                                    TEST X=
          42539    101             15   1  2  subtract literal address
          42540    127     425     46   0  1  jump A != Z                  >NO
          42541    118              4   1  0  shift logical                SET X=Y
          42542    101             12   0  1  prepare for digit collation
          42543    124     188      2   0  1  modify address of next
          42544    114     190     18   0  0  replace selected bits
          42545    124     425     54   1  0  unconditional jump           >YES
    42540>42546    126     412      2   0  0  enter subroutine             >FORM X-Y           TEST Y>X IN REEL
          42547    127     425     60   0  2  jump A >= Z                  >
          42548    106     190     18   0  3  select (N)                   SET X=Y
          42549    118              2   0  0  shift logical
          42550    114     190     18   0  3  replace selected bits
          42551    124     425     60   1  0  unconditional jump           >
    42537>42552    124            257   0  2  select literal and division  SET REEL COUNTER=1:1
          42553    102     190     18   0  3  transfer (A) to N
    42545>42554    106             32   0  1  select (N)                   STORE PROGRAMME NO
          42555    102     190     34   0  3  transfer (A) to N
          42556    106             33   0  1  select (N)                   STORE FILE IDENTITY
          42557    102     190     50   0  3  transfer (A) to N
          42558    106             40   0  1  select (N)                   STORE RUN & RE-RUN NUMBERS
          42559    102     191     16   0  3  transfer (A) to N
    42551>
    42547>42560    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     34   0  0  select (N)
          42611    103     260     18   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      6   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     32   0  0  select (N)
          42620    127     426     22   0  0  jump A = Z                   >NO
          42621    106     210      7   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     27   1  0  unconditional jump           *5+‼                >NO
          42626    102     196      2   0  3  transfer (A) to N            DELETE TAPE NO
    42625>42627    124              3   0  1  modify address of next       *5+Ю                TEST IF CHANGE
          42628    106            164   0  0  select (N)                                       DECKS
          42629    127     426     65   0  1  jump A != Z                  *5+Ю                >YES
          42630    101              8   1  3  select literal address       SET ROUTE TYPE 8
          42631    102     188      3   0  0  transfer (A) to N
          42632    126     350      2   0  0  enter subroutine             >TEST RTE DEALING WITH D/B
          42633    126     341      2   0  0  enter subroutine             >SET(MR3)=(64+R)
          42634    126     431      2   0  0  enter subroutine             >SET UP COMMENT
          42635    106     214     42   1  0  select (N)                   SET UP 'LOP'
          42636    102     258      4   1  0  transfer (A) to N
          42637    126     339      2   0  0  enter subroutine             >SET (MR3)=(3)
          42638    106            182   0  3  select (N)
          42639    102     258     10   0  0  transfer (A) to N
          42640    102            189   0  3  transfer (A) to N            CLEAR OPEN FILE IND(FOR CHD)
          42641    124     188      2   0  1  modify address of next       *01Ю                TEST 90K FILE
          42642    106     191     32   0  0  select (N)
          42643    127     426     48   0  0  jump A = Z                   *3£‼71‼*3£‼         >NO
          42644    101             24   0  1  prepare for digit collation  SET UP'H'IN'HOP'COMMENT
          42645    124             88   0  2  select literal and division
          42646    118              3   0  0  shift logical
          42647    114     258      5   0  0  replace selected bits        *01Ю
    42643>42648    100     210      3   0  3  set radix                    *3£Ю                SET DECIMAL
          42649    106     258     23   0  0  select (N)                   STEP CARD SERIAL NUMBER
          42650    104     210      7   0  0  add (N) to (A)
          42651    100     212      2   0  3  set radix                    SET BINARY
          42652    102     258     23   0  0  transfer (A) to N            *3£Ю
          42653    106     262     28   1  0  select (N)                   *71Ю
          42654    102     262     22   1  0  transfer (A) to N            *71Ю
          42655    124     426     67   0  2  select literal and division
    41135>
    32119>42656    126     363      2   0  0  enter subroutine             >SET LINK FOR SI=5, SETTING OF S101
          42657    124     262      2   0  2  select literal and division  SELECT TABLE START LOCATION
          42658    124              3   0  1  modify address of next       SET UP COMMENT IN SPECIAL CHAPTER
          42659    128            130   1  2  edit fixed field formats
          42660    106     262     26   1  0  select (N)                   *71Ю
          42661    102     262     22   1  0  transfer (A) to N
          42662    106     262     30   1  0  select (N)                   *3£Ю
          42663    102     262     24   1  0  transfer (A) to N            *71Ю*3£Ю
          42664    124     336      4   1  0  unconditional jump           > OUTPUT COMMENT
401 42629>42665    126     351      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          42666    124     292     42   1  0  unconditional jump           *5+Ю
          42667    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

          42800    PROCR   428       428     RE-OPEN MAGNETIC TAPE OUTPUT REEL
          42801     NOTES          RADIX     B
    42530>
    42527>42802    124     188      2   0  1  modify address of next                           TEST REEL COUNTER
          42803    106     190     18   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
          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     18   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           >
    42702>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
    41113>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     42   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
    42911>42907    105     196      2   0  3  subtract (N) from (A)        TEST=NEXT IN LIST
          42908    127     429     13   0  0  jump A = Z                   >YES
          42909    104     196      2   0  3  add (N) to (A)
          42910    125              1   0  3  step on and test
          42911    124     429      7   1  0  unconditional jump           >NEXT ONE
          42912    126     429      2   0  1  leave subroutine             >LEAVE S/R NOT IN RT1
    42908>42913    124     429      2   0  3  modify address of next
          42914    124              1   1  0  unconditional jump           >S/R+1 IN RT1

          43000    PROCR   430       430     INTERCHANGE AREA ADDRESSES FOR FCC

          43100    PROCR   431       431     SET UP'LIP'AND'LOP'COMMENTS
          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     50   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     18   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     16   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     34   1  0  select (N)                   SET UP 'RTI'
          43204    102     258      4   1  0  transfer (A) to N
          43205    124     425     21   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
    42324>
    32412>
    31221>43210    102     258     10   1  0  transfer (A) to N            CLEAR COL 4
    36529>
    28542>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      3   0  0  transfer (A) to N            *4£1*3:1
          43303    100              0   0  0  Halt                         *4£1*3:1
          43304    126     188      2   1  2  set modification register    SET(MR2)=R
          43305    126     341      2   0  0  enter subroutine             SET(MR3)=(64+R)
          43306    102              2   1  3  transfer (A) to N            SET 2ND WORD OF BLOCK=0
          43307    106     190      2   0  2  select (N)                   SELECT BLOCK WITHIN REEL CTR
          43308    100     210      3   0  3  set radix                    SET(C) DECIMAL      STEP COUNTER BY 1
          43309    104     210      7   0  0  add (N) to (A)               ADD 1
          43310    103              1   1  3  copy (A) to N                INSERT BLOCK NO.
          43311    102     190      2   0  2  transfer (A) to N                                STORE BLOCK WITHIN
          43312    100     212      2   0  3  set radix                    SET BINARY
          43313    126     342      2   0  0  enter subroutine             *019
          43314    126     330      2   0  0  enter subroutine             WRITE
          43315    126     343      2   0  0  enter subroutine             *019
          43316    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
    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      6   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      7   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     25   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
          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
    42309>
    42305>43611    124     188      2   0  1  modify address of next       CLEAR REEL CNTR
          43612    102     190     18   0  0  transfer (A) to N
          43613    126     357      2   0  0  enter subroutine             >COUNT 500 MILLISECS
          43614    126     362      2   0  0  enter subroutine             >UNLOAD
          43615    126     326      2   0  0  enter subroutine             *179 >ALTERNATE ROUTES
          43616    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     340      2   0  0  enter subroutine             > SET (MR3)=R
          43706    101              3   0  1  prepare for digit collation
          43707    115     190     18   0  3  collate and add
          43708    105     210      7   0  0  subtract (N) from (A)        1
          43709    127     437     14   0  0  jump A = Z                   >REEL CTR=1,NO TAPE CHANGE
          43710    106     210      7   0  0  select (N)                   SET REEL CNTR=1
          43711    114     190     18   0  3  replace selected bits
          43712    126     324      2   0  0  enter subroutine             >UNLOAD, NEW TAPE
          43713    124     268      9   1  0  unconditional jump           >RESET MOD GP
    43709>43714    124     188      2   0  1  modify address of next       REWIND
          43715    119              0   1  1  rewind
          43716    106     210      5   0  0  select (N)                   SET REWIND IND TO
          43717    107     190     50   0  3  augment (N) by (A)           COUNT 500 M-SECS
          43718    101              5   1  3  select literal address       SET BLOCK
          43719    124     188      2   0  3  modify address of next       COUNTER=5
          43720    102     190      2   0  0  transfer (A) to N
          43721    102     188      3   0  0  transfer (A) to N            CLEAR ASSEMBLER TABLE,
          43722    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
          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
    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      7   0  0  subtract (N) from (A)
          43910    127     441      2   0  0  jump A = Z                   >YES
          43911    105     210      7   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      7   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)
    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      7   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     18   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     18   0  3  collate and add
          44120    105     210      7   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      7   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      7   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     23   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

          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     20   0  3  jump A < Z                   >YES
          44414    127     444     22   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     20   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
    44414>44422    125              0   1  2  interrogate indicators
          44423    100     210      3   0  3  set radix
          44424    105             32   0  1  subtract (N) from (A)        STEP BLOCK CNTR  BY-L-1
          44425    126     331      2   0  0  enter subroutine             >
    44551>44426    126     340      2   0  0  enter subroutine             >SET (MR3)=R
          44427    100     210      3   0  3  set radix                                        TEST BLOCK CTR >
          44428    106     190      2   0  3  select (N)                                       NO. OF HEADING BLOCK
          44429    101              6   1  2  subtract literal address
          44430    127     445      2   0  3  jump A < Z                   >NO
    44452>44431    100     212      2   0  3  set radix
          44432    101     213     12   1  3  select literal address       CONVERT M
          44433    124              3   0  1  modify address of next
          44434    112            180   0  0  convert
          44435    126     306      2   0  0  enter subroutine             >STEP BACK M, FORWARD 1 BLOCK
          44436    126     329      2   0  0  enter subroutine             >READ
          44437    126     351      2   0  0  enter subroutine             >TEST ROUTE NOTING D/B
    44460>
    44463>44438    126     315      2   0  0  enter subroutine             >TEST A1 FOR FBM
          44439    124     444     53   1  0  unconditional jump           >FBM FOUND
          44440    100     210      3   0  3  set radix                    DEC
          44441    126     314      2   0  0  enter subroutine             >TEST A1=BLOCK COUNTER
          44442    100     212      2   0  3  set radix                    BIN
          44443    127     446     10   0  0  jump A = Z                   >YES
          44444    127     444     55   0  3  jump A < Z                   >YES                TEST A1<BLOCK CNTR
          44445    100     210      3   0  3  set radix                    DEC
          44446    101            256   1  2  subtract literal address                         TEST A1 WITHIN 100
          44447    127     444     53   0  2  jump A >= Z                  >NO                 OF BLOCK CNTR
          44448    101            258   1  1  add literal address          SET M=DISCREPANCY
    44454>44449    124              3   0  1  modify address of next
          44450    102            180   0  0  transfer (A) to N
          44451    100     212      2   0  3  set radix                    BIN
          44452    124     444     31   1  0  unconditional jump           >
    44447>
    44439>44453    101              3   1  3  select literal address       SET M=3
          44454    124     444     49   1  0  unconditional jump           >
    44444>44455    101     444     38   1  3  select literal address       SELECT RETURN LOCATION
          44456    124              3   0  1  modify address of next
          44457    102            162   0  0  transfer (A) to N
          44458    126     323      2   0  0  enter subroutine             >TEST OPTION LINK
          44459    126     316      2   0  0  enter subroutine             >ALIGNMENT FAILURE
          44460    124     444     38   1  0  unconditional jump
          44461    126     317      2   0  0  enter subroutine             >REREAD
          44462    126     319      2   0  0  enter subroutine             >STEP ATTEMPTS COUNTER
          44463    124     444     38   1  0  unconditional jump

          44500    PROCR   445       445     STEP BACK 3
          44501     NOTES          RADIX     B
    44430>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     18   0  3  collate and add                                  TEST NO OF REQ'D
          44508    105     210      7   0  0  subtract (N) from (A)                            REEL=0
          44509    100     212      2   0  3  set radix
          44510    127     263     21   0  0  jump A = Z                   >YES, ZZZ COMMENT
          44511    114     190     18   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      7   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)
          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      7   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     22   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      7   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     26   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     20   0  3  jump A < Z                   >YES, ZZZ COMMENT
          44606    127     263     20   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‼Ю
    44443>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      7   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Ю
          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      7   0  0  subtract (N) from (A)
          44705    127     447     13   0  0  jump A = Z                   >YES
          44706    105     210      7   0  0  subtract (N) from (A)                            TEST SENTINEL TYPE 3
          44707    127     263     21   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     22   0  1  jump A != Z                  >YES, ZZZ COMMENT
    44715>44721    106     210      7   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     18   0  0  augment (N) by (A)
          44725    126     341      2   0  0  enter subroutine             >SET (MR3)=(64+R)
          44726    106     210      7   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‼Ю

          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
401       44804    101             16   1  2  subtract literal address     *224*2343:+*2443:+  80001600024
401       44805    127     263     16   0  2  jump A >= Z                  *££0*££2*223*2333:‼*2433:‼ >NO
          44806    106     190     18   0  3  select (N)                                       TEST REEL COUNTER=0
          44807    127     448     10   0  1  jump A != Z                  >NO
          44808    124           3840   0  2  select literal and division  SETX=
          44809    102     190     18   0  3  transfer (A) to N
    44807>44810    101              3   0  1  prepare for digit collation  SET Y=NEW REEL NO
          44811    106             32   0  1  select (N)
          44812    114     190     18   0  3  replace selected bits
          44813    124     269      6   1  0  unconditional jump           >

          44900    PROCR   449       449     SELECT REEL COUNTER
    26422>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
401       44907    127     263     16   0  2  jump A >= Z                  *3:‼
401       44908    106     252     50   0  3  select (N)                   *53+0Ю+3:+*53+3:+   5000058
          44909    124     269      6   1  0  unconditional jump           >
    44905>44910    106              6   0  0  select (N)                   *02Ю
401       44911    101             16   1  2  subtract literal address     *234*224            1600008
          44912    127     263     16   0  2  jump A >= Z                  *3:Ю242*3:Ю232532 ZZZ01
          44913    101              3   0  1  prepare for digit collation
          44914    125              0   1  2  interrogate indicators
          44915    115     190     18   0  3  collate and add              SELECT REEL COUNTER
          44916    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     250      2   0  0  enter subroutine             *599 >STORE MOD GROUP 3
          45006    106     100     18   0  0  select (N)                   STORE LINK
          45007    102             44   1  1  transfer (A) to N
          45008    126     353      2   0  0  enter subroutine             >SELECT ROUTE NUMBER FROM LAST CHAPTER
          45009    127     450     13   0  0  jump A = Z                   >YES                TEST REQUIRED ENTRY
          45010    125              2   0  3  step on and test                                 TEST END OF TABLE
          45011    124     353      4   1  0  unconditional jump           >NO
          45012    124     327     10   1  0  unconditional jump           >XXXG COMMENT
    45009>45013    101             16   0  1  prepare for digit collation  STORE ROUTE TYPE
          45014    115             34   0  3  collate and add
          45015    118           4124   0  0  shift logical
          45016    102     188      3   0  0  transfer (A) to N
          45017    105             34   1  3  subtract (N) from (A)        SET ENTRY NEGATIVE
          45018    127     263     24   0  2  jump A >= Z                  >ZZZ09
          45019    102             34   1  3  transfer (A) to N
          45020    101             12   0  1  prepare for digit collation  *17Ю18Ю
          45021    115             34   0  3  collate and add                                  ROUTE ALLOCATED
          45022    105     210      4   0  0  subtract (N) from (A)
          45023    127     450     26   0  0  jump A = Z                   >NO
          45024    104     210      4   0  0  add (N) to (A)               STORE ALTERNATE ROUTE
          45025    118           4126   0  0  shift logical                AND SET
    45023>45026    102     533      7   0  0  transfer (A) to N            *17Ю18Ю
401       45027    101             23   1  3  select literal address       *3:+                23
          45028    126     328      2   0  0  enter subroutine             >CHANGE PARAMETER TABLES
    45043>45029    106     188      3   0  0  select (N)                   SET ROUTE AVAILABLE
          45030    124     188      2   0  1  modify address of next
          45031    102             64   0  0  transfer (A) to N
          45032    100     210      9   0  2  replace (B) by (N)           SET (MR2)=8*CH NO
          45033    115     188      2   0  0  collate and add
          45034    102              4   1  0  transfer (A) to N
          45035    101              1   0  1  prepare for digit collation  CLEAR D/B INDICATOR
          45036    124     188      2   0  1  modify address of next
          45037    118              0   1  0  shift logical
          45038    114     252      4   1  2  replace selected bits
          45039    106     533      7   0  0  select (N)                   *17Ю18Ю
          45040    127     450     44   0  0  jump A = Z                   >NO
          45041    102     188      2   0  0  transfer (A) to N            SET UP ALT ROUTE
          45042    102     533      7   0  0  transfer (A) to N            CLEAR INDICATOR
          45043    124     450     29   1  0  unconditional jump           *17Ю18Ю
    45040>45044    106     214     72   1  0  select (N)
          45045    102     258      4   1  0  transfer (A) to N
          45046    126     345      2   0  0  enter subroutine             >EDIT TIME ETC
          45047    126     356      2   0  0  enter subroutine             >SET UP PROG NO
          45048    124     450     51   0  2  select literal and division
          45049    126     363      2   0  0  enter subroutine             >SET LINK FOR SI=5
          45050    124     282     11   1  0  unconditional jump           >OUTPUT COMMENT
          45051    126     359      2   0  0  enter subroutine             >SET SI=4
          45052    124     268      9   1  0  unconditional jump           >PROG

          45100    PROCR   451       451     OUTPUT NO OF O/P DB'S PER REEL

          45200    PROCR   452       452     LOCKOUT AND OVERFLOW ROUTINE
          45201     NOTES          RADIX          HALT VERSION

          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      7   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
401       45420    106              1   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      2   0  2  select literal and division                      EDIT COMMENT
    45718>45512    128     102      6   1  2  edit fixed field formats
          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
    20905>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      7   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      5   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

          45900    PROCR   459       459     SUB-ROUTINE G
          45901     NOTES          RADIX     B    TO READ CONTROL DATA
          45902    100              0   0  0  Halt                         LINK
    46039>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     28   0  0  subtract (N) from (A)                            RTE ACCEPTABLE
          45906    127     460     45   0  3  jump A < Z                   >NO, REJECT
          45907    106     100     29   0  0  select (N)
          45908    105              4   0  0  subtract (N) from (A)
          45909    127     460     45   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      8   0  0  select (N)                   14/0/0/17/60        SET UP (64+R)
          45913    102             64   0  2  transfer (A) to N
          45914    126     107      8   1  1  set modification register                        SET (MR1) FOR M/R
          45915    106     209      9   0  0  select (N)                                       SET UP (64+R1)
          45916    103            127   0  0  copy (A) to N
          45917    102     227      2   0  0  transfer (A) to N            *103
          45918    101              5   1  3  select literal address       *14Ю SET OPT P1 SWITCH
          45919    102     296      6   0  0  transfer (A) to N            *14Ю
          45920    101             63   1  3  select literal address       *101
          45921    118           4118   1  0  shift logical
          45922    106              4   0  0  select (N)                   *04Ю*02Ю            TEST PAPER TAPE OR
          45923    105     100     31   0  0  subtract (N) from (A)                            CARD ROUTE
          45924    127     460     41   0  2  jump A >= Z                  *04Ю*02Ю            >CARDS
          45925    101              5   1  3  select literal address       *02+                00006
    46042>45926    118              5   0  0  shift logical
          45927    104              4   0  0  add (N) to (A)               ROUTE NO
          45928    100     222     20   1  0  copy registers               STORE (AB)
          45929    126     100      2   0  0  enter subroutine             >I/P O/P CONTROL    READ
          45930    100     222     20   1  1  replace registers            *102
          45931    126     100      2   0  0  enter subroutine             *102
          45932    106     222     18   0  0  select (N)                   RESTORE (64+R)
          45933    124     222     20   0  1  modify address of next
          45934    102             64   0  0  transfer (A) to N
          45935    106     211      2   0  0  select (N)                   SET ASSEMBLER TABLE AT £5
          45936    124     100     30   0  1  modify address of next
          45937    102     252      3   0  0  transfer (A) to N
          45938    102     296      6   0  0  transfer (A) to N            *149 CLEAR OPTA SWITCH
          45939    106     222     19   0  0  select (N)                                       TEST FN=0 (I.E. PLS)
401       45940    127     460     40   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     14   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     14   0  0  jump A = Z                   >YES
          46012    101              5   1  2  subtract literal address     *4Ю4                00003
          46013    127     460     43   0  3  jump A < Z                   >NO
    46011>
    46007>46014    106     226      7   1  0  select (N)                   STORE SERIAL NO OR CH 8 RTE NO
          46015    102     222     11   0  0  transfer (A) to N
          46016    106     233      7   0  0  select (N)
          46017    102            185   0  0  transfer (A) to N
          46018    106     226      9   1  0  select (N)                   STORE RUN NUMBER
401       46019    102     229      3   0  0  transfer (A) to N            *3Ю4*3‼+            300003
          46020    106     222     19   0  0  select (N)                                       TEST ALLOCATE
          46021    101              2   1  2  subtract literal address                         COMMAND
          46022    127     460     27   0  0  jump A = Z                   >YES
          46023    101              2   1  2  subtract literal address
          46024    127     460     27   0  0  jump A = Z                   >YES
          46025    101              5   1  2  subtract literal address
401       46026    127     460     40   0  1  jump A != Z                  *20‼20‼
    46024>
    46022>46027    106     214      6   1  0  select (N)                   BE WORD INTO ANNEX
          46028    102     226     18   1  0  transfer (A) to N
          46029    106     258     17   0  0  select (N)                   CLEAR WORKING LOCAMONS
          46030    101             18   1  2  subtract literal address     SET UP REG A FOR CLEAR
          46031    118              5   0  0  shift logical
          46032    128     225      6   0  0  bulk copy short numeric
          46033    124     219      2   0  2  select literal and division  UNPACK ALLOC DATA FR.TRIAL>CH CH RT
          46034    128     226     10   0  3  unpack variable field data
          46035    106     233     23   0  0  select (N)                   *01Ю                TEST HIGH DENSITY
401       46036    127     460     40   0  0  jump A = Z                   *20‼
          46037    106     222     20   0  0  select (N)                   ROUTE NUMBER
          46038    102              4   1  0  transfer (A) to N
          46039    124     459      3   1  0  unconditional jump           *01Ю
    46036>
    46026>
    45940>46040    126     459      2   0  1  leave subroutine             > LEAVE S/R
    45924>46041    101              6   1  3  select literal address       *04Ю*02Ю
          46042    124     459     26   1  0  unconditional jump           *04Ю*02Ю
    46013>46043    124             81   0  2  select literal and division  CODE LETTER A
          46044    124     498      3   1  0  unconditional jump           >
    45909>
    45906>46045    124             83   0  2  select literal and division  CODE LETTER C
          46046    124     498      5   1  0  unconditional jump

          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     30   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
          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

          46300    PROCR   463       463     STORE DUMP
          46301     NOTES          RADIX     B    INITIAL SET-UP ROUTINE (1)
    52305>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
401       46309    106            191   0  0  select (N)                   *3Ю4                191
          46310    102     227     47   1  0  transfer (A) to N            *106
          46311    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      8   0  0  transfer (A) to N                                NON-INT
          46406    102     109     17   0  0  transfer (A) to N            CLEAR MODIFIER
          46407    126     472      2   0  0  enter subroutine             >STORE RTE 7 DETAILS
          46408    106     209      9   0  0  select (N)                                       SET UP ASL'S
          46409    124     233     26   0  1  modify address of next                           IN
          46410    102             64   0  0  transfer (A) to N                                (71) OR(79)&(126)
          46411    106     209      8   0  0  select (N)
          46412    102            126   0  0  transfer (A) to N
          46413    106     233     46   0  0  select (N)                   *60Ю                TEST TRIAL IN
          46414    124     233     45   0  1  modify address of next
          46415    127              1   0  1  jump A != Z                  *60Ю                ENTER PTS
          46416    100     214     10   1  2  replace (B) by (N)                               OPEN O/P FILE
          46417    101             18   1  3  select literal address
          46418    126     237      2   0  0  enter subroutine             >I/P-O/P S/R
          46419    106     214      6   1  0  select (N)                   B/E WD
          46420    103     227     54   1  0  copy (A) to N                *101
          46421    102     226     54   1  0  transfer (A) to N
          46422    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     17   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     17   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     17   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     17   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     17   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     17   0  0  transfer (A) to N                                MAIN LOOP
          46604    102     109     16   0  0  transfer (A) to N
          46605    102     109     18   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    103     109     19   0  0  copy (A) to N
          46609    102     108     28   0  0  transfer (A) to N            SET UP ABSURD TAG
          46610    126     469      2   0  0  enter subroutine             >TEST END OF BLOCK S/R

          46700    PROCR   467       467     STORE DUMP
          46701     NOTES          RADIX     B    DUMP ROUTINE (3)-MAIN OUTPUT LOOP
    46719>46702    124     109     18   0  3  modify address of next       *41Ю                TEST FOR NEW TAG
          46703    123              0   0  3  select tag
          46704    105     108     28   0  0  subtract (N) from (A)
          46705    127     467     11   0  0  jump A = Z                   >NO
          46706    107     108     28   0  0  augment (N) by (A)                               SET UP NEW TAG
          46707    106     108     28   1  0  select (N)
          46708    124     109     16   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     18   0  0  add (N) to (A)                                   OF STORE
          46714    124     109     16   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     18   0  0  Halt
          46719    124     467      2   1  0  unconditional jump           >NO
          46720    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    124     214     52   0  2  select literal and division
    29709>46805    123            168   0  2  enter master routine
          46806    125              0   1  2  interrogate indicators       DRAIN
          46807    102     296      6   0  0  transfer (A) to N            *149                CLEAR OPT A SWITCH
          46808    106     233     46   0  0  select (N)                   *60Ю                TEST IF PTS
          46809    124     233     45   0  1  modify address of next
          46810    127              2   0  1  jump A != Z                  *60Ю                >YES
          46811    106     108     10   0  0  select (N)                                       RESTORE ASL
          46812    124     233     26   0  1  modify address of next
          46813    102             64   0  0  transfer (A) to N
          46814    124     246     15   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     16   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     16   0  0  copy (A) to N
          46909    101             48   1  1  add literal address
          46910    102     109     17   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    106     108     14   1  0  select (N)
          47007    124            126   0  1  modify address of next       BULK CLEAR TA
          47008    128              0   0  0  bulk copy short numeric
          47009    126     474      2   0  0  enter subroutine             >SET TAG 15 S/R
          47010    126     470      2   0  1  leave subroutine             >

          47100    PROCR   471       471     STORE DUMP-W/L'S FOR ROUTE 07

          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       CLEAR REEL COUNTER
          47210    102     190     18   0  0  transfer (A) to N
          47211    126     472      2   0  1  leave subroutine             >LEAVE S/R

          47300    PROCR   473       473     RESTORE RT 7 DETAILS

          47400    PROCR   474       474     SET TAG 15 SUBROUTINE
          47401     NOTES          RADIX     B
          47402    100              0   0  0  Halt                         LINK
          47403    106     209      3   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      4   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
    29561>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      4   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    101     482      2   1  3  select literal address
          47603    124     478      2   1  0  unconditional jump           >OUTPUT COMMENT
    47505>47604    101             97   1  3  select literal address       J
          47605    124     208      3   1  0  unconditional jump           >XXX COMMENT

          47700    PROCR   477       477     COMMAND REJECTION COMMENT
    51704>
    51706>
    51804>47702    101             81   1  3  select literal address       *362 CODE LETTER(A)
          47703    124     477      5   1  0  unconditional jump
    51808>47704    101             82   1  3  select literal address       CODE LETTER(B)
    49103>
    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
    50005>
    50007>
    50105>
    50905>
    51006>
    19943>47708    124     481     22   0  2  select literal and division  START OF TABLE

          47800    PROCR   478       478     OPERATOR INTERVENTION END ROUTINE
    48411>
    49110>
    51920>
    47707>
    47603>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>
    50622>
    50805>
    50928>
    51122>
    51229>
    51520>
    52518>47806    126     234      2   0  0  enter subroutine             >S/R M
          47807    126     480      2   0  0  enter subroutine
          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
          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    125           1919   1  2  interrogate indicators       SET L2 IF INDICATORS STACKED
          48004    101            127   1  2  subtract literal address
          48005    102     103      3   0  0  transfer (A) to N
          48006    125           6143   1  1  clear indicators             RESET INDICATORS
          48007    106     108     11   0  0  select (N)
          48008    102     106      8   0  0  transfer (A) to N            SET M/R SWITCH INT
          48009    102     487      2   0  0  transfer (A) to N
          48010    102     296      6   0  0  transfer (A) to N            *149
          48011    106     103      2   0  0  select (N)                   TEST OPTION OUTSTANDING
          48012    127     480     14   0  0  jump A = Z
          48013    125            128   1  0  set indicators
    48012>48014    126     480      2   0  1  leave subroutine

          48100    TABLE   481       481     1    EDIT TABLES FOR COPYING TO C REJ
          48102   214    12     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
          48106   214     8     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     8     0     0  2  0   1   3   0   0  0  0  0     N/E
          48112   214    16     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    16     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    12     0     0  2  0   5   0   0   0  0  0  0     C,SP,R,E,J
          48124   214     8     0     0  2  0   2   3   2   0  0  0  0     SP,SP,N/E,N/E
          48126   214    16     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    16     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

          48200    TABLE   482       482     1
          48202   214    46     0     0  2  0   5   0   0   0  0  0  0     A,B,D,O,N,(OR E,N,D)
          48204   214     8     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   211    22     0     0  2  0   2   0   2   0  0  0  1     *2£‼093*2£‼063*2£309‼06‼

          48300    PROCR   483       483     MINI-STORE PRINT

          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           >

          48500    TABLE   485       485     1
          48502   214    74     0     0  2  0   5   0   0   0  0  0  0     R,R,J,E,C
          48504   214    32     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     8     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

          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    125              0   1  2  interrogate indicators       DUMMY ACTION FOR REFERENCES
          48704    106     225      8   1  0  select (N)                   STORE(A)
          48705    102     232      2   1  0  transfer (A) to N
          48706    106     225     10   1  0  select (N)                   STORE(B)
          48707    102     232      4   1  0  transfer (A) to N
          48708    106     225      7   1  0  select (N)                                       TEST TRIALS ALLOC
          48709    127     487     17   0  0  jump A = Z                   *36‼60‼*36360‼      >NO
          48710    106     233     46   0  0  select (N)                   *60Ю TEST TRIAL ALREADY IN PROCESS
          48711    127     487     22   0  1  jump A != Z                  *363 >YES CREJC
          48712    106     210      7   0  0  select (N)                   SET TRIALS BIT IN
          48713    107     233      7   0  0  augment (N) by (A)           ALLOC COMMAND
          48714    106     225      7   1  0  select (N)                   STORE TRIALS IND
          48715    102     222      7   0  0  transfer (A) to N
          48716    102     225      6   1  0  transfer (A) to N            *60Ю                CLEAR TRIALS IND
    48709>48717    106     222     10   1  0  select (N)                   STORE PROG 1D AND SERIAL NO
          48718    103     221      8   1  0  copy (A) to N
          48719    126     479      2   0  0  enter subroutine             >S/R M
401       48720    124     488      2   1  0  unconditional jump           *3Ю3*3‼‼
          48721    124     487     23   1  0  unconditional jump           *363363             >C REJ B
    48711>48722    101              1   1  3  select literal address       *362 C
    48721>48723    101             82   1  1  add literal address          B
          48724    124     491      3   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
    48720>48802    106     218     10   1  0  select (N)                   *01Ю
          48803    128     497      2   1  1  bulk copy long numeric       *01Ю
          48804    106     211      2   1  0  select (N)
          48805    101     231      2   1  0  table look up                                    TABLE
          48806    105     231      2   1  0  subtract (N) from (A)                            TEST START
          48807    127     488     17   0  0  jump A = Z                   >YES
          48808    118             10   1  0  shift logical
          48809    101              2   1  2  subtract literal address
          48810    102              4   1  0  transfer (A) to N
          48811    106              1   0  2  select (N)
          48812    101            360   1  2  subtract literal address                         BIG ENOUGH?
          48813    127     488     16   0  3  jump A < Z                   >NO
          48814    104              0   0  2  add (N) to (A)
          48815    124     488     23   1  0  unconditional jump           >
    48813>48816    125              0   1  2  interrogate indicators       DRAIN
    48807>48817    126     479      2   0  0  enter subroutine             >S/R M*             SEARCH FOR A ZERO
401       48818    124     491      2   1  0  unconditional jump           *3Ю33Ю3*3‼‼3‼‼
          48819    124              4   0  1  modify address of next       STORE               TABLE
          48820    124     230      3   0  1  modify address of next       START
          48821    124             37   0  1  modify address of next       OF
          48822    124            140   0  2  select literal and division  STRIP
    48815>48823    102     233      4   0  0  transfer (A) to N
          48824    124     233      4   0  1  modify address of next       FORM & STORE 13-BIT FORM OF
          48825    101              0   1  3  select literal address       START OF STRIP
          48826    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      8   0  0  transfer (A) to N
          48904    100     210      7   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      8   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      9   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      4   1  0  unconditional jump           *363363             >REJ
          48919    106     108     12   0  0  select (N)                                       SET M/R SWITCH
          48920    102     106      8   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
          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
    48818>49102    101             85   1  3  select literal address       *361
    48724>
    29626>49103    124     477      5   1  0  unconditional jump           *364 >              00008
    48918>
    24156>49104    101             81   1  3  select literal address       *362                CODE LETTER A
          49105    102     221      4   0  0  transfer (A) to N
          49106    106     224      4   1  0  select (N)                   SET UP PROGRAM FOUND FOR COMMENT
          49107    102     222     10   1  0  transfer (A) to N
          49108    102     224      4   1  0  transfer (A) to N            CLEAR IDENTITY LAST PROGRAM USED
          49109    124     493      2   0  2  select literal and division  START OF EDIT TABLE
          49110    124     478      2   1  0  unconditional jump           >

          49200    CONST   492       492     1    *38 FIXED COMMENT
          49202          (A)PTAPE;                                         *07Ю
          49204          (A)PCARD;                                         *07Ю
          49206          (A)HIP  ;                                         *019

          49300    TABLE   493       493     1    CREJ EDIT TABLE
          49301     NOTES
          49302   214    12     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     8     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     8     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     8     0     0  2  0   1   3   0   0  0  0  0     N/E
          49316   214    16     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    16     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                              SUM

          49400    TABLE   494       494     1
401       49402   221     3     0     0  0  0   1   0   3   0  0  0  0     *££0*££2*61‼ 3SP,PRIORITY CLASS
          49404   221     2     0     0  0  0   5   0   1   0  0  0  1     PROGM NO

          49500    TABLE   495       495     1
          49501     NOTES
          49502   215     2     0     0  2  0   5   0   0   0  0  0  0     *0‼Ю 'PR CH'
          49504   214    18     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‼Ю

          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;

          49800    PROCR   498       498     CONTROL DATA REJECTION
          49801     NOTES          RADIX     B
    46004>49802    124             82   0  2  select literal and division  CODE LETTER B
    46044>49803    124     222     20   0  1  modify address of next       SET ROUTE TO MANUAL
          49804    119              0   1  3  step on/set manual
    52520>
    46046>
    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     28   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
          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     27   0  0  copy (A) to N
          50110    126     177      2   0  0  enter subroutine             >REQUEST T/W
          50111    106     108     27   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

          50300    PROCR   503       503     GROUP 1
          50301     NOTES          RADIX     B    DETERMINE FUNCTION
          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
401       50309    100     477      8   0  0  Halt                         *££0*££2*09‼*3+‼*08‼*07‼*02‼*04‼*5:‼
401       50310    100     477      8   0  0  Halt                         *££0*££2*09‼*3+‼*08‼*07‼*02‼*04‼*5:‼
          50311    100     506      2   0  0  Halt                         *08‼ PRINT PRIORITY LIST
          50312    100     507      2   0  0  Halt                         *07‼*02‼*04‼        >PREFER PT
401       50313    100     477      8   0  0  Halt                         *££0*££2*09‼*3+‼*08‼*07‼*02‼*04‼*5:‼
          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
401       50317    100     477      8   0  0  Halt                         *69‼*68‼*67‼*66‼*6Ю‼
401       50318    100     477      8   0  0  Halt                         *69‼*68‼*67‼*66‼*6Ю‼
          50319    100     515      2   0  0  Halt                         *869                >PREFER PRINTER

          50400    PROCR   504       504     GROUP 1:FUNCTION 1
          50401     NOTES          RADIX     B    START TIMINGS

          50500    PROCR   505       505     GROUP 1:FUNCTION 2
          50501     NOTES          RADIX     B    STOP TIMINGS

          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      8   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
    50619>50608    106     230      4   0  2  select (N)
          50609    127     506     18   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     20   0  0  jump A = Z                   >YES                1ST TEST
          50614    124     494      2   0  2  select literal and division  TABLE START
          50615    124              6   0  1  modify address of next
          50616    128     102      8   1  2  edit fixed field formats     EDIT ENTRY
          50617    125              4   0  3  step on and test
    50609>50618    125              2   0  2  step on and test
          50619    124     506      8   1  0  unconditional jump           >
    50613>50620    106     105      6   0  0  select (N)                   LE'S FOR END OF COMMENT
          50621    102     102      8   1  3  transfer (A) to N
          50622    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      2   1  2  select (N)
          50707    102     102      6   1  0  transfer (A) to N
          50708    106     214     68   1  0  select (N)                   L/E L/E

          50800    PROCR   508       508     GP1 FN5: OMIT CATEGORIES
          50802    102     102      8   1  0  transfer (A) to N            *07Ю5:Ю*02Ю5:Ю*04Ю5:Ю
          50803    106     214     68   1  0  select (N)                   L/E L/E
          50804    102     102     10   1  0  transfer (A) to N
          50805    124     478      6   1  0  unconditional jump           >END ROUTINE
          50806    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
401       50916    124             64   0  1  modify address of next       *3:+                64
          50917    102              4   1  0  transfer (A) to N
          50918    118             15   1  0  shift logical                SHIFT(AB)
          50919    126     100      2   0  0  enter subroutine             I/P O/P S/R
          50920    126     177      2   0  0  enter subroutine             >REQUEST T/W
          50921    106     215     14   1  0  select (N)                   TAPE
          50922    102     102      6   1  0  transfer (A) to N
          50923    124     429      2   0  1  modify address of next
          50924    100     215     16   1  1  replace registers
          50925    100     102      8   1  0  copy registers
          50926    100     213      3   0  3  set radix
          50927    125              0   1  2  interrogate indicators       CLEAR A
          50928    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
401       51006    127     477      8   0  2  jump A >= Z                  *3:‼                C REJ
          51007    101            128   1  1  add literal address
          51008    127     510     13   0  1  jump A != Z                  >NOT CHANNEL 0
          51009    101              3   1  3  select literal address                           SET UP ZERO
          51010    118              3   0  0  shift logical
          51011    102     221      2   1  0  transfer (A) to N
401       51012    124     510     16   1  0  unconditional jump           *3:‼3:‼
    51008>51013    103     221      3   1  0  copy (A) to N                                    SET UP CH NUMBER
          51014    118           4127   0  0  shift logical
          51015    118              3   0  3  shift binary
    51012>51016    102     500      2   0  0  transfer (A) to N
          51017    101             12   0  1  prepare for digit collation  *3:1
          51018    106     215     10   1  0  select (N)
          51019    115     221      2   1  0  collate and add
          51020    102     102      6   1  0  transfer (A) to N
          51021    106     500      2   0  0  select (N)                   SET UP IND MOD REG
          51022    103     533      2   0  0  copy (A) to N                8*CH
          51023    101              8   1  1  add literal address          9*CH
          51024    102     533      3   0  0  transfer (A) to N
          51025    102     533      4   1  0  transfer (A) to N            MOD REG FOR TYPING
    51118>51026    124     533      2   0  1  modify address of next       ROUTE
          51027    106             64   0  0  select (N)
          51028    118           4127   1  0  shift logical                TEST AVAILABLE
          51029    127     510     40   0  0  jump A = Z                   >YES
          51030    101            255   1  2  subtract literal address     TEST POTENTIALLY AVAILABLE
401       51031    127     511      2   0  1  jump A != Z                  *8‼‼ >NO
          51032    106     533      2   0  0  select (N)                   POTENTIALLY AVAILABLE
          51033    105     500      2   0  0  subtract (N) from (A)
          51034    127     510     36   0  1  jump A != Z
          51035    101             48   1  1  add literal address
    51034>51036    118              3   0  0  shift logical
          51037    118              3   1  0  shift logical
          51038    101            955   0  1  prepare for digit collation
          51039    124     511     10   1  0  unconditional jump           >
    51029>51040    106     533      2   0  0  select (N)                   AVAILABLE
          51041    105     500      2   0  0  subtract (N) from (A)
          51042    127     510     44   0  1  jump A != Z
          51043    101             48   1  1  add literal address
    51042>51044    118              3   0  0  shift logical
          51045    118              3   1  0  shift logical
          51046    101            907   0  1  prepare for digit collation
          51047    124     511     10   1  0  unconditional jump           >

          51100    PROCR   511       511     GP1 FN7 AVAILABLE ROUTES COMMAND(2)
    51031>51102    106     533      2   0  0  select (N)                   ROUTE
          51103    105     500      2   0  0  subtract (N) from (A)        8*CH
          51104    127     511      6   0  1  jump A != Z                  >NON ZERO
          51105    101             48   1  1  add literal address          OBTAIN ZERO
    51104>51106    118              3   0  0  shift logical
          51107    101            208   1  1  add literal address          TO GIVE U
          51108    118              3   0  0  shift logical
          51109    101            947   0  1  prepare for digit collation
    51047>
    51039>51110    115     215     12   1  0  collate and add              ADD IN REST OF WORD
          51111    124     533      4   0  1  modify address of next       STORE IN
          51112    102     102      8   1  0  transfer (A) to N            T/W ANNEX
          51113    101              0   0  1  prepare for digit collation
          51114    123              2   0  0  step on and test
          51115    100     533      4   0  0  Halt
          51116    123              1   0  0  step on and test             LAST ROUTE
          51117    100     533      2   0  0  Halt
          51118    124     510     26   1  0  unconditional jump           >NO
          51119    106     214     68   0  0  select (N)                   L/E,L/E
          51120    102     102     24   1  0  transfer (A) to N
          51121    126     107      8   1  1  set modification register    (MR1)FOR MASTER
          51122    124     478      6   1  0  unconditional jump           >OUTPUT COMMENT

          51200    PROCR   512       512     EXCESS STORE COMMENT
          51202    126     177      2   0  0  enter subroutine             *67Ю                >REQUEST T/W
          51203    106     215      8   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>
    51231>51208    106     230      9   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
401       51213    124     512     27   1  0  unconditional jump           *££0*££2*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?
    51232>51225    125           4098   0  2  step on and test
          51226    124     512     30   1  0  unconditional jump           PICKUP NEXT WORD
    51213>51227    106     214     68   1  0  select (N)
          51228    102     102      8   1  3  transfer (A) to N
          51229    124     478      6   1  0  unconditional jump           TYPE
    51226>51230    125              0   0  3  step on and test
          51231    124     512      8   1  0  unconditional jump
          51232    124     512     25   1  0  unconditional jump

          51300    PROCR   513       513     GP1 FN9:CHECK FIELD ON CARD INPUT

          51400    PROCR   514       514     CHANGE CHANNEL

          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
          51507    127     515     12   0  1  jump A != Z                  >NO
          51508    106     215     26   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     28   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     24   1  0  select (N)                   REST OF
          51517    102     102      6   1  0  transfer (A) to N            COMMENT
          51518    106     214     68   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Ю

          51600    PROCR   516       516     GROUP 2
          51601     NOTES          RADIX     B    DETERMINE FUNCTION
          51602    126     461      2   0  0  enter subroutine             >S/R Q
401       51603    101              7   1  3  select literal address       *64‼61‼0:‼0+‼
          51604    126     500      2   0  0  enter subroutine             *643643             >S/R R
          51605    103     516      9   0  0  copy (A) to N
          51606    126     459      2   0  0  enter subroutine             >S/R G
          51607    124     516      9   0  1  modify address of next
          51608    126     516      9   0  1  leave subroutine
          51609    100              0   0  0  Halt                         FUNCTION NUMBER
          51610    100     517      2   0  0  Halt                         >UNLOAD
          51611    100     487      3   0  0  Halt                         *17‼18‼             ALLOC
          51612    100     477      8   0  0  Halt                         >REJECT
          51613    100     487      3   0  0  Halt                         *17‼18‼             ALLOC
          51614    100     477      8   0  0  Halt                         >REJECT
          51615    100     518      2   0  0  Halt                         *0‼‼*1.3 >INTERCHANGE PRIORITIES

          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*
          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    124     295     16   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
401       51811    106     229      2   1  2  select (N)                   *3Ю4*3‼+            200002
          51812    102     230      2   1  2  transfer (A) to N
          51813    106     221      2   1  0  select (N)
401       51814    102     229      2   1  2  transfer (A) to N            *3Ю4*3‼+            200002
401       51815    106     229      3   0  2  select (N)                   *3Ю4*3‼+            300003
          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
401       51905    106     228     25   0  0  select (N)                   *3Ю4*3‼+            2500025
          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

          52100    PROCR   521       521     GROUP 2: FUNCTION 8
          52101     NOTES          RADIX     B    AMEND RUN NUMBER

          52200    PROCR   522       522     GROUP 2 FUNCTION 9
          52201     NOTES          RADIX     B    CLOSE PROGRAMME

          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
401       52403    101              6   1  3  select literal address       *11+12+40+*11+40+   600008
          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      3   0  0  Halt                         >ALLOC              WITHOUT
401       52412    100     477      8   0  0  Halt                         *4Ю‼                >REJECT
          52413    100     487      3   0  0  Halt
          52414    100     477      8   0  0  Halt                         >REJECT
401       52415    100     477      8   0  0  Halt                         *££0*££2*0‼‼*1.3*0:‼*0+‼*12‼*11‼*40‼
401       52416    100     477      8   0  0  Halt                         *££0*££2*0‼‼*1.3*0:‼*0+‼*12‼*11‼*40‼
401       52417    100     477      8   0  0  Halt                         *££0*££2*0‼‼*1.3*0:‼*0+‼*12‼*11‼*40‼
401       52418    100     477      8   0  0  Halt                         *££0*££2*0‼‼*1.3*0:‼*0+‼*12‼*11‼*40‼

          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     19   0  1  jump A != Z                  >NO
          52504    124             24   0  2  select literal and division  *4:4                00012
          52505    105     525     21   0  0  subtract (N) from (A)
          52506    102     525     21   0  0  transfer (A) to N
          52507    106     534      2   1  0  select (N)                   UNPACK INDEX
          52508    124     525     21   0  1  modify address of next
          52509    128     196      2   1  0  bulk copy alpha to short
          52510    106     534      4   1  0  select (N)                   *4:2*102
          52511    124     525     21   0  1  modify address of next
          52512    128     196     14   1  0  bulk copy alpha to short     *4:2*102
          52513    126     177      2   0  0  enter subroutine             >REQUEST T/W
          52514    106     214     50   1  0  select (N)                   'R T I'             SET UP COMMENT
          52515    102     102      6   1  0  transfer (A) to N
          52516    106     214     68   1  0  select (N)
401       52517    102     102      8   1  0  transfer (A) to N            *6.+4Ю+*6.44Ю4      800016
          52518    124     478      6   1  0  unconditional jump           >OUTPUT COMMENT
    52503>52519    124             81   0  2  select literal and division  CODE LETTER A
          52520    124     498      5   1  0  unconditional jump           >
          52521    100              0   0  0  Halt                         IND (SET AT 0 OR 24)

          52600    PROCR   526       526     SET RELEASED TAPES INDEX (SHORT)
          52601     NOTES          RADIX

          52700    PROCR   527       527     GROUP4:FUNCTION6
          52701     NOTES          RADIX     B    SET ROUTE AVAILABLE

          52800    PROCR   528       528     GROUP4:FUNCTION 7
          52801     NOTES          RADIX     B    SET ROUTE NOT AVAILABLE

          52900    PROCR   529       529     GROUP 4 FUNCTION 8
          52901     NOTES          RADIX     B    CHANGE ROUTE NUMBER

          53000    PROCR   530       530     CHANGE ROUTE(2)

          53100    PROCR   531       531     CHANGE ROUTE(3)

          53200    PROCR   532       532     GP6 AND GP7 SET ROUTE AVAILABLE AND WITHDRAW ROUTE

          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   0   0   3   0  0  0  0     *1034:3*4:3                               T 7
          53404   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      9   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    102     547      4   0  0  transfer (A) to N            *3‼1                CLEAR STORE COUNTER
          53709    124     550      2   0  2  select literal and division  EDIT HEADING
          53710    126     545      2   0  0  enter subroutine             EDIT AND O/P S/R

          53800    PROCR   538       538     TEST FOR TAG CHANGES
    53939>
    53953>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     26   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
          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     41   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     27   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
    53913>53941    106     547     26   0  0  select (N)                   TEST IF SELECTED TAG SET
          53942    127     540      2   0  0  jump A = Z                   >NO
          53943    105     547      6   0  0  subtract (N) from (A)        TEST TAG1=SEL.TAG
          53944    127     540      2   0  0  jump A = Z                   >YES
          53945    106     547      6   0  0  select (N)
          53946    101             13   1  2  subtract literal address     TEST TAG1=13>15
          53947    127     540      2   0  2  jump A >= Z                  >YES
          53948    106     547     26   0  0  select (N)
          53949    105     547      7   0  0  subtract (N) from (A)        TEST TAG2=SEL.TAG
          53950    127     540      2   0  0  jump A = Z                   >YES
          53951    106     547      7   0  0  select (N)
          53952    101             13   1  2  subtract literal address     TEST TAG2=13>15
          53953    127     538      2   0  3  jump A < Z                   >NO

          54000    PROCR   540       540     DELETE L/E OR B/E
    53950>
    53947>
    53944>
    53942>54002    100     547     28   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     28   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
    53940>
    53915>54202    124              0   0  3  modify address of next
          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      5   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     26   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
          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
401 54509>54513    128     551      4   1  2  edit fixed field formats     *3Ю4 EDIT TO ANNEX  7
          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Ю
    55808>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
          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          3£00000000;                                       COLLATION CONST/SELECTED TAG
          54728          (D)££££££££££;
          54730          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    30     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    30     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     /////
          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    30     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    102              1   0  1  transfer (A) to N            SET UP OR CLEAR (1)
          55105    106     209      5   0  1  select (N)
          55106    102             25   0  1  transfer (A) to N            SET UP (25)
          55107    101     130     24   1  3  select literal address
          55108    101            128   1  2  subtract literal address     FORM M/R SP CH START
          55109    102     107      9   0  1  transfer (A) to N
          55110    106     558      7   0  0  select (N)
          55111    105     231      2   0  1  subtract (N) from (A)
          55112    102     231      3   0  1  transfer (A) to N
          55113    101     535      2   1  3  select literal address       TEST MASTER IN DIV 1
          55114    101     536      2   1  2  subtract literal address
401       55115    127     552      2   0  2  jump A >= Z                  *££2*57‼
          55116    106     558      7   0  0  select (N)
          55117    107     231      2   0  0  augment (N) by (A)
          55118    106     558      2   1  0  select (N)                   SHIFT UP STORE TABLE
          55119    124     999      0   0  3  modify address of next
          55120    128     231      4   0  0  bulk copy short numeric
          55121    106     555      8   0  0  select (N)
          55122    102     555      7   0  0  transfer (A) to N

          55200    PROCR   552       552     INITIAL SET8UP(2)
    55115>55202    106     209      8   0  1  select (N)
          55203    124     999      0   0  3  modify address of next
          55204    124     233     26   0  3  modify address of next
          55205    102             64   0  0  transfer (A) to N
          55206    106     209      9   0  1  select (N)
          55207    102            124   0  1  transfer (A) to N
          55208    101     228      2   1  3  select literal address       STACK TAG 13 IN M/R ANNEXES
          55209    118              5   0  0  shift logical
          55210    101     226      2   1  1  add literal address
          55211    102              4   1  1  transfer (A) to N
          55212    101             13   1  3  select literal address
          55213    126     556      2   0  0  enter subroutine
          55214    101             15   1  3  select literal address       STACK TAG 15 IN A.L.W.'S
          55215    123     102     84   1  1  copy into tag
          55216    123     226     56   1  1  copy into tag
          55217    123     227     56   1  1  copy into tag                *101
          55218    106     102     19   1  1  select (N)                   STORE M/R
          55219    118           4123   1  0  shift logical                SERIAL NO
          55220    101              7   1  1  add literal address          IN 181
          55221    118              4   1  0  shift logical
          55222    102            181   0  1  transfer (A) to N
          55223    106     102     21   1  1  select (N)                   MOD NO
          55224    118           4125   1  0  shift logical                IN 182
          55225    102            182   0  1  transfer (A) to N

          55300    PROCR   553       553     INITIAL SET UP ROUTINE(3)

          55400    PROCR   554       554     ON LINE STORE DUMP SET UP
          55402    106     558      9   0  0  select (N)                   TEST STORE PRINT REQUIRED
          55403    127     555      2   0  0  jump A = Z                   >NO
          55404    106     209      3   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      4   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     31   0  0  transfer (A) to N
          55419    106     558      8   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    118              1   1  0  shift logical
          55426    125              0   1  2  interrogate indicators       STORE PRINTER
          55427    118              2   1  0  shift logical                ROUTE
          55428    102     547      2   0  0  transfer (A) to N
          55429    101     551      2   1  3  select literal address
          55430    101             50   1  1  add literal address
          55431    101            384   1  1  add literal address          *2.1869
          55432    104     558      7   0  0  add (N) to (A)               SET UP STORE TABLE
          55433    102     231      4   0  1  transfer (A) to N
          55434    106     558      7   0  0  select (N)
          55435    104     558      7   0  0  add (N) to (A)
          55436    105     231      4   0  1  subtract (N) from (A)
          55437    102     231      5   0  1  transfer (A) to N
          55438    101             50   1  3  select literal address       *2.286Ю
          55439    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

          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    124     545     28   1  0  unconditional jump           *869
          55809    100              0   0  0  Halt
          55810    100              1   0  0  Halt

          55900    CONST   559       559     0    ASL'S CHS 0-7
401       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
          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
401       56002          (D) ££££;
          56003          ££££;
          56004          ££££;
          56005          ££££;
          56006          ££££;
          56007          ££££;
          56008          ££££;
          56009          ££££;
          56010          ££££;                                             CHANNEL 17
          56011          ££££;
          56012          ££££;
          56013          ££££;
          56014          ££££;
          56015          ££££;
          56016          ££££;
          56017          ££££;
          56018          ££££;                                             CHANNEL 18
          56019          ££££;
          56020          ££££;
          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     401               CHAPS  3   FILES  0      TRAN.  AREAS  0
 
    F.PT.   NO       MOD.  GP.   NO       PRIORITY  1       ENTRY= CH0/   3
 
    SIZE  OF  CHAPS   6194     636     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
  100=  18  101=  50  102=  50  103= 134  104= 164  105= 176  106= 182  107= 212  108= 230  109= 260  110= 278  111= 278
  112= 308  113= 326  114= 356  115= 374  116= 374  117= 374  118= 374  119= 374  120= 374  121= 374  122= 374  123= 374
  124= 374  125= 374  126= 374  127= 374  128= 378  129= 378  130= 402  131= 452  132= 452  133= 453  134= 454  135= 455
  136= 456  137= 457  138= 458  139= 459  140= 460  141= 461  142= 462  143= 463  144= 464  145= 465  146= 466  147= 467
  148= 468  149= 469  150= 470  151= 471  152= 472  153= 473  154= 474  155= 475  156= 476  157= 477  158= 478  159= 479
  160= 480  161= 481  162= 482  163= 483  164= 484  165= 485  166= 486  167= 487  168= 488  169= 489  170= 490  171= 491
  172= 492  173= 493  174= 494  175= 494  176= 502  177= 524  178= 533  179= 543  180= 554  181= 557  182= 571  183= 590
  184= 590  185= 598  186= 608  187= 631  188= 648  189= 650  190= 650  191= 700  192= 746  193= 746  194= 746  195= 746
  196= 746  197= 794  198= 798  199= 804  200= 856  201= 888  202= 902  203= 902  204= 909  205= 919  206= 936  207= 944
  208= 969  209= 988  210=1006  211=1018  212=1040  213=1056  214=1088  215=1164  216=1192  217=1228  218=1268  219=1278
  220=1280  221=1292  222=1310  223=1334  224=1336  225=1342  226=1358  227=1416  228=1474  229=1498  230=1500  231=1508
  232=1528  233=1532  234=1588  235=1592  236=1604  237=1613  238=1619  239=1619  240=1628  241=1649  242=1705  243=1776
  244=1836  245=1871  246=1936  247=1966  248=2007  249=2027  250=2027  251=2035  252=2036  253=2112  254=2112  255=2112
  256=2112  257=2112  258=2112  259=2144  260=2144  261=2168  262=2220  263=2252  264=2276  265=2300  266=2302  267=2305
  268=2354  269=2371  270=2377  271=2392  272=2401  273=2423  274=2436  275=2458  276=2469  277=2475  278=2492  279=2499
  280=2520  281=2524  282=2524  283=2535  284=2538  285=2538  286=2603  287=2688  288=2722  289=2729  290=2756  291=2756
  292=2790  293=2871  294=2926  295=2947  296=3007  297=3043  298=3064  299=3084  300=3097  301=3115  302=3122  303=3156
  304=3162  305=3165  306=3188  307=3208  308=3238  309=3283  310=3310  311=3334  312=3347  313=3367  314=3380  315=3386
  316=3398  317=3453  318=3467  319=3493  320=3505  321=3514  322=3541  323=3562  324=3570  325=3581  326=3581  327=3593
  328=3626  329=3654  330=3658  331=3662  332=3667  333=3667  334=3673  335=3680  336=3693  337=3704  338=3704  339=3709
  340=3713  341=3717  342=3722  343=3728  344=3734  345=3734  346=3742  347=3747  348=3747  349=3753  350=3761  351=3764
  352=3773  353=3773  354=3780  355=3787  356=3791  357=3795  358=3800  359=3808  360=3814  361=3819  362=3826  363=3841
  364=3847  365=3871  366=3929  367=3934  368=3964  369=3979  370=3990  371=3999  372=4001  373=4004  374=4023  375=4030
  376=4041  377=4046  378=4046  379=4046  380=4046  381=4046  382=4046  383=4046  384=4061  385=4061  386=4061  387=4061
  388=4065  389=4067  390=4067  391=4075  392=4081  393=4081  394=4100  395=4100  396=4100  397=4100  398=4100  399=4100
  400=4100  401=4100  402=4112  403=4131  404=4138  405=4149  406=4159  407=4182  408=4198  409=4209  410=4221  411=4277
  412=4333  413=4342  414=4360  415=4401  416=4423  417=4430  418=4438  419=4447  420=4453  421=4468  422=4524  423=4532
  424=4555  425=4559  426=4618  427=4684  428=4685  429=4720  430=4733  431=4733  432=4755  433=4766  434=4781  435=4784
  436=4793  437=4808  438=4829  439=4845  440=4871  441=4899  442=4923  443=4942  444=4947  445=5009  446=5059  447=5090
  448=5141  449=5153  450=5168  451=5219  452=5219  453=5219  454=5233  455=5254  456=5270  457=5291  458=5310  459=5310
  460=5349  461=5394  462=5402  463=5419  464=5429  465=5450  466=5486  467=5495  468=5514  469=5527  470=5537  471=5546
  472=5546  473=5556  474=5556  475=5565  476=5574  477=5578  478=5585  479=5592  480=5606  481=5620  482=5654  483=5662
  484=5662  485=5672  486=5684  487=5684  488=5707  489=5732  490=5751  491=5772  492=5782  493=5788  494=5812  495=5816
  496=5824  497=5824  498=5842  499=5855  500=5857  501=5865  502=5877  503=5877  504=5895  505=5895  506=5895  507=5916
  508=5923  509=5928  510=5955  511=6001  512=6022  513=6053  514=6053  515=6053  516=6072  517=6086  518=6099  519=6117
  520=6136  521=6136  522=6136  523=6136  524=6140  525=6157  526=6177  527=6177  528=6177  529=6177  530=6177  531=6177
  532=6177  533=6178  534=6186  535=6190    4=6194    5=6194    6=6194    2=6194
CHAPT       2
  536=  18  537=  27  538=  36  539=  56  540= 108  541= 138  542= 151  543= 181  544= 213  545= 229  546= 266  547= 276
  548= 306  549= 322  550= 384  551= 414  552= 435  553= 459  554= 459  555= 497  556= 504  557= 510  558= 514  559= 524
  560= 588    7= 636    8= 636    9= 636    3= 636
CHAPT       3       EXTRA CHAPTER
 
 
 
 
 
 
                       INTERCODE        SERIAL NUMBERS OF INTERCODE REPORTS
          PT OMITTED        NO
          DISASTROUS         0
          OTHERS            19
 
 
 
 
 
          MADE BY 08004 ISSUE 5  SERIAL     0 ON 31/ 8/15  SPOOL  8004
                                             (08000 ISSUE 8)