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*13e*60e; 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*46e; 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;;;;*46e; 11321R;106;114;17;;;;*46e46e; 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*49e; 20407D 20408 20410R;100;212;2;;3;;*09e06e;SET BINARY 20510D 20511 20516R;101;;1;1;2;;*££2*46e; 20520D 20708D 20710 20821D 20822 20902D 20903 20913D 21004D 21005R;8000;*££0*££1*3:e4£e 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.+62e*2.+*62e;4 23333R;100;;;;;;*41e*3t3*14e*3:e*60e; ;100;;;;;;*41e*3t3*14e*3:e*60e; 23343R;100;455;14;;;;*34e RETURN ADD FOR;TROFL 23349R;100;;;;;;*80+; 23403D 23407D 23418 23603D 23604 23608D 23620 23802D 23810 23908R;115;228;3;;;;*££0*££2*3t3*3ee; 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*49e;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*14e*42e*46e;*5+e ;100;;;;;;*££0*££2*14e*42e*46e;*5+e ;100;;;;;;*££0*££2*14e*42e*46e;*5+e 26314R;100;285;45;;;;*0138te;(12)RE-READ 26316D 26317 26328D 26329 26406D 26407 26422D 26423 26427D 26429 26433D 26440 26502D 26712R;124;263;18;1;;;*££0*££2*03e*02e*04e;*05e*19e*1ee*30e*2.e 26722R;124;263;18;1;;;*££0*££2*03e*02e*04e;*05e*19e*1ee*30e*2.e 26732R;124;263;18;1;;;*££0*££2*03e*02e*04e;*05e*19e*1ee*30e*2.e 26751D 26762 27004D 27009R;101;;23;1;2;;*3:+;23 27208D 27236 27253D 27261 27421D 27428 27507D 27510D 27514R;124;263;18;1;;;*03e*02e*04e*05e*30e;*2.e 27708D 27758 27803D 27806R;126;351;2;;;;*09e06e;TEST RTE NOTING D/B 27902D 27906 27914R;127;279;34;;2;;*42t42e gNO; 27916R;127;279;34;;;;*42e; 27926D 27933 28003D 28041 28102D 28114 28402D 28411 28510R;126;351;2;;;;*09e06e;TEST RTE NOTING D/B 28515R;127;285;45;;1;;*013 gNO; 28538D 28540D 28555R;126;351;2;;;;*09e06e;TEST RTE NOTING D/B 28561D 28562 28571D 28577 28618R;126;351;2;;;;*09e06e;TEST RTE NOTING D/B 28650R;126;351;2;;;;*09e06e;TEST RTE NOTING D/B 28651D 28655 28659D 28661 28693R;126;351;2;;;;*09e06e;TEST RTE NOTING D/B 28709D 28725 28733D 28734 28741R;126;351;2;;;;*09e06e;TEST RTE NOTING D/B 29002D 29004 29222R;126;351;2;;;;*09e06e;TEST RTE NOTING D/B 29224R;126;351;2;;;;*09e06e;TEST RTE NOTING D/B 29235R;127;425;25;;;;*43e43e*51e51e;gBLOCK 7 29255R;126;351;2;;;;*09e06e;TEST RTE NOTING D/B 29269R;126;351;2;;;;*09e06e;TEST RTE NOTING D/B 29310R;126;351;2;;;;*09e06e;TEST RTE NOTING D/B 29332R;126;351;2;;;;*09e06e;TEST RTE NOTING D/B 29510D 29526D 29540 29557D 29558 29580D 29588 29621R;127;296;33;;;;*57e; 29627D 29632 29806D 29822 30005D 30014 30017D 30037 30039D 30040 30041R;101;;16;1;2;;*3:2*224*234;800016 ;127;301;5;;2;;*28e033;gNO 30102D 30104 30223D 30224 30234D 30257 30303D 30326 30523D 30526D 30528 30611R;126;351;2;;;;*££0*££2*09e06e; 30619R;126;351;2;;;;*££0*££2*09e06e; 30704D 30709 30734D 30735 30838R;126;351;2;;;;*££0*££2*09e06e; 31009D 31011D 31022D 31024D 31211D 31627R;126;351;2;;;;*££0*££2*09e06e; 31649R;126;351;2;;;;*££0*££2*09e06e; 31711R;126;351;2;;;;*££0*££2*09e06e; 31815R;126;351;2;;;;*££0*££2*09e06e; 31818R;126;351;2;;;;*££0*££2*09e06e; 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+0t+3:+*53+3:+;5000058 36412R;102;252;42;;;;*53+3:+;42 36415R;102;252;46;;;;*53+3:+;46 36419R;102;252;50;;;;*53+0t+3:+*53+3:+;5000058 36420D 36504D 36510R;106;252;46;;3;;*53+3:+ FILE ID;46 36515R;106;252;50;;3;;*53+0t+3:+*53+3:+;5000058 RL CTR=t? 36518R;106;252;50;;3;;*53+0t+3:+*53+3:+;5000058 RL CTR=99 36524R;103;252;50;;3;;*53+0t+3:+*53+3:+;5000058 36528R;106;252;42;;3;;*53+3:+;42 36540R;102;252;50;;;;*53+0t+3:+*53+3:+;5000058 36543R;105;252;42;;;;*53+3:+;42 36547R;105;252;46;;;;*53+3:+;46 36605D 36606 36710R;127;367;31;;;;*16e; 36730D 36809R;105;252;50;;;;*53+0t+3:+*53+3:+;5000058 36814R;106;252;50;;;;*53+0t+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:e4£e; 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;;;;*09e06e;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:e*;2433:e gNO 44907R;127;263;18;;2;;*3:e; ;106;252;50;;3;;*53+0t+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;;;;*3t4;1 45802D 45840 45913D 45922D 45934D 45938D 45944R;127;460;44;;;;*20e; 46012D 46013 46021R;102;229;3;;;;*3t4*3e+;300003 46028R;127;460;44;;1;;*20e20e; 46038R;127;460;44;;;;*20e; 46042D 46043 46051D 46219D 46309D 46310R;106;;191;;;;*3t4;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;;;*3t3*3ee; 48802D 48819R;124;491;10;1;;;*3t33t3*3ee3ee; 48919D 48935 49102D 49109 49114D 49117D 49202D 49208 49216D 49228 49326D 49330 49402R;221;3;;;;;1;;3;;;;;*££0*££2*61e 3SP,PRIORITY CLASS 49510D 49540 49720D 49732 50202D 50229 50309R;100;477;8;;;;*££0*££2*09e*3+e*08e;*07e*02e*04e*5:e ;100;477;8;;;;*££0*££2*09e*3+e*08e;*07e*02e*04e*5:e 50313R;100;477;8;;;;*££0*££2*09e*3+e*08e;*07e*02e*04e*5:e 50317R;100;477;8;;;;*69e*68e*67e*66e*6te; ;100;477;8;;;;*69e*68e*67e*66e*6te; 50402D 50431 50502D 50524 50614D 50617 50621D 50627 50709D 50802D 50815 50916R;124;;64;;1;;*3:+;64 50919D 51006R;127;477;8;;2;;*3:e;C REJ 51008D 51011 51016R;124;510;23;1;;;*3:e3:e; 51019D 51021 51024D 51029 51044R;127;511;12;;1;;*8ee gNO; 51102D 51111 51133D 51156 51213R;124;512;44;1;;;*££0*££2*3t3*3ee; 51227D 51243 51302D 51317 51402D 51422 51521D 51529 51603R;101;;7;1;3;;*64e61e0:e0+e; 51606D 51608 51619D 51642 51714D 51811R;106;229;2;1;2;;*3t4*3e+;200002 51814R;102;229;2;1;2;;*3t4*3e+;200002 ;106;229;3;;2;;*3t4*3e+;300003 51905R;106;228;25;;;;*3t4*3e+;2500025 52002D 52015 52102D 52146 52202D 52221 52403R;101;;6;1;3;;*11+12+40+*11+40+;600008 52412R;100;477;8;;;;*4te;gREJECT 52415R;100;477;8;;;;*££0*££2*0ee*1.3*0:e;*0+e*12e*11e*40e ;100;477;8;;;;*££0*££2*0ee*1.3*0:e;*0+e*12e*11e*40e ;100;477;8;;;;*££0*££2*0ee*1.3*0:e;*0+e*12e*11e*40e ;100;477;8;;;;*££0*££2*0ee*1.3*0:e;*0+e*12e*11e*40e 52510D 52512 52517D 52518 52521D 52523 52525R;102;102;8;1;;;*6.+4t+*6.44t4;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;;*3t4 EDIT TO ANNEX;7 54726D 54728 55104D 55106 55108D 55109 55111D 55112 55122R;127;552;10;;2;;*££2*57e; 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 0 536 160(IPS INITIAL ENTRY) 10003 124 264 10 1 0 0 264 161 gI/P O/P CONTROL 10004 100 559 2 0 1 0 559 162(IPS:ASL'S) 10005 124 205 2 1 0 0 205 163 gOPTIONS 10006 100 233 2 0 0 0 233 164 (IPS: APT) 10007 124 204 2 1 0 0 204 165 gPROGRAMME UNLOAD 10008 100 0 0 0 0 166 10009 124 244 2 1 0 0 244 167 gOVERLAY 10010 100 0 0 0 0 168 10011 124 207 2 1 0 0 207 169 gTYPE 401 10012 100 0 0 0 0 *££0*££3*13e*60e 10013 124 208 19 1 0 0 208 171g 10014 100 0 0 0 0 172 10015 124 243 59 1 0 0 243 *60e 10016 124 264 2 1 0 0 264 gTEST ROUTE 10017 100 0 0 0 0 175 5-FIGURE DATE 10018 100 0 0 0 0 176 10019 124 450 2 1 0 0 450 *13e RELEASE ROUTE 10020 115 537 2 0 1 0 537 178 ON LINE STORE DUMP 10021 100 2 0 0 0 179 ABDON/UNLOAD INDICATOR 10022 100 3 0 0 0 180 MACHINE NO 10023 100 0 0 0 0 181 SERIAL NUMBER 10024 100 0 0 0 0 182 MOD NUMBER 10025 124 268 9 1 0 0 268 183gPRIORITYQUEUE 10026 100 0 0 0 0 184 USED IN TYPE PQ 10027 100 0 0 0 0 185 LAST COMMAND 10028 100 0 0 0 0 186 CD: MIN RT 10029 100 0 0 0 0 187 CD: MAX RT 10030 100 0 0 0 0 188 CD: 8*CH 10031 100 0 0 0 0 189 CD: (8*CH)+4 10032 100 0 0 0 0 190 TW: RT NO 10033 100 2 0 0 0 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 0 INDICATOR L1 OPTIONS OFFERED 10303 100 0 0 0 0 INDICATOR L2 COMMAND IGNORED 20914g10304 106 8 0 0 0 *59t STORE LINK AFTER 10305 124 2 0 3 0 *59t INTERRUPTION 10306 102 44 0 0 0 11106g 11108g 11306g 11308g 12705g 17710g 19919g 20916g 24622g 54229g10307 100 212 2 0 3 0 212 *31e SET BINARY HEAD OF QUEUE 10308 124 212 2 1 1 0 212 SET MOD GROUP 0 18115g 18409g 18612g 18616g10309 124 103 25 1 0 0 103 (INTLY SL=4) SWITCH SL 10310 124 186 2 1 0 0 186 gROUTE CLOSED SWITCH L1 10311 124 106 9 1 0 0 106 gROUTE ENGAGED 10312 124 108 2 1 0 0 108 gDOUBTFUL BLOCK 10313 124 103 14 1 0 0 103 gWARNING OF END 10806g 10313g10314 124 182 2 1 0 0 182 *293 gAVAILABLE SWITCH SLAS 10315 126 273 2 0 0 0 273 (A),(B),(C), SET (C 10316 106 103 18 0 0 0 103 DECIMAL L SET RETUR 10317 102 103 14 0 0 0 103 PROG LINK 10318 124 182 2 1 0 0 182 *293 SLAS=1 10319 100 0 0 0 0 SETTING OF L5 401 10320 124 104 9 0 1 0 104 *££2*263 10321 124 185 2 1 0 0 185 L5=2 10322 124 186 17 1 0 0 186 L5=3 18503g10323 106 104 10 0 0 0 104 SET SL=4 10324 102 103 9 0 0 0 103 10410g 10309g10325 125 1919 1 2 0 INTERROGATE I1-7,I9-11 TEST INDS STACKED 10326 127 199 2 0 1 0 199 gYES: OP INT 19903g10327 124 106 9 1 0 0 106 (INTLY L6=2) SWITCH L6 10331g10328 106 175 2 0 3 0 175 TEST REQUEST SET 10329 127 178 2 0 1 0 178 gYES 10330 125 2 0 3 0 10331 124 103 28 1 0 0 103 10400 PROCR 104 104 LOG ROUTINE SWITCH CONT 10401 NOTES RADIX B 10402 106 104 4 0 0 0 104 SET L6=2 10403 102 103 27 0 0 0 103 10404 124 106 9 1 0 0 106 gSM L6=2 10405 126 109 12 1 3 0 109 SET (MR3) FOR REQUESL8=1 10406 100 0 0 0 0 P 10407 100 0 0 0 0 Q 10408 100 0 0 0 0 (64+R)FIXED(T/W) 10409 100 0 0 0 0 (64+R)VARIABLE(T/W) 10410 124 103 25 1 0 0 103 SL=4 10411 100 0 0 0 0 SPARE 10412 100 0 0 0 0 1=256 MICROSECS INEFFECTIVE 10413 100 0 0 0 0 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 0 INDICATOR FOR 'ABDON' AND 'END' 10603 100 0 0 0 0 SPARE 10604 100 0 0 0 0 MR3 SETTING FOR REQUEST T/W 401 10605 100 6 0 0 0 *1:3 10606 124 3 0 1 0 OPTION 8 10607 126 158 0 1 0 g 10611g 10622g10608 124 108 11 1 0 0 108 g 10404g 10327g 10311g10609 124 106 11 1 0 0 106 SWITCH SM 10610 124 106 20 1 0 0 106 gCLOSED(S=3) S=1 TEST ROUTE 10609g10611 124 106 8 1 0 0 106 gENGAGED(S=2) 10612 126 271 2 0 0 0 271 gD/B TEST ROUTE 10613 126 300 2 0 0 0 300 gW/E 10614 106 107 7 0 0 0 107 10615 102 106 9 0 0 0 106 S=4 10616 106 107 8 1 0 0 107 10617 102 2 1 0 0 SET UP MR1 10618 106 107 2 1 0 0 107 ROUTE NO. & TYPE 10619 124 265 2 1 0 0 265 gI/P O/P CONTROL 10610g10620 106 156 0 0 0 CURRENT TIME S=3 TEMP, CLOSED 401 10621 106 107 17 0 0 0 107 *££0*££1*46e 10622 127 106 8 0 3 0 106 gNO ACTION IS REQUIRED 10623 126 107 8 1 1 0 107 SET UP MR1 10624 126 107 14 0 1 0 107 g 10707g10625 124 106 31 1 1 0 106 S=4 NORMAL 10626 106 107 8 1 0 0 107 RESET MOD. GROUP 10627 102 2 1 0 0 SET UP MR1 10628 100 107 2 1 1 0 107 RESTORE (A)(B)(C) 10629 126 107 16 0 1 0 107 g 10630 126 107 16 0 1 0 107 g 10631 100 0 0 0 0 MOD.GROUP 10700 PROCR 107 107 MASTER ROUTINE SWITCH CONT 10701 NOTES RADIX B 10702 100 0 0 0 0 (A) 10703 100 0 0 0 0 10704 100 0 0 0 0 (B) 10705 100 0 0 0 0 10706 100 0 0 0 0 (C) 10707 124 106 25 1 0 0 106 S=4 10708 100 106 2 0 0 0 106 PROG LINK 10709 100 0 0 0 0 START OF SPECIAL CHAPTER 10710 100 0 0 0 0 ALARM NO FOR D/D 10711 100 4097 1 0 0 PROG ID NO 10712 100 0 0 0 0 RUN & RERUN NO 10713 100 0 0 0 0 BIT PATTERN FOR OPTIONS 10714 100 270 2 0 0 0 270 *464 00004 10715 100 0 0 0 0 LOCN BEFORE 1ST OPTION 10716 100 0 0 0 0 LINK FOR I/P O/P, LINK FOR SI=4 10717 100 0 0 0 0 ASSOC TIME/ORIGINAL SWITCH SETTING 10718 100 0 0 0 0 W/L'S 10719 100 0 0 0 0 10800 PROCR 108 108 PSEUDO-SWITCH 10801 NOTES RADIX B 10312g10802 100 210 9 0 2 0 210 SET (MR3)=8*CH DOUBTFUL BLOCK 10803 125 0 1 2 0 ON LOG ASSEMBLER 10804 115 100 32 0 0 0 100 10805 126 272 2 0 0 0 272 gSET D/B INDICATOR 10806 124 103 14 1 0 0 103 gSLAS 10807 100 0 0 3 0 06000 10808 100 0 0 0 0 5/0 10809 100 5 0 0 0 10810 100 0 0 0 0 STORE DUMP:WL FOR(71) 10608g10811 124 127 2 1 0 0 127 10812 124 127 2 1 0 0 127 SETTING FOR M/R SWITCH NON-INT 10813 126 24 0 1 0 OVERFLOW 10814 100 62 0 0 0 STORE DUMP=TAM 10815 102 52 0 0 0 STORE DUMP:CLEAR TA 10816 100 0 0 0 0 20/0, MR CONST FOR TYPE 10817 100 20 0 0 0 10818 100 0 0 0 0 MR CONST FOR M/T ALTERNATE ROUTES 401 10819 100 96 0 0 0 *019*244*234*224 1440009600048 10820 100 271 2 0 0 0 271 W/L 10821 100 120 0 0 0 10822 127 127 2 0 3 0 127 10823 118 6 0 3 0 SAS=1 10824 106 100 32 0 0 0 100 SLAS=2 10825 124 186 2 1 0 0 186 L1=1 10826 100 0 0 0 0 10827 100 0 0 0 0 401 10828 100 0 0 0 0 *££0*££3*353 10829 107 6000 0 3 0 STORE DUMP='XX' 10830 102 0 0 0 0 *:SP:2:SP:SP 10831 105 5124 1 1 0 *353 10900 PROCR 109 109 PSEUDO-SWITCH CONT 10901 NOTES RADIX B 10902 100 0 0 0 0 D/B W/L 10903 100 64 0 0 0 64/0 FOR D/B 10904 103 0 0 0 0 *:SP:3:SP:SP 10905 105 5124 1 1 0 *353 10906 107 0 0 0 0 EDG 10907 105 5445 0 2 0 10908 107 65 0 0 0 I/P:1 10909 105 5910 1 0 0 10910 107 65 0 0 0 O/P:1 10911 106 1814 0 3 0 10912 100 0 0 0 0 MR3 SETTING FOR T/W 401 10913 100 8 0 0 0 *1:3 10914 100 0 0 0 0 SDB SETTING 10915 100 7999 0 1 0 COLLATION CONSTANT 10916 100 0 0 0 0 STORE DUMP=MR 10917 100 0 0 0 0 STORE DUMP=MR 10918 100 0 0 0 0 STORE DUMP=COUNTER 10919 100 0 0 0 0 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 0 112 INTERRUPTION,STORE 11103 100 210 3 0 3 0 210 6'S (A),(B),(C).SET(C) 11104 106 8 0 0 0 DECIMAL SET RETURN 11105 102 112 16 0 0 0 112 PROG. LINK 11106 124 103 7 1 0 0 103 *063 (6/0/0/0/157) 11107 107 112 18 1 0 0 112 11108 124 103 7 1 0 0 103 gHEAD OF QUEUE 11109 124 127 2 1 0 0 127 OR'26/1/0 R' SWITCH SP1 11110 124 111 20 1 0 0 111 gCLOSED(S=2) 11111 124 127 2 1 0 0 127 gENGAGED (S=3) TEST ROUTE 11112 126 271 2 0 0 0 271 gD/B 11113 126 300 2 0 0 0 300 gW/E 11114 106 112 7 0 0 0 112 SET S=4 11115 102 111 9 0 0 0 111 11116 106 112 8 1 0 0 112 SET UP MR1 11117 102 2 1 0 0 11118 106 112 2 1 0 0 112 11119 124 265 2 1 0 0 265 *062063 gI/P O/P CONTROL 11110g11120 106 156 0 0 0 S=3 TEMP CLOSED 401 11121 106 112 17 0 0 0 112 *46e 11122 127 127 2 0 3 0 127 gNO ACTION IS REQUIRED 11123 126 112 8 1 1 0 112 ACTION IS REQUIRED 11124 126 112 14 0 1 0 112 gMASTER ROUTINE 11207g11125 124 111 31 1 1 0 111 11126 106 112 8 1 0 0 112 RESET MOD.GROUP 11127 102 2 1 0 0 SET UP MR1 11128 100 112 2 1 1 0 112 RESTORE (A) (B) (C) 11129 126 112 16 0 3 0 112 *063063 (19/0/1/0/56) 11130 126 112 16 0 3 0 112 gPROGRAMME 11131 100 0 0 3 0 MOD GROUP 11200 PROCR 112 112 1ST COMML SWITCH CONT 11201 NOTES RADIX B 11202 100 0 0 0 0 (A) 11203 100 0 0 0 0 11204 100 0 0 0 0 (B) 11205 100 0 0 0 0 11206 100 0 0 0 0 (C) 11207 124 111 25 1 0 0 111 S=4 11208 100 111 2 0 0 0 111 PROGRAMME LINK 11209 100 0 0 0 0 START OF LAST CHAPTER 11210 100 0 0 0 0 ALARM NO FOR D/D 11211 100 0 0 0 0 PROGM ID NO 10827 11212 100 0 0 0 0 RUN & RERUN NO 11213 100 0 0 0 0 BIT PATTERN FOR OPTIONS 11214 100 270 2 0 0 0 270 *464 00004 11215 100 0 0 0 0 ADDRESS BEFORE FIRST OPTION 11216 100 0 0 0 0 I/P O/P CONTROL LINKLINK FOR SI=4 11217 100 0 0 0 0 ASSOC.TIME/ORIG.SW.SETTING 11218 100 0 0 0 0 TIME SPENT IN 11219 100 0 0 0 0 PROGRAMME 11300 PROCR 113 113 2ND COMMERCIAL PROGRAMME SWITCH 11301 NOTES RADIX B 11302 100 114 2 1 0 0 114 *1.2 INTERRUPTION,STORE 11303 100 210 3 0 3 0 210 (A),(B),(C) SET(C) 11304 106 8 0 0 0 DECIMAL SET RETURN 11305 102 114 16 0 0 0 114 PROG LINK 11306 124 103 7 1 0 0 103 *063 (6/0/0/0/157) 11307 107 114 18 1 0 0 114 11308 124 103 7 1 0 0 103 gHEAD OF QUEUE 11309 124 127 2 1 0 0 127 OR'26/1/0 R' SWITCH SP2 11310 124 113 20 1 0 0 113 gCLOSED (S=3) TEST ROUTE 11311 124 127 2 1 0 0 127 gENGAGED (S=2) 11312 126 271 2 0 0 0 271 gD/B 11313 126 300 2 0 0 0 300 gW/E 11314 106 114 7 0 0 0 114 SET S=4 11315 102 113 9 0 0 0 113 11316 106 114 8 1 0 0 114 SET UP MR1 11317 102 2 1 0 0 11318 106 114 2 1 0 0 114 11319 124 265 2 1 0 0 265 *062063 gI/P O/P CONTROL 11310g11320 106 156 0 0 0 S=3.TEMP.CLOSED 401 11321 106 114 17 0 0 0 114 *46e46e 11322 127 127 2 0 3 0 127 gNO ACTION IS REQUIRED 11323 126 114 8 1 1 0 114 11324 126 114 14 0 1 0 114 gM.R. SET UP MR1 11407g11325 124 113 31 1 1 0 113 11326 106 114 8 1 0 0 114 RESET MOD.GROUP 11327 102 2 1 0 0 SET UP MR1 11328 100 114 2 1 1 0 114 RESTORE (A) (B) (C) 11329 126 114 16 0 3 0 114 *063063 (19/0/1/0/56) 11330 126 114 16 0 3 0 114 gPROGRAMME 11331 100 0 0 0 0 MOD.GROUP 11400 PROCR 114 114 2ND COMML SWITCH CONT 11401 NOTES RADIX B 11402 100 0 0 0 0 *1.2 (A) 11403 100 0 0 0 0 11404 100 0 0 0 0 (B) 11405 100 0 0 0 0 11406 100 0 0 0 0 (C) 11407 124 113 25 1 0 0 113 S=4 11408 100 113 2 0 0 0 113 PROGRAMME LINK 11409 100 0 0 0 0 START OF LAST CHAPTER 11410 100 0 0 0 0 ALARM NO.FOR D/D 11411 100 0 0 0 0 PROG.ID.NO. 11412 100 0 0 0 0 RUN & RERUN NO 11413 100 0 0 0 0 BIT PATTERN FOR OPTIONS 11414 100 270 2 0 0 0 270 *464 00004 11415 100 0 0 0 0 ADDRESS BEFORE FIRST OPTION 11416 100 0 0 0 0 I/P O/P CONTROL LINKLINK FOR SI=4 11417 100 0 0 0 0 ASSOC. TIME/ORIG.SWITCH.SETTING 11418 100 0 0 0 0 TIME SPENT IN PROG 11419 100 0 0 0 0 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 11322g 11311g 11309g 11122g 11111g 11109g 10822g 10812g 10811g12702 101 103 7 1 3 0 103 12703 102 2 0 0 0 SET UP MR1 12704 125 4096 1 1 0 12705 124 103 7 1 0 0 103 *319 12800 CONST 128 128 0 DUMMY 12900 PROCR 129 129 MOD GROUP BLISTERS+W/LS. 12902 128 26 1 1 0 *59t RESTORE 12903 100 112 2 1 1 0 112 MOD GROUP 3 12904 126 112 16 0 3 0 112 gPROGRAM 12905 128 129 8 1 1 0 129 LOC 3 OF SWITCH 12906 100 129 8 0 0 0 129 TABLE ENTRY 12907 100 6 0 0 0 12908 100 0 0 0 0 MR 1 12909 100 0 0 0 0 12910 100 0 0 0 0 MR 2 12911 100 0 0 0 0 12912 100 0 0 0 0 MR 3 12913 100 0 0 0 0 12914 128 26 1 1 0 *1.2 RESTORE 12915 100 114 2 1 1 0 114 MOD GROUP 3 12916 126 114 16 0 3 0 114 gPROGRAM 12917 128 129 20 1 1 0 129 LOC 3 OF SWITCH 12918 100 129 20 0 0 0 129 TABLE ENTRY 12919 100 6 0 0 0 12920 100 0 0 0 0 MR1 12921 100 0 0 0 0 12922 100 0 0 0 0 MR2 12923 100 0 0 0 0 12924 100 0 0 0 0 MR3 12925 100 0 0 0 0 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 0 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 0 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 0 13500 PROCR 135 135 CH CH RT FOR MULTI-CHANNEL LOADING 13501 NOTES 159 13502 100 0 0 0 0 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 0 13700 PROCR 137 137 COPY OF SR LINK'STEP BACK(A)BLOCKS,FWD 1 BLOCK' 13701 NOTES 161 13702 100 0 0 0 0 13800 PROCR 138 138 RETURN LINK SET UP BEFORE ENTERING MISALIGNMENT FAILURE S/R 13801 NOTES 162 162 13802 100 0 0 0 0 13900 PROCR 139 139 COPY OF ASL DURING OPEN MT OUTPUT REEL 13901 NOTES 163 163 13902 100 0 0 0 0 14000 PROCR 140 140 IND THAT'CHANGE DECK'IN PROGRESS 14001 NOTES 164 USED ONLY DURING REOPENING MT FILE 14002 100 0 0 0 0 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 0 14200 PROCR 142 142 COPY OF LINK INK IN'READ AND TEST BLOCK'SR 14201 NOTES 166 14202 100 0 0 0 0 14300 PROCR 143 143 CTR FOR'NUMBER OF ATTEMPTS'WHEN RE-READING/WRITING MT DB 14301 NOTES 167 14302 100 0 0 0 0 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 0 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 0 14600 PROCR 146 146 OPTION 13-'CHANGE MT DECK':BLOCK SERIAL TO BE ALIGNED ON AFTERWAR 14601 NOTES 170 14602 100 0 0 0 0 14700 PROCR 147 147 COPY OF 162 SET UP BEFORE*2 14701 NOTES 171 14702 100 0 0 0 0 14800 PROCR 148 148 COPY OF 183 DURING OPTION 13 14801 NOTES 172 14802 100 0 0 0 0 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 0 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 0 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 0 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 0 15300 PROCR 153 153 COUNTER N USED IN VARIOUS STEP BACK 15301 NOTES 177 177 AND STEP FORWARD ROUTINES 15302 100 0 0 0 0 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 0 15500 PROCR 155 155 SEE 178 15501 NOTES 179 15502 100 0 0 0 0 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 0 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 0 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 0 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 0 16000 PROCR 160 160 DEC MT BLOCK NO FOUND,FOR'SER'COMMENT IN MT ALIGNMENT FAILURE 16001 NOTES 184 16002 100 0 0 0 0 16100 PROCR 161 161 BINARY CTR OF ATTEMPTS AT REREADING 16101 NOTES 185 BECAUSE OF MT SERIAL FAILURE 16102 100 0 0 0 0 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 0 16300 PROCR 163 163 INDICATOR SET BEFORE*2 16301 NOTES 187 187 USED IN OPTION 13 16302 100 0 0 0 0 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 0 16500 PROCR 165 165 OPEN FILE INDICATOR IN OPTION 13 16501 NOTES 189 189 16502 100 0 0 0 0 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 0 16700 PROCR 167 167 SEE 190 16701 NOTES 191 191 16702 100 0 0 0 0 16800 PROCR 168 168 P/T O/P W/L WORD MODIFIER 16801 NOTES 192 192 16802 100 0 0 0 0 16900 PROCR 169 169 P/T O/P W/L CHARACTER MODIFIER(GP ASSEMBLER) 16901 NOTES 193 193 16902 100 0 0 0 0 17000 PROCR 170 170 P/T O/P W/L CONTENTS OF 64+R 17001 NOTES 194 194 17002 100 0 0 0 0 17100 PROCR 171 171 P/T O/P W/L FILE IDENTITY 17101 NOTES 195 195 17102 100 0 0 0 0 17200 PROCR 172 172 P/T O/P W/L REEL COUNTER 17201 NOTES 196 196 17202 100 0 0 0 0 17300 PROCR 173 173 S/R LINK WRITE FINIS BLOCK,WRITE END OF TAPE INFORMATION 17301 NOTES 197 17302 100 0 0 0 0 17400 CONST 174 174 0 WORKING LOCATIONS-OMIT SPACES 17500 PROCR 175 175 LOG REQUEST QUEUE 17502 100 0 0 0 0 OPTION REQ 17503 100 0 0 0 0 OPTION OUTSTANDING INDICATOR 17504 100 0 0 0 0 MASTER REQ 17505 100 106 2 0 0 0 106 17506 100 0 0 0 0 PROG 1 REQ 17507 100 111 2 0 0 0 111 17508 100 0 0 0 0 *1.2 PROG 2 REQ 17509 100 113 2 0 0 0 113 17600 PROCR 176 176 REQUEST TYPEWRITER FOR OPTIONS 17601 NOTES RADIX B 17602 100 0 0 0 0 LINK 17603 106 176 2 0 0 0 176 STORE LINK 17604 124 3 0 1 0 17605 102 169 0 0 0 17606 106 175 3 0 0 0 175 TEST OPTION 17607 127 176 19 0 1 0 176 gYES OUTSTANDING 17608 126 359 2 0 0 0 359 gRESTORE SI=3 17609 106 210 3 0 0 0 210 17610 102 175 3 0 0 0 175 SET OPTION OUTSTANDING INDICATOR 17611 126 177 2 0 0 0 177 gREQUEST T/W 17612 124 104 6 1 3 0 104 SET UP (P) 17613 125 8191 1 1 0 CLEAR I1-I13 17614 125 128 1 0 0 SET I8 17615 106 210 3 0 0 0 210 17616 102 103 2 0 0 0 103 SET LL1 17617 124 3 0 1 0 17618 126 169 0 1 0 gLEAVE S/R 17607g17619 124 176 6 0 2 0 176 17620 102 42 0 1 0 17621 126 360 2 0 0 0 360 gSET SI=5 17622 124 2 0 1 0 17623 124 9 1 0 0 gSI+9 17700 PROCR 177 177 REQUEST TYPEWRITER 17701 NOTES RADIX B 17702 100 0 0 0 0 LINK 17703 126 179 2 0 0 0 179 gSEARCH LOG QUEUE S/R 17704 106 177 2 0 0 0 177 SET REQUEST WITH LINK 17705 102 175 4 0 3 0 175 17706 106 9 0 1 0 SET SPI=2 17707 102 7 0 1 0 20115g17708 106 104 5 0 0 0 104 SET L6=1 17709 102 103 27 0 0 0 103 17710 124 103 7 1 0 0 103 gHEAD OF QUEUE 17800 PROCR 178 178 RESET REQUEST 10329g17802 106 175 2 0 3 0 175 STORE RETURN LINK 17803 102 103 19 0 0 0 103 17804 102 175 2 0 3 0 175 RESET REQUEST 17805 106 6 0 0 0 TEST ANSWER 17806 127 180 2 0 0 0 180 gYES TO OPTION 17807 125 0 1 2 0 17808 124 6 0 1 0 17809 124 175 3 0 1 0 175 17810 126 36 1 1 0 SET UP MR1 17811 126 103 19 0 1 0 103 gRETURN 17900 PROCR 179 179 SEARCH LOG REQUEST QUEUE 17902 100 0 0 0 0 LINK 17903 101 0 1 3 0 CLEAR MODIFIER 17904 102 106 4 0 0 0 106 17905 126 106 4 1 3 0 106 MR3 START/END LOG QUEUE 17910g17906 106 2 0 0 0 TEST NEXT ENTRY IN 17907 105 175 5 0 3 0 175 LOG QUEUE FOR THIS PROGRAM 17908 127 179 12 0 0 0 179 gYES 17909 125 2 0 3 0 TEST END OF QUEUE 17910 124 179 6 1 0 0 179 gNO NEXT ENTRY 17911 124 208 19 1 0 0 208 17908g17912 126 179 2 0 1 0 179 gLEAVE S/R 18000 PROCR 180 180 TYPEWRITER ANSWER TO OPTIONS 18001 NOTES RADIX B PREPARE TO OUTPUT 17806g18002 126 234 2 0 0 0 234 gS/R H 18003 101 197 2 1 3 0 197 SELECT TABLE-START LOCN. 18004 128 102 6 1 2 0 102 SET UP COMMENT IN T/W ANNEXE 18100 PROCR 181 181 TYPEWRITER PREPARE TO OUTPUT 18101 NOTES RADIX B 20308g 20609g 20726g 20818g 24018g 33514g 33612g 45515g 47808g 53503g18102 106 108 25 0 0 0 108 SET L1=1 18103 102 103 10 0 0 0 103 18104 106 103 20 0 0 0 103 SET L5=1 18105 102 182 2 0 0 0 182 *293 18106 101 102 4 1 3 0 102 18107 103 104 8 0 0 0 104 SET UP '(64+R)' 18108 102 104 9 0 0 0 104 18109 124 154 0 2 0 *293743 SET UP ASL 18110 124 100 32 0 1 0 100 18111 102 64 0 0 0 18112 106 209 2 0 0 0 209 18113 105 100 32 0 0 0 100 SET SL=1 18114 102 103 9 0 0 0 103 18115 124 103 9 1 0 0 103 gTEST ROUTE 18200 PROCR 182 182 TYPEWRITER MAIN OUTPUT LOOP 18201 NOTES RADIX B 18624g 10318g 10314g18202 124 104 9 0 1 0 104 *292 18203 106 0 1 0 0 TO BE OUTPUT 18204 102 154 1 0 0 18205 126 402 2 0 0 0 402 gTEST FOR B/E 18206 124 182 18 1 0 0 182 gB/E FOUND 18207 124 100 32 0 1 0 100 OUTPUT 18208 119 0 0 0 0 18209 125 0 1 2 0 DRAIN 18210 100 109 15 0 2 0 109 18211 115 154 1 0 0 *292 18212 101 7710 1 2 0 TEST FOR 2 L/E'S IN LAST WORD 18213 127 184 2 0 0 0 184 gYES 18214 106 212 6 0 0 0 212 STEP INDIRECT MOD TOO/P NEXT WORD 18215 107 104 9 0 0 0 104 18216 125 0 1 2 0 18217 124 184 4 1 0 0 184 gUPDATE ASSEMBLER TABLE 18206g18218 115 198 6 1 0 0 198 *292 COLLATE OUT? 18219 114 154 1 0 0 18220 124 402 11 1 0 0 402 *292 18300 PROCR 183 183 CONT 18400 PROCR 184 184 TYPEWRITER PROCEDURE AT END OF WORD 18401 NOTES RADIX B 18213g18402 106 103 21 0 0 0 103 SET L5=2 18403 102 182 2 0 0 0 182 *293293 18511g 18217g18404 100 210 9 0 2 0 210 SET(MR3)=8*CH NO 18405 115 100 32 0 0 0 100 18406 102 6 1 0 0 18407 106 100 32 1 0 0 100 UPDATE ASSEMBLER TABLE 18408 102 252 2 1 3 0 252 18409 124 103 9 1 0 0 103 gTEST ROUTE 18500 PROCR 185 185 TYPEWRITER END OF BLOCK ROUTINE 18501 NOTES RADIX B 10321g18502 106 103 3 0 0 0 103 SELECT LL2 TEST COMMAND HAS 18503 127 103 23 0 0 0 103 gNO BEEN IGNORED 18504 125 0 1 2 0 SET LL2=0 18505 102 103 3 0 0 0 103 18506 101 105 4 1 3 0 105 SELECT START LOCN OF COMMENT 18507 103 104 8 0 0 0 104 SET UP (64+R) 18508 102 104 9 0 0 0 104 18718g18509 106 103 20 0 0 0 103 SET L5=1 18510 102 182 2 0 0 0 182 *293293 18511 124 184 4 1 0 0 184 *293 gUPDATE ASSEMBLER TABLE 18600 PROCR 186 186 TYPEWRITER ROUTE CLOSED ROUTINE 18601 NOTES RADIX B 10825g 10310g18602 124 104 7 1 3 0 104 SET UP (Q) 18603 106 182 2 0 0 0 182 *291293 18604 102 103 19 0 0 0 103 18605 105 212 5 0 0 0 212 SET L1=2 18606 107 103 10 0 0 0 103 18607 106 103 22 0 0 0 103 SET L5=3 18608 102 182 2 0 0 0 182 *293293 18609 124 186 14 1 0 0 186 g 18610 125 4095 1 2 0 I1-I12 TEST IF OP HAS 18611 101 3840 1 2 0 B9-B12 STACKED INDS 18612 127 103 9 0 0 0 103 gNO, TEST ROUTE 18613 102 103 3 0 0 0 103 SET LL2 18609g18614 125 8191 1 1 0 I1-I13 18615 125 3840 1 0 0 I9-I12 18616 124 103 9 1 0 0 103 gTEST ROUTE 10322g18617 106 108 25 0 0 0 108 SET L1=1 18618 102 103 10 0 0 0 103 18619 106 103 19 0 0 0 103 RESET L5 AT PREVIOUS SETTING 18620 102 182 2 0 0 0 182 *293293 18621 125 8191 1 1 0 I1-I13 18622 124 104 7 0 1 0 104 RESET (I)=(Q) 18623 125 0 1 0 0 18624 124 182 2 1 0 0 182 *292293 18700 PROCR 187 187 TYPEWRITER DOUBTFUL BLOCK ROUTINE 18701 NOTES RADIX B 27504g18702 125 2048 1 2 0 TEST I12 SET 18703 127 187 7 0 0 0 187 gNO 18704 125 8191 1 1 0 CLEAR I1-I13 18705 124 104 7 0 1 0 104 RESET (I)=(Q) 18706 125 0 1 0 0 18703g18707 106 103 18 0 0 0 103 SET SLAS=1 18708 102 103 14 0 0 0 103 18709 106 198 4 1 0 0 198 L/E FOR O/P 18710 102 154 1 0 0 *293743 18711 124 100 32 0 1 0 100 18712 119 0 0 0 0 18713 106 104 8 0 0 0 104 SET UP(64+R) 18714 105 212 6 0 0 0 212 18715 102 104 9 0 0 0 104 18716 106 108 25 0 0 0 108 SET L1=1 18717 102 103 10 0 0 0 103 18718 124 185 9 1 0 0 185 g 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; *01t 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:24tt 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 10326g19902 101 0 127 1 2 0 TEST I1gI7 SET 19903 127 103 27 0 0 0 103 gYES 19904 101 127 1 1 0 19905 102 222 2 0 0 0 222 STORE INDICATOR SETTING 19906 124 185 1 3 0 STORE(I) 19907 126 107 8 1 1 0 107 SET (MR1) FOR M/R SWITCH 19908 106 103 2 0 0 0 103 TEST OPTION 19909 127 199 14 0 1 0 199 gYES OUTSTANDING 19910 106 175 2 1 0 0 175 TEST OPTION IN PROGRESS 19911 127 199 20 0 0 0 199 gNO 19912 125 6143 1 1 0 CLEAR I1-I11 I13 19913 124 199 18 1 0 0 199 19909g19914 125 1792 1 2 0 TEST OPTION 19915 125 6143 1 1 0 CLEAR I1-I11 I13 19916 127 200 2 0 0 0 200 *163 gYES 19917 125 128 1 0 0 SET I8 19932g 19913g19918 102 103 3 0 0 0 103 SET C ION INDICATOR 19919 124 103 7 1 0 0 103 gHEAD OF QUEUE 19911g19920 106 487 2 0 0 0 487 TEST IF ALLOCATION 19921 127 199 33 0 0 0 199 gNO IS BEING PERFORMED 19922 106 222 2 0 0 0 222 19923 101 1281 1 2 0 TEST GP 5 FN 1 19924 127 199 30 0 1 0 199 gNO 19925 106 108 12 0 0 0 108 *14t 19926 102 106 8 0 0 0 106 *14t 19927 125 6143 1 1 0 CLEAR I1-I11,I13 19928 125 127 1 0 0 SET I1-I7 19929 124 295 2 1 0 0 295 *14e g 19924g19930 125 6143 1 1 0 CLEAR INDICATORS 19931 125 127 1 0 0 SET I1gI7 19932 124 199 18 1 0 0 199 g 19921g19933 125 1792 1 2 0 TEST GROUP 0 19934 127 199 41 0 0 0 199 gYES 19935 106 108 12 0 0 0 108 SET M/R SWITCH 19936 102 106 8 0 0 0 106 NON-INT 19937 125 1792 1 2 0 GROUP NO. 19938 118 4126 0 0 0 19939 103 199 49 0 0 0 199 401 19940 101 5 1 2 0 *5£+*12+ 500005 19934g19941 125 6143 1 1 0 CLEAR I1-I11,I13 19942 125 127 1 0 0 SET I1-I7 19943 127 477 8 0 2 0 477 gREJECT 19944 106 222 2 0 0 0 222 STORE COMMAND 19945 103 233 7 0 0 0 233 19946 102 487 2 0 0 0 487 SET ALLOCATOR LINK 19947 124 199 49 0 1 0 199 19948 126 199 49 0 1 0 199 19949 100 0 0 0 0 19950 100 503 2 0 0 0 503 *09e08e07e5:e69e68e67e66e6te86e86e 19951 100 516 2 0 0 0 516 gGROUP2 19952 100 523 2 0 0 0 523 *41e gGROUP 3 19953 100 524 2 0 0 0 524 gGROUP 4 20000 PROCR 200 200 GROUP D (1) 20001 NOTES RADIX B TEST SELECTED OPTIONS 19916g20002 106 222 4 0 0 0 222 SET(MR1)FOR LAST 20003 102 2 1 0 0 PROG.TO OFFER OPTIONS 20004 101 213 12 1 3 0 213 20005 112 222 2 0 0 0 222 CONVERT OPT NO TO BINARY 20006 103 222 3 0 0 0 222 TESTIF OPTION CHOICE 20007 101 16 1 2 0 IS OUT OF RANGE 20008 127 203 2 0 2 0 203 gREJECT 20009 101 15 1 1 0 20010 102 222 6 0 0 0 222 20011 106 210 7 0 0 0 210 FORM BIT 20012 124 222 6 0 1 0 222 CORRESPONDING TO 20013 118 0 0 3 0 CHOSEN OPTION 20014 118 4118 1 0 0 20015 115 41 0 1 0 TEST CHOSEN OPTION 20016 127 203 2 0 0 0 203 gREJECT ALLOWED 20017 124 104 6 0 0 0 104 SET INDICATORS WITH (P) 20018 125 0 1 0 0 20019 106 222 3 0 0 0 222 20020 104 43 0 1 0 FORM & STORE LOCN. CONTAINING S/C 20021 102 222 3 0 0 0 222 ADDRESS CORRESPONDING TO CHOSEN OPTION 20022 101 16 0 1 0 20023 115 38 0 1 0 TEST IF SWITCH TO BE 20024 127 201 2 0 0 0 201 gYES SET AT 4 20025 124 222 3 0 1 0 222 SET LINK FOR SI=1 20026 106 0 0 0 0 20027 101 267 2 1 2 0 267 20028 104 209 10 0 0 0 209 20029 102 31 0 1 0 20030 102 45 0 1 0 CLEAR ASSOCIATED TIME 20031 106 209 2 0 0 0 209 SET SI=1 20032 105 30 0 1 0 20033 124 201 7 1 0 0 201 g 20100 PROCR 201 201 GROUP O(2) 20101 NOTES RADIX B OUTPUT COMMENT ETC. 20024g20102 124 222 3 0 1 0 222 SET LINK FOR SI=4 20103 106 0 0 0 0 20104 115 43 0 1 0 20105 102 44 0 1 0 20106 106 35 0 1 0 SET SI=4 20033g20107 102 7 0 1 0 *163163 CONVERT OPT NO TO 20108 106 222 2 0 0 0 222 ALPHA 20109 103 222 3 1 0 0 222 20110 106 222 2 1 0 0 222 20111 101 15 0 1 0 FILL Q1-4 20112 114 214 4 1 0 0 214 PACK CHOSEN OPTION (ALPHA)g 20113 102 175 2 1 0 0 175 SET REQ & CLEAR OPT OUTSTANDING IND 20114 102 103 2 0 0 0 103 CLEAR LL1 20115 124 177 8 1 0 0 177 gSET 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 20016g 20008g20302 125 128 1 0 0 SET I8,REJECT 20303 126 177 2 0 0 0 177 g REQUEST T/W 20304 101 4 1 3 0 OPTIONS 20305 126 234 2 0 0 0 234 gS/R H 20306 124 216 20 0 2 0 216 EDIT COMMENT 20307 128 102 6 1 2 0 102 20308 124 181 2 1 0 0 181 gLOG ROUTINE 20400 PROCR 204 204 ENTRY FOR PROGRAMME UNLOAD 20401 NOTES RADIX B 401 10007g20402 124 212 2 1 1 0 212 *££0*££2*49e 20403 126 250 2 0 0 0 250 *599 gSTORE MG3 S/R 401 20404 100 212 2 0 3 0 212 *09e06e SET BINARY 20405 124 3 0 1 0 *60t TEST TRIAL 20406 106 11 0 0 0 20407 124 233 45 0 1 0 233 20408 127 0 0 1 0 *60t gYES 20409 126 462 2 0 0 0 462 gREQUEST M/R 20410 106 179 0 0 0 UNLOAD/ABDON INDICATOR 20411 124 295 16 1 0 0 295 gUNLOAD 20500 PROCR 205 205 PROGRAMMED OFFER OF OPTIONS 20501 NOTES RADIX B 10005g20502 124 212 2 1 1 0 212 SET MOD. GP. 0 20503 102 38 0 1 0 STORE ALARM NO 20504 118 10 1 0 0 20505 102 41 0 1 0 STORE NO OF OPTIONS 20506 124 2 0 1 0 STORE RETURN VALUES 20507 100 30 1 0 0 OF (A)(B) & (C)IN SI 20508 100 212 2 0 3 0 212 0 SET(C)BINARY 20509 126 250 2 0 0 0 250 *599 gSTORE MG3 S/R 20510 106 210 7 0 0 0 210 20511 124 2 0 1 0 20512 124 41 0 1 0 20513 118 0 0 3 0 401 20514 101 1 1 2 0 *££2*46e 20515 102 41 0 1 0 OF ALLOWABLE OPTIONS 20516 106 100 4 0 0 0 100 20517 102 43 0 1 0 1ST OPTION 20518 126 176 2 0 0 0 176 gREQUEST D/D IN PROG 20600 PROCR 206 206 PROGRAMMED OFFER OF OPTIONS (2) 20601 NOTES RADIX B 20602 106 2 0 0 0 START OF SWITCH STORE START OF SW 20603 102 222 4 0 0 0 222 W/L OF LAST PROGRAMME TO 20604 106 38 1 1 0 OFFER OPTIONS 20605 102 222 8 1 0 0 222 ALARM NO/PROG IDENT.NO 20606 126 234 2 0 0 0 234 gS/R H 20607 124 216 28 0 2 0 216 FORM COMMENT 20608 128 102 6 1 2 0 102 20609 124 181 2 1 0 0 181 gOUTPUT COMMENT 20700 PROCR 207 207 TYPE 20701 NOTES RADIX B 10011g20702 124 212 2 1 1 0 212 SET MOD. GROUP 0 20703 124 3 0 1 0 STORE ANNEXE START IN SP. CHAPTER 20704 102 169 0 0 0 20705 126 250 2 0 0 0 250 *599 SET MOD GP 3 20706 106 100 10 0 0 0 100 STORE LINK 20707 102 44 0 1 0 20708 126 177 2 0 0 0 177 gREQUEST T/W 20709 126 234 2 0 0 0 234 gEDIT TIME 20710 126 212 2 1 3 0 212 SET MRR3 =24/0 20711 100 198 2 1 2 0 198 BITS 1-6 IN EACH QUARTET 20712 118 4122 1 0 0 20721g20713 124 3 0 1 0 COPY COMMENT TO ANNEXE 20714 124 169 0 1 0 20715 106 0 1 3 0 20716 102 102 6 1 3 0 102 20717 115 102 6 1 3 0 102 TEST END OF COMMENT 20718 101 7710 1 2 0 20719 127 207 24 0 0 0 207 gYES 20720 125 2 0 3 0 20721 124 207 13 1 0 0 207 g 20722 106 211 22 1 0 0 211 SET L/E'S IN LAST WORD 20723 102 102 28 1 0 0 102 20719g20724 106 35 0 1 0 SET SI=4 20725 102 7 0 1 0 *163 20726 124 181 2 1 0 0 181 gOUTPUT COMMENT 20800 PROCR 208 208 MASTER ROUTINE 20801 NOTES RADIX B INTERNAL IMPOSSIBILITY 29613g20802 101 121 1 3 0 CODE LETTER Z 29637g 32711g 32823g 45517g 45720g 47605g20803 102 221 4 0 0 0 221 20804 126 107 8 1 1 0 107 SET(MR1)FOR M/R SWITCH 20805 100 212 2 0 3 0 212 SET BINARY 20806 126 177 2 0 0 0 177 gREQUEST T/W 20807 106 177 3 0 0 0 177 20808 102 103 23 0 0 0 103 AMEND END OF LOG ROUTINE 20809 101 4 1 3 0 20810 126 234 2 0 0 0 234 gS/R H 20811 106 214 26 1 0 0 214 X,X,X,N/E,N/E 20812 102 102 6 1 0 0 102 20813 106 221 4 0 0 0 221 20814 118 8 0 0 0 SET UP COMMENT 20815 101 15 0 1 0 FILL Q1g48 20816 115 211 22 1 0 0 211 20817 102 102 8 1 0 0 102 20818 124 181 2 1 0 0 181 gLOG ROUTINE 17911g 10013g20819 100 4095 0 0 0 HALT £ £ £ 20820 124 141 1 0 0 gINDEPENDENT STORE PRINT 20900 PROCR 209 209 INSTRUCTION CONSTANTS 20901 NOTES RADIX B 20902 126 0 1 0 0 LOG, I/P O/P, REPORT S/R 20903 126 8 0 3 0 SET TAG 15 S/R 20904 126 2 0 1 0 SET TAG 15 S/R 20905 124 456 2 1 0 0 456 *343 (25)IN 150,OVERFLOW 20906 124 240 19 1 0 0 240 REPORT S/R 20907 124 265 2 1 0 0 265 REPORT S/R,STOP TIMINGS 20908 113 227 2 0 0 0 227 *106 USED IN ISU ALLOCATOR & S/R G 20909 113 226 2 0 0 0 226 (124) IN ISU, ALLOCAS/RG 20910 101 0 0 0 0 OP INT, P/T O/P 20911 106 8 0 0 0 *59t RETURN FROM PL5MOD GROUP BLISTERS 20912 106 212 16 1 0 0 212 /ABANDON PROGRAMME 20913 104 6 0 1 0 DO 20914 124 103 4 1 0 0 103 DO 20915 102 44 0 0 0 ABANDON PROGRAMME 20916 124 103 7 1 0 0 103 DO DO 20917 126 44 0 3 0 20918 106 129 6 1 0 0 129 *59t 21000 CONST 210 210 0 SHORT CONSTANTS 21002 (D)01£££; UNLOAD STORAGE 21003 66666; DECIMAL RADIX 401 21004 8000; *££0*££1*3:e4£e ALT RTE INDIC 21005 £0000; LOADER 21006 .1000; 158 IN Q5)-(15 IN Q4) 21007 00001; 1 21008 66t66; 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 6e6e6e6e6e; %%%%% 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 t ; 10=0 T/W&P/T O/P 21216 000060001t; *599 MOD GROUP TABLE ENTRY 21300 CONST 213 213 1 CONVERSION TABLES 21302 (D)0000000001; BINARYgDECIMAL 21304 0000000016; 21306 0000000256; 21308 0000004096; 21310 0000065536; 21312 0000000001; DECIMALgBINARY 21314 000000000t; 21316 0000000064; 21318 000000 3.8; 21320 0000000001; SECONDSgMINUTES 21322 0000000016; 21324 0000000416; 21326 0000006816; 21328 0000000001; BINARYgOCTARY 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 ; *41t 21454 (A)END(D)5.5.; *41t 21456 (A)INDEX; 21458 CHAPT; 21460 O'LAY; *353 21462 DUMP ; *41t*14t 21464 ABAND; 21466 ONED ; *41t*14t 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; *0e9 21504 (A)NEW ; 21506 DOUBT; 21508 STORE; *679 21510 (A)CH (D)007:; *68t 21512 (D)6940674000; *68t 21514 (A)TAPE ; *69t 21516 UNLOA; 21518 (A)DED(D)5.5.; 21520 (A)REWOU; 21522 (A)ND (D)5.5.; *69t 21524 (A)PREFE; *86t 21526 R GP ; 21528 R SP ; *86t 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 t 0 0 0 2 0 0 (A) 21612 222 14 0 0 1 0 t 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 *31e234 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 *31e*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 666t600000; 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 0 23003 101 108 2 0 0 0 108 23004 115 8191 1 3 0 23005 115 8191 1 3 0 23006 115 8191 1 3 0 *1.2 23007 115 8191 1 3 0 23008 115 8191 1 3 0 23009 115 8191 1 3 0 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 020000t000; 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 0 ZERO 23303 100 0 0 0 0 13-BIT START OF LOADING SYSTEM 23304 100 0 0 0 0 15-BIT START OF LOADING SYSTEM 23305 100 233 2 0 0 0 233 START OF THIS LIST 23306 100 229 2 0 0 0 229 START OF M/R TABLES 23307 100 0 0 0 0 ALLOCATE COMMAND/ZERO 23308 100 247 2 0 0 0 247 LOAD NEXT CHAPTER S/R 23309 100 236 2 0 0 0 236 READ NEXT BLOCK S/R 23310 100 235 2 0 0 0 235 UPDATE SWITCH S/R 23311 100 243 2 0 0 0 243 RETURN ADDRESS AFTER LOADING 23312 100 222 12 0 0 0 222 LOCATION WHERE (MOD GP 3) IS STORED 23313 100 60 0 0 0 PSEUDOROUTE FOR ROUTE 0 23314 100 252 2 0 0 0 252 START OF USE OF ASSEMBER TABLE 23315 100 208 3 0 0 0 208 XXX COMMENT 23316 100 484 3 0 0 0 484 REJECT ALLOCATION COMMENT 23317 100 270 2 0 0 0 270 *464 R/C LINK 00004 23318 100 190 18 0 0 0 190 START OF REEL COUNTERS 23319 100 177 2 0 0 0 177 REQUEST T/W S/R 23320 100 102 6 0 0 0 102 START OF T/W ANNEXE 23321 100 234 2 0 0 0 234 EDIT TIME S/R 23322 100 181 2 0 0 0 181 ENTRY TO LOG ROUTINE 23323 100 499 2 0 0 0 499 *01e NOT HIGH DENSITY IF ZERO 23324 100 191 32 0 0 0 191 *01e 45/90K INDICATORS 23325 117 496 66 0 0 0 496 64-(CONTROL DATA LIST START)FOR 45K 23326 100 0 0 0 0 PROG TAPE ROUTE 23327 100 1 0 0 0 *31e CLOCK=1,ZERO=NO CLOCK 401 23328 100 0 0 0 0 *544*443 DUMPS PRINT2 401 23329 108 4 0 0 0 *2.+62e*2.+*62e 4 23330 100 1 0 0 0 0=ISSUE 4 MASTER,1=ISSUE 6 OR LATER 23331 100 230 2 0 0 0 230 START OF PRIORITY TABLE 23332 100 231 2 0 0 0 231 START OF STORE TABLE 401 23333 100 0 0 0 0 *41e*3t3*14e*3:e*60e 401 23334 100 0 0 0 0 *41e*3t3*14e*3:e*60e 23335 100 1 0 0 0 *3.3*04e CARDS OR P/T INDICATOR 23336 100 295 16 0 0 0 295 RETURN ADDRESS FOR PTS ABDON/END 23337 100 190 2 0 0 0 190 PTS=PROG CHANNEL BLOCK CTRS 23338 100 190 50 0 0 0 190 PTS=FILE IDENTITIES+REWIND INDS 23339 100 464 16 0 0 0 464 *41e RETURN ADD FROM START OF STORE DUMP 23340 100 246 15 0 0 0 246 RETURN TO RELEASE MR SWITCH 23341 100 216 2 0 0 0 216 *343 OFLOW EDIT TABLE 23342 100 246 9 0 0 0 246 RETURN ADD FOR O'LAY (END) 401 23343 100 455 14 0 0 0 455 *34e RETURN ADD FOR TROFL 23344 100 474 2 0 0 0 474 'SET TAG 15' SUBROUTINE 23345 100 0 0 0 0 Q1-4=ABS PTS START,Q5=2XCHAP 23346 100 0 0 0 0 TRIAL IN PROGRESS IND-START OF SWITCH 23347 100 246 23 0 0 0 246 *60e RETURN ADD FOR O'LAY(START) 23348 100 0 0 0 0 START OF SECOND STORE AREA 401 23349 100 0 0 0 0 *80+ 23350 100 0 0 0 0 SPECIAL CHAP INCREMENT IN CMR 23351 100 130 2 0 0 0 130 END OF PRIORITY QUEUE 23352 100 462 2 0 0 0 462 'REQUEST MASTER SWITCH'SUBROUTINE 23353 100 296 6 0 0 0 296 *14e LOCN OF 'OPTA' SWITCH-PTS OVERLAY 23354 100 468 11 0 0 0 468 *41e 23355 100 175 3 0 0 0 175 'OPT OUTSTANDING'WL'S FOR PTS 23356 100 176 12 0 0 0 176 23357 100 0 0 0 0 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 0 LINK 23403 101 217 32 1 1 0 217 TABLE START 23404 128 102 4 1 2 0 102 23405 126 234 2 0 1 0 234 gLEAVE S/R 23500 PROCR 235 235 SUB-ROUTINE X 23501 NOTES RADIX B TO UPDATE SWITCH 23502 100 0 0 0 0 23503 101 0 0 1 0 CLEAR B 23504 106 7 0 3 0 TEST IF DESTINATION 23505 105 9 0 3 0 SWITCH SET AT 2 23506 127 235 9 0 1 0 235 gNO 23507 106 9 0 2 0 AMEND SEQUENCE 23508 102 7 0 3 0 CHANGES IN SWITCH 23506g23509 106 9 0 2 0 23510 102 9 0 3 0 23511 106 20 0 2 0 23512 102 20 0 3 0 23513 126 235 2 0 1 0 235 gLEAVE 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 0 LINK 23603 100 220 2 1 1 0 220 23604 104 233 26 0 0 0 233 RTE NO 23605 126 100 2 0 0 0 100 gREAD 23606 124 124 0 1 0 UNPACK 23607 106 56 1 0 0 23608 128 228 2 1 0 0 228 23609 124 210 3 1 1 0 210 SET MOD GROUP 3 23610 126 236 2 0 1 0 236 gLEAVE S/R 23700 PROCR 237 237 INPUT/OUTPUT S/R 23701 NOTES RADIX B ALLOC AND OVERLAY 23702 100 0 0 0 0 LINK 23703 118 5 0 0 0 23704 104 233 26 0 0 0 233 RTE NO 23705 125 4096 1 1 0 SET NON-INT 23706 126 100 2 0 0 0 100 g 23707 126 237 2 0 1 0 237 gLEAVE 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 0 23903 124 212 2 1 1 0 212 MGO 23904 106 228 2 0 0 0 228 TEST SENTINEL BLOCK 23905 105 211 2 0 0 0 211 23906 127 239 10 0 1 0 239 gNO 23907 101 1 0 1 0 401 23908 115 228 3 0 0 0 228 *££0*££2*3t3*3ee 23909 101 5 1 2 0 23906g23910 126 239 2 0 1 0 239 24000 PROCR 240 240 REPORT REQUIRED PROG NOT ON FILE 24001 NOTES RADIX B 24155g 24522g24002 101 27 1 3 0 IN W/L 24003 126 237 2 0 0 0 237 gCLOSE FILE 24004 126 177 2 0 0 0 177 gREQUEST T/W 24005 101 4 1 3 0 24006 126 234 2 0 0 0 234 gS/R H 24007 124 214 22 0 2 0 214 SET EDIT TABLE FOR LOST 24008 102 217 24 0 0 0 217 24009 124 217 24 0 2 0 217 FORM COMMENT 24010 128 102 6 1 2 0 102 24011 106 209 2 0 0 0 209 26/1/0/0/0 24012 105 233 26 0 0 0 233 RTE NO 24013 102 106 9 0 0 0 106 SET M/R SWITCH=1 24014 106 209 6 0 0 0 209 24015 102 106 19 0 0 0 106 AMEND S/C AT END OF 24016 106 233 26 0 0 0 233 *59t 24017 102 30 0 1 0 *59t 24018 124 181 2 1 0 0 181 gLOG ROUTINE 20906g24019 106 209 7 0 0 0 209 24020 102 106 19 0 0 0 106 RESET S/C 24021 102 224 4 1 0 0 224 CLEAR IDENTITY OF LAST PROGRAM USED 24022 124 245 2 1 0 0 245 g 24100 PROCR 241 241 ALLOCATION AND OVERLAY 24101 NOTES RADIX B SUB-ROUTINE A: OPEN FILE IF NECESSARY 24102 100 0 0 0 0 LINK 24103 101 0 1 3 0 *5+t CLEAR CHANGE DECK 24104 124 3 0 3 0 INDICATOR 24105 102 164 0 0 0 *5+t 24106 124 241 10 0 2 0 241 SET UP PSEUDO 24107 101 267 2 1 2 0 267 ROUTE TYPE 24108 104 209 10 0 0 0 209 24109 126 237 2 0 0 0 237 gTEST RTE DEALING WITH D/B 24110 100 210 3 0 3 0 210 AUGMENT BLOCK 24111 124 233 26 0 1 0 233 TEST FIRST TIME ANY 24112 106 190 2 0 0 0 190 PROG TAPE LOADED 24113 127 241 17 0 0 0 241 gYES 24114 101 1 1 3 0 COUNTER 24115 124 233 26 0 1 0 233 24116 107 190 2 0 0 0 190 24113g24117 100 212 2 0 3 0 212 24124g24118 124 233 26 0 1 0 233 STEP FORWARD 24119 119 0 1 3 0 24120 126 351 2 0 0 0 351 gTEST ROUTE NOTING D/B 24121 124 233 26 0 1 0 233 TEST CORRECT BLOCK 24122 124 64 0 1 0 NUMBER 24123 106 1 1 0 0 24124 127 241 18 0 3 0 241 gNO, PROBABLY FBM 24125 124 233 26 0 1 0 233 24126 105 190 2 0 0 0 190 24127 127 241 30 0 1 0 241 gNO, NOT FBM 24128 124 241 2 0 1 0 241 24129 124 1 1 0 0 gLEAVE S/R+1 24127g24130 124 233 26 0 1 0 233 24131 104 190 2 0 0 0 190 TESTLAST 24529 106 224 7 0 0 0 224 24530 118 4123 1 0 0 SET UP PROG'S IDENTIFIER 24531 124 10 0 2 0 24532 118 5 1 0 0 24533 102 221 4 1 0 0 221 24534 124 245 22 0 2 0 245 SET LINK IN S/R B 24535 102 242 2 0 0 0 242 24536 124 242 60 1 0 0 242 gS/R B 24527g24537 100 210 7 0 2 0 210 24538 124 40 0 2 0 24539 126 237 2 0 0 0 237 gSTEP BACK 24544g 24547g 24550g 24631g 24528g 24523g24540 126 236 2 0 0 0 236 gS/R BB 24541 124 124 0 1 0 TEST CHAPTER 24542 106 12 1 0 0 HEADING BLOCK 24543 105 214 58 1 0 0 214 24544 127 245 40 0 1 0 245 gNO 24545 106 228 4 1 0 0 228 TEST CORRECT PROG 24546 105 221 8 1 0 0 221 IDENTITY AND 24547 127 245 40 0 1 0 245 gNO SERIAL NO 24548 106 228 2 0 0 0 228 TEST IF REQUIRED 24549 105 221 13 0 0 0 221 CHAPTER 24550 127 245 40 0 1 0 245 gNO 24551 106 108 12 0 0 0 108 SET M/R SWITCH 24552 102 106 8 0 0 0 106 NON-INT 24553 106 218 2 1 0 0 218 STORE GP 3 REGS 24554 128 222 12 0 0 0 222 24555 124 212 2 1 1 0 212 RESET MOD GP 0 24556 126 221 6 1 2 0 221 SET (MR2) FOR PROG 24557 106 32 0 2 0 OVERLAYED CH NO 24558 104 32 0 2 0 SET MR2 FOR START OF 24559 104 37 0 2 0 START OF LAST CH CH TO BE OVERLAYED 24560 102 28 1 0 0 24561 124 210 3 1 1 0 210 SET MOD GP3 24562 124 3 0 2 0 *14t SET OPT A SWITCH AT 3 24563 102 296 6 0 0 0 296 *14t 24564 106 18 0 2 0 START OF CH 24565 103 28 1 0 0 SET (MR2)=START CH 24566 126 247 2 0 0 0 247 gLOAD S/R 24600 PROCR 246 246 OVERLAY (3) 24601 NOTES RADIX B 24602 106 221 13 0 0 0 221 STORE NO OF CHAP LOADED 24603 102 224 6 0 0 0 224 24604 124 221 7 0 1 0 221 *60t TESTPROG 24605 106 11 0 0 0 UNDER TRIAL 24606 127 246 9 0 0 0 246 gNO 24607 124 233 45 0 1 0 233 24608 124 7 1 0 0 *60t gPTS 24606g24609 124 212 2 1 1 0 212 0 SET MOD GROUP 0 24610 126 221 6 1 2 0 221 SET (MR2) FOR PROG 24611 106 35 0 2 0 24612 102 7 0 2 0 SET SI=4 24346g24613 106 218 6 1 0 0 218 RESTORE GROUP 3 REGISTERS 24614 128 26 0 0 0 46814g24615 126 107 8 1 1 0 107 SET (MR1) FOR M/R (NEEDED FOR PTS) 24616 106 106 11 0 0 0 106 SET M/R SWITCH AT 2 24617 102 106 9 0 0 0 106 24618 100 220 3 0 2 0 220 *60t BITS 1-3 24619 106 220 3 0 0 0 220 7 24620 114 233 26 0 0 0 233 *60t RESET ROUTE IN CASE OF PTS 24621 126 480 2 0 0 0 480 24622 124 103 7 1 0 0 103 gHEAD OF QUEUE 24623 102 221 2 0 0 0 221 *60t RETURN FROM PTS(START) 24624 106 209 8 0 0 0 209 24625 124 233 26 0 1 0 233 24626 102 64 0 0 0 24627 106 209 9 0 0 0 209 24628 102 124 0 0 0 24629 106 221 2 0 0 0 221 24630 127 245 24 0 0 0 245 gALIGNED AT END OF CHAP 24631 124 245 40 1 0 0 245 gALIGNED AT START OF PROG 24700 PROCR 247 247 LOAD SUB-ROUTINE 24701 NOTES RADIX B LOAD NEXT CHAPTER 24702 100 0 0 0 0 LINK 24703 102 221 5 0 0 0 221 STORE START OF PARAMETER TABLE 24704 101 16 0 1 0 *60t TEST PTS 24705 115 247 2 0 0 0 247 LOADED 24706 127 247 9 0 0 0 247 gNO 24707 106 4 0 0 0 24708 124 247 10 1 0 0 247 *60t g 24706g24709 106 28 0 0 0 SET IND MOD REG 1 AT 24708g24710 102 221 16 1 0 0 221 START OF CHAPTER 24741g24711 126 236 2 0 0 0 236 gS/R BB 24712 106 212 2 1 0 0 212 SET IND MOD REG 2 AT 24713 102 221 18 1 0 0 221 24:0 24740g24714 124 221 18 0 1 0 221 STORE NEXT WORD 24715 106 228 2 1 0 0 228 24716 103 221 2 1 0 0 221 24717 105 210 5 0 0 0 210 TEST FOR END OF 24718 127 247 42 0 0 0 247 gYES CHAPTER 24719 104 210 6 0 0 0 210 TEST FOR MINUS ZERO 24720 127 248 2 0 0 0 248 gYES 24721 125 0 1 2 0 TEST FOR PARAMETER 24722 101 4 0 1 0 IN Q3 24723 115 221 2 0 0 0 221 24724 127 248 6 0 1 0 248 gYES 24725 106 221 5 0 0 0 221 FORM ABSOLUTE LOCATION OF PARAMETER 24726 107 221 2 0 0 0 221 24727 106 221 3 0 0 0 221 TEST INFORMATION 24728 127 247 32 0 3 0 247 gYES IS NEGATIVE 24729 124 221 2 0 1 0 221 ADD PARAMETER VALUE 24730 104 0 0 0 0 24731 124 247 34 1 0 0 247 24728g24732 124 221 2 0 1 0 221 SUBTRACT PARAMETER VALUE 24733 105 0 0 0 0 24731g24734 124 221 16 0 1 0 221 STORE IN CHAPTER 24735 102 0 0 0 0 24805g 24818g24736 123 1 0 0 0 24737 100 221 16 0 0 0 221 24821g24738 123 2 0 0 0 24739 100 221 18 0 0 0 221 24740 124 247 14 1 0 0 247 gDEAL WITH NEXT LOCATION 24741 124 247 11 1 0 0 247 gREAD AND UNPACK NEXT BLOCK 24718g24742 126 247 2 0 1 0 247 gLEAVE S/R 24800 PROCR 248 248 LOAD SUB-ROUTINE CONT 24801 NOTES RADIX B 24720g24802 106 218 4 1 0 0 218 STACK MINUS ZERO 24803 124 221 16 0 1 0 221 24804 128 0 1 0 0 24805 124 247 36 1 0 0 247 g 24724g24806 101 3840 1 2 0 TEST FOR 15 IN Q3 24807 127 248 19 0 0 0 248 gYES 24808 106 221 3 0 0 0 221 STORE WORD IN CHAPTER 24809 124 221 16 0 1 0 221 24810 102 0 0 0 0 24811 100 212 6 0 2 0 212 FORM AND PACK 24812 110 221 2 0 0 0 221 ENTRY POINT 24813 118 4126 0 0 0 TO 3B M/R 24814 101 158 1 1 0 24815 100 210 2 0 2 0 210 24816 124 221 16 0 1 0 221 24817 114 0 0 0 0 24818 124 247 36 1 0 0 247 g 24807g24819 106 221 3 0 0 0 221 STEP ON STACKING LOCATION COUNTER 24820 107 221 16 0 0 0 221 24821 124 247 38 1 0 0 247 g 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 0 *59t STORE MOD 25003 100 212 2 0 3 0 212 SET BINARY 25004 106 3 0 1 0 GROUP 3 25005 127 250 9 0 2 0 250 gNOT 28/1/1 25006 102 250 8 0 0 0 250 25007 106 212 16 1 0 0 212 25008 128 129 8 1 1 0 129 FORMED BULK COPY ORDER 25005g25009 126 250 2 0 1 0 250 gLEAVE 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)7t(A)END(D)7e; (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; *05t CARD O/P ANNEXE 26004 ; 26006 ; 26008 ; *05t 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 *71t*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 *71t*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 0 CONSTANT 26303 100 295 2 0 0 0 295 *14e (1)ABANDON 26304 100 410 9 0 0 0 410 (2)ALARM TYPE 3 26305 100 416 2 0 0 0 416 (3) 26306 100 289 8 0 0 0 289 (4) ALARM TYPE 2 26307 100 289 6 0 0 0 289 (5) 26308 100 289 4 0 0 0 289 (6) 26309 100 289 2 0 0 0 289 (7) 401 26310 100 0 0 0 0 *££0*££2*14e*42e*46e*5+e 401 26311 100 0 0 0 0 *££0*££2*14e*42e*46e*5+e 401 26312 100 0 0 0 0 *££0*££2*14e*42e*46e*5+e 26313 100 286 37 0 0 0 286 (11)RE-WRITE 401 26314 100 285 43 0 0 0 285 *0138te (12)RE-READ 26315 100 291 2 0 0 0 291 *5+e (13)CHANGE DECKS 26704g 26712g 26714g 26722g 26724g 26732g 26750g 27512g 44805g 44907g 44912g26316 126 312 2 0 0 0 312 gZZZ01 26317 126 312 2 0 0 0 312 g 02 37306g26318 126 312 2 0 0 0 312 g 03 42117g26319 126 312 2 0 0 0 312 g 04 44413g 44417g 44605g 44606g26320 126 312 2 0 0 0 312 g 05 44510g 44707g26321 126 312 2 0 0 0 312 g 06 44538g 44720g26322 126 312 2 0 0 0 312 g 07 44214g26323 126 312 2 0 0 0 312 g 08 27009g 45018g26324 126 312 2 0 0 0 312 g 09 43605g26325 126 312 2 0 0 0 312 g10 26400 PROCR 264 264 SET UP SI 26401 NOTES RADIX B 10016g26402 101 267 2 1 2 0 267 PSEUDOROWTETYPE PROGRAMMED 26403 102 31 0 1 0 TEST ROUTE 26404 124 252 2 0 2 0 252 USE OF ASSR TABLE 26405 102 32 0 1 0 26406 106 3 0 1 0 *59t STORING MOD GROUP 3 26407 127 264 24 0 2 0 264 TEST 28/1/1 26408 126 250 2 0 0 0 250 *59t STORE MOD GROUP 3 S/R 26409 124 264 24 1 0 0 264 10003g26410 124 212 2 1 1 0 212 SET MOD GROUP 0 26411 124 2 0 1 0 STORE (AB) IN SI 26412 100 30 1 0 0 26413 106 3 0 1 0 *59t STORING MOD GROUP 3 26414 127 264 18 0 2 0 264 gNOT 28/1/1 26415 102 264 17 0 0 0 264 26416 106 212 16 1 0 0 212 26417 128 129 8 1 1 0 129 *59t 26414g26418 106 100 2 0 0 0 100 SET UP LINK IN SI 26419 102 44 1 1 0 SET ASSOC TIME=0 26420 106 31 0 1 0 *169199 26421 101 48 1 2 0 *19t TEST SELECT REEL COUNTER 26422 127 449 2 0 0 0 449 *19t gYES 28808g 35110g 42105g26423 126 338 2 0 0 0 338 SET SI=1 26409g 26407g26424 124 2 0 1 0 *063 OBEY TEST ROUTE(SET DECIMAL) 26425 124 7 1 0 0 *063063 g51+7 (6/0/0/0/157) 26500 PROCR 265 265 FORM INTERCHANGE AREA ADDRESSES 26501 NOTES RADIX B 20907g 11319g 11119g 10619g26502 103 188 2 1 0 0 188 26503 118 6 0 3 0 FORM INSTRUCTION SWITCH SAS 20000 26600 PROCR 266 266 NB THE PRECEDING ORDER IS'SWITCH SAS'SET AT'26/0/0gDB:DETECT 26601 NOTES DURING'SET DB IND'IF DB FOUND IN'TEST ROUTE'IN PROG SWITCH 42157g26602 104 32 0 1 0 *4£2*3:2 PSEUDO ROUTE 26603 104 263 2 0 0 0 263 *4£2*3:2 1/0/3 ORDER 26604 124 188 3 0 1 0 188 RTE TYPE 1-48*OR*SR LINK-THIS ADDRESS+1 26700 PROCR 267 267 SWITCH SI 26701 NOTES RADIX B 26702g26702 124 267 2 1 0 0 267 26703 124 405 2 1 0 0 405 *03e*3:4*4£4 P/T O/P 3 3 26704 124 263 16 1 0 0 263 ZZZ COMMENT 26705 124 388 2 1 0 0 388 *05e*3:4*4£4 DEC O/P 4 4 26706 124 390 2 1 0 0 390 *3:4*4£4 PRINTER 3 3 26707 124 373 2 1 0 0 373 *02e*3:4*4£4 P/T I/P 3 3 26708 124 375 2 1 0 0 375 *04e CARD I/P 26709 124 420 2 1 0 0 420 *3:4*4£4 M/T I/P 3 3 26710 124 433 2 1 0 0 433 *3:4*4£4 M/T O/P 3 3 26711 124 390 2 1 0 0 390 *3:4*4£4 PRINTER 3 3 401 26712 124 263 16 1 0 0 263 *££0*££2*03e*02e*04e*05e*19e*1ee*30e*2.e 26713 124 401 2 1 0 0 401 *03e P/T O/P OPEN FILE 26714 124 263 16 1 0 0 263 ZZZ COMMENT 26715 124 387 2 1 0 0 387 *05e DEC CARD OUTPUT 26716 124 269 4 1 0 0 269 PRINTER 26717 124 364 2 1 0 0 364 *02e P/T INPUT 26718 124 366 2 1 0 0 366 *04e DEC CARD INPUT 26719 124 409 2 1 0 0 409 MAG TAPE INPUT 26720 124 424 2 1 0 0 424 MAG TAPE OUTPUT 26721 124 269 4 1 0 0 269 PRINTER 401 26722 124 263 16 1 0 0 263 *££0*££2*03e*02e*04e*05e*19e*1ee*30e*2.e 26723 124 408 2 1 0 0 408 *03e P/T OUTPUT CLOSE FILE 26724 124 263 16 1 0 0 263 ZZZ COMMENT 26725 124 391 2 1 0 0 391 *05e DEC CARD OUTPUT 26726 124 268 2 1 0 0 268 PRINTER 26727 124 383 2 1 0 0 383 *1te1te*02e P/T INPUT 26728 124 383 2 1 0 0 383 *1te1te*04e DEC CARD INPUT 26729 124 423 2 1 0 0 423 *1te MAG TAPE INPUT 26730 124 436 2 1 0 0 436 MAG TAPE OUTPUT 26731 124 268 2 1 0 0 268 PRINTER 401 26732 124 263 16 1 0 0 263 *££0*££2*03e*02e*04e*05e*19e*1ee*30e*2.e 26733 124 424 2 1 0 0 424 MAG TAPE OUTPUT OPEN FILE 26734 124 409 2 1 0 0 409 MAG TAPE INPUT 32 26735 124 437 2 1 0 0 437 CURRENT USE O/P REWIND 26736 124 437 4 1 0 0 437 CURRENT USE I/P 34 26737 124 438 4 1 0 0 438 CURRENT USE O/P RUN BACK 26738 124 438 11 1 0 0 438 CURRENT USE I/P 36 26739 124 438 2 1 0 0 438 CURRENT USE I/P RUN FORWARD 26740 124 438 2 1 0 0 438 CURRENT USE I/P 38 26741 124 444 4 1 0 0 444 O/PgO/P STEP BACK 26742 124 443 2 1 0 0 443 I/PgI/P 40 26743 124 446 4 1 0 0 446 *1ee FUTURE USE O/P STEP FORWARD 26744 124 446 2 1 0 0 446 *1ee FUTURE USE I/P 42 26745 124 444 2 1 0 0 444 O/PgI/P STEP BACK 26746 124 443 4 1 0 0 443 I/PgO/P 44 26747 124 434 2 1 0 0 434 gMAG TAPE OUTPUT CLOSE REEL 26748 124 422 2 1 0 0 422 MAG TAPE INPUT 46 26749 124 448 2 1 0 0 448 SET REEL NUMBER 26750 124 263 16 1 0 0 263 gZZZ01 SELECT 48 26800 PROCR 268 268 UPDATE USE OF ASSEMBLER TABLE ETC. 26801 NOTES RADIX 39107g 40812g 26731g 26726g26802 124 188 2 0 1 0 188 26803 119 0 1 2 0 SET ROUTE TO MANUAL OR UNLOAD 26804 106 211 2 0 0 0 211 26805 102 188 3 0 0 0 188 SET RT TYPE AT £5 43616g26806 106 188 2 0 0 0 188 26807 126 299 2 0 0 0 299 gCLEAR D/B INDICATOR 37316g 37512g 39007g 42016g 43316g 43722g 44624g26808 126 349 2 0 0 0 349 gUPDATE ASSEMBLER TABLE 26907g 38316g 39009g 40511g 40624g 40913g 42147g 42209g 43713g 43927g 44615g 44632g 45052g 10025g26809 124 2 0 1 0 RESTORE MOD GROUP 26810 124 29 1 1 0 26811 124 2 0 1 0 *59t STORE ABC 26812 100 30 1 0 0 26813 124 2 0 1 0 PREPARE FOR ENTRY 26814 106 26 0 0 0 TO SWITCH 26815 102 268 16 0 0 0 268 26816 100 0 0 0 0 *59t 26817 124 2 0 1 0 26818 124 28 1 0 0 g COMMERCIAL PROG. 26900 PROCR 269 269 UPDATE ASSEMBLER TABLE:SET UP (AB) 26901 NOTES RADIX B 38705g26902 102 188 3 0 0 0 188 STORE RTE TYPE 36425g26903 126 349 2 0 0 0 349 gUPDATE USE OF ASSEMBLER TABLE 40113g 26721g 26716g26904 106 40 0 1 0 SET(A)=RUN NUMBER 26905 118 4127 0 0 0 44813g 44909g 44916g26906 100 212 2 0 2 0 212 SET (B)=0 26907 124 268 9 1 0 0 268 gRESET MOD GP 27000 PROCR 270 270 ROUTE CLOSED ROUTINE 27001 NOTES RADIX B 27002 106 209 2 0 0 0 209 *462 LARGE AND NEGATIVE 27003 102 45 0 1 0 *462 SET PROG TIME TO INHIBIT'RC'COMMENT 27004 106 270 16 0 0 0 270 27005 124 3 0 1 0 SET SETTING FOR S101 27006 102 176 0 0 0 TO TEST ROUTE 27007 106 30 0 1 0 *13t TEST RTE 7/7 401 27008 101 23 1 2 0 *3:+ 23 27009 127 263 24 0 0 0 263 *13t gYES,ZZZ COMMENT 27010 106 214 24 1 0 0 214 SET RC FOR COMMENT 27011 102 258 4 1 0 0 258 27012 126 356 2 0 0 0 356 gSET UP PROGRAMME NO 27013 101 4 1 3 0 27014 126 345 2 0 0 0 345 gEDIT TIME SET UP RTE NO 27015 124 282 11 1 0 0 282 gOUTPUT COMMENT 27016 126 338 2 0 0 0 338 27100 PROCR 271 271 DOUBTFUL BLOCK: PREPARATION 27101 NOTES RADIX B 27102 100 0 0 0 0 LINK=SI+11 27103 124 271 2 0 1 0 271 SET UP (MR1) 27104 106 25 1 0 0 27105 102 2 1 0 0 27106 100 210 9 0 2 0 210 SET (MR3)=8*CH NO 27107 115 30 0 1 0 27108 126 272 2 0 0 0 272 gSET D/B INDICATOR 27109 124 271 2 0 1 0 271 27110 124 1 1 0 0 gSI+12 27200 PROCR 272 272 SET DOUBTFUL BLOCK INDICATOR 27202 100 0 0 0 0 LINK 27203 102 6 1 0 0 SET (MR3) = 8 * CH NO 27204 100 220 3 0 2 0 220 STORE RTE NO IN W/L 27205 115 252 2 0 3 0 252 27206 102 109 2 0 0 0 109 27207 101 1 0 1 0 27208 106 252 3 0 3 0 252 27209 105 211 2 0 0 0 211 27210 127 272 23 0 0 0 272 gYES 27211 106 252 3 0 3 0 252 TEST RT TYPE 0 27212 127 272 14 0 1 0 272 gNO 27213 124 11 0 2 0 SET RTE TYPE 11 27212g27214 124 109 2 0 1 0 109 27215 118 0 1 0 0 SET RT TYPE AS D/B INDICATOR 27216 114 252 4 1 3 0 252 27217 106 103 15 0 0 0 103 SET SAS=2 27218 102 265 3 0 0 0 265 27219 106 108 24 0 0 0 108 SET SLAS=2 27220 102 103 14 0 0 0 103 27221 106 211 2 0 0 0 211 CLEAR ASSEMBLER TABLE 27222 102 252 3 0 3 0 252 27210g27223 126 272 2 0 1 0 272 27300 PROCR 273 273 DOUBTFUL BLOCK : DETECTION 27302 100 0 0 0 0 LINK 27303 100 210 9 0 2 0 210 SET (MR3)=8*CH NO 27304 102 109 2 0 0 0 109 27305 115 109 2 0 0 0 109 27306 102 6 1 0 0 27307 100 220 3 0 2 0 220 STORE 'RTE NO WITHIN CH' 27308 115 109 2 0 0 0 109 27309 102 109 2 0 0 0 109 27310 101 1 0 1 0 TEST D/B INDICATOR 27311 124 109 2 0 1 0 109 SET FOR THIS ROUTE 27312 118 0 1 0 0 27313 115 252 4 1 3 0 252 27314 127 276 5 0 0 0 276 gNO 27400 PROCR 274 274 DOUBTFUL BLOCK : INITIATION 27402 118 1 0 0 0 27403 114 252 4 1 3 0 252 CLEAR D/B INDICATOR 27404 118 109 2 1 2 0 109 27405 118 4120 0 0 0 SET SDB AT ROUTE TYPE 27406 103 109 14 0 0 0 109 27407 101 2 1 2 0 TEST T/W 27408 127 274 14 0 0 0 274 gYES 27409 101 9 1 2 0 TEST NOTE DB 27410 127 274 14 0 0 0 274 gYES 27411 106 188 3 0 0 0 188 27412 124 3 0 1 0 27413 102 174 0 0 0 27410g 27408g27414 102 109 2 0 0 0 109 27419g27415 124 109 2 0 1 0 109 TEST ALL 27416 104 252 4 1 0 0 252 ENTRIES ZERO 27417 123 8 0 0 0 27418 100 109 2 0 0 0 109 27419 124 274 15 1 0 0 274 27420 127 274 23 0 1 0 274 gNO 27421 106 108 23 0 0 0 108 18/0/36 RESET SWITCH SAS 27422 102 265 3 0 0 0 265 27420g27423 124 109 14 0 1 0 109 27500 PROCR 275 275 DOUBTFUL BLOCK SWITCH 27502g27502 124 275 2 1 0 0 275 SWITCH SDB 27503 124 277 2 1 0 0 277 *03e P/T O/P 27504 124 187 2 1 0 0 187 TYPEWRITER 2 27505 124 282 7 1 0 0 282 *05e CARD OUTPUT 3 27506 124 282 2 1 0 0 282 *2.286e PRINTER 4 27507 124 279 4 1 0 0 279 *421*02e P/T INPUT 5 27508 124 279 2 1 0 0 279 *421*04e 27509 124 285 2 1 0 0 285 M/T INPUT 7 27510 124 286 2 1 0 0 286 M/T OUTPUT 8 27511 124 282 7 1 0 0 282 SPECIAL PRINTER 9 401 27512 124 263 16 1 0 0 263 *03e*02e*04e*05e*30e*2.e 27600 PROCR 276 276 NOTE D/B 27602 106 210 3 0 0 0 210 11 27603 124 3 0 1 0 SET D/B IND IN SP CH 27604 102 160 0 0 0 27314g27605 106 188 2 1 0 0 188 27606 118 6 0 3 0 27607 126 273 2 0 1 0 273 g 27700 PROCR 277 277 PAPER TAPE OUTPUT DOUBTFUL BLOCK 27503g27702 106 31 0 1 0 *03t 27703 101 267 2 1 1 0 267 TEST D/B GENUINE 27704 101 404 10 1 2 0 404 27705 105 209 10 0 0 0 209 27706 127 288 2 0 1 0 288 gNO 27707 126 339 2 0 0 0 339 SET (MR3)=(3) 27708 106 214 36 1 0 0 214 SET DB FOR COMMENT 27709 102 258 4 1 0 0 258 27710 124 277 12 0 2 0 277 27711 124 282 10 1 0 0 282 gOUTPUT COMMENT 27712 126 339 2 0 0 0 339 gSET(MR3)=(3) 27713 106 194 0 3 0 RESET(64+R) 27714 102 192 0 3 0 27715 106 174 0 3 0 RESTORE RTE TYPE 27716 102 31 0 1 0 27717 102 174 0 3 0 CLEAR W/L 27718 124 403 6 1 0 0 403 gO/P BLOCK S/R 27800 PROCR 278 278 PAPER TAPE OUTPUT DOUBTFUL BLOCK OUTPUT S/R 27802 100 0 0 0 0 *03t LINK 27803 124 188 2 0 1 0 188 OUTPUT 27804 119 0 0 0 0 401 27805 126 351 2 0 0 0 351 *09e06e TEST RTE NOTING D/B 27806 126 339 2 0 0 0 339 SET(MR3)=(3) 27807 106 160 0 3 0 TEST D/B OCCURED 27808 126 278 2 0 1 0 278 g 27900 PROCR 279 279 D/B, P/T & CARD INPUT 27901 NOTES RADIX B OFFER OPTIONS 27508g27902 101 6 1 3 0 *422*04t 27903 124 279 5 1 0 0 279 *04t 27507g27904 101 5 1 3 0 *029 27903g27905 102 280 5 0 0 0 280 *422 27906 124 3 0 1 0 PROG SP CHAP START 27907 106 174 0 0 0 27908 101 7 1 2 0 READING? 401 27909 127 279 21 0 2 0 279 *42t42e gNO 27910 106 33 0 1 0 TEST IF LINK SPECIFIED IN Q6-10 B 401 27911 127 279 21 0 0 0 279 *42e 28206g 28566g27912 101 15 0 1 0 27913 114 44 0 1 0 27914 106 214 36 1 0 0 214 SET 'DB' FOR COMMENT 27915 102 258 4 1 0 0 258 27916 126 361 2 0 0 0 361 gSET UP PART OF COMMENT 27917 106 270 16 0 0 0 270 SET SETTING OF S101 27918 124 3 0 1 0 TO TEST ROUTE 27919 102 176 0 0 0 27920 124 282 11 1 0 0 282 gOUTPUT COMMENT 27911g 27909g27921 101 280 2 1 3 0 280 *422 27922 124 282 10 1 0 0 282 28000 PROCR 280 280 *42 OPTIONS 8 & 9 28001 NOTES RADIX B 28002 126 329 2 0 0 0 329 g READ 28003 106 280 5 0 0 0 280 *422 28004 124 287 33 1 0 0 287 28005 100 0 0 0 0 *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 27506g28202 106 33 0 1 0 *2.286t TEST IF LINK SPECIFIED 28203 105 30 0 1 0 *54t44t 28204 127 282 7 0 0 0 282 28205 106 33 0 1 0 *54t44t 28206 127 279 12 0 1 0 279 *2.286t gYES 28204g 27511g 27505g28207 106 214 36 1 0 0 214 SET DB/ FOR COMMENT 28208 102 258 4 1 0 0 258 28209 101 283 2 1 3 0 283 32010g 37408g 40612g 27922g 27711g28210 126 362 2 0 0 0 362 gSET RTE TO MANUAL ETC 37103g 38310g 38314g 45050g 27920g 27015g28211 124 261 2 0 2 0 261 SELECT TABLE START 28212 124 336 2 1 0 0 336 gOUTPUT COMMENT 28300 PROCR 283 283 PRINTER:ROUTINE AFTER D/B 28301 NOTES RADIX B 28302 126 330 2 0 0 0 330 gWRITE 28303 101 4 1 3 0 *2.486+ 00009 28304 124 287 33 1 0 0 287 gEND ROUTINE 28400 PROCR 284 284 DOUBTFUL BLOCK-AUTOLECTOR & CHEQUE SORTER 28500 PROCR 285 285 DOUBTFUL BLOCK:M/T INPUT 28501 NOTES RADIX B 42132g 27509g28502 126 314 2 0 0 0 314 TEST A1=BLOCK COUNTER 28503 127 288 2 0 1 0 288 gNO TO END ROUTINE 28504 124 285 43 1 0 0 285 *019 STEP BACK 50/8 BLOCK 28546g28505 106 212 6 0 0 0 212 28506 126 306 2 0 0 0 306 g 28557g 29350g28507 126 342 2 0 0 0 342 *019 28508 126 329 2 0 0 0 329 gREAD 28509 126 343 2 0 0 0 343 *019 401 28510 126 351 2 0 0 0 351 *09e06e TEST RTE NOTING D/B 28511 124 3 0 1 0 TEST D/B IND SET 28512 106 160 0 0 0 28513 127 285 29 0 0 0 285 *43e 28514 126 358 2 0 0 0 358 gSTEP CTR OF TRIES=C 401 28515 127 285 43 0 1 0 285 *013 gNO 28516 124 3 0 1 0 TEST RTE TYPE 7 28517 106 174 0 0 0 28518 101 7 1 2 0 28519 127 285 23 0 1 0 285 gNO 28520 106 33 0 1 0 TEST LINK TO BE AMEN 28521 127 285 23 0 0 0 285 gNO 28522 127 285 61 0 2 0 285 g YES 28521g 28519g28523 125 0 1 2 0 28524 124 3 0 1 0 28525 102 175 0 0 0 28526 101 6145 1 3 0 *14+5++*14+*5++ 020480614402049 28660g28527 102 41 0 1 0 28528 124 294 2 1 0 0 294 gOFFER OPTIONS 28513g28529 106 214 36 1 0 0 214 *43t SET UP'DB' 28530 102 258 4 1 0 0 258 28531 126 361 2 0 0 0 361 gSET UP PART OF COMMENT 28532 106 109 8 1 0 0 109 SET UP I/P:1 28533 102 258 10 1 0 0 258 28534 101 285 59 1 3 0 285 SET UP LINK FOR SI=5 28712g28535 126 363 2 0 0 0 363 g & SETTING OF S101 28536 124 3 0 1 0 SET UP NO OF ATTEMPTS 28537 106 167 0 0 0 28538 107 258 10 1 0 0 258 28539 125 0 1 2 0 28540 124 3 0 1 0 CLEAR COUNTER C 28541 102 167 0 0 0 28542 124 432 11 1 0 0 432 *43t 28515g 28504g28543 124 188 2 0 1 0 188 *01t TEST<52/10 BLOCKS 28544 106 190 2 0 0 0 190 28545 101 82 1 2 0 *8t4 00010 28546 127 285 5 0 3 0 285 gYES 28547 101 50 1 3 0 *8t4 00008 28548 126 306 2 0 0 0 306 gSTEP BACK 50 BLOCKS,FORWARD 1 28549 126 339 2 0 0 0 339 gSET(MR3)=(3) 28550 101 48 1 3 0 *8t4 COUNTER 00006 28558g28551 102 177 0 3 0 28552 126 355 2 0 0 0 355 STEP FORWARD 401 28553 126 351 2 0 0 0 351 *09e06e TEST RTE NOTING D/B 28554 126 339 2 0 0 0 339 gSET(MR3)=(3) 28555 106 177 0 3 0 STEP COUNTER BY 28556 105 210 7 0 0 0 210 MINUS ONE AND 28557 127 285 7 0 0 0 285 gYES TEST END 28558 124 285 51 1 0 0 285 *01t 28559 101 7 1 3 0 28560 124 287 33 1 0 0 287 28522g28561 101 7 1 3 0 28562 102 31 0 1 0 RESET RTE TYPE 7 IN SI+31 28563 124 3 0 1 0 28564 102 167 0 0 0 CLEAR ATTEMPTS COUNTER 28565 106 33 0 1 0 28566 124 279 12 1 0 0 279 g AMEND LINK 28600 PROCR 286 286 DOUBTFUL BLOCK:M/T OUTPUT 28601 NOTES RADIX B 27510g28602 126 341 2 0 0 0 341 gSET (MR3)=(64+R) 28603 124 188 2 0 1 0 188 TEST BLOCK 7 28604 106 190 2 0 0 0 190 28605 101 7 1 2 0 28606 127 286 11 0 1 0 286 gNO 28607 106 6 0 0 0 TEST FINISHED 28608 118 4124 0 0 0 OPENING FILE 28609 101 14 1 2 0 28610 127 288 2 0 1 0 288 gYES IGNORE O/B 28606g28611 106 0 1 3 0 STORE A1 28612 124 3 0 1 0 28613 102 178 1 0 0 28614 126 331 2 0 0 0 331 28615 101 3 1 3 0 STEP BACK 3 BLOCKS 28623g28616 126 306 2 0 0 0 306 gFORWARD 1 28617 126 355 2 0 0 0 355 gSTEP FORWARD 401 28618 126 351 2 0 0 0 351 *09e06e TEST RTE NOTING D/B 28619 124 3 0 1 0 TEST D/B OCCURRED 28620 106 160 0 0 0 28621 127 286 24 0 0 0 286 gNO 28622 101 2 1 3 0 28623 124 286 16 1 0 0 286 gTRY AGAIN 28668g 28673g 28686g 28621g28624 126 314 2 0 0 0 314 gTEST A1=BLOCK CTR 28625 127 286 61 0 1 0 286 gNO 28626 126 339 2 0 0 0 339 gSET(MR3)=3 28627 102 171 0 3 0 CLEAR OPTION INDICATOR 28628 102 186 0 3 0 28681g28629 126 321 2 0 0 0 321 g 28630 126 341 2 0 0 0 341 gSET MR3=(64+R) 28631 106 211 16 1 0 0 211 SET A1=FAULTY BLOCK WORD 28632 102 0 1 3 0 28633 124 3 0 3 0 PACK 28634 106 178 1 0 0 28635 101 15 0 1 0 28636 114 0 1 3 0 28655g28637 126 341 2 0 0 0 341 gSET (MR3) = (64+R) 28638 124 3 0 1 0 28639 106 179 1 0 0 28640 105 220 3 0 0 0 220 28641 127 286 48 0 0 0 286 gBLOCK 7 28642 106 2 1 3 0 TEST A2=R/M'S 28643 105 211 8 1 0 0 211 28644 127 286 47 0 0 0 286 *01e01e 28645 124 1 0 2 0 AUGMENT 2ND WORD 28646 107 3 1 3 0 28644g28647 126 342 2 0 0 0 342 *019 gSET ASL FOR HI-D 28641g28648 126 330 2 0 0 0 330 WRITE 28649 126 343 2 0 0 0 343 *019 401 28650 126 351 2 0 0 0 351 *09e06e TEST RTE NOTING D/B 28651 124 3 0 1 0 TEST D/B IND SET 28652 106 160 0 0 0 28653 127 287 2 0 0 0 287 *43e 28654 126 358 2 0 0 0 358 gSTEP COUNTER C 28655 127 286 37 0 1 0 286 gNO TEST C=6 28656 106 212 6 0 0 0 212 28657 124 3 0 1 0 28658 102 175 0 0 0 28659 101 5121 1 3 0 *14+5++*14+*5++ 010240512001025 28660 124 285 27 1 0 0 285 g 28625g28661 126 315 2 0 0 0 315 gTEST A1 FOR FBM 28662 124 286 74 1 0 0 286 gFMB FOUND 28663 126 339 2 0 0 0 339 gSET(MR3)=3 28664 101 286 24 1 3 0 286 STORE RETURN LOCATION 28665 102 162 0 3 0 28666 126 323 2 0 0 0 323 28667 126 316 2 0 0 0 316 gALIGNMENT FAILURE 28668 124 286 24 1 0 0 286 g 28669 126 318 2 0 0 0 318 gTEST BLOCK 6 28670 124 291 27 1 0 0 291 gOPEN REEL 28671 126 317 2 0 0 0 317 gREREAD 28672 126 319 2 0 0 0 319 gSTEP ATTEMPTS COUNTER 28673 124 286 24 1 0 0 286 g 28662g28674 101 3 0 1 0 28675 126 339 2 0 0 0 339 SET(MR3)=3 28676 115 179 1 3 0 CORRECTLY FOR REWRIT 28677 102 221 2 0 0 0 221 28678 126 341 2 0 0 0 341 (MR3)=(64+R) 28679 115 1 1 3 0 28680 105 221 2 0 0 0 221 28681 127 286 29 0 0 0 286 gYES 28682 101 3 1 3 0 28683 126 306 2 0 0 0 306 gSTEP BACK(3)FORWARD 1 28684 126 355 2 0 0 0 355 gSTEP FORWARD 401 28685 126 351 2 0 0 0 351 *09e06e TEST RTE NOTING D/B 28686 124 286 24 1 0 0 286 g 28700 PROCR 287 287 DB/COMMENT:M/T OUTPUT 28701 NOTES RADIX B 29347g 28653g28702 106 214 36 1 0 0 214 *43t SET UP'DB' 28703 102 258 4 1 0 0 258 28704 126 345 2 0 0 0 345 gEDIT TIME, SET UP ROUTE NUMBER 28705 126 356 2 0 0 0 356 gSET UP PROGRAMME NUMBER 28706 124 3 0 1 0 SET UP BLOCK NUMBER 28707 106 179 1 0 0 28708 102 258 8 0 0 0 258 28709 106 109 10 1 0 0 109 SET UP O/P:1 28710 102 258 10 1 0 0 258 28711 124 287 13 0 2 0 287 28712 124 285 35 1 0 0 285 g OUTPUT 'DB' 28713 106 30 1 1 0 SET UP ROUTE NO AND TYPE 28714 102 188 2 1 0 0 188 28715 126 359 2 0 0 0 359 *43t 28716 126 341 2 0 0 0 341 gSET(MR3)=(64+R) 28717 124 3 0 1 0 RESTORE A1 28718 106 178 1 0 0 28719 102 0 1 3 0 28720 106 210 7 0 0 0 210 28721 126 333 2 0 0 0 333 gSTEP BLOCK CNTR BY 1 401 28722 126 351 2 0 0 0 351 *09e06e TEST RTE NOTING D/B 28723 126 188 2 1 2 0 188 *01t 28724 100 210 7 0 2 0 210 SET(B) 28725 124 3 0 1 0 28726 106 179 1 0 0 TEST BLOCK 7 28727 105 220 3 0 0 0 220 28728 127 287 30 0 0 0 287 gYES 28729 126 342 2 0 0 0 342 *01t 28728g28730 126 330 2 0 0 0 330 gWRITE 28731 126 343 2 0 0 0 343 *019 28732 106 212 5 0 0 0 212 SET RTE TYPE 8 28560g 28304g 28004g28733 103 188 3 0 0 0 188 28734 126 349 2 0 0 0 349 gUPDATE ASSEMELER TABLE 28735 126 359 2 0 0 0 359 gSET SI=4, RESTORE LINK FOR SI=3 28800 PROCR 288 288 DOUBTFUL BLOCK:END ROUTINE 28801 NOTES RADIX B 28610g 28503g 27706g28802 126 339 2 0 0 0 339 gSET (MR3) = (3) 28803 106 174 0 3 0 RESTORE RTE TYPE 28804 127 288 6 0 1 0 288 28805 106 188 3 0 0 0 188 29130g 28804g28806 102 31 0 1 0 28807 102 174 0 3 0 CLEAR W/L 28808 124 264 23 1 0 0 264 g 28900 PROCR 289 289 OPTIONS 4,5,6 & 7 28901 NOTES RADIX B 28902 124 4 0 2 0 SELECT 4 28903 124 289 7 1 0 0 289 g 28904 101 3 1 3 0 SELECT 3 28905 124 289 7 1 0 0 289 g 28906 106 212 6 0 0 0 212 SELECT 2 28905g 28903g28907 126 306 2 0 0 0 306 STEP BACK(A)BLOCKS FORWARD 1 28908 126 339 2 0 0 0 339 gSET (MR3)=(3) 28909 106 171 0 3 0 TEST REALIGNING 28910 101 286 24 1 2 0 286 28911 127 289 26 0 0 0 289 gYES 28912 100 210 7 0 2 0 210 *01t SET(B) 28913 126 188 2 1 2 0 188 SET(MR2)=R 28914 106 190 2 0 2 0 190 TEST BLOCK SIX OR 28915 101 8 1 2 0 SEVEN 28916 127 289 18 0 3 0 289 gYES 28917 126 342 2 0 0 0 342 *01t 28916g28918 126 329 2 0 0 0 329 gREAD 28919 126 343 2 0 0 0 343 *019 28920 106 164 0 3 0 *5+t TEST IF CHD 28921 127 289 27 0 1 0 289 *5+t gYES 28922 101 7 1 3 0 SET RTE TYPE 28928g28923 102 188 3 0 0 0 188 28924 106 171 0 3 0 28925 124 351 5 1 0 0 351 g UPDATE ASSEMBLER TABLE 28911g28926 126 355 2 0 0 0 355 gSTEP FORWARD 28921g28927 125 0 1 2 0 28928 124 289 23 1 0 0 289 gCLEAR 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 0 291 *5+t 29103 126 362 2 0 0 0 362 gUNLOAD 29104 126 338 2 0 0 0 338 gSET SI=1 29105 124 462 11 1 0 0 462 gSI+1 29106 126 339 2 0 0 0 339 gSET(MR3)=(3) 29107 106 164 0 3 0 29108 127 292 15 0 1 0 292 gYES 29109 106 187 0 3 0 TEST CHANGE DECKS IN MISALIGNMENT 29110 127 291 20 0 0 0 291 gNO 29111 126 322 2 0 0 0 322 TEST ALIGNING FROM O/P 29112 124 291 18 1 0 0 291 gNO 29113 106 212 6 0 0 0 212 29119g29114 102 175 0 3 0 29115 106 183 0 3 0 29116 102 172 0 3 0 29117 124 292 8 1 0 0 292 gCHANGE DECKS 29112g29118 125 0 1 2 0 29119 124 291 14 1 0 0 291 g 29110g29120 126 340 2 0 0 0 340 gSET(MR3)=R 29121 124 3 0 1 0 TEST IF I/P 29122 106 175 0 0 0 29123 127 291 33 0 1 0 291 gNO 29124 106 190 2 0 3 0 190 29125 101 9 1 2 0 TEST D/B IN OPEN 29126 127 292 2 0 2 0 292 *5+t gNO CHANGE DECKFILE 29135g 30834g 28670g29127 126 339 2 0 0 0 339 gSET (MR3)=(3) 29128 101 291 31 1 3 0 291 SET UP PSEUDO RTE TYPE 29129 101 267 2 1 2 0 267 29130 124 288 6 1 0 0 288 gEND ROUTINE 29131 126 339 2 0 0 0 339 gSET(MR3)=(3) 29132 124 307 6 1 0 0 307 g 29123g29133 106 190 2 0 3 0 190 *5+t TEST D/B IN 29134 101 6 1 2 0 OPEN FILE 29135 127 291 27 0 3 0 291 gYES 29200 PROCR 292 292 CHANGE DECKS(1) 29126g29202 126 339 2 0 0 0 339 *5+t SET(MR3)=(3) 29203 106 175 0 3 0 TEST IF I/P 29204 127 292 8 0 0 0 292 gYES 29205 124 188 2 0 1 0 188 STORE BLOCK COUNTER 29206 106 190 2 0 0 0 190 29207 124 292 13 1 0 0 292 g 29204g 29117g29208 124 188 2 0 1 0 188 29209 106 190 2 0 0 0 190 STORE BLOCK COUNTER 29210 100 210 3 0 3 0 210 MINUS ONE SET DECIMAL 29211 105 210 7 0 0 0 210 29212 100 212 2 0 3 0 212 SET BINARY 29207g29213 103 170 0 3 0 29214 102 164 0 3 0 SET INDICATOR FOR OPEN REEL 29108g29215 106 175 0 3 0 TEST IF I/P 29216 127 292 28 0 1 0 292 gNO 29217 106 170 0 3 0 TEST BLOCK NO 29218 101 8 1 2 0 <8 29219 127 292 26 0 2 0 292 gNO 29220 124 188 2 0 1 0 188 29221 119 0 0 3 0 RUN FORWARD 401 29222 126 351 2 0 0 0 351 *09e06e TEST RTE NOTING D/B 29223 126 355 2 0 0 0 355 gSTEP FORWARD 401 29224 126 351 2 0 0 0 351 *09e06e TEST RTE NOTING D/B 29225 124 292 42 1 0 0 292 g 29219g29226 126 410 2 0 0 0 410 gOPEN INPUT REEL 29227 124 292 42 1 0 0 292 g 29216g29228 106 170 0 3 0 29229 101 6 1 2 0 29230 127 292 36 0 1 0 292 gNOT BLOCK 7 29231 124 188 2 0 1 0 188 TEST IF OPENING FILE 29232 106 64 0 0 0 29233 118 4124 0 0 0 29234 101 14 1 2 0 401 29235 127 425 21 0 0 0 425 *43e43e*51e51e gBLOCK 7 29230g29236 126 425 2 0 0 0 425 gOPEN OUTPUT REEL 29237 106 170 0 3 0 29238 101 7 1 2 0 29239 127 292 42 0 1 0 292 g NOT BLOCK 8 29240 101 2 1 3 0 29241 126 306 2 0 0 0 306 STEP BACK 2 FORWARD 1 42666g 29239g 29227g 29225g29242 126 339 2 0 0 0 339 gSET(MR3)=(3) 29243 106 170 0 3 0 29244 124 188 2 0 1 0 188 SET UP BLOCK 29245 103 190 2 0 0 0 190 COUNTER 29246 100 210 3 0 3 0 210 DECIMAL STEP FORWARD 29247 101 9 1 2 0 SUB 9 (BLOCK COUNTER)-9 29262g29248 100 212 2 0 3 0 212 BINARY BLOCKS 29249 127 292 63 0 0 0 292 gBLOCK 9 OR END OF STEP FORWARD 29250 127 292 63 0 3 0 292 gBLOCK<9 29251 102 177 0 3 0 STORE COUNTER IN C+177 29257g29252 126 342 2 0 0 0 342 *019 SET ASL FOR HIGH DENSITY 29253 126 355 2 0 0 0 355 STEP FORWARD 29254 126 343 2 0 0 0 343 *019 CLEAR BIT 1 ASL 401 29255 126 351 2 0 0 0 351 *09e06e TEST RTE NOTING D/B 29256 126 315 2 0 0 0 315 TEST A1 FOR FBM'S 29257 124 292 52 1 0 0 292 gYES DON'T COUNT THIS BLOCK 29258 126 339 2 0 0 0 339 SET (MR3)=(3) 29259 106 177 0 3 0 COUNTER 29260 100 210 3 0 3 0 210 DECIMAL 29261 101 1 1 2 0 SUB 1 29262 124 292 48 1 0 0 292 gTEST ZERO 29279g 29282g 29311g 29250g 29249g29263 126 314 2 0 0 0 314 gTEST A1=BLOCK COUNTER 29264 127 293 12 0 0 0 293 gYES 29265 127 293 2 0 3 0 293 TEST A1ACTUAL BLOCK 31615 100 210 3 0 3 0 210 SET DECIMAL 31616 105 1 1 3 0 31617 127 316 51 0 0 0 316 gA1=BLOCK COUNTER 31618 127 316 36 0 3 0 316 gNO 31619 101 8 1 2 0 TEST DIFFERENCE <8 31620 127 316 54 0 2 0 316 g NO 31621 101 7 1 1 0 31622 100 212 2 0 3 0 212 SET BINARY 31623 127 316 32 0 0 0 316 g 31631g31624 124 3 0 1 0 31625 102 177 0 0 0 31626 126 355 2 0 0 0 355 gSTEP FORWARD 401 31627 126 351 2 0 0 0 351 *££0*££2*09e06e 31628 124 3 0 1 0 TEST ALIGNED 31629 106 177 0 0 0 CORRECTLY 31630 105 210 7 0 0 0 210 31631 127 316 24 0 1 0 316 gNO 31647g 31623g31632 126 322 2 0 0 0 322 gTEST O/P OR I/P 31633 124 316 48 1 0 0 316 gI/P 31634 126 355 2 0 0 0 355 gSTEP FORWARD 31635 124 316 49 1 0 0 316 g 31618g31636 106 1 1 3 0 EXPECTED X 41150 127 411 56 0 2 0 411 gNO 41151 106 190 18 0 3 0 190 SET X=Y 41152 118 2 0 0 0 41153 114 190 18 0 3 0 190 41154 124 3 0 1 0 SET IND 3 41155 102 158 0 0 0 41150g41156 126 341 2 0 0 0 341 gSET(MR3)=(64+R) 41157 124 410 50 1 0 0 410 g 41200 PROCR 412 412 FORM X-Y FOR TEST ON REEL COUNTER 41201 NOTES RADIX B 41202 100 0 0 0 0 LINK 41203 126 340 2 0 0 0 340 gSET (MR3) =R 41204 101 3 0 1 0 STORE Y 41205 115 190 18 0 3 0 190 41206 118 2 1 0 0 41207 102 258 12 0 0 0 258 41208 115 190 18 0 3 0 190 FORM X-Y 41209 105 258 12 0 0 0 258 41210 126 412 2 0 1 0 412 gLEAVE S/R 41300 PROCR 413 413 TEST CORRECT SOURCE BLOCK 41301 NOTES RADIX B 41302 100 0 0 0 0 LINK 41303 106 15 1 3 0 TEST CORRECT 41304 103 260 18 0 0 0 260 *719 STORE FOR COMMENT 41305 124 188 2 0 1 0 188 PROGRAMME NUMBER 41306 105 190 34 0 0 0 190 41307 127 417 2 0 1 0 417 gNO, HDG COMMENT 41308 106 6 0 3 0 TEST CORRECT FILE 41309 124 188 2 0 1 0 188 IDENTITY 41310 105 190 50 0 0 0 190 41311 127 417 2 0 1 0 417 gNO, HDG COMMENT 41312 101 30 0 1 0 TEST CORRECT RUN 41313 115 9 1 3 0 NUMBER 41314 102 221 2 0 0 0 221 41315 124 188 2 0 1 0 188 41316 115 191 16 0 0 0 191 41317 105 221 2 0 0 0 221 41318 127 417 2 0 1 0 417 gNO, HDG COMMENT 41319 126 413 2 0 1 0 413 gLEAVE S/R 41400 PROCR 414 414 HDG COMMENT FOR FIRST OPEN INPUT FILE 41401 NOTES RADIX B 41042g 41036g41402 125 0 1 2 0 TEST IF SUITE IS 41403 101 28 0 1 0 060 41404 115 39 0 1 0 41405 105 108 7 0 0 0 108 41406 127 410 43 0 0 0 410 gYES 41407 126 418 2 0 0 0 418 gSET UP BLOCK, UNLOAD 41408 101 28 0 1 0 SET UP SUITE NO 41409 115 32 0 1 0 41410 102 258 8 0 0 0 258 41411 101 12 0 1 0 41412 115 33 0 1 0 FORM UP FILE LETTER-/REEL 1 41413 118 2 0 0 0 41414 101 4209 1 1 0 -/ 41415 118 4 0 0 0 41416 101 65 1 1 0 1 41417 102 258 12 1 0 0 258 41709g41418 102 258 10 0 0 0 258 CLEAR RUN&RERUN NO 41419 106 262 32 1 0 0 262 SET UP LTE 41420 102 262 22 1 0 0 262 41421 124 262 2 0 2 0 262 41422 124 3 0 1 0 EDIT INTO SP CHAP 41423 128 130 1 2 0 41424 126 341 2 0 0 0 341 gSET (MR3)=(64+R) 41425 106 15 1 3 0 SET UP PROG NO 41426 102 258 8 0 0 0 258 41427 106 6 1 3 0 SET UP FILE 1D/REEL NO 41428 118 2 0 0 0 41429 101 113 1 1 0 / 41430 118 4 0 0 0 41431 104 10 1 3 0 REEL NO 41432 102 258 12 1 0 0 258 41433 106 9 1 3 0 SET UP RUN & RERUN NO 41434 102 258 10 0 0 0 258 41435 106 216 36 1 0 0 216 SET UP LAST TABLE ENTRY 41436 102 262 22 1 0 0 262 41437 124 262 10 0 2 0 262 EDIT INTO SP CHAP 41438 124 3 0 1 0 41439 128 146 1 2 0 41440 106 261 10 1 0 0 261 RESTORE LAST TABLE ENTRY 41441 102 262 22 1 0 0 262 41442 124 336 4 1 0 0 336 gOUTPUT COMMENT 41500 PROCR 415 415 REEL NUMBER FAILURE 41501 NOTES RADIX B COMMENT AND OFFER OPTIONS 41057g41502 126 418 2 0 0 0 418 gSET UP HDG 41503 106 109 4 1 0 0 109 SET UP *,*,3,SP,SP 41504 102 258 4 1 0 0 258 41505 126 346 2 0 0 0 346 g EDIT TIME 41506 126 311 2 0 0 0 311 SET UP REEL NUMBER 41507 104 258 12 1 0 0 258 41508 102 258 8 1 0 0 258 41509 126 341 2 0 0 0 341 SET (MR3=64+R) 41510 101 15 0 1 0 41511 115 10 0 3 0 41512 104 258 12 1 0 0 258 41513 102 258 10 1 0 0 258 41514 101 12 0 1 0 41515 124 188 2 0 1 0 188 41516 114 190 18 0 0 0 190 SET X=0 IN REEL COUNTER 41517 124 3 0 1 0 SET UP TAPE NUMBER 41518 106 182 0 0 0 41519 102 258 12 1 0 0 258 401 41520 124 7 0 2 0 *14+46+*14+*46+ 60051800007 41521 102 41 0 1 0 41522 101 261 30 1 3 0 261 41523 124 335 2 1 0 0 335 gOFFER OPTIONS 41600 PROCR 416 416 OPTIONS 2 AND3 41601 NOTES RADIX B REEL NUMBER FAILURE 41602 126 341 2 0 0 0 341 gSET (MR3)=(64+R) 41603 106 11 1 3 0 PACK IN ACTUAL REEL NO. 41604 101 3 0 1 0 41605 124 188 2 0 1 0 188 41606 114 190 18 0 0 0 190 41607 126 339 2 0 0 0 339 gSET (MR3)=(3) 41608 124 410 6 1 0 0 410 gOPEN REEL 41700 PROCR 417 417 HDG COMMENT FOR SUBSEQUENT OPEN REELS 41701 NOTES RADIX B 42817g 41318g 41311g 41307g41702 126 418 2 0 0 0 418 gSET UP HDG 41703 126 340 2 0 0 0 340 gSET (MR3)=R 41704 106 190 34 0 3 0 190 SET UP PROG NO 41705 102 258 8 0 0 0 258 41706 126 311 2 0 0 0 311 gSET UP FILE ID 41707 107 258 12 1 0 0 258 41708 106 191 16 0 3 0 191 SET UP RUN & RERUN NOS 41709 124 414 18 1 0 0 414 g 41800 PROCR 418 418 SET UP HDG COMMENT 41801 NOTES RADIX B 41802 100 0 0 0 0 LINK 41803 126 357 2 0 0 0 357 gCOUNT 500 M SECS 41804 106 258 26 1 0 0 258 SET UP 'HDG' 41805 102 258 4 1 0 0 258 41806 124 3 0 1 0 41807 106 165 0 0 0 41808 101 1 1 2 0 RETURN LINK 41809 126 362 2 0 0 0 362 gUNLOAD, ETC. 41810 126 418 2 0 1 0 418 g LEAVE S/R 41900 PROCR 419 419 SET UP HDG COMMENT (PAPER TAPE OR CARDS) 41902 100 0 0 0 0 LINK 41903 106 258 26 1 0 0 258 SET UP HDG 41904 102 258 4 1 0 0 258 41905 124 367 6 0 2 0 367 RETURN LINK 41906 126 362 2 0 0 0 362 gUNLOAD ETC 41907 126 419 2 0 1 0 419 gLEAVE S/R 42000 PROCR 420 420 MAGNETIC TAPE INPUT 42001 NOTES RADIX B 26709g42002 102 420 10 0 0 0 420 *4£1*3:1 42128g42003 126 314 2 0 0 0 314 TEST A1=BLOCK COUNTER 42004 127 421 6 0 1 0 421 gNO 42005 126 339 2 0 0 0 339 SET(MR3)=(3) 42006 102 171 0 3 0 CLEAR OPTION INDICATOR 42007 102 186 0 3 0 CLEAR INDICATOR 42008 106 185 0 3 0 TEST ATTEMPTS COUNTER ZERO 42009 127 421 2 0 1 0 421 gNO 42010 100 0 0 0 0 *4£1*3:1 42011 126 342 2 0 0 0 342 *019 42012 126 329 2 0 0 0 329 READ 42013 126 343 2 0 0 0 343 *019 42014 106 210 7 0 0 0 210 STEP BLOCK COUNTER 42015 126 333 2 0 0 0 333 g 42016 124 268 8 1 0 0 268 gUPDATE ASSEMBLER TABLE,RETURN TO PROG 42100 PROCR 421 421 MT INPUT:BLOCK NUMBER NOT AS EXPECTED 42101 NOTES RADIX B 42009g42102 126 321 2 0 0 0 321 g'SER' COMMENT 42103 101 7 1 3 0 42104 102 31 0 1 0 SET ROUTE TYPE='MT IN' 42105 124 264 23 1 0 0 264 gANOTHER READ ORDER 42004g42106 126 315 2 0 0 0 315 gTEST A1 FOR FBM 42107 124 421 33 1 0 0 421 gFBM FOUND 42108 106 1 1 3 0 TEST A1=SENTINEL 42109 105 211 7 1 0 0 211 TYPE 2 42110 105 210 7 0 0 0 210 42111 127 421 42 0 0 0 421 gYES 42112 105 210 7 0 0 0 210 TEST A1=SENTINEL 42113 127 421 18 0 1 0 421 gNO 42114 106 5 1 3 0 TEST A3=BL CNTR 42115 124 188 2 0 1 0 188 42116 105 190 2 0 0 0 190 42117 127 263 19 0 0 0 263 gYES ZZZ4 COMMENT 42145g 42113g42118 101 421 52 1 3 0 421 SELECT RETURN LOCATION 42119 124 3 0 1 0 42120 102 162 0 0 0 42121 126 323 2 0 0 0 323 gTEST OPTION LINK 42122 126 316 2 0 0 0 316 gALIGNMENT FAILURE 42123 124 421 26 1 0 0 421 42124 126 317 2 0 0 0 317 gREREAD 42125 126 319 2 0 0 0 319 gSTEP ATTEMPTS COUNTER 42123g42126 124 3 0 1 0 TEST D/B OCCURRED 42127 106 160 0 0 0 42128 127 420 3 0 0 0 420 gNO 42129 101 7 1 3 0 42130 124 3 0 1 0 42131 102 174 0 0 0 42132 124 285 2 1 0 0 285 gD/B ROUTINE 42107g42133 124 3 0 1 0 TEST INDICATOR SET 42134 106 186 0 0 0 42135 127 421 38 0 0 0 421 gNO 42136 101 3 1 3 0 STEP BACK 3 BLOCKS 42137 126 306 2 0 0 0 306 FORWARD 1 42135g42138 126 329 2 0 0 0 329 gREAD 29331g42139 101 7 1 3 0 42140 103 188 3 0 0 0 188 42141 124 351 7 1 0 0 351 gTEST ROUTE 42111g42142 106 5 1 3 0 TEST A3=BL CNTR 42143 124 188 2 0 1 0 188 42144 105 190 2 0 0 0 190 42145 127 421 18 0 1 0 421 gNO 42146 106 33 0 1 0 TEST LINK 42147 127 268 9 0 3 0 268 gYES 42148 126 334 2 0 0 0 334 gSTEP REEL COUNTER 42149 126 357 2 0 0 0 357 gCOUNT 500 MILLISECS 42150 126 324 2 0 0 0 324 gUNLOAD, 'NEW' COMMENT 42151 126 410 2 0 0 0 410 gOPEN NEW REEL 42152 101 7 1 3 0 SET UP RTE TYPE 42153 103 188 3 0 0 0 188 42154 102 31 0 1 0 42155 106 188 2 0 0 0 188 42156 118 6 0 3 0 42157 124 266 2 1 0 0 266 *4£4*3:4 gMAIN PATH 4 4 42200 PROCR 422 422 CLOSE MAGNETIC TAPE INPUT REEL 42201 NOTES RADIX B 43404g 26748g42202 126 334 2 0 0 0 334 gSTEP REEL COUNTER 42203 126 357 2 0 0 0 357 gCOUNT 500 M.SECS. 42204 126 362 2 0 0 0 362 gUNLOAD 42205 124 422 8 0 2 0 422 42206 126 363 2 0 0 0 363 gSET LINK FOR SI=5 & SETTING FOR S101 42207 124 324 5 1 0 0 324 *17e 42208 126 359 2 0 0 0 359 gSET SI=4, RESTORE LINK FOR SI=3 42209 124 268 9 1 0 0 268 gRESET MOD. GROUP 42300 PROCR 423 423 CLOSE MAGNETIC TAPE INPUT FILE 42301 NOTES RADIX B 26729g42302 126 341 2 0 0 0 341 *1tt gSET(MR3)=(64+R) 42303 106 4 1 3 0 TEST 'FINIS' BLOCK 42304 105 258 28 1 0 0 258 42305 127 436 11 0 0 0 436 gYES 42306 106 1 1 3 0 TEST SENTINEL TYPE 3 42307 105 211 7 1 0 0 211 42308 105 212 6 0 0 0 212 42309 127 436 11 0 0 0 436 gYES 42310 106 109 6 1 0 0 109 SET UP'EDG' 42311 102 258 4 1 0 0 258 42312 126 357 2 0 0 0 357 COUNT 500 MILLISECS 42313 126 362 2 0 0 0 362 gUNLOAD ETC 42314 124 188 2 0 1 0 188 SET UP BLOCK NO. 42315 106 190 2 0 0 0 190 42316 102 258 8 0 0 0 258 42317 124 188 2 0 3 0 188 CLEAR BLOCK COUNTER 42318 102 190 2 0 0 0 190 42319 124 188 2 0 1 0 188 CLEAR REEL COUNTER 42320 102 190 18 0 0 0 190 42321 126 326 2 0 0 0 326 *179 gALTERNATE ROUTES 42322 124 383 15 0 2 0 383 42323 126 363 2 0 0 0 363 gSET LINK FOR SI=5 SETTING OF S101 42324 124 432 10 1 0 0 432 gOUTPUT COMMENT 42400 PROCR 424 424 OPEN MAGNETIC TAPE OUTPUT FILE 42401 NOTES RADIX B 26733g 26720g42402 126 425 2 0 0 0 425 gOPEN MAG TAPE O/P REEL 42403 106 40 0 1 0 42404 118 4127 0 0 0 42405 124 409 11 1 0 0 409 g 42500 PROCR 425 425 OPEN MAGNETIC TAPE OUTPUT REEL 42501 NOTES RADIX B 42502 100 0 0 0 0 LINK 42503 126 339 2 0 0 0 339 gSET(MR3)=(3) 42504 106 425 2 0 0 0 425 42505 102 168 0 3 0 LINK TO 168 OF SPECIAL CHAP 42506 126 188 2 1 2 0 188 SET(MR2)=R 42507 106 64 0 2 0 STORE CURRENT ASL 42508 102 221 2 0 0 0 221 *5+9 42509 101 14 1 3 0 FORM NEW ASL 42510 118 4 0 0 0 C+106 42511 104 3 0 0 0 42512 101 106 1 1 0 42513 105 221 2 0 0 0 221 *5+t TEST ALREADY SET UP 42514 127 425 19 0 0 0 425 gYES 42515 104 221 2 0 0 0 221 *5+t 42516 102 64 0 2 0 42517 106 221 2 0 0 0 221 *5+t 42518 102 163 0 3 0 *5+t 42514g42519 101 15 1 3 0 SET TAG 15 42520 123 126 1 3 0 IN LIMIT WORD 29235g42521 126 307 2 0 0 0 307 gRUN FORWARD ETC 42522 124 3 0 1 0 *5+t TEST CHD 42523 106 164 0 0 0 42524 127 425 29 0 0 0 425 gNO 42525 124 3 0 1 0 42526 106 189 0 0 0 TEST OPEN FILE 42527 127 428 2 0 0 0 428 gNO,REOPEN O/P REEL 42528 124 425 34 1 0 0 425 *5+t YES REWRITE BLOCK 7 42524g42529 126 429 2 0 0 0 429 gTEST TAPE RELEASED S/R 42530 124 428 2 1 0 0 428 gNO 42531 101 1 1 3 0 42532 124 3 0 1 0 42533 102 189 0 0 0 SET OPEN FILE IND(FOR CMD 42528g42534 126 340 2 0 0 0 340 gSET (MR3)=R 42535 106 190 18 0 3 0 190 TEST REEL COUNTER 42536 103 221 2 0 0 0 221 42537 127 425 52 0 0 0 425 gYES =0 42538 118 4126 1 0 0 TEST X=£ 42539 101 15 1 2 0 42540 127 425 46 0 1 0 425 gNO 42541 118 4 1 0 0 SET X=Y 42542 101 12 0 1 0 42543 124 188 2 0 1 0 188 42544 114 190 18 0 0 0 190 42545 124 425 54 1 0 0 425 gYES 42540g42546 126 412 2 0 0 0 412 gFORM X-Y TEST Y>X IN REEL 42547 127 425 60 0 2 0 425 g 42548 106 190 18 0 3 0 190 SET X=Y 42549 118 2 0 0 0 42550 114 190 18 0 3 0 190 42551 124 425 60 1 0 0 425 g 42537g42552 124 257 0 2 0 SET REEL COUNTER=1:1 42553 102 190 18 0 3 0 190 42545g42554 106 32 0 1 0 STORE PROGRAMME NO 42555 102 190 34 0 3 0 190 42556 106 33 0 1 0 STORE FILE IDENTITY 42557 102 190 50 0 3 0 190 42558 106 40 0 1 0 STORE RUN & RE-RUN NUMBERS 42559 102 191 16 0 3 0 191 42551g 42547g42560 126 341 2 0 0 0 341 gSET(MR3)=(64+R) 42600 PROCR 426 426 SET UP LOP COMMENT AND SOURCE BLOCK 42601 NOTES RADIX B 42602 124 7 0 2 0 SET UP XERONIC WORD 42603 124 188 2 0 1 0 188 42604 103 190 2 0 0 0 190 42605 103 1 1 3 0 42606 104 211 20 1 0 0 211 42607 102 4 1 3 0 42608 102 2 1 3 0 CLEAR 2ND WORD 42609 124 188 2 0 1 0 188 SET UP PROG NO 42610 106 190 34 0 0 0 190 42611 103 260 18 0 0 0 260 *719 STORE FOR COMMENT 42612 102 15 1 3 0 42613 106 100 17 0 0 0 100 SET UP DATE 42614 102 13 1 3 0 42615 106 214 6 1 0 0 214 SET UP B/E WORD 42616 102 18 1 3 0 42617 126 431 2 0 0 0 431 gSET UP FILE, RUN & REEL 42618 124 188 2 0 1 0 188 *01t TEST 90K FILE 42619 106 191 32 0 0 0 191 42620 127 426 22 0 0 0 426 gNO 42621 106 210 7 0 0 0 210 *01t 42620g42622 102 17 1 3 0 SET UP 45/90K IND 42623 126 330 2 0 0 0 330 gWRITE 42624 126 429 2 0 0 0 429 gTEST TAPE RELEASED S/R 42625 124 426 27 1 0 0 426 *5+e gNO 42626 102 196 2 0 3 0 196 DELETE TAPE NO 42625g42627 124 3 0 1 0 *5+t TEST IF CHANGE 42628 106 164 0 0 0 DECKS 42629 127 426 65 0 1 0 426 *5+t gYES 42630 101 8 1 3 0 SET ROUTE TYPE 8 42631 102 188 3 0 0 0 188 42632 126 350 2 0 0 0 350 gTEST RTE DEALING WITH D/B 42633 126 341 2 0 0 0 341 gSET(MR3)=(64+R) 42634 126 431 2 0 0 0 431 gSET UP COMMENT 42635 106 214 42 1 0 0 214 SET UP 'LOP' 42636 102 258 4 1 0 0 258 42637 126 339 2 0 0 0 339 gSET (MR3)=(3) 42638 106 182 0 3 0 42639 102 258 10 0 0 0 258 42640 102 189 0 3 0 CLEAR OPEN FILE IND(FOR CHD) 42641 124 188 2 0 1 0 188 *01t TEST 90K FILE 42642 106 191 32 0 0 0 191 42643 127 426 48 0 0 0 426 *3£e71e*3£e gNO 42644 101 24 0 1 0 SET UP'H'IN'HOP'COMMENT 42645 124 88 0 2 0 42646 118 3 0 0 0 42647 114 258 5 0 0 0 258 *01t 42643g42648 100 210 3 0 3 0 210 *3£t SET DECIMAL 42649 106 258 23 0 0 0 258 STEP CARD SERIAL NUMBER 42650 104 210 7 0 0 0 210 42651 100 212 2 0 3 0 212 SET BINARY 42652 102 258 23 0 0 0 258 *3£t 42653 106 262 28 1 0 0 262 *71t 42654 102 262 22 1 0 0 262 *71t 42655 124 426 67 0 2 0 426 41135g 32119g42656 126 363 2 0 0 0 363 gSET LINK FOR SI=5, SETTING OF S101 42657 124 262 2 0 2 0 262 SELECT TABLE START LOCATION 42658 124 3 0 1 0 SET UP COMMENT IN SPECIAL CHAPTER 42659 128 130 1 2 0 42660 106 262 26 1 0 0 262 *71t 42661 102 262 22 1 0 0 262 42662 106 262 30 1 0 0 262 *3£t 42663 102 262 24 1 0 0 262 *71t*3£t 42664 124 336 4 1 0 0 336 g OUTPUT COMMENT 401 42629g42665 126 351 2 0 0 0 351 *09e06e TEST RTE NOTING D/B 42666 124 292 42 1 0 0 292 *5+t 42667 126 359 2 0 0 0 359 gSET 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 0 428 *251 gAVOID 42800 PROCR 428 428 RE-OPEN MAGNETIC TAPE OUTPUT REEL 42801 NOTES RADIX B 42530g 42527g42802 124 188 2 0 1 0 188 TEST REEL COUNTER 42803 106 190 18 0 0 0 190 =0 42804 127 432 2 0 0 0 432 gYES RT1 COMMENT 42805 118 4126 0 0 0 TESTX=£ 42806 101 15 1 2 0 42807 127 432 2 0 0 0 432 gYES RT1 COMMENT 42808 126 412 2 0 0 0 412 gFORM X-Y TEST Y>X IN REEL 42809 127 432 2 0 3 0 432 gYES RT1 COMMENT 42810 126 308 2 0 0 0 308 gREAD, TEST BLOCK 42811 126 341 2 0 0 0 341 gSET MR3=64+R 42812 126 413 2 0 0 0 413 gTEST CORRECT SOURCE BLOCK 42813 101 3 0 1 0 TEST CORRECT REEL 42814 124 188 2 0 1 0 188 NUMBER 42815 115 190 18 0 0 0 190 42816 105 11 1 3 0 42817 127 417 2 0 1 0 417 gNO, HDG COMMNET 42818 124 3 0 1 0 RESTORE ASL 42819 106 163 0 0 0 42820 124 2 0 1 0 42821 124 30 0 1 0 42822 102 64 0 0 0 42823 124 411 2 1 0 0 411 g 42702g42824 124 3 0 1 0 RESTORE ASL 42825 106 163 0 0 0 42826 124 2 0 1 0 42827 124 30 0 1 0 42828 102 64 0 0 0 41113g42829 124 3 0 1 0 TEST LINK FROM 42830 106 168 0 0 0 W/E PROCEDURE 42831 101 306 2 1 2 0 306 42832 127 411 42 0 1 0 411 gNO 42833 106 212 5 0 0 0 212 SET UP ROUTE TYPE 42834 102 31 0 1 0 30517g 30512g 30509g42835 124 2 0 1 0 42836 124 12 1 0 0 gSI+12 42900 PROCR 429 429 TEST TAPE RELEASED S/R 42902 100 0 0 0 0 42903 126 212 10 1 3 0 212 *4:34te (MR3)=48:0 42904 124 3 0 1 0 SPOOL EX SENTINEL 42905 106 182 0 0 0 42906 103 258 10 0 0 0 258 STORE FOR COMMENT 42911g42907 105 196 2 0 3 0 196 TEST=NEXT IN LIST 42908 127 429 13 0 0 0 429 gYES 42909 104 196 2 0 3 0 196 42910 125 1 0 3 0 42911 124 429 7 1 0 0 429 gNEXT ONE 42912 126 429 2 0 1 0 429 gLEAVE S/R NOT IN RT1 42908g42913 124 429 2 0 3 0 429 42914 124 1 1 0 0 gS/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 0 LINK 43103 126 345 2 0 0 0 345 gEDIT TIME,SET UP RTE NUMBER 43104 126 356 2 0 0 0 356 SET UP PROGRAMME NUMBER 43105 124 188 2 0 1 0 188 SET UP FILE IDENTITY 43106 106 190 50 0 0 0 190 43107 103 6 1 3 0 43108 118 2 0 0 0 43109 101 113 1 1 0 43110 118 4 0 0 0 43111 102 258 12 1 0 0 258 43112 101 3 0 1 0 43113 124 188 2 0 1 0 188 SET UP FILE IDENTITY/REEL NUMBER 43114 115 190 18 0 0 0 190 43115 102 258 9 1 0 0 258 43116 106 258 8 0 0 0 258 43117 107 258 12 1 0 0 258 43118 102 10 1 3 0 SET UP REEL NUMBER 43119 124 188 2 0 1 0 188 SET UP RUN AND RE-RUN NUMBERS 43120 106 191 16 0 0 0 191 43121 103 258 8 0 0 0 258 43122 102 9 1 3 0 43123 126 431 2 0 1 0 431 43200 PROCR 432 432 SET UP 'RTI' COMMENT 43201 NOTES RADIX B 42809g 42807g 42804g43202 126 357 2 0 0 0 357 gCOUNT 500 MILLISECS 43203 106 214 34 1 0 0 214 SET UP 'RTI' 43204 102 258 4 1 0 0 258 43205 124 425 21 0 2 0 425 43206 126 362 2 0 0 0 362 gUNLOAD ETC 43207 124 3 0 1 0 SET UP TAPE NUMBER 43208 106 182 0 0 0 43209 102 258 8 0 0 0 258 42324g 32412g 31221g43210 102 258 10 1 0 0 258 CLEAR COL 4 36529g 28542g43211 124 261 12 0 2 0 261 SELECT TABLE START LOCATION 43212 124 336 2 1 0 0 336 gOUTPUT COMMENT 43300 PROCR 433 433 MAGNETIC TAPE OUTPUT 43301 NOTES RADIX 26710g43302 102 433 3 0 0 0 433 *4£1*3:1 43303 100 0 0 0 0 *4£1*3:1 43304 126 188 2 1 2 0 188 SET(MR2)=R 43305 126 341 2 0 0 0 341 SET(MR3)=(64+R) 43306 102 2 1 3 0 SET 2ND WORD OF BLOCK=0 43307 106 190 2 0 2 0 190 SELECT BLOCK WITHIN REEL CTR 43308 100 210 3 0 3 0 210 SET(C) DECIMAL STEP COUNTER BY 1 43309 104 210 7 0 0 0 210 ADD 1 43310 103 1 1 3 0 INSERT BLOCK NO. 43311 102 190 2 0 2 0 190 STORE BLOCK WITHIN 43312 100 212 2 0 3 0 212 SET BINARY 43313 126 342 2 0 0 0 342 *019 43314 126 330 2 0 0 0 330 WRITE 43315 126 343 2 0 0 0 343 *019 43316 124 268 8 1 0 0 268 gUPDATE USE OF ASSEMBLER TABLE 43400 PROCR 434 434 CLOSE MAGNETIC TAPE OUTPUT REEL 43401 NOTES RADIX B 26747g43402 126 435 2 0 0 0 435 gSET UP END OF REEL SENTINEL 43403 126 310 2 0 0 0 310 gWRITE END OF REEL INFORMATION 43404 124 422 2 1 0 0 422 gUNLOAD 43500 PROCR 435 435 SET UP END OF REEL SENTINEL 43501 NOTES RADIX B 43502 100 0 0 0 0 LINK 43503 126 341 2 0 0 0 341 gSET (MR3)=(64+R) 43504 106 211 8 1 0 0 211 SET R/M WORD IN 2ND. WORD 43505 102 2 1 3 0 43506 106 214 6 1 0 0 214 SET B/E WORD IN 4TH. WORD 43507 102 6 1 3 0 43508 106 211 6 1 0 0 211 43509 104 210 7 0 0 0 210 43510 126 435 2 0 1 0 435 gLEAVE S/R 43600 PROCR 436 436 CLOSE MAGNETIC TAPE OUTPUT FILE 43601 NOTES RADIX B 26730g43602 124 188 2 0 3 0 188 TEST BLOCK COUNTER 43603 106 190 2 0 0 0 190 =5 43604 101 6 1 2 0 43605 127 263 25 0 3 0 263 gYES ZZZ10 JUST REWOUND 43606 126 309 2 0 0 0 309 gWRITE END OF FILE 43607 126 310 2 0 0 0 310 gINFORMATION 43608 125 0 1 2 0 43609 124 188 2 0 1 0 188 43610 102 190 2 0 0 0 190 CLEAR BLOCK CNTR 42309g 42305g43611 124 188 2 0 1 0 188 CLEAR REEL CNTR 43612 102 190 18 0 0 0 190 43613 126 357 2 0 0 0 357 gCOUNT 500 MILLISECS 43614 126 362 2 0 0 0 362 gUNLOAD 43615 126 326 2 0 0 0 326 *179 gALTERNATE ROUTES 43616 124 268 6 1 0 0 268 g 43700 PROCR 437 437 REWIND 43701 NOTES RADIX B 26735g43702 126 309 2 0 0 0 309 gWRITE END OF 43703 126 310 2 0 0 0 310 gFILE INFORMATION 26736g43704 126 357 2 0 0 0 357 gCOUNT 500 MILLISECS 43705 126 340 2 0 0 0 340 g SET (MR3)=R 43706 101 3 0 1 0 43707 115 190 18 0 3 0 190 43708 105 210 7 0 0 0 210 1 43709 127 437 14 0 0 0 437 gREEL CTR=1,NO TAPE CHANGE 43710 106 210 7 0 0 0 210 SET REEL CNTR=1 43711 114 190 18 0 3 0 190 43712 126 324 2 0 0 0 324 gUNLOAD, NEW TAPE 43713 124 268 9 1 0 0 268 gRESET MOD GP 43709g43714 124 188 2 0 1 0 188 REWIND 43715 119 0 1 1 0 43716 106 210 5 0 0 0 210 SET REWIND IND TO 43717 107 190 50 0 3 0 190 COUNT 500 M-SECS 43718 101 5 1 3 0 SET BLOCK 43719 124 188 2 0 3 0 188 COUNTER=5 43720 102 190 2 0 0 0 190 43721 102 188 3 0 0 0 188 CLEAR ASSEMBLER TABLE, 43722 124 268 8 1 0 0 268 g RESET MOD GROUP 43800 PROCR 438 438 RUN FORWARD AND BACK (1) 43801 NOTES RADIX B 26740g 26739g43802 125 0 1 2 0 43803 124 438 12 1 0 0 438 gSET PP=0, QQ=0 26737g43804 126 309 2 0 0 0 309 gWRITE END OF FILE 43805 126 310 2 0 0 0 310 gINFORMATION 43806 101 1 1 3 0 STEP BACK 3 FORWARD 1 43810g43807 101 2 1 1 0 43808 126 306 2 0 0 0 306 43809 126 315 2 0 0 0 315 TEST A1 FOR FBM 43810 124 438 7 1 0 0 438 gYES STEP BACK 2 FORWARD 1 26738g43811 101 15 1 3 0 SET PP=15, QQ=0 43803g43812 124 3 0 1 0 43813 102 180 1 0 0 43814 126 341 2 0 0 0 341 gSET (MR3)=(64+R) 43815 124 2 0 1 0 CLEAR IDENTIFIER WORD 43816 124 33 0 1 0 43817 102 0 1 3 0 43900 PROCR 439 439 RUN FORWARD & BACK (2) 43901 NOTES RADIX B 44017g43902 126 315 2 0 0 0 315 gTEST A1=FBM 43903 124 440 2 1 0 0 440 gYES 43904 124 7 0 2 0 TEST HEADING BLOCK 43905 105 1 1 3 0 43906 127 441 17 0 2 0 441 gYES 43907 106 1 1 3 0 TEST SENTINEL TYPE 3 43908 105 211 7 1 0 0 211 43909 105 210 7 0 0 0 210 43910 127 441 2 0 0 0 441 gYES 43911 105 210 7 0 0 0 210 TEST SENTINEL TYPE 3 43912 127 442 18 0 0 0 442 gYES 43913 124 3 0 1 0 TEST D/B OCCURRED 43914 106 160 0 0 0 43915 127 440 2 0 1 0 440 gYES 43916 124 2 0 1 0 TEST IDENTIFIER WORD 43917 124 33 0 1 0 =0 43918 106 1 1 3 0 43919 127 440 2 0 0 0 440 gYES 43920 105 32 0 1 0 TEST REQUIRED BLOCK 43921 127 442 2 0 1 0 442 gNO 43922 106 1 1 3 0 SET BLOCK CNTR=A1 43923 124 188 2 0 1 0 188 43924 102 190 2 0 0 0 190 43925 124 3 0 1 0 43926 102 181 0 0 0 43927 124 268 9 1 0 0 268 gRESET MOD GP 44000 PROCR 440 440 RUN FORWARD & BACK (3) 44001 NOTES RADIX B 44207g 44215g 44217g 43919g 43915g 43903g44002 124 3 0 1 0 TEST PP=0 44003 106 180 0 0 0 44004 127 440 18 0 0 0 440 gYES 44005 106 212 6 0 0 0 212 44006 126 306 2 0 0 0 306 gSTEP BACK 2, STEP FORWARD 44007 126 357 2 0 0 0 357 gCOUNT 500 M.SECS 44008 124 188 2 0 1 0 188 RUN BACK 44009 119 0 0 2 0 44010 126 351 2 0 0 0 351 gTEST RTE NOTING D/B 44011 126 342 2 0 0 0 342 *019 SET (64+R) FOR HIGH DENSITY 44012 106 210 7 0 0 0 210 44029g44013 126 306 2 0 0 0 306 g STEP BACK, STEP FORWARD 44014 126 343 2 0 0 0 343 *019 CLEAR BIT 1 OF (64+R) 44023g44015 126 329 2 0 0 0 329 gREAD 44016 126 351 2 0 0 0 351 gTEST RTE NOTING D/B 44017 124 439 2 1 0 0 439 g 44116g 44004g44018 126 341 2 0 0 0 341 SET(MR3)=(64+R) 44019 106 4 1 3 0 TEST FINIS 44020 105 258 28 1 0 0 258 44021 127 442 18 0 0 0 442 gYES 44022 126 315 2 0 0 0 315 gTEST A1=FBK 44023 124 440 15 1 0 0 440 gYES 44024 124 188 2 0 1 0 188 RUN FORWARD 44025 119 0 0 3 0 44026 126 351 2 0 0 0 351 gTEST RTE NOTING D/B 44027 126 342 2 0 0 0 342 *019 SET (64+R) FOR HIGH DENSITY 44028 106 212 6 0 0 0 212 44029 124 440 13 1 0 0 440 gSTEP BACK 2, FORWARD 1 44100 PROCR 441 441 RUN FORWARD & BACK (4) 44101 NOTES RADIX B 43910g44102 106 210 7 0 0 0 210 AUGMENT REEL CNTR BY 1 44103 100 210 3 0 3 0 210 44125g44104 124 188 2 0 1 0 188 44105 107 190 18 0 0 0 190 44106 100 212 2 0 3 0 212 44107 126 357 2 0 0 0 357 COUNT 500 MILLISECS 44108 126 324 2 0 0 0 324 gUNLOAD, 'NEW' COMMENT 44109 126 410 2 0 0 0 410 gOPEN INPUT REEL 44110 126 341 2 0 0 0 341 gSET (MR3)=(64+R) 44111 124 2 0 1 0 CLEAR IDENTIFIER WORD 44112 124 33 0 1 0 44113 102 0 1 3 0 44114 126 339 2 0 0 0 339 gSET (MR3)=(3) 44115 102 180 0 3 0 SET PP=0 44116 124 440 18 1 0 0 440 g 43906g44117 126 340 2 0 0 0 340 gSET(MR3)=R 44118 101 3 0 1 0 TEST REEL NO=1 44119 115 190 18 0 3 0 190 44120 105 210 7 0 0 0 210 44121 127 442 8 0 0 0 442 gYES 44122 125 0 1 2 0 AUG MENT REEL CNTR BY-1 44123 100 210 3 0 3 0 210 44124 105 210 7 0 0 0 210 44125 124 441 4 1 0 0 441 g 44200 PROCR 442 442 RUN FORWARD & BACK (5) 44201 NOTES RADIX B 43921g44202 102 258 12 0 0 0 258 STORE DIFFERENCE, AN - REQ'D WORD 44203 126 339 2 0 0 0 339 gSET (MR3)=(3) 44204 106 180 0 3 0 TEST PP=0 44205 127 442 16 0 0 0 442 gYES 44206 106 258 12 0 0 0 258 TEST DIFFERENCE < 0 44207 127 440 2 0 2 0 440 gNO 44121g44208 126 339 2 0 0 0 339 gSET (MR3=((3) 44220g44209 102 180 0 3 0 SET PP=0 44210 106 181 0 3 0 STEP QQ BY 1 44211 104 210 7 0 0 0 210 44212 103 181 0 3 0 44213 101 6 1 2 0 *774 00002 44214 127 263 23 0 0 0 263 *773 gZZZ08 44215 124 440 2 1 0 0 440 g 44205g44216 106 258 12 0 0 0 258 TEST DIFFERENCE > 0 44217 127 440 2 0 3 0 440 gNO 44021g 43912g44218 126 339 2 0 0 0 339 gSET (MR3)=(3) 44219 124 15 0 2 0 44220 124 442 9 1 0 0 442 gSET PP=15 44300 PROCR 443 443 STEP BACK 1 44301 NOTES RADIX B 26742g44302 124 3 0 1 0 SET N NON-ZERO 44303 102 181 0 0 0 26746g44304 101 3 1 3 0 SET M=L+3 44305 124 444 7 1 0 0 444 g 43627 44306 100 4102 0 3 0 44400 PROCR 444 444 STEP BACK 2 44401 NOTES RADIX B 26745g44402 124 3 0 1 0 SET N NON-ZERO 44403 102 181 0 0 0 26741g44404 126 309 2 0 0 0 309 gWRITE END OF FILE 44405 126 310 2 0 0 0 310 gINFORMATION 44406 101 5 1 3 0 44305g44407 100 210 3 0 3 0 210 44408 104 32 0 1 0 SET M=L+5 44409 100 212 2 0 3 0 212 44410 124 3 0 1 0 44411 102 180 0 0 0 44412 106 32 0 1 0 44413 127 263 20 0 3 0 263 gYES 44414 127 444 22 0 1 0 444 gNO TEST L=0 44415 106 31 0 1 0 44416 101 44 1 2 0 TEST RTE. TYPE=44 44417 127 263 20 0 1 0 263 gNO 44418 124 188 2 0 1 0 188 TEST BLOCK COUNTER=8 44419 106 190 2 0 0 0 190 44420 101 8 1 2 0 44421 127 446 25 0 0 0 446 *019 gYES 44414g44422 125 0 1 2 0 44423 100 210 3 0 3 0 210 44424 105 32 0 1 0 STEP BLOCK CNTR BY-L-1 44425 126 331 2 0 0 0 331 g 44551g44426 126 340 2 0 0 0 340 gSET (MR3)=R 44427 100 210 3 0 3 0 210 TEST BLOCK CTR > 44428 106 190 2 0 3 0 190 NO. OF HEADING BLOCK 44429 101 6 1 2 0 44430 127 445 2 0 3 0 445 gNO 44452g44431 100 212 2 0 3 0 212 44432 101 213 12 1 3 0 213 CONVERT M 44433 124 3 0 1 0 44434 112 180 0 0 0 44435 126 306 2 0 0 0 306 gSTEP BACK M, FORWARD 1 BLOCK 44436 126 329 2 0 0 0 329 gREAD 44437 126 351 2 0 0 0 351 gTEST ROUTE NOTING D/B 44460g 44463g44438 126 315 2 0 0 0 315 gTEST A1 FOR FBM 44439 124 444 53 1 0 0 444 gFBM FOUND 44440 100 210 3 0 3 0 210 DEC 44441 126 314 2 0 0 0 314 gTEST A1=BLOCK COUNTER 44442 100 212 2 0 3 0 212 BIN 44443 127 446 10 0 0 0 446 gYES 44444 127 444 55 0 3 0 444 gYES TEST A1BLOCK COUNTER 44709 127 447 44 0 2 0 447 gYES 44710 126 329 2 0 0 0 329 g READ 44711 126 351 2 0 0 0 351 gTEST RTE NOTING D/B 44712 124 446 8 1 0 0 446 g 44705g44713 124 3 0 1 0 TEST D/B OCCURRED 44714 106 160 0 0 0 44715 127 447 21 0 0 0 447 gNO 44716 126 329 2 0 0 0 329 gREAD 44717 126 351 2 0 0 0 351 gTEST RTE NOTING D/B 44718 124 3 0 1 0 44719 106 160 0 0 0 TEST D/B OCCURRED 44720 127 263 22 0 1 0 263 gYES, ZZZ COMMENT 44715g44721 106 210 7 0 0 0 210 44722 100 210 3 0 3 0 210 STEP REEL CNTR BY 1 44723 124 188 2 0 1 0 188 44724 107 190 18 0 0 0 190 44725 126 341 2 0 0 0 341 gSET (MR3)=(64+R) 44726 106 210 7 0 0 0 210 STORE BLOCK COUNTER. 44727 105 5 1 3 0 AUGMENTED BY-A3-1 44728 124 188 2 0 1 0 188 44729 104 190 2 0 0 0 190 44730 124 3 0 1 0 44731 102 169 0 0 0 44732 100 212 2 0 3 0 212 44733 126 357 2 0 0 0 357 COUNT 500 MILLISECS 44734 126 324 2 0 0 0 324 gUNLOAD 'NEW' COMMENT 44735 126 410 2 0 0 0 410 gOPEN NEW INPUT REEL 44736 100 210 3 0 3 0 210 SET DECIMAL 44737 124 3 0 1 0 AUGMENT STORED CTR. 44738 106 169 0 0 0 BY HEADING BLOCKS 44739 101 7 1 1 0 AND RESTORE 44740 124 188 2 0 1 0 188 44741 102 190 2 0 0 0 190 44742 100 212 2 0 3 0 212 SET BINARY 44743 124 446 8 1 0 0 446 g 44709g44744 101 446 8 1 3 0 446 SELECT RETURN LOCATION 44745 124 3 0 1 0 44746 102 162 0 0 0 44747 126 323 2 0 0 0 323 gTEST OPTION LINK 44748 126 316 2 0 0 0 316 gALIGNMENT FAILURE 44749 124 446 8 1 0 0 446 g 44750 126 317 2 0 0 0 317 gREREAD 44751 126 319 2 0 0 0 319 gSTEP ATTEMPTS COUNTER 44752 124 446 8 1 0 0 446 *1et 44800 PROCR 448 448 SET REEL COUNTER 26749g44802 106 188 2 0 0 0 188 44803 103 6 1 0 0 SET(MR3)=R TEST IF M/T 401 44804 101 16 1 2 0 *224*2343:+*2443:+ 80001600024 401 44805 127 263 16 0 2 0 263 *££0*££2*223*2333:e*2433:e gNO 44806 106 190 18 0 3 0 190 TEST REEL COUNTER=0 44807 127 448 10 0 1 0 448 gNO 44808 124 3840 0 2 0 SETX=£ 44809 102 190 18 0 3 0 190 44807g44810 101 3 0 1 0 SET Y=NEW REEL NO 44811 106 32 0 1 0 44812 114 190 18 0 3 0 190 44813 124 269 6 1 0 0 269 g 44900 PROCR 449 449 SELECT REEL COUNTER 26422g44902 106 30 0 1 0 *19t 44903 103 6 1 0 0 SET(MR3)=R 44904 101 24 1 2 0 *02t*534 TEST P/T 0000000016 44905 127 449 10 0 3 0 449 *3:3*3:e243*3:e233533 gNO 44906 101 5 1 2 0 *534*0t4 0001300013 401 44907 127 263 16 0 2 0 263 *3:e 401 44908 106 252 50 0 3 0 252 *53+0t+3:+*53+3:+ 5000058 44909 124 269 6 1 0 0 269 g 44905g44910 106 6 0 0 0 *02t 401 44911 101 16 1 2 0 *234*224 1600008 44912 127 263 16 0 2 0 263 *3:t242*3:t232532 ZZZ01 44913 101 3 0 1 0 44914 125 0 1 2 0 44915 115 190 18 0 3 0 190 SELECT REEL COUNTER 44916 124 269 6 1 0 0 269 g 45000 PROCR 450 450 RELEASE-ROUTE 10019g45002 124 212 2 1 1 0 212 *13t SET MOD GROUP 0 45003 103 188 2 0 0 0 188 STORE(A) 45004 102 30 0 1 0 45005 126 250 2 0 0 0 250 *599 gSTORE MOD GROUP 3 45006 106 100 18 0 0 0 100 STORE LINK 45007 102 44 1 1 0 45008 126 353 2 0 0 0 353 gSELECT ROUTE NUMBER FROM LAST CHAPTER 45009 127 450 13 0 0 0 450 gYES TEST REQUIRED ENTRY 45010 125 2 0 3 0 TEST END OF TABLE 45011 124 353 4 1 0 0 353 gNO 45012 124 327 10 1 0 0 327 gXXXG COMMENT 45009g45013 101 16 0 1 0 STORE ROUTE TYPE 45014 115 34 0 3 0 45015 118 4124 0 0 0 45016 102 188 3 0 0 0 188 45017 105 34 1 3 0 SET ENTRY NEGATIVE 45018 127 263 24 0 2 0 263 gZZZ09 45019 102 34 1 3 0 45020 101 12 0 1 0 *17t18t 45021 115 34 0 3 0 ROUTE ALLOCATED 45022 105 210 4 0 0 0 210 45023 127 450 26 0 0 0 450 gNO 45024 104 210 4 0 0 0 210 STORE ALTERNATE ROUTE 45025 118 4126 0 0 0 AND SET 45023g45026 102 533 7 0 0 0 533 *17t18t 401 45027 101 23 1 3 0 *3:+ 23 45028 126 328 2 0 0 0 328 gCHANGE PARAMETER TABLES 45043g45029 106 188 3 0 0 0 188 SET ROUTE AVAILABLE 45030 124 188 2 0 1 0 188 45031 102 64 0 0 0 45032 100 210 9 0 2 0 210 SET (MR2)=8*CH NO 45033 115 188 2 0 0 0 188 45034 102 4 1 0 0 45035 101 1 0 1 0 CLEAR D/B INDICATOR 45036 124 188 2 0 1 0 188 45037 118 0 1 0 0 45038 114 252 4 1 2 0 252 45039 106 533 7 0 0 0 533 *17t18t 45040 127 450 44 0 0 0 450 gNO 45041 102 188 2 0 0 0 188 SET UP ALT ROUTE 45042 102 533 7 0 0 0 533 CLEAR INDICATOR 45043 124 450 29 1 0 0 450 *17t18t 45040g45044 106 214 72 1 0 0 214 45045 102 258 4 1 0 0 258 45046 126 345 2 0 0 0 345 gEDIT TIME ETC 45047 126 356 2 0 0 0 356 gSET UP PROG NO 45048 124 450 51 0 2 0 450 45049 126 363 2 0 0 0 363 gSET LINK FOR SI=5 45050 124 282 11 1 0 0 282 gOUTPUT COMMENT 45051 126 359 2 0 0 0 359 gSET SI=4 45052 124 268 9 1 0 0 268 gPROG 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 0 *342 LINK 45303 118 4124 1 0 0 STORE DIVISION NUMBER 45304 118 3 1 3 0 45305 118 4 0 0 0 45306 102 221 2 0 0 0 221 45307 118 13 1 3 0 CONVERT LOCATION WITHIN DIVISION 45308 102 222 12 0 0 0 222 45309 100 210 3 0 3 0 210 SET DECIMAL 45310 101 213 2 1 3 0 213 SELECT TABLE START 45311 112 222 12 0 0 0 222 45312 107 221 2 0 0 0 221 45313 100 212 2 0 3 0 212 SET BINARY 45314 106 221 2 0 0 0 221 45315 126 453 2 0 1 0 453 gLEAVE S/R 45400 PROCR 454 454 LOCKOUT ROUTINE 45401 NOTES RADIX B 55806g45402 124 2 0 1 0 *342 45403 100 30 1 0 0 STORE(A)(B)(C) 45404 100 212 2 0 3 0 212 SET BINARY 45405 126 474 2 0 0 0 474 gSET TAG 15 45406 124 212 2 1 1 0 212 0 SET MOD GROUP 0 45407 106 2 0 0 0 (MR1) 45408 105 107 8 0 0 0 107 M/R LINK TEST FOR M/R LOCKOUT 45409 127 455 16 0 0 0 455 g 45410 125 0 1 2 0 45411 101 15 0 1 0 COLLATE(16) 45412 115 16 0 0 0 45413 105 210 7 0 0 0 210 SUBTRACT ONE 45414 126 453 2 0 0 0 453 gCONVERT S/R 45415 102 38 0 1 0 45416 101 15 0 1 0 COLLATE LAST ENTRY POINT 45417 115 44 0 1 0 45418 126 453 2 0 0 0 453 gCONVERT S/R 45419 102 43 0 1 0 401 45420 106 1 0 0 0 *3t4 1 45421 126 453 2 0 0 0 453 gCONVERT S/R 45422 102 45 0 1 0 45500 PROCR 455 455 LOCKOUT ROUTINE (2) 45501 NOTES RADIX B 45502 123 177 2 0 2 0 177 *342 REQUEST T/W 45503 106 39 0 1 0 PROG IDENT NO 45504 102 221 2 0 0 0 221 45505 106 38 0 1 0 STORE DETAILS 45506 102 222 12 0 0 0 222 45507 106 43 0 1 0 45508 102 222 13 0 0 0 222 45509 106 45 0 1 0 45510 102 222 14 0 0 0 222 45511 124 217 2 0 2 0 217 EDIT COMMENT 45718g45512 128 102 6 1 2 0 102 45513 124 4 0 2 0 45514 126 234 2 0 0 0 234 gS/R H 45515 124 181 2 1 0 0 181 gLOG ROUTINE 45409g45516 101 84 1 3 0 CODE LETTER (D) 45517 124 208 3 1 0 0 208 g 45600 PROCR 456 456 OVERFLOW ROUTINE 45601 NOTES RADIX B 20905g45602 124 2 0 1 0 *342 STORE (A) (B),(C) 45603 100 30 1 0 0 45604 100 212 2 0 3 0 212 SET BINARY 45605 106 108 13 0 0 0 108 26/0/1/0/24 ARRANGE TO IGNORE 45606 102 25 0 0 0 FURTHER OVERFLOW 45607 124 212 2 1 1 0 212 0 SET MOD GROUP 0 45608 106 2 0 0 0 TEST IF M/R OVERFLOW 45609 105 107 8 0 0 0 107 45610 127 457 19 0 0 0 457 g 45611 106 24 0 0 0 STORE CONTENTS OF COMPARTMENT 24 45612 103 38 0 1 0 45613 118 6 0 0 0 GET RID OF TAG 45614 118 4122 0 0 0 45615 105 210 7 0 0 0 210 SUBTRACT 1 45616 126 453 2 0 0 0 453 gCONVERT S/R 45617 102 45 0 1 0 45618 106 209 5 0 0 0 209 24/1/0/282/0 45619 102 25 0 0 0 RESET (25) 45620 126 177 2 0 0 0 177 gREQUEST T/W 45621 106 39 0 1 0 PROG.IDENT.NO 45622 102 221 2 0 0 0 221 W/L 45700 PROCR 457 457 OVERFLOW ROUTINE 2 45701 NOTES RADIX B 45702 124 2 0 1 0 *342 45703 100 30 1 1 0 SELECT DETAILS & 45704 100 222 12 1 0 0 222 STORE IN FIXED AREAS 45705 100 212 2 0 3 0 212 RESET(C) BINARY 45706 106 45 0 1 0 45707 102 221 3 0 0 0 221 45708 124 3 0 1 0 *60t TEST IF TRIAL 45709 106 11 0 0 0 45710 127 457 17 0 0 0 457 gNO 45711 106 38 0 1 0 TEST IF O'FLOW 45712 118 6 0 0 0 45713 118 4122 0 0 0 45714 101 535 2 1 2 0 535 IN M/R AREA 45715 124 233 45 0 1 0 233 45716 127 3 0 2 0 *60t gNO 45710g45717 124 216 2 0 2 0 216 45718 124 455 12 1 0 0 455 g 45610g45719 101 83 1 3 0 CODE LETTER (C) 45720 124 208 3 1 0 0 208 g 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 0 LINK 46039g45903 102 222 19 0 0 0 222 FUNCTION NUMBER 45904 106 4 0 0 0 TEST CONTROL DATA 45905 105 100 28 0 0 0 100 RTE ACCEPTABLE 45906 127 460 45 0 3 0 460 gNO, REJECT 45907 106 100 29 0 0 0 100 45908 105 4 0 0 0 45909 127 460 45 0 3 0 460 gNO, REJECT 45910 106 64 0 2 0 45911 102 222 18 0 0 0 222 W/L 45912 106 209 8 0 0 0 209 14/0/0/17/60 SET UP (64+R) 45913 102 64 0 2 0 45914 126 107 8 1 1 0 107 SET (MR1) FOR M/R 45915 106 209 9 0 0 0 209 SET UP (64+R1) 45916 103 127 0 0 0 45917 102 227 2 0 0 0 227 *103 45918 101 5 1 3 0 *14t SET OPT P1 SWITCH 45919 102 296 6 0 0 0 296 *14t 45920 101 63 1 3 0 *101 45921 118 4118 1 0 0 45922 106 4 0 0 0 *04t*02t TEST PAPER TAPE OR 45923 105 100 31 0 0 0 100 CARD ROUTE 45924 127 460 41 0 2 0 460 *04t*02t gCARDS 45925 101 5 1 3 0 *02+ 00006 46042g45926 118 5 0 0 0 45927 104 4 0 0 0 ROUTE NO 45928 100 222 20 1 0 0 222 STORE (AB) 45929 126 100 2 0 0 0 100 gI/P O/P CONTROL READ 45930 100 222 20 1 1 0 222 *102 45931 126 100 2 0 0 0 100 *102 45932 106 222 18 0 0 0 222 RESTORE (64+R) 45933 124 222 20 0 1 0 222 45934 102 64 0 0 0 45935 106 211 2 0 0 0 211 SET ASSEMBLER TABLE AT £5 45936 124 100 30 0 1 0 100 45937 102 252 3 0 0 0 252 45938 102 296 6 0 0 0 296 *149 CLEAR OPTA SWITCH 45939 106 222 19 0 0 0 222 TEST FN=0 (I.E. PLS) 401 45940 127 460 40 0 0 0 460 *20e 46000 PROCR 460 460 SUB ROUTINE G (CONT) 46001 NOTES RADIX B 46002 106 226 2 1 0 0 226 TEST 1ST WORD OF 46003 105 211 10 1 0 0 211 BLOCK IS CD WORD 46004 127 498 2 0 1 0 498 gNO, REJECT 46005 106 226 5 1 0 0 226 TEST 2ND WORD ZERO 46006 103 222 10 0 0 0 222 STORE IT 46007 127 460 14 0 1 0 460 gNO 46008 101 5 0 1 0 TEST RTI COMMAND 46009 115 233 7 0 0 0 233 46010 101 1025 1 2 0 46011 127 460 14 0 0 0 460 gYES 46012 101 5 1 2 0 *4t4 00003 46013 127 460 43 0 3 0 460 gNO 46011g 46007g46014 106 226 7 1 0 0 226 STORE SERIAL NO OR CH 8 RTE NO 46015 102 222 11 0 0 0 222 46016 106 233 7 0 0 0 233 46017 102 185 0 0 0 46018 106 226 9 1 0 0 226 STORE RUN NUMBER 401 46019 102 229 3 0 0 0 229 *3t4*3e+ 300003 46020 106 222 19 0 0 0 222 TEST ALLOCATE 46021 101 2 1 2 0 COMMAND 46022 127 460 27 0 0 0 460 gYES 46023 101 2 1 2 0 46024 127 460 27 0 0 0 460 gYES 46025 101 5 1 2 0 401 46026 127 460 40 0 1 0 460 *20e20e 46024g 46022g46027 106 214 6 1 0 0 214 BE WORD INTO ANNEX 46028 102 226 18 1 0 0 226 46029 106 258 17 0 0 0 258 CLEAR WORKING LOCAMONS 46030 101 18 1 2 0 SET UP REG A FOR CLEAR 46031 118 5 0 0 0 46032 128 225 6 0 0 0 225 46033 124 219 2 0 2 0 219 UNPACK ALLOC DATA FR.TRIALgCH CH RT 46034 128 226 10 0 3 0 226 46035 106 233 23 0 0 0 233 *01t TEST HIGH DENSITY 401 46036 127 460 40 0 0 0 460 *20e 46037 106 222 20 0 0 0 222 ROUTE NUMBER 46038 102 4 1 0 0 46039 124 459 3 1 0 0 459 *01t 46036g 46026g 45940g46040 126 459 2 0 1 0 459 g LEAVE S/R 45924g46041 101 6 1 3 0 *04t*02t 46042 124 459 26 1 0 0 459 *04t*02t 46013g46043 124 81 0 2 0 CODE LETTER A 46044 124 498 3 1 0 0 498 g 45909g 45906g46045 124 83 0 2 0 CODE LETTER C 46046 124 498 5 1 0 0 498 46100 PROCR 461 461 SUB-ROUTINE Q 46101 NOTES RADIX B TO FORM STORE CONTROL DATA RTE NO 46102 100 0 0 0 0 LINK 46103 101 2 0 1 0 FILL Q2B 46104 125 0 1 2 0 DRAIN 46105 115 222 2 0 0 0 222 IND. SETTING 46106 118 4127 1 0 0 FORM & STORE ROUTE NO. 46107 104 100 30 0 0 0 100 46108 102 4 0 0 0 46109 126 461 2 0 1 0 461 gLEAVE 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 0 LINK 46203 106 462 2 0 0 0 462 STORE LINK IN SPECIAL CHAPTER 46204 124 3 0 1 0 46205 102 169 0 0 0 46206 106 487 2 0 0 0 487 TEST IF ALLOCATOR 46207 127 462 13 0 0 0 462 gNO LINK SET 46208 124 462 6 0 2 0 462 SET LINK FOR SI=5 46209 102 42 0 1 0 46210 126 360 2 0 0 0 360 gSET SI=5 29105g46211 124 2 0 1 0 46212 124 9 1 0 0 gTO S(I+1) 46207g46213 106 9 0 1 0 SET SI=2 46214 103 7 0 1 0 46215 102 487 2 0 0 0 487 SET ALLOCATOR LINK 46216 125 127 1 0 0 SET I1-7 46217 124 3 0 1 0 46218 126 169 0 1 0 gLEAVE S/R 46300 PROCR 463 463 STORE DUMP 46301 NOTES RADIX B INITIAL SET-UP ROUTINE (1) 52305g46302 106 220 11 0 0 0 220 *41t 46303 103 487 2 0 0 0 487 SET ALLOCATOR LINK 46304 102 296 6 0 0 0 296 *149 SET OPT A SWITCH AT 4 46305 106 1 0 0 0 *3tt 46306 102 227 9 1 0 0 227 *3tt*106 46307 106 100 2 0 0 0 100 DIV 0 LOCS 160/161 46308 102 227 43 1 0 0 227 *106 401 46309 106 191 0 0 0 *3t4 191 46310 102 227 47 1 0 0 227 *106 46311 102 227 6 1 0 0 227 *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 0 107 *41t SET MR1 FOR M/R 46403 102 2 1 0 0 46404 106 108 12 0 0 0 108 SET M/R SWITCH 46405 102 106 8 0 0 0 106 NON-INT 46406 102 109 17 0 0 0 109 CLEAR MODIFIER 46407 126 472 2 0 0 0 472 gSTORE RTE 7 DETAILS 46408 106 209 9 0 0 0 209 SET UP ASL'S 46409 124 233 26 0 1 0 233 IN 46410 102 64 0 0 0 (71) OR(79)&(126) 46411 106 209 8 0 0 0 209 46412 102 126 0 0 0 46413 106 233 46 0 0 0 233 *60t TEST TRIAL IN 46414 124 233 45 0 1 0 233 46415 127 1 0 1 0 *60t ENTER PTS 46416 100 214 10 1 2 0 214 OPEN O/P FILE 46417 101 18 1 3 0 46418 126 237 2 0 0 0 237 gI/P-O/P S/R 46419 106 214 6 1 0 0 214 B/E WD 46420 103 227 54 1 0 0 227 *101 46421 102 226 54 1 0 0 226 46422 126 470 2 0 0 0 470 gWRITE S/R LOCATIONS BLOCK 46500 PROCR 465 465 STORE DUMP 46501 NOTES RADIX B DUMP ROUTINE (1) 46502 106 230 2 0 0 0 230 *41t M/R PROG NO SET UP FIRST 46503 102 226 7 1 0 0 226 HEADING BLOCK 46504 106 100 17 0 0 0 100 DATE 46505 102 226 9 1 0 0 226 46506 106 156 0 0 0 TIME 46507 102 226 11 1 0 0 226 46508 124 130 2 0 2 0 130 PRIORITY QUEUE END 46509 102 226 19 1 0 0 226 46537g46510 126 470 2 0 0 0 470 gWRITE S/R 46511 124 109 17 0 1 0 109 SET UP FURTHER 46512 106 230 5 0 0 0 230 HEADING BLOCKS 46513 124 126 0 3 0 46514 103 5 1 0 0 46515 105 211 2 0 0 0 211 TEST FOR £5 46516 127 466 2 0 0 0 466 gYES 46517 124 109 17 0 3 0 109 46518 124 230 5 0 3 0 230 46519 106 39 0 0 0 PROG NO 46520 124 126 0 3 0 46521 102 5 1 0 0 46522 124 109 17 0 3 0 109 46523 124 230 5 0 3 0 230 46524 124 37 0 3 0 46525 106 4 0 0 0 NO OF CHAPS 46526 124 126 0 3 0 46527 102 7 1 0 0 46528 124 109 17 0 3 0 109 FORM BULK COPY TABLE 46529 124 230 5 0 3 0 230 46530 124 37 0 3 0 46531 124 20 0 2 0 46532 104 108 16 1 0 0 108 46533 124 126 0 3 0 COPY CHAPTER 46534 128 9 0 1 0 INFORMATION 46535 101 2 1 3 0 STEP MODIFIER 46536 107 109 17 0 0 0 109 46537 124 465 10 1 0 0 465 gNEXT PROG 46600 PROCR 466 466 STORE DUMP 46601 NOTES RADIX B DUMP ROUTINE(2) 46516g46602 101 4 1 3 0 *41t PREPARE FOR 46603 102 109 17 0 0 0 109 MAIN LOOP 46604 102 109 16 0 0 0 109 46605 102 109 18 0 0 0 109 CLEAR COUNTER 46606 101 8 0 1 0 46607 115 153 0 0 0 SET UP STORE SIZE 46608 103 109 19 0 0 0 109 46609 102 108 28 0 0 0 108 SET UP ABSURD TAG 46610 126 469 2 0 0 0 469 gTEST END OF BLOCK S/R 46700 PROCR 467 467 STORE DUMP 46701 NOTES RADIX B DUMP ROUTINE (3)-MAIN OUTPUT LOOP 46719g46702 124 109 18 0 3 0 109 *41t TEST FOR NEW TAG 46703 123 0 0 3 0 46704 105 108 28 0 0 0 108 46705 127 467 11 0 0 0 467 gNO 46706 107 108 28 0 0 0 108 SET UP NEW TAG 46707 106 108 28 1 0 0 108 46708 124 109 16 0 3 0 109 46709 102 4 1 0 0 46710 126 469 2 0 0 0 469 gTEST END OF BLOCK S/R 46705g46711 101 2 1 3 0 FORM BULK SET UP NEXT 46712 118 5 0 0 0 COPY TABLE LONG WORD 46713 104 109 18 0 0 0 109 OF STORE 46714 124 109 16 0 3 0 109 46715 128 5 0 1 0 46716 126 469 2 0 0 0 469 gTEST END OF BLOCK S/R 46717 123 2 0 0 0 STEP COUNTER TEST END OF STORE 46718 100 109 18 0 0 0 109 46719 124 467 2 1 0 0 467 gNO 46720 126 470 2 0 0 0 470 gWRITE S/R 46800 PROCR 468 468 STORE DUMP 46801 NOTES RADIX B END ROUTINE (1) 46802 101 28 1 3 0 *41t CLOSE O/P FILE 46803 126 237 2 0 0 0 237 gI/P-O/P S/R 46804 124 214 52 0 2 0 214 29709g46805 123 168 0 2 0 46806 125 0 1 2 0 DRAIN 46807 102 296 6 0 0 0 296 *149 CLEAR OPT A SWITCH 46808 106 233 46 0 0 0 233 *60t TEST IF PTS 46809 124 233 45 0 1 0 233 46810 127 2 0 1 0 *60t gYES 46811 106 108 10 0 0 0 108 RESTORE ASL 46812 124 233 26 0 1 0 233 46813 102 64 0 0 0 46814 124 246 15 1 0 0 246 gNO 46900 PROCR 469 469 STORE DUMP 46901 NOTES RADIX B TEST END OF BLOCK SUBROUTINE 46902 100 0 0 0 0 *41t LINK 46903 123 4 0 0 0 STEP MODIFIER TEST END OF BLOCK 46904 100 109 16 0 0 0 109 46905 126 469 2 0 1 0 469 gNO 46906 126 470 2 0 0 0 470 gWRITE S/R 46907 106 126 0 0 0 SET UP BLOCK SIZE MODIFIER 46908 103 109 16 0 0 0 109 46909 101 48 1 1 0 46910 102 109 17 0 0 0 109 46911 126 469 2 0 1 0 469 g 47000 PROCR 470 470 STORE DUMP 47001 NOTES RADIX B WRITE SUBROUTINE 47002 100 0 0 0 0 *41t LINK 47003 100 108 14 0 2 0 108 47004 101 8 1 3 0 47005 126 237 2 0 0 0 237 gI/P-O/P S/R 47006 106 108 14 1 0 0 108 47007 124 126 0 1 0 BULK CLEAR TA 47008 128 0 0 0 0 47009 126 474 2 0 0 0 474 gSET TAG 15 S/R 47010 126 470 2 0 1 0 470 g 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 0 *41t60t*41t45t 47203 100 220 3 0 2 0 220 PACKS BITS 1-3 IN 47204 106 220 3 0 0 0 220 ROUTE INDICATOR 47205 114 233 26 0 0 0 233 47206 124 233 26 0 1 0 233 47207 106 64 0 0 0 RTE 7 A.S.L. 47208 102 108 10 0 0 0 108 47209 124 233 26 0 1 0 233 CLEAR REEL COUNTER 47210 102 190 18 0 0 0 190 47211 126 472 2 0 1 0 472 gLEAVE 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 0 LINK 47403 106 209 3 0 0 0 209 SET (9) TO IGNORE INTERRUPTION 47404 102 9 0 0 0 47405 126 474 6 0 3 0 474 SET TAG 15 47406 115 474 7 0 0 0 474 47407 125 4096 1 1 0 SET NON-INT 47408 106 209 4 0 0 0 209 47409 102 9 0 0 0 RE-SET(9) 47410 126 474 2 0 1 0 474 g 47500 PROCR 475 475 THE UNLOADER-PRELIMINARIES 29561g47502 126 107 8 1 1 0 107 SET MR1 FOR MASTER 47503 106 221 12 0 0 0 221 PROG ID LOCATE PROG IN PQ 47504 126 479 2 0 0 0 479 gS/R M* 47505 124 476 4 1 0 0 476 gNOT FOUND 47506 102 230 2 0 2 0 230 REMOVE PROG FROM PQ 47507 106 230 3 0 2 0 230 START OF SWITCH 47508 102 6 0 0 0 47509 124 270 2 0 2 0 270 *464 00004 47510 102 42 0 3 0 47600 PROCR 476 476 OUTPUT COMMENT 47602 101 482 2 1 3 0 482 47603 124 478 2 1 0 0 478 gOUTPUT COMMENT 47505g47604 101 97 1 3 0 J 47605 124 208 3 1 0 0 208 gXXX COMMENT 47700 PROCR 477 477 COMMAND REJECTION COMMENT 51704g 51706g 51804g47702 101 81 1 3 0 *362 CODE LETTER(A) 47703 124 477 5 1 0 0 477 51808g47704 101 82 1 3 0 CODE LETTER(B) 49103g 47703g47705 102 221 4 0 0 0 221 47706 124 481 2 0 2 0 481 START OF TABLE 47707 124 478 2 1 0 0 478 *362 gCOMMENT 50005g 50007g 50105g 50905g 51006g 19943g47708 124 481 22 0 2 0 481 START OF TABLE 47800 PROCR 478 478 OPERATOR INTERVENTION END ROUTINE 48411g 49110g 51920g 47707g 47603g47802 102 221 13 0 0 0 221 W/L 47803 126 177 2 0 0 0 177 gREQUEST T/W 47804 106 221 13 0 0 0 221 START OF TABLE 47805 128 102 6 1 2 0 102 SET UP COMMENT 49814g 50622g 50805g 50928g 51122g 51229g 51520g 52518g47806 126 234 2 0 0 0 234 gS/R M 47807 126 480 2 0 0 0 480 47808 124 181 2 1 0 0 181 gLOG ROUTINE 47900 PROCR 479 479 SUB-ROUTINE M*-TO SEARCH PRIORITY TABLE 47902 100 0 0 0 0 LINK 47903 102 221 2 0 0 0 221 STORE PROGRAMME NUMBER 47904 102 4 1 0 0 CLEAR (MR2) 47912g47905 106 230 2 0 2 0 230 TEST REQUIRED 47906 105 221 2 0 0 0 221 PROGRAMME 47907 127 479 13 0 0 0 479 gYES 47908 106 230 2 0 2 0 230 TEST END OF TABLE 47909 105 211 2 0 0 0 211 47910 127 479 15 0 0 0 479 gYES 47911 125 2 0 2 0 STEP(MR2) 47912 124 479 5 1 0 0 479 g 47907g47913 124 479 2 0 1 0 479 47914 124 1 1 0 0 gLEAVE S/R+1 47910g47915 126 479 2 0 1 0 479 gLEAVE S/R 48000 PROCR 480 480 END ROUTINE AFTER ALLOCATION-OVERLAY-STORE DUMP 48001 NOTES RADIX AND OPERATOR INTERVENTION 48002 100 0 0 0 0 48003 125 1919 1 2 0 SET L2 IF INDICATORS STACKED 48004 101 127 1 2 0 48005 102 103 3 0 0 0 103 48006 125 6143 1 1 0 RESET INDICATORS 48007 106 108 11 0 0 0 108 48008 102 106 8 0 0 0 106 SET M/R SWITCH INT 48009 102 487 2 0 0 0 487 48010 102 296 6 0 0 0 296 *149 48011 106 103 2 0 0 0 103 TEST OPTION OUTSTANDING 48012 127 480 14 0 0 0 480 48013 125 128 1 0 0 48012g48014 126 480 2 0 1 0 480 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£e093*2£e063*2£309e06e 48300 PROCR 483 483 MINI-STORE PRINT 48400 PROCR 484 484 REJECT PROGRAMME 29624g48402 101 86 1 3 0 *149 LETTER'F'FROM OPT A SWITCH 48403 102 221 4 0 0 0 221 REJECT AFTER UNLOADING OTHER PROGS 48404 124 212 2 1 1 0 212 SET MOD GROUP 0 48405 106 218 6 1 0 0 218 RESTORE MOD GP 3 REGISTERS 48406 128 26 0 0 0 48407 123 26 1 0 0 *59t SET TAG 0 48408 123 30 1 0 0 IN MOD GROUP 3 48409 123 28 1 0 0 *59t 48410 124 485 2 0 2 0 485 START OF EDIT TABLE 48411 124 478 2 1 0 0 478 g 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 0 LINK 48703 125 0 1 2 0 DUMMY ACTION FOR REFERENCES 48704 106 225 8 1 0 0 225 STORE(A) 48705 102 232 2 1 0 0 232 48706 106 225 10 1 0 0 225 STORE(B) 48707 102 232 4 1 0 0 232 48708 106 225 7 1 0 0 225 TEST TRIALS ALLOC 48709 127 487 17 0 0 0 487 *36e60e*36360e gNO 48710 106 233 46 0 0 0 233 *60t TEST TRIAL ALREADY IN PROCESS 48711 127 487 22 0 1 0 487 *363 gYES CREJC 48712 106 210 7 0 0 0 210 SET TRIALS BIT IN 48713 107 233 7 0 0 0 233 ALLOC COMMAND 48714 106 225 7 1 0 0 225 STORE TRIALS IND 48715 102 222 7 0 0 0 222 48716 102 225 6 1 0 0 225 *60t CLEAR TRIALS IND 48709g48717 106 222 10 1 0 0 222 STORE PROG 1D AND SERIAL NO 48718 103 221 8 1 0 0 221 48719 126 479 2 0 0 0 479 gS/R M 401 48720 124 488 2 1 0 0 488 *3t3*3ee 48721 124 487 23 1 0 0 487 *363363 gC REJ B 48711g48722 101 1 1 3 0 *362 C 48721g48723 101 82 1 1 0 B 48724 124 491 3 1 0 0 491 48800 PROCR 488 488 LOCATE A PIECE OF STORAGE FOR THE FIRST CHUNK OF P.L.S. 48801 NOTES RADIX B 48720g48802 106 218 10 1 0 0 218 *01t 48803 128 497 2 1 1 0 497 *01t 48804 106 211 2 1 0 0 211 48805 101 231 2 1 0 0 231 TABLE 48806 105 231 2 1 0 0 231 TEST START 48807 127 488 17 0 0 0 488 gYES 48808 118 10 1 0 0 48809 101 2 1 2 0 48810 102 4 1 0 0 48811 106 1 0 2 0 48812 101 360 1 2 0 BIG ENOUGH? 48813 127 488 16 0 3 0 488 gNO 48814 104 0 0 2 0 48815 124 488 23 1 0 0 488 g 48813g48816 125 0 1 2 0 DRAIN 48807g48817 126 479 2 0 0 0 479 gS/R M* SEARCH FOR A ZERO 401 48818 124 491 2 1 0 0 491 *3t33t3*3ee3ee 48819 124 4 0 1 0 STORE TABLE 48820 124 230 3 0 1 0 230 START 48821 124 37 0 1 0 OF 48822 124 140 0 2 0 STRIP 48815g48823 102 233 4 0 0 0 233 48824 124 233 4 0 1 0 233 FORM & STORE 13-BIT FORM OF 48825 101 0 1 3 0 START OF STRIP 48826 102 233 3 0 0 0 233 48900 PROCR 489 489 LOCATE PROGRAMME 48901 NOTES RADIX B 48902 106 108 11 0 0 0 108 SET M/R SWITCH INT. 48903 102 106 8 0 0 0 106 48904 100 210 7 0 2 0 210 *572*60t 48905 115 233 7 0 0 0 233 48906 127 489 8 0 0 0 489 gNO 48907 106 220 3 0 0 0 220 *60t SET BITS 1-3 OF RTE 48906g48908 100 220 3 0 2 0 220 48909 114 233 26 0 0 0 233 *572 48910 106 209 8 0 0 0 209 SET UP A.S.L'S. 48911 124 233 26 0 1 0 233 48912 102 64 0 0 0 48913 106 209 9 0 0 0 209 48914 102 124 0 0 0 48915 126 241 2 0 0 0 241 gS/R A 48916 124 489 17 1 0 0 489 gFILE HAS BEEN OPENED 48916g48917 126 242 2 0 0 0 242 gS/R B 48918 124 491 4 1 0 0 491 *363363 gREJ 48919 106 108 12 0 0 0 108 SET M/R SWITCH 48920 102 106 8 0 0 0 106 NON-INT 49000 PROCR 490 490 LOAD FIRST CHAPTER 49001 NOTES RADIX B 49002 101 1 1 3 0 *14t SET OPTA SWITCH AT 1 49003 102 296 6 0 0 0 296 *14t 49004 106 218 2 1 0 0 218 STORE MOD GP 3 REGISTERS 49005 128 222 12 0 0 0 222 49006 106 233 4 0 0 0 233 SET UP (28) FOR STACKING 49007 103 28 1 0 0 49008 103 4 0 0 0 SET UP MR2 FOR STACKING TAG 14 49009 101 360 1 1 0 49010 102 5 0 0 0 49011 126 474 2 0 0 0 474 gSET TAG 15 49012 124 14 0 2 0 STACK TAG 14 49015g49013 123 0 1 2 0 49014 125 2 0 2 0 49015 124 490 13 1 0 0 490 49016 101 14 1 3 0 *59t SET TAG 14 IN MR2 OF MG6 TO 49017 123 26 1 0 0 49018 123 30 1 0 0 49019 123 28 1 0 0 *59t KID PLS INTO ALLOCATING MG3 49020 124 233 2 0 2 0 233 PARAMETER TABLE START 49021 126 247 2 0 0 0 247 gLOAD S/R 49022 126 233 4 0 1 0 233 gTO PROGRAMME LOADING SYSTEM 49100 PROCR 491 491 49101 NOTES RADIX B PROCEDURE AFTER FAILURE TO ALLOCATE 48818g49102 101 85 1 3 0 *361 48724g 29626g49103 124 477 5 1 0 0 477 *364 g 00008 48918g 24156g49104 101 81 1 3 0 *362 CODE LETTER A 49105 102 221 4 0 0 0 221 49106 106 224 4 1 0 0 224 SET UP PROGRAM FOUND FOR COMMENT 49107 102 222 10 1 0 0 222 49108 102 224 4 1 0 0 224 CLEAR IDENTITY LAST PROGRAM USED 49109 124 493 2 0 2 0 493 START OF EDIT TABLE 49110 124 478 2 1 0 0 478 g 49200 CONST 492 492 1 *38 FIXED COMMENT 49202 (A)PTAPE; *07t 49204 (A)PCARD; *07t 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*61e 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 *0et '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 *0et 49600 CONST 496 496 1 DUMMY PROCEDURE FOR VARIABLE ALLOCATION 49700 CONST 497 497 1 STORED HIGH DENSITY 49702 (D)0; *01t65t 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 46004g49802 124 82 0 2 0 CODE LETTER B 46044g49803 124 222 20 0 1 0 222 SET ROUTE TO MANUAL 49804 119 0 1 3 0 52520g 46046g 29716g49805 102 221 4 0 0 0 221 49806 126 177 2 0 0 0 177 gREQUEST T/W 49807 106 214 28 1 0 0 214 SET UP NO CD 49808 102 102 6 1 0 0 102 49809 106 221 4 0 0 0 221 SET UP CODE LETTER 49810 102 102 8 1 0 0 102 49811 124 197 4 0 2 0 197 SET UP L/E'S 49812 128 102 10 1 2 0 102 49813 124 4 0 2 0 49814 124 478 6 1 0 0 478 g 49900 PROCR 499 499 READ CONTROL DATA WITHOUT CHECKS 49901 NOTES RADIX B 49902 100 0 0 0 0 *01t 49903 126 499 2 0 1 0 499 *01t 50000 PROCR 500 500 SUB-ROUTINE R 50001 NOTES RADIX B TO OBTAIN AND CHECK FUNCTION NUMBER 50002 100 0 0 0 0 LINK 50003 102 221 2 0 0 0 221 STORE LIMIT 50004 115 222 2 0 0 0 222 TEST IF FUNCTION 50005 127 477 8 0 0 0 477 gYES,REJECT NUMBER=0 50006 105 221 2 0 0 0 221 TEST IF OUTSIDE 50007 127 477 8 0 2 0 477 gYES,REJECT LIMIT 50008 104 221 2 0 0 0 221 50009 126 500 2 0 1 0 500 gLEAVE S/R 50100 PROCR 501 501 FORM CHECK,AND STORE PARAMETER FROM I5-7 50102 100 0 0 0 0 *07t5:t6tt 50103 101 2 0 1 0 TEST RANGE 50104 115 185 0 0 0 COLLATE Q2 50105 127 477 8 0 2 0 477 gOUT OF RANGE 50106 101 0 1 3 0 FORM PARAMETER 50107 115 222 2 0 0 0 222 50108 118 4127 0 0 0 50109 103 108 27 0 0 0 108 50110 126 177 2 0 0 0 177 gREQUEST T/W 50111 106 108 27 0 0 0 108 SET UP MR2 50112 103 4 0 0 0 STORE IT 50113 126 501 2 0 1 0 501 gLEAVE 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 0 *09t08t07t5:t69t68t67t66t6tt86t86t 50303 101 12 1 3 0 *86+6t+*86+ 0001000011 50304 126 500 2 0 0 0 500 g S/R R 50305 102 503 8 0 0 0 503 50306 124 503 8 0 1 0 503 50307 126 503 8 0 1 0 503 50308 100 477 8 0 0 0 477 GEN CONST FUNCTION NO 401 50309 100 477 8 0 0 0 477 *££0*££2*09e*3+e*08e*07e*02e*04e*5:e 401 50310 100 477 8 0 0 0 477 *££0*££2*09e*3+e*08e*07e*02e*04e*5:e 50311 100 506 2 0 0 0 506 *08e PRINT PRIORITY LIST 50312 100 507 2 0 0 0 507 *07e*02e*04e gPREFER PT 401 50313 100 477 8 0 0 0 477 *££0*££2*09e*3+e*08e*07e*02e*04e*5:e 50314 100 509 2 0 0 0 509 *69e gREWIND AND UNLOAD 50315 100 510 2 0 0 0 510 *68e gAVAILABLE ROUTES 50316 100 512 2 0 0 0 512 *67e gAVAILABLE STORAGE 401 50317 100 477 8 0 0 0 477 *69e*68e*67e*66e*6te 401 50318 100 477 8 0 0 0 477 *69e*68e*67e*66e*6te 50319 100 515 2 0 0 0 515 *869 gPREFER 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 0 177 *08t gREQUEST T/W 50603 101 1008 0 1 0 50604 115 214 8 1 0 0 214 P.SP.Q 50605 102 102 6 1 0 0 102 COMMENT 50606 102 4 1 0 0 MR2 CLEAR MR2 50607 102 6 1 0 0 MR3 50619g50608 106 230 4 0 2 0 230 50609 127 506 18 0 0 0 506 gZERO,PROGRAM ABANDONED 50610 106 230 4 1 2 0 230 PRIORITY TABLE ENTRY 50611 103 221 2 1 0 0 221 W/L 50612 105 211 2 1 0 0 211 15'S TEST END OF TABLE 50613 127 506 20 0 0 0 506 gYES 1ST TEST 50614 124 494 2 0 2 0 494 TABLE START 50615 124 6 0 1 0 50616 128 102 8 1 2 0 102 EDIT ENTRY 50617 125 4 0 3 0 50609g50618 125 2 0 2 0 50619 124 506 8 1 0 0 506 g 50613g50620 106 105 6 0 0 0 105 LE'S FOR END OF COMMENT 50621 102 102 8 1 3 0 102 50622 124 478 6 1 0 0 478 g 50700 PROCR 507 507 GP1 FN4: PREFER P/T, PREFER CARDS 50702 101 32 1 2 0 *07t*02t*04t RANGE CHECK 50703 126 501 2 0 0 0 501 FORM,CHECK AND STORE PARAMETER 50704 102 233 35 0 0 0 233 STORE INDICATOR 50705 124 4 0 1 0 MODIFY FOR PTAPE OR PCARDS 50706 106 492 2 1 2 0 492 50707 102 102 6 1 0 0 102 50708 106 214 68 1 0 0 214 L/E L/E 50800 PROCR 508 508 GP1 FN5: OMIT CATEGORIES 50802 102 102 8 1 0 0 102 *07t5:t*02t5:t*04t5:t 50803 106 214 68 1 0 0 214 L/E L/E 50804 102 102 10 1 0 0 102 50805 124 478 6 1 0 0 478 gEND ROUTINE 50806 100 0 0 0 0 50900 PROCR 509 509 REWIND AND UNLOAD PROGRAM TAPE COMMANDS 50902 101 32 1 2 0 *69t 50903 101 2 0 1 0 TEST RANGE 50904 115 185 0 0 0 COLLATE Q2 50905 127 477 8 0 2 0 477 gOUT OF RANGE 50906 118 4127 0 1 0 50907 101 2 1 1 0 50908 118 2 0 3 0 50909 103 429 2 0 0 0 429 50910 127 509 13 0 0 0 509 gYES 50911 101 34 1 3 0 34 50912 124 509 14 1 0 0 509 gSKIP 50910g50913 101 27 1 3 0 27 50912g50914 118 4118 1 0 0 SHIFT(AB) 50915 106 258 28 1 0 0 258 FINIS 401 50916 124 64 0 1 0 *3:+ 64 50917 102 4 1 0 0 50918 118 15 1 0 0 SHIFT(AB) 50919 126 100 2 0 0 0 100 I/P O/P S/R 50920 126 177 2 0 0 0 177 gREQUEST T/W 50921 106 215 14 1 0 0 215 TAPE 50922 102 102 6 1 0 0 102 50923 124 429 2 0 1 0 429 50924 100 215 16 1 1 0 215 50925 100 102 8 1 0 0 102 50926 100 213 3 0 3 0 213 50927 125 0 1 2 0 CLEAR A 50928 124 478 6 1 0 0 478 *69t gT/W 49600 51000 PROCR 510 510 GP1 FN7 AVAILABLE ROUTES COMMAND 51002 126 177 2 0 0 0 177 *68t REQUEST TYPEWRITER 51003 101 2 0 1 0 51004 115 185 0 0 0 51005 101 128 1 2 0 401 51006 127 477 8 0 2 0 477 *3:e C REJ 51007 101 128 1 1 0 51008 127 510 13 0 1 0 510 gNOT CHANNEL 0 51009 101 3 1 3 0 SET UP ZERO 51010 118 3 0 0 0 51011 102 221 2 1 0 0 221 401 51012 124 510 16 1 0 0 510 *3:e3:e 51008g51013 103 221 3 1 0 0 221 SET UP CH NUMBER 51014 118 4127 0 0 0 51015 118 3 0 3 0 51012g51016 102 500 2 0 0 0 500 51017 101 12 0 1 0 *3:1 51018 106 215 10 1 0 0 215 51019 115 221 2 1 0 0 221 51020 102 102 6 1 0 0 102 51021 106 500 2 0 0 0 500 SET UP IND MOD REG 51022 103 533 2 0 0 0 533 8*CH 51023 101 8 1 1 0 9*CH 51024 102 533 3 0 0 0 533 51025 102 533 4 1 0 0 533 MOD REG FOR TYPING 51118g51026 124 533 2 0 1 0 533 ROUTE 51027 106 64 0 0 0 51028 118 4127 1 0 0 TEST AVAILABLE 51029 127 510 40 0 0 0 510 gYES 51030 101 255 1 2 0 TEST POTENTIALLY AVAILABLE 401 51031 127 511 2 0 1 0 511 *8ee gNO 51032 106 533 2 0 0 0 533 POTENTIALLY AVAILABLE 51033 105 500 2 0 0 0 500 51034 127 510 36 0 1 0 510 51035 101 48 1 1 0 51034g51036 118 3 0 0 0 51037 118 3 1 0 0 51038 101 955 0 1 0 51039 124 511 10 1 0 0 511 g 51029g51040 106 533 2 0 0 0 533 AVAILABLE 51041 105 500 2 0 0 0 500 51042 127 510 44 0 1 0 510 51043 101 48 1 1 0 51042g51044 118 3 0 0 0 51045 118 3 1 0 0 51046 101 907 0 1 0 51047 124 511 10 1 0 0 511 g 51100 PROCR 511 511 GP1 FN7 AVAILABLE ROUTES COMMAND(2) 51031g51102 106 533 2 0 0 0 533 ROUTE 51103 105 500 2 0 0 0 500 8*CH 51104 127 511 6 0 1 0 511 gNON ZERO 51105 101 48 1 1 0 OBTAIN ZERO 51104g51106 118 3 0 0 0 51107 101 208 1 1 0 TO GIVE U 51108 118 3 0 0 0 51109 101 947 0 1 0 51047g 51039g51110 115 215 12 1 0 0 215 ADD IN REST OF WORD 51111 124 533 4 0 1 0 533 STORE IN 51112 102 102 8 1 0 0 102 T/W ANNEX 51113 101 0 0 1 0 51114 123 2 0 0 0 51115 100 533 4 0 0 0 533 51116 123 1 0 0 0 LAST ROUTE 51117 100 533 2 0 0 0 533 51118 124 510 26 1 0 0 510 gNO 51119 106 214 68 0 0 0 214 L/E,L/E 51120 102 102 24 1 0 0 102 51121 126 107 8 1 1 0 107 (MR1)FOR MASTER 51122 124 478 6 1 0 0 478 gOUTPUT COMMENT 51200 PROCR 512 512 EXCESS STORE COMMENT 51202 126 177 2 0 0 0 177 *67t gREQUEST T/W 51203 106 215 8 1 0 0 215 SET UP STORE 51204 102 102 6 1 0 0 102 IN T/W ANNEXE 51205 101 20 1 3 0 51206 102 4 1 0 0 51207 126 212 14 1 3 0 212 10:0 51212g 51231g51208 106 230 9 0 2 0 230 51209 105 211 2 0 0 0 211 SUB 15'5 51210 127 512 14 0 1 0 512 IF NOT 51211 125 4098 0 2 0 YES 51212 124 512 8 1 0 0 512 PICK UP NEXT WORD 401 51213 124 512 27 1 0 0 512 *££0*££2*3t3*3ee 51210g51214 100 210 3 0 3 0 210 SET DECIMAL 51215 124 213 2 0 2 0 213 51216 112 231 1 0 2 0 231 CONVERT BINgDEC 51217 102 102 74 0 0 0 102 51218 124 261 52 0 2 0 261 51219 124 6 0 1 0 51220 128 102 8 1 2 0 102 51221 100 213 3 0 3 0 213 51222 101 768 0 1 0 51223 114 102 8 1 3 0 102 CLEAR TOP QUARTET OF A 51224 125 2 0 3 0 END OF WORD? 51232g51225 125 4098 0 2 0 51226 124 512 30 1 0 0 512 PICKUP NEXT WORD 51213g51227 106 214 68 1 0 0 214 51228 102 102 8 1 3 0 102 51229 124 478 6 1 0 0 478 TYPE 51226g51230 125 0 0 3 0 51231 124 512 8 1 0 0 512 51232 124 512 25 1 0 0 512 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 0 177 *86t REQUEST TYPEWRITER 51503 125 0 1 2 0 51504 101 1 0 1 0 COLLATE OUT 51505 115 233 29 0 0 0 233 PRINTER TYPE 51506 101 9 1 2 0 TEST=9 51507 127 515 12 0 1 0 515 gNO 51508 106 215 26 1 0 0 215 SET UP GP 51509 102 102 8 1 0 0 102 51510 101 4 1 3 0 51511 124 515 15 1 0 0 515 g 51507g51512 106 215 28 1 0 0 215 SET UP SP 51513 102 102 8 1 0 0 102 51514 101 9 1 3 0 COLLATE IN 51511g51515 114 233 29 0 0 0 233 NEW PRINTER TYPE 51516 106 215 24 1 0 0 215 REST OF 51517 102 102 6 1 0 0 102 COMMENT 51518 106 214 68 0 0 0 214 L/E,L/E 51519 102 102 10 1 0 0 102 51520 124 478 6 1 0 0 478 *86t 51600 PROCR 516 516 GROUP 2 51601 NOTES RADIX B DETERMINE FUNCTION 51602 126 461 2 0 0 0 461 gS/R Q 401 51603 101 7 1 3 0 *64e61e0:e0+e 51604 126 500 2 0 0 0 500 *643643 gS/R R 51605 103 516 9 0 0 0 516 51606 126 459 2 0 0 0 459 gS/R G 51607 124 516 9 0 1 0 516 51608 126 516 9 0 1 0 516 51609 100 0 0 0 0 FUNCTION NUMBER 51610 100 517 2 0 0 0 517 gUNLOAD 51611 100 487 3 0 0 0 487 *17e18e ALLOC 51612 100 477 8 0 0 0 477 gREJECT 51613 100 487 3 0 0 0 487 *17e18e ALLOC 51614 100 477 8 0 0 0 477 gREJECT 51615 100 518 2 0 0 0 518 *0ee*1.3 gINTERCHANGE PRIORITIES 51700 PROCR 517 517 GROUP2: FUNCTION 1 51701 NOTES RADIX B UNLOAD 51702 106 222 10 1 0 0 222 STORE ID OF PROG TO BE UNLOADED 51703 126 479 2 0 0 0 479 gS/R M* 51704 124 477 2 1 0 0 477 *364 gREJECT 00008 51705 106 4 0 0 0 TEST MASTER ROUTINE 51706 127 477 2 0 0 0 477 *364 YES REJECT 00008 51707 124 4 0 1 0 51708 124 230 3 0 1 0 230 SET MR1 FOR PROG 51709 126 36 1 1 0 51710 124 3 0 1 0 *60t 51711 106 11 0 0 0 51712 124 233 45 0 1 0 233 51713 127 9 0 1 0 *60t gYES TO PTS 51714 124 295 16 1 0 0 295 gABANDON PROGRAM 51800 PROCR 518 518 GROUP 2: FUNCTION 6 51801 NOTES RADIX B INTERCHANGE PRIORITIES 51802 106 222 10 0 0 0 222 *0et*1.2 PROG IDENT NO 51803 126 479 2 0 0 0 479 gS/R M* 51804 124 477 2 1 0 0 477 *364 gREJECT 00008 51805 106 4 0 0 0 TEST IF COMMAND GIVE 51806 103 5 0 0 0 FOR TOP PROG. 51807 101 4 1 2 0 51808 127 477 4 0 3 0 477 *364 gREJECT 00008 51809 106 230 2 1 2 0 230 51810 102 221 2 1 0 0 221 401 51811 106 229 2 1 2 0 229 *3t4*3e+ 200002 51812 102 230 2 1 2 0 230 51813 106 221 2 1 0 0 221 401 51814 102 229 2 1 2 0 229 *3t4*3e+ 200002 401 51815 106 229 3 0 2 0 229 *3t4*3e+ 300003 51816 102 4 0 0 0 51817 101 220 5 1 3 0 220 SET UP (MR'S 2&3) 51818 102 6 0 0 0 51819 126 235 2 0 0 0 235 gS/R X 51900 PROCR 519 519 INTERCHANGE PRIORITIES (2) 51901 NOTES RADIX B 51902 106 4 0 0 0 *0et*1.2 51903 102 6 0 0 0 51904 124 5 0 1 0 RESET MR'S 1&2 401 51905 106 228 25 0 0 0 228 *3t4*3e+ 2500025 51906 102 4 0 0 0 51907 126 235 2 0 0 0 235 gS/RX 51908 106 4 0 0 0 51909 102 6 0 0 0 51910 124 5 0 1 0 51911 106 230 3 0 0 0 230 RESET MR'S 2AND3 51912 102 4 0 0 0 51913 126 235 2 0 0 0 235 gS/R X 51914 106 4 0 0 0 51915 102 6 0 0 0 51916 101 220 5 1 3 0 220 RESET (MR'S 2&3) 51917 102 4 0 0 0 51918 126 235 2 0 0 0 235 gS/R X 51919 124 495 2 0 2 0 495 51920 124 478 2 1 0 0 478 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 0 *41t FILL QIB 52303 101 2 1 3 0 LIMIT OF FN. NO. 52304 126 500 2 0 0 0 500 gS/R R 52305 124 463 2 1 0 0 463 gSTORE DUMP 52400 PROCR 524 524 GROUP 4 52401 NOTES RADIX B DETERMINE FUNCTION 52402 126 461 2 0 0 0 461 401 52403 101 6 1 3 0 *11+12+40+*11+40+ 600008 52404 126 500 2 0 0 0 500 gS/R R 52405 103 524 9 0 0 0 524 52406 126 459 2 0 0 0 459 gS/R G 52407 124 524 9 0 1 0 524 52408 126 524 9 0 1 0 524 52409 100 0 0 0 0 FUNCTION NUMBER 52410 100 525 2 0 0 0 525 gSET RELEASED TAPES INDEX 52411 100 487 3 0 0 0 487 gALLOC WITHOUT 401 52412 100 477 8 0 0 0 477 *4te gREJECT 52413 100 487 3 0 0 0 487 52414 100 477 8 0 0 0 477 gREJECT 401 52415 100 477 8 0 0 0 477 *££0*££2*0ee*1.3*0:e*0+e*12e*11e*40e 401 52416 100 477 8 0 0 0 477 *££0*££2*0ee*1.3*0:e*0+e*12e*11e*40e 401 52417 100 477 8 0 0 0 477 *££0*££2*0ee*1.3*0:e*0+e*12e*11e*40e 401 52418 100 477 8 0 0 0 477 *££0*££2*0ee*1.3*0:e*0+e*12e*11e*40e 52500 PROCR 525 525 GROUP4: FUNCTION1 52501 NOTES RADIX B SET RELEASED TAPES INDEX 52502 106 226 5 1 0 0 226 TEST 2ND WORD ZERO 52503 127 525 19 0 1 0 525 gNO 52504 124 24 0 2 0 *4:4 00012 52505 105 525 21 0 0 0 525 52506 102 525 21 0 0 0 525 52507 106 534 2 1 0 0 534 UNPACK INDEX 52508 124 525 21 0 1 0 525 52509 128 196 2 1 0 0 196 52510 106 534 4 1 0 0 534 *4:2*102 52511 124 525 21 0 1 0 525 52512 128 196 14 1 0 0 196 *4:2*102 52513 126 177 2 0 0 0 177 gREQUEST T/W 52514 106 214 50 1 0 0 214 'R T I' SET UP COMMENT 52515 102 102 6 1 0 0 102 52516 106 214 68 1 0 0 214 401 52517 102 102 8 1 0 0 102 *6.+4t+*6.44t4 800016 52518 124 478 6 1 0 0 478 gOUTPUT COMMENT 52503g52519 124 81 0 2 0 CODE LETTER A 52520 124 498 5 1 0 0 498 g 52521 100 0 0 0 0 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 55508g53502 124 535 4 0 3 0 535 53503 124 181 2 1 0 0 181 53504 100 0 0 0 0 53600 PROCR 536 536 FORM UP DIVISION 0 AND 1 DETAILS 10002g53602 102 103 3 0 1 0 103 TEST STORE PRINT 53603 101 60 1 3 0 REQUIRED 53604 101 60 1 2 0 *844 00030 53605 127 536 8 0 0 0 536 gNO 53606 101 1 1 3 0 SET IND 53607 102 558 9 0 0 0 558 53605g53608 101 535 2 1 3 0 535 53609 102 231 2 0 1 0 231 53610 124 551 2 1 0 0 551 53700 PROCR 537 537 STORE PRINT SET UP 53702 125 4096 1 1 0 SET NON-INT 53703 124 547 13 1 3 0 547 STORE INDICATORS 53704 106 542 31 0 0 0 542 53705 124 0 0 3 0 53706 102 25 0 0 0 53707 125 8191 1 1 0 CLEAR INDICATORS 53708 102 547 4 0 0 0 547 *3e1 CLEAR STORE COUNTER 53709 124 550 2 0 2 0 550 EDIT HEADING 53710 126 545 2 0 0 0 545 EDIT AND O/P S/R 53800 PROCR 538 538 TEST FOR TAG CHANGES 53939g 53953g53802 125 1792 1 2 0 53803 127 538 5 0 0 0 538 STORE I9-11 53804 118 4126 0 1 0 53803g53805 102 547 26 0 0 0 547 STORE TAG 53806 125 1792 1 1 0 CLEAR I9-11 53807 106 547 18 1 0 0 547 COPY 4 SHORT WORDS 53808 104 547 4 0 0 0 547 NUMERICgALPHA 53809 128 548 3 0 1 0 548 53810 124 547 4 0 3 0 547 STORE IST TAG TEST TAG CHANGE 53811 123 0 0 3 0 53812 103 547 6 0 0 0 547 53813 105 547 7 0 0 0 547 SECOND TAG 53814 127 538 16 0 0 0 538 gNO 53815 102 547 3 0 0 0 547 SET TAG CHANGE IND 53814g53816 124 547 4 0 3 0 547 STORE 2ND TAG TEST TAG CHANGE 53817 123 2 0 3 0 53818 103 547 7 0 0 0 547 53819 105 547 6 0 0 0 547 53820 127 539 2 0 0 0 539 gNO 53821 102 547 3 0 0 0 547 SET TAG CHANGE IND 53900 PROCR 539 539 SET UP EDIT TABLES 53910g 53820g53902 124 547 8 0 1 0 547 53903 106 548 2 1 0 0 548 NEXT SHORT WORD TEST ZERO 53904 127 539 8 0 0 0 539 gYES 53905 126 543 2 0 0 0 543 gSET UP SHORT WORD S/R 53906 124 547 8 0 1 0 547 53907 102 548 2 1 0 0 548 53904g53908 123 2 0 0 0 STEP ON SH.WORD CTR 53909 100 547 8 0 0 0 547 TEST 4 SHORT WORDS D 53910 124 539 2 1 0 0 539 gNO 53911 102 547 8 0 0 0 547 RESET COUNTER 53912 106 547 3 0 0 0 547 TEST FOUR ZERO WORDS 53913 127 539 41 0 1 0 539 gNO OR NO TAG CHANGE 54114g53914 125 2 1 2 0 TEST 12 SET 53915 127 542 2 0 1 0 542 gYES 53916 106 547 4 0 0 0 547 53917 124 999 0 0 3 0 TEST PRINTED TO END OF PROGRAM SWITCHES 53918 101 130 2 1 2 0 130 53919 127 539 37 0 3 0 539 gNO 53920 125 32 1 2 0 TEST 16 SET 53921 127 539 37 0 0 0 539 gNO 53922 106 547 4 0 0 0 547 53923 101 8191 1 2 0 53924 127 539 31 0 2 0 539 gNOT IN DIV 0 53925 101 8191 1 1 0 53926 101 535 4 1 2 0 535 53927 127 539 37 0 2 0 539 gNOT IN MASTER 53928 101 535 4 1 3 0 535 53929 102 547 4 0 0 0 547 SKIP REST OF MASTER IN DIV 0 53930 124 539 37 1 0 0 539 53924g53931 124 550 2 0 2 0 550 ARRANGE TO SKIP REST OF MASTER 53932 102 547 4 0 0 0 547 53933 100 547 27 0 2 0 547 53934 118 4124 1 0 0 53935 114 547 4 0 0 0 547 53936 125 32 1 1 0 CLEAR 16 53930g 53927g 53921g 53919g53937 123 4 0 0 0 TEST END OF STORE 53938 100 547 4 0 0 0 547 53939 124 538 2 1 0 0 538 gNO 53940 124 542 2 1 0 0 542 *3e1 gEND ROUTINE 53913g53941 106 547 26 0 0 0 547 TEST IF SELECTED TAG SET 53942 127 540 2 0 0 0 540 gNO 53943 105 547 6 0 0 0 547 TEST TAG1=SEL.TAG 53944 127 540 2 0 0 0 540 gYES 53945 106 547 6 0 0 0 547 53946 101 13 1 2 0 TEST TAG1=13g15 53947 127 540 2 0 2 0 540 gYES 53948 106 547 26 0 0 0 547 53949 105 547 7 0 0 0 547 TEST TAG2=SEL.TAG 53950 127 540 2 0 0 0 540 gYES 53951 106 547 7 0 0 0 547 53952 101 13 1 2 0 TEST TAG2=13g15 53953 127 538 2 0 3 0 538 gNO 54000 PROCR 540 540 DELETE L/E OR B/E 53950g 53947g 53944g 53942g54002 100 547 28 1 2 0 547 15'S INTO B 54003 125 0 1 2 0 54004 124 547 4 0 3 0 547 54005 115 0 1 0 0 COLLATE OUT WORD N' 54006 126 544 2 0 0 0 544 gL/E B/E S/R 54007 106 547 16 1 0 0 547 54008 102 548 10 1 0 0 548 54009 100 547 28 1 2 0 547 54010 124 547 4 0 3 0 547 54011 115 2 1 0 0 COLLATE OUT WORD N+2' 54012 126 544 2 0 0 0 544 gL/E B/E S/R 54013 106 547 16 1 0 0 547 54014 102 548 12 1 0 0 548 54015 124 0 0 3 0 54016 100 210 3 0 3 0 210 DECIMAL 54017 124 547 4 0 1 0 547 ADDRESS WITHIN 54018 101 0 1 3 0 DIVISION 54019 102 547 12 0 0 0 547 54020 124 0 0 3 0 54021 124 213 2 0 2 0 213 54022 112 547 12 0 0 0 547 54023 102 547 12 0 0 0 547 54024 124 0 0 3 0 54025 100 212 2 0 3 0 212 BINARY 54026 124 547 4 0 3 0 547 DIV NO 54027 124 0 0 2 0 54028 124 547 4 0 1 0 547 54029 101 0 1 2 0 54030 118 3 0 3 0 ALIGN IN Q5 54031 107 547 12 0 0 0 547 54100 PROCR 541 541 OUTPUT 54102 106 547 4 0 0 0 547 54103 103 549 40 0 0 0 549 SELECT PRINT LOCATIONS 54104 101 1 1 1 0 SET UP QUARTET VALUES IN EDIT TABLE 54105 103 549 42 0 0 0 549 FOR 4 SHORT WORDS 54106 101 1 1 1 0 54107 103 549 44 0 0 0 549 54108 101 1 1 1 0 54109 102 549 46 0 0 0 549 54110 124 549 2 0 2 0 549 54111 126 545 2 0 0 0 545 gEDIT AND O/P S/R 54112 102 548 16 0 0 0 548 CLEAR BE INDICATOR 54113 102 547 3 0 0 0 547 CLEAR PRINT LINE IND 54114 124 539 14 1 0 0 539 gTEST INDICATORS 54200 PROCR 542 542 END ROUTINE 53940g 53915g54202 124 0 0 3 0 54203 106 140 0 0 0 54204 127 542 18 0 0 0 542 gNO 54205 125 0 1 2 0 54206 102 547 4 0 0 0 547 CLEAR STORE CTR 54217g54207 124 547 4 0 1 0 547 54208 124 0 0 1 0 54209 101 0 1 3 0 54210 124 0 0 3 0 54211 105 140 0 0 0 54212 127 542 15 0 1 0 542 54213 124 549 60 0 2 0 549 54214 126 545 2 0 0 0 545 54212g54215 123 1 0 0 0 54216 100 547 4 0 0 0 547 54217 124 542 7 1 0 0 542 54204g54218 125 8191 1 1 0 54219 124 0 0 1 0 54220 125 0 1 0 0 54221 124 0 0 3 0 54222 106 209 5 0 0 0 209 54223 124 0 0 3 0 54224 102 25 0 0 0 RESET O'FLOW LINK 54225 102 547 26 0 0 0 547 54226 123 542 27 0 2 0 542 RESET TAG 14 54227 100 0 0 0 0 54228 124 0 0 3 0 54229 124 103 7 1 0 0 103 gPRIORITY QUEUE 54230 124 0 0 3 0 54231 126 24 0 3 0 54300 PROCR 543 543 SET UP SHORT WORD S/R 54302 100 0 0 0 0 54303 102 547 10 1 0 0 547 STORE SHORT WORD 54304 100 547 14 0 2 0 547 54305 115 547 11 0 0 0 547 COLLATE OUT ACTION SIGN BIT SET 54306 118 4125 0 0 0 IN BIT 37 54307 102 548 14 0 0 0 548 54308 124 0 0 3 0 54309 100 210 3 0 3 0 210 SET DECIMAL 54310 124 0 0 3 0 54311 124 213 2 0 2 0 213 54312 103 547 3 0 0 0 547 54313 112 548 14 0 0 0 548 CONVERT TO DECIMAL 54314 102 548 14 0 0 0 548 54315 100 547 11 1 2 0 547 SH.WORD INTO B ALPHAgNUMERIC 54316 118 6 1 0 0 54317 106 548 14 0 0 0 548 54318 118 3 0 3 0 SEPARATE ACTION DISCMOD 54319 118 1 1 3 0 54320 118 2 0 3 0 54321 118 2 1 3 0 54322 102 548 15 0 0 0 548 STORE A,D,M 54323 118 1 1 3 0 54324 118 3 1 0 0 54325 102 548 14 0 0 0 548 ADDRESS 54326 124 0 0 3 0 54327 124 213 2 0 2 0 213 54328 112 548 14 0 0 0 548 CONVERT TO DECIMAL 54329 124 0 0 3 0 54330 100 212 2 0 3 0 212 SET BINARY 54331 102 548 14 0 0 0 548 STORE ADDRESS 54332 106 548 14 1 0 0 548 54333 126 543 2 0 1 0 543 54400 PROCR 544 544 L/E B/E S/R 54402 100 0 0 0 0 54403 102 547 16 1 0 0 547 W/L 54404 100 547 24 1 2 0 547 -3/15 54412g54405 115 547 16 1 0 0 547 TEST FOR L/E 54406 115 547 20 1 0 0 547 54407 127 544 14 0 0 0 544 gYES 54408 115 547 22 1 0 0 547 TEST FOR B/E 54409 127 544 14 0 0 0 544 gYES 54417g54410 118 2 1 0 0 TEST ALL CHARACTERS 54411 101 0 1 3 0 54412 127 544 5 1 1 0 544 gNO 54413 126 544 2 0 1 0 544 gLEAVE S/R 54409g 54407g54414 114 547 16 1 0 0 547 CLEAR CHARACTER 54415 101 91 1 3 0 SET INDICATOR 54416 102 548 16 0 0 0 548 54417 124 544 10 1 0 0 544 g 54500 PROCR 545 545 EDIT AND O/P S/R 54502 100 0 0 0 0 54506g 54511g54503 124 547 2 0 1 0 547 54504 126 0 1 0 0 TEST PRINTER ROUTE 54505 124 545 10 1 0 0 545 gCLOSED HALT 15/0/1 54506 124 545 3 1 0 0 545 gENGAGED 54507 124 545 12 1 0 0 545 D/B HALT 15/0/3 54508 100 3845 0 0 0 W/E HALT 15/./5 54509 124 545 13 1 0 0 545 54505g54510 100 3841 0 0 0 54511 124 545 3 1 0 0 545 54507g54512 100 3843 0 0 0 401 54509g54513 128 551 4 1 2 0 551 *3t4 EDIT TO ANNEX 7 54514 124 0 0 3 0 54515 106 258 20 1 0 0 258 FUNCTION WORD 54516 102 551 2 1 0 0 551 INSERT 54517 124 547 2 0 3 0 547 54518 106 64 0 0 0 STORE PRESENT ASL 54519 102 548 17 0 0 0 548 54520 125 0 1 0 0 *869 OR 24/1/0gSP PRINTER 54521 106 545 37 0 0 0 545 *2.286t 54522 124 547 2 0 3 0 547 STORE A SL IN 64+R 54523 102 64 0 0 0 54524 106 545 38 0 0 0 545 START OF EDIT TABLE 54525 124 545 37 0 3 0 545 54526 129 0 0 1 0 EDIT 54527 124 545 31 1 0 0 545 *2.286t*2.t86t 55808g54528 106 545 38 0 0 0 545 54529 124 547 2 0 3 0 547 54530 102 64 0 0 0 *2.t86t 54527g54531 124 547 2 0 1 0 547 54532 119 0 0 0 0 OUTPUT 54533 106 548 17 0 0 0 548 54534 124 547 2 0 3 0 547 54535 102 64 0 0 0 RESTORE ASL 54536 126 545 2 0 1 0 545 54537 114 551 2 0 1 0 551 *2.1869 GP ANNEX START 54538 114 551 2 0 1 0 551 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) 53610g55102 106 558 6 0 0 0 558 55103 102 17 0 1 0 SET UP (17) 55104 102 1 0 1 0 SET UP OR CLEAR (1) 55105 106 209 5 0 1 0 209 55106 102 25 0 1 0 SET UP (25) 55107 101 130 24 1 3 0 130 55108 101 128 1 2 0 FORM M/R SP CH START 55109 102 107 9 0 1 0 107 55110 106 558 7 0 0 0 558 55111 105 231 2 0 1 0 231 55112 102 231 3 0 1 0 231 55113 101 535 2 1 3 0 535 TEST MASTER IN DIV 1 55114 101 536 2 1 2 0 536 401 55115 127 552 2 0 2 0 552 *££2*57e 55116 106 558 7 0 0 0 558 55117 107 231 2 0 0 0 231 55118 106 558 2 1 0 0 558 SHIFT UP STORE TABLE 55119 124 999 0 0 3 0 55120 128 231 4 0 0 0 231 55121 106 555 8 0 0 0 555 55122 102 555 7 0 0 0 555 55200 PROCR 552 552 INITIAL SET8UP(2) 55115g55202 106 209 8 0 1 0 209 55203 124 999 0 0 3 0 55204 124 233 26 0 3 0 233 55205 102 64 0 0 0 55206 106 209 9 0 1 0 209 55207 102 124 0 1 0 55208 101 228 2 1 3 0 228 STACK TAG 13 IN M/R ANNEXES 55209 118 5 0 0 0 55210 101 226 2 1 1 0 226 55211 102 4 1 1 0 55212 101 13 1 3 0 55213 126 556 2 0 0 0 556 55214 101 15 1 3 0 STACK TAG 15 IN A.L.W.'S 55215 123 102 84 1 1 0 102 55216 123 226 56 1 1 0 226 55217 123 227 56 1 1 0 227 *101 55218 106 102 19 1 1 0 102 STORE M/R 55219 118 4123 1 0 0 SERIAL NO 55220 101 7 1 1 0 IN 181 55221 118 4 1 0 0 55222 102 181 0 1 0 55223 106 102 21 1 1 0 102 MOD NO 55224 118 4125 1 0 0 IN 182 55225 102 182 0 1 0 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 0 558 TEST STORE PRINT REQUIRED 55403 127 555 2 0 0 0 555 gNO 55404 106 209 3 0 1 0 209 SET TAG 15 55405 102 9 0 1 0 55406 126 554 7 0 3 0 554 55407 115 554 8 0 1 0 554 55408 125 4096 1 1 0 55409 106 209 4 0 1 0 209 55410 102 9 0 1 0 55411 106 153 0 1 0 STORE DETAILS FOR PRINT 55412 123 554 13 0 2 0 554 RESET TAG 14 55413 100 0 0 0 0 55414 118 4124 1 0 0 55415 101 9 1 2 0 *86t 55416 127 554 21 0 1 0 554 gGP PRINTER 55417 106 545 20 0 0 0 545 55418 102 554 31 0 0 0 554 55419 106 558 8 0 0 0 558 55420 102 545 20 0 0 0 545 *86t 55416g55421 125 0 1 2 0 55422 118 1 1 0 0 FIRST STORE SIZE 55423 118 8 0 0 0 55424 102 547 4 1 0 0 547 *3e1 55425 118 1 1 0 0 55426 125 0 1 2 0 STORE PRINTER 55427 118 2 1 0 0 ROUTE 55428 102 547 2 0 0 0 547 55429 101 551 2 1 3 0 551 55430 101 50 1 1 0 55431 101 384 1 1 0 *2.1869 55432 104 558 7 0 0 0 558 SET UP STORE TABLE 55433 102 231 4 0 1 0 231 55434 106 558 7 0 0 0 558 55435 104 558 7 0 0 0 558 55436 105 231 4 0 1 0 231 55437 102 231 5 0 1 0 231 55438 101 50 1 3 0 *2.286t 55439 107 545 37 0 0 0 545 *2.286t 55500 PROCR 555 555 INITIAL SET UP (4) 55403g55502 106 231 2 0 1 0 231 SET MR2 FOR CLEARING 55503 102 558 4 0 0 0 558 REST OF DIVS 0 & 1 55504 126 558 4 1 2 0 558 55505 124 999 0 0 3 0 55506 126 107 8 1 1 0 107 SET MR1 FOR MR SWITCH 55507 124 999 0 0 3 0 55508 124 535 2 1 0 0 535 gCLEAR DIV 0 55600 PROCR 556 556 STACK TAG (A) SR 55602 100 0 0 0 0 55606g55603 124 999 0 0 3 0 55604 123 0 1 2 0 55605 125 2 0 2 0 55606 124 556 3 1 0 0 556 55607 126 556 2 0 1 0 556 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 0 231 SHIFT STORE TABLE 55803 100 12 0 0 0 55804 100 0 0 0 0 CLEAR REST OF DIVS 0 & 1 55805 100 8184 0 1 0 55806 124 454 2 1 0 0 454 *343 (17) 55807 100 0 0 1 0 DIV 1 55808 124 545 28 1 0 0 545 *869 55809 100 0 0 0 0 55810 100 1 0 0 0 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 1004=6194 1005=6194 1006=6194 1002=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 1007= 636 1008= 636 1009= 636 1003= 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 15/ 4/ 1 SPOOL 12322 (08000 ISSUE 8) --------------------------------------------------