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)