1704 FORTRAN II, 4-1-6-2 SYSTEM F4400010
2SECTION 4 - FLOW ANALYSIS F4400020
3ROBERT C. BRILL - NOVEMBER 13, 1958 F4400030
4 F4400040
5NOTE - THIS LISTING CORRESP0NDS TO THE FORTRAN II 4-1-6-2 F4400050
6SYSTEM TAPE. TO MAKE IT CORRESP0ND TO THE 8-1-6-2 SYSTEM F4400060
7TAPE MAKE THE FOLLOWING CHANGES IN THIS LISTING. F4400070
8 IN RECORD F0730000, LOCATI0N 77, CHANGE F4400080
9 000674000000 TO 003140000000 F4400090
10 IN RECORD F0730000, LOCATI0N 632, CHANGE F4400100
11 000000000215 TO 000000001037 F4400110
12 F4400120
13 F4400130
14DEFINITI0N STATEMENTS F4400140
00215 15BBBB.J SYN141 THESE FIRST TWO DEFINITI0NS MAKE F4400150
00674 16BBSIZE SYN444 THE PROGRAM COMPATIBLE WITH F4400160
17 SECTI0N 5 (TAG ANALYSIS). THEIRF4400170
18 VALUES ARE THOSE OF PREDL (BLOCKF4400180
19 LENGTH OF PRED TABLE) AND 6*BBBLF4400190
20 (BLOCK LENGTH OF BB TABLE) RES- F4400200
21 PECT1VELY, AS GIVEN IN THE F4400210
22 SECTI0N 5 LISTING. F4400220
04230 23NOINS SYN2200 BLOCK LENGTH OF COMPILED F4400230
24 INSTRUCTION TABLE (CIT)-PART 1 F4400240
00454 25ZINSTM SYN300 SAME AS PREVIOUS - PART 2 F4400230
00144 26ZINSTR SYN100 SAME AS PREVIOUS - PART 6 F4400260
01274 27ZBB SYN700 LENGTH OF BB LIST F4400270
00310 28ZTIFRD SYN200 8LOCK LENGTH OF TIFRD F4400280
01750 29XFRET= SYN1000 TABLE LENGTH AND DRUM ADD FOR FRET F4400290
00372 30ZFRET= SYN250 BLOCK LENGTH OF FRET F4400300
00620 31XSET SYN400 LENGTH OF SET TABLE F4400310
00310 32ZSET SYN200 BLOCK LENGTH OF SET TABLE F4400320
00031 33ZNLIST SYN25 LENGTH 0F NLIST F4400330
05360 34XTRA SYN2800 LENGTH 0F TRA TABLE F4400340
01274 35ZTRA SYN700 BLOCK LENGTH OF TRA TA8LE F4400350
00017 36ZTAG SYN15 BLOCK LENGTH OF TAGLIST H F4400360
00000 37XXXXXX SYN0 THE APPEARANCE OF THIS SYMBOL IN F4400370
38 THE LISTING INDICATES THAT ITS F4400380
39 VALUE IS SET BY THE PROGRAM. F4400390
00004 40RDFORT SYN4 A TSX RDFORT,4 CALLS IN THE DIAG- F4400400
41 NOSTIC ROUTINE. A RDS SYSTAP F4400410
42 FOLL0WED BY A TRA RDFORT CALLS F4400420
43 IN THE NEXT RECORD OF THE F4400430
44 FORTRAN PROGRAM. F4400440
07774 45BBOX.= SYN4092 THE FOLL0WING ARE THE ADDRESSES F4400450
07775 46DOBOX= SYN4093 OF SPECIAL COUNTERS F4400460
07776 47SSBOX= SYN4094 F4400470
07777 48TTBOX= SYN4095 F4400480
07775 49SUCCBX SYN4093 F4400490
07776 50PREDBX SYN4094 F4400500
07777 51BBTBOX SYN4095 F4400510
00221 52SYSTAP SYN145 FORTRAN SYSTEM TAPE (LOGICAL 1) F4400520
00222 53TBLTAP SYN146 TIFGO, TRAD, FRET, AND DOTAG F4400530
54 TAPE (LOGICAL 2) F4400540
00223 55TAGTAP SYN147 TAGLIST TAPE (LOGICAL 3) F4400550
00223 56BLT SYN147 BBLIST TAPE (LOGICAL 3) F4400560
00224 57INSTTP SYN148 CIT TAPE (L0GICAL 4) F4400370
00301 58TIFDRM SYN193 TIFRD DRUM (L0GICAL 1) F4400380
00301 59DOCRDR SYN193 DOCARE DRUM (LOGICAL 1) F4400300
00301 60DODRUM SYN193 DOLIST DRUM (LOGICAL 1) F4400600
00301 61TRADRM SYN193 INITIAL TRA TABLE DRUM (LOGICAL 1) F4400610
00302 62FRTDRM SYN194 FRET DRUM (LOGICAL 2) F4400620
00303 63BBLDRM SYN195 BBLIST DRUM (LOGICAL 3) F4400630
00303 64SETDRM SYN195 SET DRUM (LOGICAL 3) F4400640
01750 65TIFADD SYN1000 DRUM ADDRESS FOR TIFRD F4400630
03270 66DOADDR SYN1720 DRUM ADDRESS FOR DO LIST F4400660
02260 67BBLADD SYN1200 DRUM ADDRESS FOR BB LIST F4400670
01750 68FRTADD SYN1000 DRUM ADDRESS FOR FRET F4400680
01275 69SETADD SYN701 DRUM ADDRESS FOR SET TABLE F4400690
07773 70BBLIST SYN4091 THE FOLLOWING ARE THE BASE F4400700
06500 71DOLIST SYNBBLIST−ZBB+1 ADDRESSES OF ALL TABLES F4400710
06024 72INST.A SYNDOLIST−300 F4400720
06024 73TIFRD SYNDOLIST−300 F4400730
03710 74TRAD.= SYNTIFRD−1100 F4400740
06023 75FRET.= SYNDOLIST−301 F4400750
06023 76DVFQ.= SYNFRET.= F4400760
04216 77DOTAG SYNDVFQ.=−301−600 F4400770
04216 78DOCARE SYNDOTAG F4400780
06024 79TRA..M SYNDOLIST−300 F4400790
04524 80SET..M SYNTRA..M−ZTRA−4 F4400800
04214 81TIFRDM SYNSET..M−200 F4400810
03703 82INST.M SYNTIFRDM−201 F4400820
07774 83SETLOC SYNBBLIST+1 F4400830
07773 84TRATBL SYNBBLIST F4400840
02413 85BBTABL SYNTRATBL−2800 F4400850
02414 86FIXDOS SYNBBTABL+1 F4400860
01114 87NLIST SYNBBTABL−ZBB−3 F4400870
01062 88FRET SYNNLIST−26 F4400880
01062 89SETTAB SYNNLIST−25−1 F4400890
01260 90SNSLT SYNNLIST+100 F4400900
01120 91DOBLOK SYNBBTABL−ZBB+1 F4400910
00443 92LCNTR SYNDOBLOK−300−1 F4400920
06500 93TAG SYNBBLIST−ZBB+1 F4400930
06460 94INST.R SYNTAG−15−1 F4400940
06314 95BBTAGS SYNINST.R−100 F4400950
06024 96INSTA SYNINST.A F4400960
03703 97INSTM SYNINST.M F4400970
06460 98INSTR SYNINST.R F4400980
07773 99PRED SYNTRATBL F4400990
04524 100SETM SYNSET..M F4401000
06024 101TRAM SYNTRA..M F4401010
01574 102BGINS SYNINSTA−NOINS END OF INST. BLOCK (PART 1) F4401020
04053 103FRETN= SYNFRET.=−1000 BEGINNING OF FRET (PART 1) F4401030
04530 104NDTRA SYNTRAM−700 END OF TRA TABLE BLOCK (PART 2) F4401040
03227 105NDINS SYNINSTM−300 END OF INST. BLOCK (PART 2) F4401030
03704 106NTIFR SYNTIFRDM−200 EN0 OF TIFRD 8LOCK (PART 2) F4401060
07464 107NDSET SYNSETLOC−ZSET END OF SET BLOCK (PART 3) F4401070
108 F4401080
109 F4401090
110 SECTION 4 - PART 1 OF 6 F4410010
111 F4410020
112 FORTRAN EDITOR INFORMATION F4410030
113 MASTER RECORD CARD = F0620000 F4410040
114 ENTRY POINT = 112 F4410050
115 FIRST LOCATION = 30 F4410060
116 LAST LOCATION = 1327 F4410070
117 F4410080
118 F4410090
00030 119ORG24 F4410100
120CONSTANTS AND VARIABLES (THE 1ST THREE REMAIN IN CORES F4410110
121THROUGHOUT SECTION 4.) F4410120
00030+000000000000 122ERRBX DEC0 COUNTER FOR READING ERRORS F4410130
00031+000000000001 123LA1 DEC1 F4410140
00032−000000000004 124MINUS4 DEC−4 F4410150
00033+000000000000 125L0...= DEC0 F4410160
00034+000000000005 126L5...= DEC5 F4410170
00035+000000000002 127TIFLAB DEC2 F4410180
00036+000000000003 128TRALAB DEC3 F4410190
00037+000000000007 129FRELAB DEC7 F4410200
00040 0 00001 0 00000 130LD1..= HTR0,0,1 F4410210
00041 0 00000 0 00310 131LZTIF= ZTIFRD F4410220
00042 0 00000 0 00312 132LZTF2= ZTIFRD+2 F4410230
00043 0 00000 0 00372 133LAZFT= ZFRET= F4410240
00044 0 00000 0 00374 134LAFT2= ZFRET=+2 F4410250
00045 0 00000 0 01300 135LZTR4= ZTRA+4 F4410260
00046 0 00000 0 01750 136FRETY= FRTADD F4410270
00047 0 00000 0 01750 137Y TIFADD F4410280
00050 0 01750 0 00000 138LXFRT= 0,0,XFRET= F4410290
00051+170000000000 139OCTAL OCT170000000000 F4410300
00052+377777777777 140ENDMK= OCT377777777777 F4410310
00053+000000700000 141TAGMRK OCT700000 F4410320
00054+077777000000 142OPMSK= OCT77777000000 F4410330
00055+000060000000 143PSEMK= OCT60000000 F4410340
00056+000070000000 144PSTMK= OCT70000000 F4410350
00057+000000777777 145TGMSK= OCT777777 F4410360
00060−300000000000 146NMASK= OCT−300000000000 F4410370
00061−370000000000 1471STLT= OCT−370000000000 F4410380
00062−230000000000 1481STT.= OCT−230000000000 F4410390
00063 0 76100 0 00000 149LNOP.= NOP PROGRAM CONSTANT F4410400
00064+035121000000 150LTRA.= OCT35121000000 TRA F4410410
00065+001146000000 151OCT1146000000 TSX-TRA F4410420
00066+000454000000 152OCT454000000 TXL-TSX F4410430
00067+000162000000 153LTROP= OCT162000000 TZE-TXL F4410440
00070+042363000000 154OCT42363000000 DCT F4410450
00071−024000000000 155OCT−24000000000 RTT-DCT F4410460
00072+027642000000 156OCT27642000000 MSE-RTT F4410470
00073+030000000000 157LPCOP= OCT30000000000 PSE-MSE F4410480
00074+034743000000 158LTPL.= OCT34743000000 F4410490
00075 0 02000 0 00135 159LTRAA TRAAA+1 F4410500
00076 0 02000 0 00435 160LOUT TRASTTIF= F4410510
00077 0 02000 0 00125 161LBEG TRABEGCLA F4410520
00100 0 02000 0 00135 162LXRDN TRAAA+1 F4410530
00101 0 02000 0 01262 163LMPY TRAMPY F4410540
00102 0 02000 0 01235 164LSTQ TRASTQDTG F4410550
00103+002000000000 165CONSTA OCT2000000000 F4410560
00104 2 00000 1 00406 166CNST2A TIXCLAB,1,0 F4410570
00105 0 00000 0 00000 167ERAS1= F4410580
00106 0 00000 0 00000 168ERAS2= F4410590
00107 0 00000 0 00000 169ERAS3= F4410600
00107 170FRTBX= SYNERAS3= F4410610
00110 0 00000 0 00000 171OPCD F4410620
00111 0 00001 0 00000 172DVFQB= HTR0,0,1 F4410630
173 F4410640
174THIS SCANS THE COMPILED INSTRUCTIONS AND COMPILES A LIST F4410650
175KNOWN AS BBLIST OF THE COMPILED INSTRUCTION NUMBER OF THE F4410660
176FIRST INSTRUCTION OF EACH BASIC BLOCK OF THE OBJECT PROGRAM. F4410670
00112 0 77200 0 00224 177PASS1 REWINSTTP F4410680
00113 0 50000 0 00052 178CLAENDMK= F4410690
00114 0 60100 0 07773 179STOBBLIST STORE MARK FOR END OF B B LIST F4410700
T00115−0 75400 0 00000 180PXD F4410710
00116 0 60100 0 07774 181STOBBOX.= F4410720
00117 0 60100 0 07775 182STODOBOX= F4410730
00120 0 60100 0 07776 183STOSSBOX= F4410740
00121 0 60100 0 07777 184STOTTBOX= F4410750
00122 0 50000 0 00077 185CLALBEG F4410760
00123 0 62100 0 00342 186STAXRDIN SET EXIT ADDRESS F4410770
00124 0 02000 0 00310 187TRARDINSA TRANSFER TO ROUTINE TO READ IN 1ST F4410780
188 BLOCK OF COMPILED INSTRUCTIONS F4410790
00125 0 50000 0 00100 189BEGCLA CLALXRDN RESTORE USUAL EXIT ADDRESS F4410800
00126 0 62100 0 00342 190STAXRDIN F4410810
00127 0 53400 2 00031 191LXALA1,2 INITIALIZE INDEX REGISTERS F4410820
00130 0 53400 1 00031 192LXALA1,1 F4410830
00131 1 00014 1 00132 193LD12.= TXILD12.=+1,1,12 F4410840
00132 0 50000 1 06024 194CLAINST.A,1 PUT INSTRUCTION NUMBER OF FIRST F4410850
00133 0 07400 4 00356 195TSXSTB,4 INSTRUCTION IN BBLIST F4410860
00134 2 04230 1 00310 196AA TIXRDINSA,1,NOINS TEST FOR END OF INSTRUCTION BLOCK F4410870
00135 0 50000 1 06024 197CLAINST.A,1 IF THERE IS NO LOCATION SYMBOL, F4410880
00136 0 10000 0 00153 198TZEOTHER THIS INST. NEED NOT BE CONSIDEREDF4410890
00137−0 50000 1 06023 199CALINST.A−1,1 F4410900
00140 0 62200 0 00110 200STDOPCD F4410910
00141−0 32000 0 00061 201ANA1STLT= IF FIRST LETTER IS A T,GO TO TRCS F4410920
00142 0 60200 0 00105 202SLWERAS1= F4410930
00143 0 50000 0 00105 203CLAERAS1= F4410940
00144 0 40200 0 00062 204SUB1STT.= F4410950
00145 0 10000 0 00160 205TZETRCS F4410960
00146 0 50000 0 00110 206CLAOPCD F4410970
00147−0 53400 4 00220 207LXDLD4..=,4 FOUR INTO INDEX REGISTER C F4410980
00150 0 40200 4 00074 208PSUB SUBLPCOP=+1,4 LOOK FOR A TEST INSTRUCTION F4410990
00151 0 10000 4 00160 209TZEPTRA+1,4 THIS IS A TEST F4411000
00152 2 00001 4 00150 210TIXPSUB,4,1 F4411010
00153 1 00004 1 00134 211OTHER TXIAA,1,4 NO TRANSFER EXISTS F4411020
00154 0 02000 0 00266 212TRATSTCS DCT F4411030
00155 0 02000 0 00266 213TRATSTCS RTT F4411040
00156 0 02000 0 00266 214TRATSTCS MSE F4411050
00157 0 02000 0 00262 215PTRA TRAPSECS PSE F4411060
00160 0 50000 0 00110 216TRCS CLAOPCD FIND WHAT KIND OF TRANSFER THIS IS F4411070
00161−0 53400 4 00220 217LXDLD4..=,4 FOUR INTO INDEX REGISTER C F4411080
00162 0 40200 4 00070 218P2SUB SUBLTROP=+1,4 F4411090
00163 0 10000 4 00204 219TZEP2TRA+1,4 HAVE FOUND TYPE OF TRANSFER F4411100
00164 2 00001 4 00162 220TIXP2SUB,4,1 NOT FOUND YET F4411110
00165 0 50000 1 06022 221CLAINST.A−2,1 IS THIS A TRANSFER WITH A SYMBOLIC F4411120
00166 0 40200 0 00051 222SUBOCTAL ADDRESS = SPECIAL MARK F4411130
00167 0 10000 0 00153 223TZEOTHER YES,IGNORE AS NOT REAL TRANSFER F4411140
00170 0 50000 1 06024 224CLAINST.A,1 F4411150
00171 0 40200 1 06022 225SUBINST.A−2,1 F4411160
00172 0 10000 0 00153 226TZEOTHER F4411170
00173 0 50000 1 06022 2272WYTR CLAINSTA−2,1 IS A CONDITONAL TRANSFER, PUT ITS F4411180
00174 0 07400 4 00356 228TSXSTB,4 ADDRESS AND THE ADDRESS OF THE F4411190
00175 0 50000 1 06016 229CLAINST.A−6,1 NEXT INSTRUCTION IN THE BASIC F4411200
00176 0 07400 4 00356 230TSXSTB,4 BLOCK LIST F4411210
00177 1 00010 1 00134 231TXIAA,1,8 LOOK AT NEXT INSTRUCTION F4411220
00200 0 02000 0 00204 232TRATRACSA TRA IS THE OPERATION CODE F4411230
00201 0 02000 0 00153 233TRAOTHER TSX F4411240
00202 0 02000 0 00230 234TRADOCSA TXL F4411250
00203 0 02000 0 00243 235P2TRA TRAIF3CSA TZE F4411260
00204 0 50000 1 06021 236TRACSA CLAINSTA−3,1 IS INSTRUCTION TAGGED F4411270
00205−0 32000 0 00057 237ANATGMSK= F4411280
00206−0 10000 0 00215 238TNZGOTOVA YES,IS A GO TO VECTOR F4411290
00207−0 50000 1 06022 239CALINST.A−2,1 TEST FOR A GO TO N F4411300
00210−0 32000 0 00060 240ANANMASK= IS ADDRESS IN N-BLOCK F4411310
00211−0 10000 0 00153 241TNZOTHER YES,THIS IS A GO TO N,IGNORE NOW F4411320
00212 0 50000 1 06022 242CLAINST.A−2,1 NOT TAGGED,IS A STRAIGHT TRANSFER F4411330
00213 0 07400 4 00356 243TSXSTB,4 STORE ADDRESS IN BASIC BLOCK LIST F4411340
00214 1 00004 1 00134 244TXIAA,1,4 LOOK AT NEXT INSTRUCTION F4411350
00215 0 50000 1 06021 245GOTOVA CLAINST.A−3,1 THIS IS A GO TO VECTOR F4411360
00216−0 73400 4 00000 246PDX0,4 F4411370
00217 2 00001 4 00220 247SELF1 TIXSELF1+1,4,1 PUT NUMBER OF BRANCHES INTO IR C F4411380
00220 1 00004 1 00221 248LD4..= TXI4TIX,1,4 SET FOR NEXT INSTRUCTION F4411390
00221 2 04230 1 00306 2494TIX TIXRDIN,1,NOINS READ IN MORE INSTRUCTIONS IF NEEDEDF4411400
00222 0 50000 1 06022 250CLAINST.A−2,1 GET ADDRESS OF THIS INSTRUCTION F4411410
00223−0 63400 4 00106 251SXDERAS2=,4 SAVE IN0EX REGISTER C F4411420
00224 0 07400 4 00356 252TSXSTB,4 PUT ADDRESS IN BASIC BLOCK LIST F4411430
00225−0 53400 4 00106 253LXDERAS2=,4 RESTORE INDEX REGISTER C F4411440
00226 2 00001 4 00220 254TIXLD4..=,4,1 HAVE ALL BRANCHES BEEN DONE F4411450
00227 1 00004 1 00134 255TXIAA,1,4 YES,LOOK AT NEXT INSTRUCTION F4411460
00230−0 53400 4 07775 256DOCSA LXDDOBOX=,4 THIS IS THE END OF A DO F4411470
00231 1 00002 4 00232 257SELF2 TXISELF2+1,4,2 SET DOLIST ADORESS FOR NEXT ENTRY F4411480
00232 0 50000 1 06024 258CLAINST.A,1 PUT LOCA,ION OF TRANSFER AND F4411490
00233 0 60100 4 06501 259STODOLIST+1,4 ADDRESS 0F TRANSFER INTO 0O LIST F4411500
00234 0 50000 1 06022 260CLAINST.A−2,1 F4411510
00235 0 60100 4 06500 261STODOLIST,4 F4411520
00236−0 63400 4 07775 262SXDDOBOX=,4 STORE DO LIST ADDRESS F4411530
00237 0 07400 4 00356 263TSXSTB,4 PUT ADDRESS OF TRA BACK IN TRA TABLF4411540
00240 0 50000 1 06020 264CLAINST.A−4,1 F4411550
00241 0 07400 4 00356 265TSXSTB,4 PUT LOC OF NEXT INST. IN TRA F4411560
00242 1 00004 1 00134 266TXIAA,1,4 LOOK AT NEXT INST. F4411570
00243 0 50000 1 06017 267IF3CSA CLAINST.A−5,1 THIS INSTRUCTION IS A TZE F4411580
00244−0 32000 0 00054 268ANAOPMSK= F4411590
00245 0 40200 0 00074 269SUBLTPL.= IS IT FOLLOWED BY BOTH A TPL AND F4411600
00246−0 10000 0 00173 270TNZ2WYTR A TRA, IF NOT, TREAT IT AS A F4411610
00247 0 50000 1 06013 271CLAINST.A−9,1 TWO-WAY TRANSFER F4411620
00250−0 32000 0 00054 272ANAOPMSK= F4411630
00251 0 40200 0 00064 273SUBLTRA.= F4411640
00252−0 10000 0 00173 274TNZ2WYTR F4411650
00253 0 50000 1 06022 275CLAINST.A−2,1 PUT ADDRESSES OF THE THREE BRANCHESF4411660
00254 0 07400 4 00356 276TSXSTB,4 INTO THE BASIC BLOCK LIST F4411670
00255 0 50000 1 06016 277CLAINST.A−6,1 F4411680
00256 0 07400 4 00356 278TSXSTB,4 F4411690
00257 0 50000 1 06012 279CLAINST.A−10,1 F4411700
00260 0 07400 4 00356 280TSXSTB,4 F4411710
00261 1 00014 1 00134 281TXIAA,1,12 LOOK AT INSTRUCTION AFTER THESE 3. F4411720
00262 0 50000 1 06021 282PSECS CLAINSTA−3,1 INSTRUCTION IS A PSE F4411730
00263−0 32000 0 00056 283ANAPSTMK= F4411740
00264 0 40200 0 00055 284SUBPSEMK= F4411750
00265−0 10000 0 00153 285TNZOTHER NOT A SKIP, LOOK AT NEXT INST. F4411760
00266 0 50000 1 06017 286TSTCS CLAINSTA−5,1 THIS IS A TEST INSTRUCTION F4411770
00267−0 32000 0 00054 287ANAOPMSK= IS IT FOLLOWED BY A TRA F4411780
00270 0 40200 0 00064 288SUBLTRA.= F4411790
00271−0 10000 0 00153 289TNZOTHER NO,GO TO NEXT INSTRUCTION F4411800
00272 0 50000 1 06016 290CLAINST.A−6,1 YES, IS USED FOR SKIPPING F4411810
00273 0 07400 4 00356 291TSXSTB,4 F4411820
00274 0 50000 1 06013 292CLAINST.A−9,1 IS TEST INSTRUCTION FOLLOWED BY F4411830
00275−0 32000 0 00054 293ANAOPMSK= TWO TRAS F4411840
00276 0 40200 0 00064 294SUBLTRA.= F4411850
00277−0 10000 0 00303 295TNZSLOC NO, STORE LOCATION OF 2ND INST. F4411860
00300 0 50000 1 06012 296CLAINST.A−10,1 YES,STORE ADDRESS OF 2ND TRA F4411870
00301 0 07400 4 00356 297TSXSTB,4 F4411880
00302 1 00014 1 00134 298TXIAA,1,12 DO INSTRUCTION AFTER 2ND TRA NEXT F4411890
00303 0 50000 1 06014 299SLOC CLAINSTA−8,1 STORE LOCATION OF 2ND INSTRUCTION F4411900
00304 0 07400 4 00356 300TSXSTB,4 AFTER TEST F4411910
00305 1 00010 1 00134 301TXIAA,1,8 LOOK AT 2ND INSTRUCTION AFTER TEST F4411920
302 F4411930
303THIS ROUTINE READS A BLOCK OF COMPILED INSTRUCTIONS INTO F4411940
304STORAGE FROM TAPE 4, FILE 1. F4411950
00306 0 50000 0 00063 305RDIN CLALNOP.= STORE EXIT ADDRESS FROM RDINS F4411960
00307 0 60100 0 00342 306STOXRDIN F4411970
00310 0 50000 0 00032 307RDINSA CLAMINUS4 INITIALIZE ERROR BOX F4411980
00311 0 60100 0 00030 308STOERRBX F4411990
00312 0 76200 0 00224 309RDSEL RDSINSTTP SELECT INSTRUCTION TAPE F4412000
00313−0 63400 1 00105 310SXDERAS1=,1 F4412010
00314−0 53400 1 00131 311LXDLD12.=,1 F4412020
00315 0 50000 1 01574 312RCLA CLABGINS,1 MOVE EXTRA INSTRUCTIONS F4412030
00316 0 60100 1 06024 313STOINST.A,1 F4412040
00317 2 00001 1 00315 314TIXRCLA,1,1 F4412050
00320−0 63400 1 00106 315SXDERAS2=,1 SAVE INDEX IN CASE OF ERROR F4412060
00321 0 70000 1 06010 316RCPY CPYINSTA−12,1 READ IN BLOCK OF INSTRUCTIONS F4412070
00322 1 00001 1 00321 317TXIRCPY,1,1 F4412080
00323 1 77777 1 00334 318TXIRDEND,1,−1 END OF FILE F4412090
00324 0 76600 0 00333 319TPTST WRS219 TEST FOR TAPE ERROR F4412100
00325−0 76000 0 00012 320RTT F4412110
00326 0 02000 0 00346 321TRARDERR ERROR F4412120
00327 0 50000 0 00032 322CLAMINUS4 INITIALIZE ERROR BOX F4412130
00330 0 60100 0 00030 323STOERRBX F4412140
00331 3 04230 1 00341 324LNOINS TXHXRDIN−1,1,NOINS END OF RECORD--SEE IF IT IS END OF F4412150
00332 0 76200 0 00224 325RDSINSTTP BLOCK GOING INTO STORAGE F4412160
00333 0 02000 0 00320 326TRARCPY−1 READ NEXT BLOCK F4412170
00334−0 75400 1 00000 327RDEND PXD0,1 STORE NUMBER OF REMAINING INSTRUC- F4412180
00335 0 40000 0 00131 328ADDLD12.= TIONS FOR TEST F4412190
00336 0 62200 0 00134 329STDAA F4412200
00337 0 50000 0 00076 330CLALOUT STORE FINAL EXIT ADDRESS. F4412210
00340 0 62100 0 00134 331STAAA F4412220
00341−0 53400 1 00105 332LXDERAS1=,1 NO ERROR,RESTORE INDEX REGISTER F4412230
00342 0 02000 0 00135 333XRDIN TRAAA+1 RETURN TO MAIN ROUTINE F4412240
00343 0 50000 0 00075 334RDIN2 CLALTRAA RESTORE USUAL EXIT ADDRESS IN RDINSF4412250
00344 0 60100 0 00342 335STOXRDIN F4412260
00345 0 02000 0 00222 336TRA4TIX+1 RETURN TO MAIN ROUTINE F4412270
00346 0 50000 0 00030 337RDERR CLAERRBX F4412280
00347−0 12000 0 00351 338SKIP1 TMISKIP1+2 HAVE 5 TRIES AT READING BEEN MADE F4412290
00350 0 07400 4 00004 339TSXRDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE F4412300
00351 0 40000 0 00031 340ADDLA1 NO, TRY READING AGAIN F4412310
00352 0 60100 0 00030 341STOERRBX F4412320
00353 0 76400 0 00224 342BSTINSTTP F4412330
00354−0 53400 1 00106 343LXDERAS2=,1 RESET INDEX REGISTER F4412340
00355 0 02000 0 00332 344TRALNOINS+1 AND TRY TO READ AGAIN F4412350
345 F4412360
346THIS ROUTINE STORES,IN OR0ER AND ELIMINATING DUPLICATIONS, F4412370
347THE COMPILED INSTRUCTION NUMBER OF THE BEGINNING OF EACH F4412380
348BASIC BLOCK F4412390
00356 0 60100 0 00107 349STB STOERAS3= F4412400
00357−0 63400 1 00105 350SXDERAS1=,1 F4412410
00360−0 75400 2 00000 351PXD0,2 F4412420
00361 0 62200 0 00421 352STDBTXH F4412430
00362 0 62200 0 00425 353STDBTXL F4412440
00363 0 62200 0 00401 354STDPLACEA F4412450
00364 0 77100 0 00001 355ARS1 F4412460
00365 0 30000 0 00033 356FADL0...= F4412470
00366 0 77100 0 00033 357ARS27 F4412480
00367 0 40200 0 00040 358SUBLD1..= F4412490
00370 0 62100 0 00372 359STAARS F4412500
00371 0 50000 0 00103 360CLACONSTA F4412510
A00372 0 77100 0 00000 361ARS ARS F4412520
00373 0 56000 0 00104 362LDQCNST2A F4412530
00374−0 73400 1 00000 363PDX0,1 F4412540
00375 0 77100 0 00001 364ARSB ARS1 F4412550
00376 0 62200 0 00403 365STDTXIBB F4412560
00377 0 62200 0 00405 366STDTIXBB F4412570
00400 0 50000 0 00107 367CLAERAS3= F4412580
00401 3 00000 1 00405 368PLACEA TXHTIXBB,1,XXXXXX F4412590
00402 0 34000 1 07774 369CASBBLIST+1,1 F4412600
D00403 1 00000 1 00406 370TXIBB TXICLAB,1 F4412610
00404 0 02000 0 00432 371TRABOUT F4412620
D00405 2 00000 1 00406 372TIXBB TIXCLAB,1 F4412630
00406 0 50000 0 00405 373CLAB CLATIXBB F4412640
00407 0 04000 0 00375 374TLQARSB F4412650
00410 0 50000 0 00107 375CLAERAS3= X WAS NOT FOUND, ENTER IT F4412660
00411 3 01273 2 00434 376TXHBTSX,2,ZBB−1 TEST FOR OVERFLOW OF BBLIST F4412670
00412 0 56000 1 07774 377LDQBBLIST+1,1 F4412680
00413 0 04000 0 00415 378TLQTXI2 F4412690
00414 0 02000 0 00417 379TRABLDQ+1 F4412700
00415 1 00001 1 00416 380TXI2 TXIBLDQ,1,1 F4412710
00416 0 56000 1 07774 381BLDQ LDQBBLIST+1,1 X SHOULD BE ENTERED HERE, SAVE NEXTF4412720
00417 0 60100 1 07774 382STOBBLIST+1,1 ENTRY AND STORE X F4412730
00420 1 00001 1 00421 383TXIBTXH,1,1 IS THIS LAST ENTRY IN TABLE. F4412740
D00421 3 00000 1 00430 384BTXH TXHBSTQ,1 YES, TRANSFER F4412750
00422 0 50000 1 07774 385CLABBLIST+1,1 NO, SHIFT NEXT ENTRY F4412760
00423−0 60000 1 07774 386STQBBLIST+1,1 F4412770
00424 1 00001 1 00425 387TXIBTXL,1,1 F4412780
D00425−3 00000 1 00416 388BTXL TXLBLDQ,1 IS THIS LAST ENTRY IN TABLE F4412790
00426 0 60100 1 07774 389STOBBLIST+1,1 YES, STORE LAST ENTRY F4412800
00427 1 00001 2 00432 390TXIBOUT,2,1 F4412810
00430−0 60000 1 07774 391BSTQ STQBBLIST+1,1 STORE LAST ENTRY F4412820
00431 1 00001 2 00432 392TXIBOUT,2,1 F4412830
00432−0 53400 1 00105 393BOUT LXDERAS1=,1 RESTORE INDEX REGISTER F4412840
00433 0 02000 4 00001 394TRA1,4 TRANSFER BACK. F4412850
00434 0 07400 4 00004 395BTSX TSXRDFORT,4 BBLIST IS FULL WITHOUT THIS ENTRY F4412860
396 F4412670
397THIS ROUTINE READS TIFGO FROM TAPE 2, FILE 5, RECORD 6, F4412880
398ELIMINATING UNWANTED PARTS OF TIFGO. F4412890
00435 0 50000 0 00032 399STTIF= CLAMINUS4 INITIALIZE ERROR BOX F4412900
00436 0 60100 0 00030 400STOERRBX F4412910
00437 0 76400 0 00222 401BSTTBLTAP POSITION TAPE4TO READ TIFGO F4412920
00440 0 76400 0 00222 402BSTTBLTAP F4412930
00441 0 76200 0 00222 403RDSTBLTAP F4412940
00442 0 70000 0 00105 404CPYERAS1= GET NO. OF RECORDS IN DOTAG F4412950
00443−0 53400 1 00105 405LXDERAS1=,1 BACKSPACE OVER COUNT, END FILE, F4412960
00444 1 00014 1 00445 406TXITF TXITXITF+1,1,12 IXTAG, END FILE, 9 TABLES F4412970
00445 0 76400 0 00222 407BSTA BSTTBLTAP F4412980
00446 2 00001 1 00445 408SELF3 TIXSELF3−1,1,1 F4412990
00447 0 76200 0 00222 409RDSTBLTAP F4413000
00450 0 70000 0 00106 410CPYERAS2= COPY TABLE NUMBER F4413010
00451 0 70000 0 00105 411CPYERAS1= COPY NO OF WORDS IN TABLE F4413020
00452 0 70000 1 06024 412CPYTF CPYTIFRD,1 COPY WORD 0F TIFGO F4413030
00453 0 02000 0 00456 413TRACLATFA REGULAR EXIT FROM COPY F4413040
00454 0 07400 4 00004 414TSXRDFORT,4 END OF FILE SHOULD NOT OCCUR F4413050
00455 1 77777 1 00476 415TXICHECK,1,−1 END OF RECORD - GIVE RTT, SET INDEXF4413060
00456 0 50000 1 06024 416CLATFA CLATIFRD,1 LOOK AT THIS WORD OF TIFGO F4413070
00457−0 12000 0 00451 417TMICPYTF−1 -,MEANS AN IF, GIVE 2ND COPY,IGNOREF4413080
00460−0 32000 0 00057 418ANATGMSK= IS THIS A GO TO N ENTRY F4413090
00461 0 40200 0 00031 419SUBLA1 F4413100
00462 0 70000 1 06023 420CPYTIFRD−1,1 COPY SECOND WORD OF ENTRY F4413110
00463 0 10000 0 00467 421TZEGOTONA THIS IS A GO TO N ENTRY F4413120
00464 0 40200 0 00034 422SUBL5...= NOT A GO TO N--IS IT AN ASSIGN F4413130
00465−0 10000 0 00452 423TNZCPYTF NO, LOOK AT NEXT ENTRY, DONT SAVE F4413140
00466 1 00002 1 00452 424ASSN TXICPYTF,1,2 AN ASSIGN,KEEP ENTRY IN TIFRD F4413150
00467 0 50000 1 06023 425GOTONA CLATIFRD−1,1 A GO TO N, SAVE ENTRY AND ALSO F4413160
00470 0 62200 0 00105 426STDERAS1= LEAVE ENOUGH SPACE FOR CORRES- F4413170
00471 0 73400 4 00000 427PAX0,4 PONDING ENTRIES IN TRAD F4413180
00472−0 75400 4 00000 428PXD0,4 F4413190
00473 0 40200 0 00105 429SUBERAS1= F4413200
00474 0 62200 0 00475 430SELF4 STDSELF4+1 F4413210
00475 1 00000 1 00466 431TXIASSN,1,XXXXXX LOOK AT NEXT ENTRY IN TIFRD F4413220
00476 0 76600 0 00333 432CHECK IOD TEST FOR TAPE ERROR F4413230
00477−0 76000 0 00012 433RTT F4413240
00500 0 02000 0 00515 434TRAERRORA ERROR F4413250
00501 0 50000 0 00106 435CLAERAS2= CHECK FOR POSITIONING OF TAPE F4413260
00502 0 40200 0 00035 436SUBTIFLAB F4413270
00503−0 10000 0 00524 437TNZBADPOS F4413280
00504−0 75400 1 00000 438PXD0,1 SAVE LENGTH OF TABLE FOR TESTS F4413290
00505 0 62200 0 00570 439STDABOX F4413300
00506 0 77100 0 00022 440ARS18 F4413310
00507 0 60100 0 00106 441STOERAS2= F4413320
00510−0 10000 0 00525 442TNZRDTRAD−2 TIFGO IS NOT EMPTY F4413330
00511 0 76200 0 00222 443RDS6 RDSTBLTAP F4413340
00512 1 77777 2 00513 444TXIRDS6+2,2,−1 NO ENTRIES IN TIFGO-SKIP PROCESSINGF4413850
00513−0 63400 2 07774 445SXDBBOX.=,2 F4413360
00514 0 02000 0 00637 446TRALXA6 F4413370
00515 0 50000 0 00030 447ERRORA CLAERRBX F4413380
00516−0 12000 0 00520 448SKIP2 TMISKIP2+2 HAVE 5 TRIES AT READING BEEN MADE F4413390
00517 0 07400 4 00004 449TSXRDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE F4413400
00520 0 40000 0 00031 450ADDLA1 NO, TRY READING AGAIN F4413410
00521 0 60100 0 00030 451STOERRBX F4413420
00522−0 53400 1 00040 452LXDLD1..=,1 RESET INDEX REGISTER F4413430
00523 0 02000 0 00445 453TRABSTA F4413440
00524 0 07400 4 00004 454BADPOS TSXRDFORT,4 TAPE POSITIONED INCORRECTLY F4413450
455 F4413460
456THIS ROUTINE READS TRAD FROM TAPE 2, FILE 5, RECORD 7, AND F4413470
457ENTERS ALL WORDS OF TRAD INTO THE BASIC BLOCK LIST. F4413480
00525 0 50000 0 00032 458CLAMINUS4 INITIALIZE ERROR BOX F4413490
00526 0 60100 0 00030 459STOERRBX F4413500
00527 0 53400 1 00031 460RDTRAD LXALA1,1 SET INDEX F4413510
00530 0 76200 0 00222 461RDSTBLTAP F4413520
00531 0 70000 0 00105 462CPYERAS1= COPY TABLE NUMBER F4413530
00532 0 70000 1 03711 463CPYTRAD.=+1,1 COPY NUMBER OF WORDS AND TABLE F4413540
00533 1 77777 1 00532 464SELF5 TXISELF5−1,1,−1 COPY NEXT WORD F4413550
00534 0 07400 4 00004 465TSXRDFORT,4 END OF FILE SHOULD NOT OCCUR F4413560
00535 0 76600 0 00333 466IOD END OF RECORD--TEST FOR ERROR F4413570
00536−0 76000 0 00012 467RTT F4413580
00537 0 02000 0 00551 468TRAERR2TD ERROR F4413590
00540 0 50000 0 00105 469CLAERAS1= CHECK FOR POSITIONING OF TAPE F4413600
00541 0 40200 0 00036 470SUBTRALAB F4413610
00542−0 10000 0 00524 471TNZBADPOS F4413620
00543−3 00000 1 00560 472TXLTRD TXLTXITRD,1,0 ALL OF TRAD NOW IN BASIC BLOCK LISTF4413630
00544 0 50000 1 03710 473CLATRAD.=,1 NO ERROR--ENTER IN BASIC BLOCK LISTF4413640
00545 0 76700 0 00022 474ALS18 SHIFT WORD OF TRAO F4413650
00546 0 60100 1 03710 475STOTRAD.=,1 F4413660
00547 0 07400 4 00356 476TSXSTB,4 F4413670
00550 1 00001 1 00543 477TXITXLTRD,1,1 SET FOR NEXT WORD IN TRAD F4413680
00551 0 50000 0 00030 478ERR2TD CLAERRBX F4413690
00552−0 12000 0 00554 479SKIP3 TMISKIP3+2 HAVE 5 TRIES AT READING BEEN MADE F4413700
00553 0 07400 4 00004 480TSXRDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE F4413710
00554 0 40000 0 00031 481ADDLA1 NO, TRY READING AGAIN F4413720
00555 0 60100 0 00030 482STOERRBX F4413730
00556 0 76400 0 00222 483BSTTBLTAP F4413740
00557 0 02000 0 00527 484TRARDTRAD F4413750
00560 1 77777 2 00561 485TXITRD TXITXITRD+1,2,−1 F4413760
00561−0 63400 2 07774 486SXDBBOX.=,2 SAVE LENGTH OF BB TABLE F4413770
487 F4413780
488THIS COMBINES TIFGO AND TRAD INTO TIFRD F4413790
00562 0 53400 1 00031 489CMBNE LXALA1,1 COMBINE TRAD WITH TIFGO F4413800
00563 0 50000 1 06024 490CLATF CLATIFRD,1 LOOK FOR A GO TO N ENTRY IN TIFRD F4413810
00564−0 32000 0 00057 491ANATGMSK= F4413820
00565 0 40200 0 00031 492SUBLA1 F4413830
00566 0 10000 0 00572 493TZEGOTN2 F4413840
00567 1 00002 1 00570 494TXIABOX,1,2 F4413850
D00570−2 00000 1 00563 495ABOX TNXCLATF,1 IS THIS END OF TIFRD F4413860
00571 0 02000 0 00605 496TRACLAER YES, STORE TIFRD ON DRUM F4413870
00572 0 50000 1 06023 497GOTN2 CLATIFRD−1,1 GO TO N, PUT IN ENTRIES FROM TRAD F4413880
00573−0 73400 2 00000 498PDX0,2 SET INDEX FOR FIRST WORD F4413890
00574 0 76700 0 00022 499ALS18 F4413900
00575 0 62200 0 00603 500STDTXH STORE INDEX FOR LAST WORD F4413910
00576 0 50000 2 04303 501CLATR CLATRAD.=+251,2 STORE WORD FROM TRAD INTO TIFRD F4413920
00577−0 76000 0 00003 502SSM F4413930
00600 0 60100 1 06022 503STOTIFRD−2,1 F4413940
00601 1 77777 2 00602 504TXITXIA,2,−1 SET INDEX FOR TRAD F4413950
00602 1 00001 1 00603 505TXIA TXITXH,1,1 SET INDEX FOR TIFRD F4413960
D00603 3 00000 2 00576 506TXH TXHCLATR,2 CHECK FOR LAST WORD FOR THIS GO TO F4413970
00604 1 00002 1 00570 507TXIABOX,1,2 SET FOR NEXT ENTRY IN TIFRD F4413980
508 F4413990
509THIS ROUTINE WRITES TIFRD ON DRUM 1 IN BLOCKS OF 200 WORDS. F4414000
00605 0 50000 0 00106 510CLAER CLAERAS2= HOW MANY WORDS ARE LEFT TO COPY F4414010
00606−0 12000 0 00643 511TMIRFRET NONE F4414020
00607 0 40200 0 00041 512SUBLZTIF= F4414030
00610−0 12000 0 00637 513TMI TMILXA6 ONLY A PARTIAL BLOCK F4414040
00611 0 53400 1 00041 514LXALZTIF=,1 FULL F4414050
00612 0 60100 0 00106 515STOERAS2= STORE NO OF WORDS LEFT AFTER THIS F4414060
00613 0 76600 0 00301 516WRSTIF WRSTIFDRM F4414070
00614−0 75400 1 00000 517PXD0,1 PUT LENGTH OF BLOCK IN ACCUMULATOR F4414080
00615 0 60100 0 00107 518STOERAS3= AND IN ERAS3= F4414090
00616 0 36100 1 06024 519ACLF ACLTIFRD,1 COMPUTE CHECKSUM F4414100
00617 2 00001 1 00616 520TIXACLF,1,1 F4414110
00620 0 60200 0 00105 521SLWERAS1= STORE CHECK SUM F4414120
00621 0 46000 0 00047 522LDAY LOCATE DRUM ADDRESS F4414130
00622−0 53400 1 00107 523LXDERAS3=,1 SET INDEX F4414140
00623 0 70000 0 00107 524CPYERAS3= COPY NO OF WORDS IN BLOCK F4414150
00624 0 70000 1 06024 525CPY7FT CPYTIFRD,1 COPY TABLE F4414160
00625 2 00001 1 00624 526SELF9 TIXSELF9−1,1,1 F4414170
00626 0 70000 0 00105 527CPYERAS1= COPY CHECK SUM F4414180
00627−0 50000 0 00616 528CALACLF SET ADDRESSES FOR COMPUTING F4414190
00630 0 40200 0 00041 529SUBLZTIF= CHECK SUM AND COPY F4414200
00631 0 62100 0 00616 530STA6 STAACLF F4414210
00632 0 62100 0 00624 531STACPY7FT F4414220
00633 0 50000 0 00047 532CLAY SET DRUM ADDRESS F4414230
00634 0 40000 0 00042 533ADDLZTF2= F4414240
00635 0 62100 0 00047 534STAY F4414250
00636 0 02000 0 00605 535TRACLAER DO NEXT BLOCK F4414260
00637 0 53400 1 00106 536LXA6 LXAERAS2=,1 PUT LENGTH IN INDEX F4414270
00640 0 50200 0 00033 537CLSL0...= PUT MINUS IN ERAS2= AS LENGTH LEFT F4414280
00641 0 60100 0 00106 538STOERAS2= F4414290
00642 0 02000 0 00613 539TRAWRSTIF TRA TO WRITE BLOCK AND COMPUTE CKSMF4414300
540 F4414310
541THIS ROUTINE READS FRET FROM TAPE 2, FILE 5, RECORD 12, AND F4414320
542CHANGES FREQUENCIES TO PROBABILITIES. F4414330
00643 0 50000 0 00032 543RFRET CLAMINUS4 INITIALIZE ERROR BOX F4414340
00644 0 60100 0 00030 544STOERRBX F4414350
00645 0 53400 4 00034 545LXAL5...=,4 SPACE TO FRET F4414360
00646 0 76200 0 00222 546RDSFTP RDSTBLTAP F4414370
00647 2 00001 4 00646 547TIXRDSFTP,4,1 F4414380
00650 0 70000 0 00106 548CPYERAS2= COPY TABLE NUMBER F4414390
00651 0 70000 0 00105 549RDINF CPYERAS1= COPY NUMBER OF WORDS IN TABLE F4414400
00652−0 53400 2 00105 550LXDERAS1=,2 PUT NUMBER OF WORDS INTO INDEX B F4414410
00653−3 00000 2 01012 551TXLEMPTY,2,0 F4414420
00654 0 53400 1 00031 552LXALA1,1 INITIALIZE INDEX REGISTERS A AND C F4414430
00655−0 53400 4 00050 553LXDLXFRT=,4 F4414440
00656 0 70000 4 06023 554CPYF CPYFRET.=,4 COPY WORDS INTO STORAGE F4414450
00657 0 50000 4 06023 555CLAFRET.=,4 IS THIS WORD THE FORMULA NUMBER OF F4414460
00660−0 12000 0 00665 556TMITNX A NEW ENTRY--YES, TRANSFER F4414470
00661 0 40000 4 06022 557ADD ADDFRET.=−1,4 NO, ADD THIS FREQUENCY TO PREVIOUS F4414480
00662 0 60100 4 06023 558STOFRET.=,4 SUM TO GET CUMULATIVE FREQUENCY F4414490
00663−2 00001 2 00724 559TNXALDNE,2,1 IS TABLE ALL COPIED F4414500
00664 1 77777 4 00656 560TXICPYF,4,−1 NO,COPY NEXT WORD F4414510
00665−2 00001 2 00711 561TNX TNXERRFN,2,1 THIS IS FORM. NO,--SHOUL0NT END TABF4414520
00666 1 77777 4 00667 562SELF10 TXISELF10+1,4,−1 INDEX PLACE IN STORAGE F4414530
00667 0 70000 4 06023 563CPY3FT CPYFRET.=,4 COPY FIRST FREQUENCY IN ENTRY F4414540
00670−2 00001 2 00706 564TNXDOEND,2,1 TEST FOR END OF TABLE ON TAPE F4414550
00671 1 77777 4 00672 565SELF11 TXISELF11+1,4,−1 INDEX PLACE IN STORAGE F4414560
00672 0 70000 4 06023 566CPYFRET.=,4 COPY NEXT WORD-- IS IT NEXT FREQ ORF4414570
00673 0 50000 4 06023 567CLAFRET.=,4 IS IT NEW FORMULA NUMBER F4414580
00674 0 12000 0 00661 568TPLADD NEXT FREQUENCY,GO TO ADD F4414590
00675 0 50000 4 06021 569DOCSFT CLAFRET.=−2,4 NEW FORMULA NUMBER,ENTRY JUST F4414600
00676 0 60100 1 06023 570STODVFQ.=,1 COPIED WAS FOR A DO, MOVE TO F4414610
00677 0 50000 4 06022 571CLAFRET.=−1,4 DVFQ F4414620
00700 0 60100 1 06022 572STODVFQ.=−1,1 F4414630
00701 1 00002 1 00702 573TXICLAFT,1,2 INDEX POSITION IN DVFQ TABLE F4414640
00702 0 50000 4 06023 574CLAFT CLAFRET.=,4 PUT NEW FORMULA INTO FRET IN PLACE F4414650
00703 0 60100 4 06021 575STOFRET.=−2,4 OF ENTRY JUST MOVED F4414660
00704−2 00001 2 00711 576TNXERRFN,2,1 THIS SHOULD BE END ONLY IF WAS DOCSF4414670
00705 1 00001 4 00667 577TXICPY3FT,4,1 COPY NEXT WORD F4414680
00706 0 50000 0 00663 578DOEND CLAADD+2 THIS DO ENTRY IS END OF TABLE F4414690
00707 0 62100 0 00704 579STACLAFT+2 RESTORE ADDRESS F4414700
00710 0 02000 0 00675 580TRADOCSFT ERROR EXIT F4414710
00711 0 07400 4 00004 581ERRFN TSXRDFORT,4 THE TAPE RECORD ENDS WITH A FORMULAF4414720
00712 0 50000 0 00665 582CLATNX NUMBER WITH NO FREQUENCIES F4414730
00713 0 62100 0 00704 583STACLAFT+2 RESTORE ADDRESS F4414740
00714 0 50000 0 00030 584ERRORF CLAERRBX F4414750
00715−0 12000 0 00717 585SKIP4 TMISKIP4+2 HAVE 5 TRIES AT READING BEEN MADE F4414760
00716 0 07400 4 00004 586TSXRDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE F4414770
00717 0 40000 0 00031 587ADDLA1 NO, TRY READING AGAIN F4414780
00720 0 60100 0 00030 588STOERRBX F4414790
00721 0 76400 0 00222 589BSTTBLTAP F4414800
00722 0 76200 0 00222 590RDSTBLTAP SET TO READ FRET AGAIN. F4414810
00723 0 02000 0 00650 591TRARDSFTP+2 TRY AGAIN F4414820
00724 0 76600 0 00333 592ALDNE IOD F4414830
00725−0 76000 0 00012 593RTT TEST FOR TAPE ERROR F4414840
00726 0 02000 0 00714 594TRAERRORF ERROR F4414850
00727 0 50000 0 00106 595CLAERAS2= CHECK FOR POSITIONING OF TAPE F4414860
00730 0 40200 0 00037 596SUBFRELAB F4414870
00731−0 10000 0 00524 597TNZBADPOS F4414880
00732 1 77777 4 00733 598TXICONTN,4,−1 F4414890
00733−0 63400 1 01274 599CONTN SXDDVFTST,1 SAVE LENGTH OF DVFQ TABLE F4414900
00734−0 63400 4 00107 600SXDFRTBX=,4 SAVE LENGTH OF FRET TABLE IN STOR. F4414910
00735 1 00001 4 00736 601TXICLA1,4,1 F4414920
00736 0 50000 4 06023 602CLA1 CLAFRET.=,4 TAKE TOTAL FREQ OF ENTRY (LAST WD) F4414930
00737 0 60100 0 00105 603STOERAS1= STORE AS DIVISOR F4414940
00740 0 50000 0 00052 604CLAENDMK= STORE HIGHEST NO AS TOTAL PROB. F4414950
00741 0 60100 4 06023 605STOFRET.=,4 F4414960
00742 1 00001 4 00743 606TXICLAD,4,1 INDEX PLACE IN FRET F4414970
00743 0 50000 4 06023 607CLAD CLAFRET.=,4 LOOK AT NEXT WORD F4414980
00744−0 12000 0 00753 608TMINEWFM FORMULA NUMBER--END OF THIS ENTRY F4414990
00745 0 56000 0 00033 609LDQL0...= ANOTHER CUMULATIVE FREQUENCY F4415000
00746 0 22100 0 00105 610DVPERAS1= DIVIDE BY TOTAL FREQUENCY TO GET F4415010
00747 0 76000 0 00012 611DCT CUMULATIVE PROBABILITY F4415020
00750 0 56000 0 00052 612LDQENDMK= F4415030
00751−0 60000 4 06023 613STQFRET.=,4 F4415040
00752 1 00001 4 00743 614TXICLAD,4,1 LOOK AT NEXT WORD F4415050
00753 1 00001 4 00754 615NEWFM TXINEWFM+1,4,1 IS THIS END OF TABLE F4415060
00754−2 01750 4 00736 616TNXCLA1,4,XFRET= NO--LOOK AT NEXT ENTRY F4415070
617 F4415080
618THIS ROUTINE WRITES FRET ON DRUM 2 IN BLOCKS OF 250 WORDS F4415090
00755 0 50200 0 00107 619DONE CLSFRTBX= F4415100
00756 0 40000 0 00050 620ADDLXFRT= F4415110
00757−0 73400 4 00000 621PDX0,4 PUT NO. OF WORDS IN FRET INTO INDEXF4415120
00760−2 00372 4 01006 622LZFRT= TNXLSTBLK,4,ZFRET= IS THERE ONLY A PARTIAL BLOCK LEFT F4415130
00761−0 53400 3 00760 623LXDLZFRT=,3 NO, FULL BLOCK--SET INDEX REGS. F4415140
00762 0 50000 0 00043 624CLALAZFT= GET LENGTH OF BLOCK F4415150
00763 0 40100 0 00771 625ADM ADMACLA SET ADDRESSES FOR BLOCK F4415160
00764 0 62100 0 00771 626STAACLA F4415170
00765 0 62100 0 00776 627STACPYFT F4415180
00766 0 76600 0 00302 628WRSFRTDRM SELECT DRUM F4415190
00767−0 75400 2 00000 629PXD0,2 F4415200
00770 0 60100 0 00106 630STOERAS2= STORE LENGTH OF BLOCK F4415210
00771 0 36100 2 04053 631ACLA ACLFRETN=,2 FIND CHECKSUM F4415220
00772 2 00001 2 00771 632TIXACLA,2,1 F4415230
00773 0 60200 0 00105 633SLWERAS1= STORE CHECKSUM F4415240
00774 0 46000 0 00046 634LDAFRETY= F4415250
00775 0 70000 0 00106 635CPYERAS2= COPY NO OF WORDS IN BLOCK F4415260
00776 0 70000 1 04053 636CPYFT CPYFRETN=,1 COPY BLOCK F4415270
00777 2 00001 1 00776 637TIXCPYFT,1,1 F4415280
01000 0 70000 0 00105 638CPYERAS1= COPY CHECK SUM F4415290
01001 3 01750 4 01014 639TXHOUTA,4,XFRET= IS THIS END OF TABLE F4415300
01002 0 50000 0 00046 640CLAFRETY= NO,SET DRUM ADDRESS FOR NEXT BLOCK F4415310
01003 0 40000 0 00044 641ADDLAFT2= F4415320
01004 0 62100 0 00046 642STAFRETY= F4415330
01005 0 02000 0 00760 643TRALZFRT= DO NEXT BLOCK F4415340
01006−0 75400 4 00000 644LSTBLK PXD0,4 ONLY A PARTIAL BLOCK LEFT F4415350
01007−0 73400 3 00000 645PDX0,3 LENGTH OF BLOCK INTO INDICES F4415360
01010 0 77100 0 00022 646ARS18 F4415370
01011 1 01750 4 00763 647TXIADM,4,XFRET= F4415380
01012 0 76600 0 00302 648EMPTY WRSFRTDRM F4415390
01013 0 46000 0 00046 649LDAFRETY= F4415400
01014 0 70000 0 00033 650OUTA CPYL0...= F4415410
01015 0 77200 0 00224 651REWINSTTP REWIND COMPILED INSTRUCTION TAPE F4415420
652 F4415430
653THIS ROUTINE SORTS THE LIST OF TXL INSTRUCTIONS BY ADDRESS F4415440
01016−0 53400 1 07775 654SRTDO LXDDOBOX=,1 PUT TOTAL LNGTH OF DOLIST IN ERAS2=F4415450
01017−3 00000 1 01305 655TXLCLTRA=−3,1,0 IF NO DOS, OMIT ROUTINES WITH DOS F4415460
01020−0 63400 1 00106 656SXDERAS2=,1 F4415470
01021 0 50000 1 06500 657CLADO CLADOLIST,1 TAKE LAST ENTRY NOT ALREADY SORTED F4415480
01022 0 56000 1 06501 658LDQDOLIST+1,1 PUT ADDRESS IN AC, LOC IN MQ F4415490
01023−3 00002 1 01046 659TXLDO TXLSTOREA,1,2 IS THERE ANOTHER ENTRY TO BE F4415580
660 COMPARED F4415510
01024 0 34000 1 06502 661CASDOLIST+2,1 YES, COMPARE ADDRESSES F4415520
01025 1 77776 1 01023 662TXITXLDO,1,−2 STORED ADDRESS SMALLER, LOOK AT F4415530
663 NEXT WORD F4415540
01026 0 02000 0 01040 664TRACOMPR ADDRESSES ARE EQUAL, COMPARE LOCATNF4415550
01027 0 60100 0 00105 665STOERAS1= STORED ADDRESS LARGER, EXCHANGE F4415560
01030 0 50000 1 06503 666CLADOLIST+3,1 ENTRIES F4415570
01031−0 60000 1 06503 667STQDO STQDOLIST+3,1 F4415580
01032 0 56000 0 00105 668LDQERAS1= F4415590
01033 0 60100 0 00105 669STOERAS1= F4415600
01034 0 50000 1 06502 670CLADOLIST+2,1 F4415610
01035−0 60000 1 06502 671STQDOLIST+2,1 F4415620
01036 0 56000 0 00105 672LDQERAS1= F4415630
01037 1 77776 1 01023 673TXITXLDO,1,−2 F4415640
01040 0 60100 0 00105 674COMPR STOERAS1= ADDRESSES EQUAL,COMPARE LOCATIONS F4415650
01041 0 50000 1 06503 675CLADOLIST+3,1 F4415660
01042 0 04000 0 01044 676TLQCLA2 STORED LARGER,DO NOT EXCHANGE F4415670
01043 0 02000 0 01031 677TRASTQDO STORED LOC SMALLER, EXCHANGE F4415680
01044 0 50000 0 00105 678CLA2 CLAERAS1= RESTORE ACCUMULATOR F4415690
01045 1 77776 1 01023 679TXITXLDO,1,−2 F4415700
01046−0 53400 1 00106 680STOREA LXDERAS2=,1 NOW HAVE HIGHEST OF ENTRIES NOT F4415710
01047 0 60100 1 06500 681STODOLIST,1 PREVIOUSLY SORTED, STORE JUST F4415720
01050−0 60000 1 06501 682STQDOLIST+1,1 BEFORE THOSE ALREADY SORTED AND F4415730
01051 1 77776 1 01052 683SELF13 TXISELF13+1,1,−2 SET INDEX TO AVOID THIS ENTRY ASF4415740
01052−0 63400 1 00106 684SXDERAS2=,1 ALREADY SORTED, LOOK FOR HIGHESTF4415750
01053 3 00002 1 01021 685TXHCLADO,1,2 ENTRY OF THOSE NOT YET SORTED. F4415760
686 TABLE IS ENTIRELY SORTED NOW. F4415770
687 F4415780
688THIS ROUTINE REPLACES THE INSTRUCTION NUMBERS IN THE DO LIST F4415790
689BY BASIC BLOCK NUMBERS F4415800
01054 0 53400 2 00033 690LXAL0...=,2 INITIALIZE INDEX REGISTERS F4415810
01055 0 50000 0 07775 691CLADOBOX= PUT NUMBER OF WORDS IN LIST INTO F4415820
01056 0 62200 0 01060 692STDTIXDO DECREMENT OF TIX FOR COMPARISON F4415830
01057 0 53400 1 00031 693LXALA1,1 F4415840
D01060 2 00000 1 01102 694TIXDO TIXRDDOT,1 HAVE ALL ENTRIES BEEN DONE F4415850
01061 0 50000 1 06477 695CLADOLIST−1,1 ADD INST NO TO BE CHANGED (ADDR) F4415860
01062 0 34000 2 07773 696LDQ CASBBLIST,2 COMPARE TO INST NO OF BEG OF BB F4415870
01063 1 00001 2 01062 697TXILDQ,2,1 BEG BB LESS, TRY NEXT F4415880
01064 0 02000 0 01066 698TRALDQ+4 BEG. B.B. EQUAL,FOUND F4415890
01065 1 77777 2 01066 699TXILDQ+4,2,−1 BEG B B GREATER, PREVIOUS BB IS IT F4415900
01066−0 75400 2 00000 700LOQP4 PXD0,2 PUT B B NO IN DECREMENT F4415910
01067 0 60100 1 06477 701STODOLIST−1,1 REPLACE INSTR NO IN DO LIST F4415920
01070 0 50000 1 06500 702CLADOLIST,1 ADD INSTR NO OF LOC OF TXL F4415930
01071 0 34000 2 07773 703CASBBLIST,2 COMPARE TO BB OF ADDR FIRST F4415940
01072 1 00001 2 01071 704SELF14 TXISELF14−1,2,1 TOO SMALL--TRY NEXT F4415950
01073 0 02000 0 01075 705SELF15 TRASELF15+2 EQUAL--FOUND F4415960
01074 1 77777 2 01075 706SELF16 TXISELF16+1,2,−1 TOO LARGE, WAS ONE PREVIOUS F4415970
01075−0 75400 2 00000 707CASP4 PXD0,2 PUT BB NO INTO DOLIST IN PLACE OF F4415980
01076 0 60100 1 06500 708STODOLIST,1 INSTRUCTION NUMBER F4415990
01077 0 50000 1 06477 709CLADOLIST−1,1 PUT BB NO OF ADDRESS OF THIS DO F4416000
01100−0 73400 2 00000 710PDX0,2 INTO IR B TO START COMPARISON F4416010
01101 1 00002 1 01060 711TXITIXDO,1,2 DO NEXT ENTRY F4416020
712 F4416030
713THIS ROUTINE READS DOCARE FROM DRUM 1 F4416040
01102 0 50000 0 00032 714RDDOT CLAMINUS4 INITIALIZE ERROR BOX F4416050
01103 0 60100 0 00030 715STOERRBX F4416060
01104 0 76200 0 00301 716RDSDOT RDSDOCRDR SELECT DOCARE DRUM F4416070
01105 0 53400 1 00033 717LXAL0...=,1 ZERO INTO I.R.A F4416080
01106 0 70000 0 00105 718CPYERAS1= F4416090
01107 0 53400 4 00105 719LXAERAS1=,4 F4416100
01110 0 70000 0 00106 720CPYERAS2= F4416110
01111−2 00002 4 01141 721TNXCLAE,4,2 TEST FOR EMPTY TABLE F4416120
01112 0 70000 1 04216 722CPYDOT CPYDOCARE,1 COPY TABLE F4416130
01113 1 00001 1 01114 723SELF17 TXISELF17+1,1,1 F4416140
01114 0 70000 1 04363 724CPYDOCARE+101,1 COPY CHECKSUMS F4416150
01115 2 00002 4 01112 725TIXCPYDOT,4,2 TEST FOR END F4416160
01116−0 63400 1 00107 726SXDERAS3=,1 SAVE INDEX F4416170
01117−0 53400 2 00107 727LXDERAS3=,2 F4416180
01120−0 50000 0 00105 728CALERAS1= F4416190
01121 0 36100 1 04217 729ACLDOCARE+1,1 F4416200
01122 2 00001 1 01121 730SELF18 TIXSELF18−1,1,1 SUM ENTRIES F4416210
01123 0 60200 0 00105 731SLWERAS1= F4416220
01124−0 50000 0 00106 732CALERAS2= F4416230
01125 0 36100 2 04363 733ACLB ACLDOCARE+101,2 SUM CHECKS F4416240
01126 2 00001 2 01125 734TIXACLB,2,1 F4416250
01127 0 60200 0 00106 735SLWERAS2= F4416260
01130 0 50000 0 00106 736CHSMCR CLAERAS2= F4416270
01131 0 40200 0 00105 737SUBERAS1= F4416280
01132 0 10000 0 01143 738TZERDDTG NO ERROR-DO NEXT PART OF PROGRAM F4416290
01133 0 50000 0 00030 739CLAERRBX F4416300
01134−0 12000 0 01136 740SKIP5 TMISKIP5+2 HAVE 5 TRIES AT READING BEEN MADE F4416310
01135 0 07400 4 00004 741TSXRDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE F4416320
01136 0 40000 0 00031 742ADDLA1 NO, TRY READING AGAIN F4416330
01137 0 60100 0 00030 743STOERRBX F4416340
01140 0 02000 0 01104 744TRARDSDOT F4416350
01141 0 60000 0 00107 745CLAE STZERAS3= SET SIGNAL FOR EMPTY DOCARE F4416360
01142 0 02000 0 01130 746TRACHSMCR F4416370
747 F4416380
748THIS ROUTINE READS DOTAG FROM TAPE 2, FILE 6, AND CONDENSES F4416390
749IT F4416400
01143 0 76200 0 00222 750RDDTG RDSTBLTAP F4416410
01144 0 76200 0 00222 751RDSTBLTAP F4416420
01145 0 76200 0 00222 752RDSTBLTAP F4416430
01146 0 50000 0 00032 753CLAMINUS4 INITIALIZE ERROR BOX F4416440
01147 0 60100 0 00030 754STOERRBX F4416450
01150−0 53400 1 00054 755LXDOPMSK=,1 COMPLEMENT OF ONE INTO IR A F4416460
01151 0 76200 0 00222 756RDSDTG RDSTBLTAP F4416470
01152 0 70000 1 04216 757CPY1D CPYDOTAG,1 COPY RECORD SAVING ONLY THOSE F4416480
01153 0 02000 0 01156 758TRACPY2D PARTS TO BE USED F4416490
01154 0 02000 0 01203 759TRANTRDO= END OF FILE--ALL COPIED F4416500
01155 0 02000 0 01167 760TRATESTDT END OF RECORD--TEST FOR ERROR F4416510
01156 0 70000 0 00105 761CPY2D CPYERAS1= F4416520
01157 0 70000 0 00105 762CPYERAS1= F4416530
01160 0 70000 0 00105 763CPYERAS1= F4416540
01161 0 70000 1 04217 764CPYDOTAG+1,1 F4416550
01162 0 70000 1 04220 765CPYDOTAG+2,1 F4416560
01163 0 70000 1 04221 766CPYDOTAG+3,1 F4416570
01164 0 70000 0 00105 767CPYERAS1= F4416580
01165 0 70000 0 00105 768CPYERAS1= F4416590
01166 1 77774 1 01152 769TXICPY1D,1,−4 SET FOR NEXT ENTRY F4416600
01167−0 76000 0 00012 770TESTDT RTT 4 TEST REDUNDANCY F4416610
01170 0 02000 0 01173 771TRAERR2DT F4416620
01171−0 63400 1 01216 772SXDDTGBX,1 SAVE LENGTH OF TABLE SO FAR F4416630
01172 0 02000 0 01151 773TRARDSDTG COPY NEXT RECORD F4416640
01173 0 50000 0 00030 774ERR2DT CLAERRBX F4416650
01174−0 12000 0 01176 775SKIP6 TMISKIP6+2 HAVE 5 TRIES AT READING BEEN MADE F4416660
01175 0 07400 4 00004 776TSXRDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE F4416670
01176 0 40000 0 00031 777ADDLA1 NO, TRY READING AGAIN F4416680
01177 0 60100 0 00030 778STOERRBX F4416690
01200 0 76400 0 00222 779BSTTBLTAP F4416700
01201−0 53400 1 01216 780LXDDTGBX,1 SET INDEX TO READ LAST RECORD AGAINF4416710
01202 0 02000 0 01151 781TRARDSDTG F4416720
782 F4416730
783THIS ROUTINE PUTS INFORMATION FROM DOTAG AND DVFQ INTO DOLISTF4416740
01203−0 53400 1 00054 784NTRDO= LXDOPMSK=,1 C0MPLEMENT OF ONE INTO I R A F4416750
01204 0 53400 2 00031 785LXALA1,2 ONE INTO IR B F4416760
01205 0 53400 4 00033 786LXAL0...=,4 ZERO INTO INDEX C F4416770
01206 0 50000 0 01216 787CLADTGBX F4416780
01207 0 62200 0 01247 788STDDTGBX2 PUT LENGTH OF DOTAG IN FOR TEST F4416790
T01210−0 75400 0 00000 789PXD F4416800
01211 0 60100 0 00105 790STOERAS1= F4416810
01212 0 60100 0 00106 791STOERAS2= CLEAR ERAS1= AND ERAS2= F4416820
01213 0 02000 0 01216 792TRANXTDO+2 F4416830
01214 1 00002 2 01215 793NXTDO TXINXTDO+1,2,2 F4416840
01215 1 77774 1 01216 794TXIDTGBX,1,−4 SET FOR NEXT ENTRY F4416850
01216−3 77777 1 01310 795DTGBX TXLCLTRA=,1,−1 IS DOTAG FINISHED--IF SO EXIT F4416860
01217 0 50000 1 04221 796CLADT CLADOTAG+3,1 LOOK FOR INDICAT1ON OF AN IF F4416870
01220 0 12000 0 01223 797TPLSTF+2 TRANSFER IF DO HAS NO IF F4416880
01221 0 50000 0 00053 798STF CLATAGMRK STORE IF INDICATION IN DOLIST F4416890
01222−0 60200 2 06477 799ORSDOLIST−1,2 F4416900
01223 0 50000 1 04216 800CLADOTAG,1 F4416910
01224−0 32000 0 00053 801ANATAGMRK LOOK FOR INDICATION OF VARIABLE F4416920
802 NO 0F TIMES IN LOOP F4416930
01225−0 10000 0 01266 803TNZVRBLN VARIABLE,GET FROM DVFQ F4416940
01226 0 50000 1 04220 804CLADOTAG+2,1 GET (N2-N1+N3) AND PUT IN MQ F4416950
01227 0 62100 0 00105 805STAERAS1= F4416960
T01230−0 75400 0 00000 806PXD CLEAR ACCUMULATOR F4416970
01231 0 56000 0 00105 807LDQERAS1= DIVIDE (N2-N1+N3) BY N3 TO GET F4416980
01232 0 22100 1 04217 808DVPDOTAG+1,1 NUMBER OF TIMES IN DO LOOP F4416990
01233 0 76000 0 00012 809DCT F4417000
01234 0 07400 4 00004 810TSXRDFORT,4 BAD DIVIDE F4417010
01235−0 60000 0 00105 811STQDTG STQERAS1= F4417020
01236 0 50000 0 00105 812CLAERAS1= SHIFT TO AC F4417030
01237 0 62100 2 06500 813STADOLIST,2 TEST FOR END F4417040
01240−0 53400 4 00107 814NDDOT LXDERAS3=,4 F4417050
01241 0 50000 1 04222 815CLADOTAG+4,1 DOES NEXT ENTRY IN DOTAG CORRESPONDF4417060
01242 0 34000 4 04217 816DDCAS CASDOCARE+1,4 TO A TXL F4417070
01243 0 02000 0 01245 817TRADDTIX F4417080
01244 1 77774 1 01247 818TXIDTGBX2,1,−4 NO-SET FOR NEXT ENTRY AND SAME TXL F4417090
01245 2 00001 4 01242 819DDTIX TIXDDCAS,4,1 F4417100
01246 0 02000 0 01214 820TRANXTDO YES-LOOK AT NEXT TXL AND NEXT ENTRYF4417110
D01247−3 00000 1 01310 821DTGBX2 TXLCLTRA=,1 TEST FOR END F4417120
01250 0 50000 1 04216 822CLADOTAG,1 DOES THIS ENTRY HAVE A VARIABLE NO.F4417130
01251−0 32000 0 00053 823ANATAGMRK OF TIMES IN LOOP F4417140
01252−0 10000 0 01264 824TNZVBLN2 YES,GET NO. FROM DVFQ F4417150
01253 0 50000 1 04220 825CLADOTAG+2,1 NO,GET N2-N1+N3 F4417160
01254 0 62100 0 00106 826STAERAS2= AND PUT IN MQ F4417170
01255−0 75400 0 00000 827PXD0,0 CLEAR AC F4417180
01256 0 56000 0 00106 828LDQERAS2= DIV N2-N1+N3 BY N3 TO GET NO. OF F4417190
01257 0 22100 1 04217 829DVPDOTAG+1,1 TIMES IN THIS DO F4417200
01260 0 76000 0 00012 830DCT F4417210
01261 0 07400 4 00004 831TSXRDFORT,4 BAD DIVIDE F4417220
01262 0 20000 0 00105 832MPY MPYERAS1= F4417230
01263 0 02000 0 01235 833TRASTQDTG F4417240
01264 0 50000 0 00101 834VBLN2 CLALMPY SET EXIT ADDRESS F4417250
01265 0 02000 0 01267 835TRAVRBLN+1 F4417260
01266 0 50000 0 00102 836VRBLN CLALSTQ SET EXIT ADDRESS F4417270
01267 0 62100 0 01304 837STAEXIT F4417280
01270 0 50000 1 04216 838CLADOTAG,1 GET FORMULA NUMBER OF DO F4417290
01271 0 77100 0 00022 839ARS18 F4417300
01272−0 76000 0 00003 840SSM F4417310
01273−0 53400 4 00111 841LXDDVFQB=,4 F4417320
D01274 3 00000 4 01300 842DVFTST TXHLDQ5,4 TEST FOR END OF DVFQ F4417330
01275 0 34000 4 06023 843CASDVFQ.=,4 COMPARE TO FORMULA NO. IN DVFQ F4417340
01276 1 00002 4 01274 844TXIDVFTST,4,2 DVFQ TOO SMALL, TRY NEXT F4417350
01277 1 00002 4 01302 845TXIENTER,4,2 EQUAL--SET INDEX FOR NEXT SEARCH F4417360
01300 0 56000 0 00034 846LDQ5 LDQL5...= FREQ NOT IN DVFQ, TAKE 5 AS FREQ F4417370
01301 0 02000 0 01303 847TRAENTER+1 F4417380
01302 0 56000 4 06024 848ENTER LDQDVFQ.=+1,4 F4417390
01303−0 63400 4 00111 849SXDDVFQB=,4 F4417400
A01304 0 02000 0 00000 850EXIT TRA RETURN TO MAIN PART OF THIS ROUTINEF4417410
01305−0 53400 4 00220 851LXDLD4..=,4 READ DOTAG F4417420
01306 0 76200 0 00222 852RDSP RDSTBLTAP FIND BEGINNING OF DOTAG F4417430
01307 2 00001 4 01306 853TIXRDSP,4,1 F4417440
854 F4417450
855THIS ROUTINE CLEARS THE TRANSFER TABLE AND PRESETS ALL F4417460
856COUNTERS TO ZERO F4417470
01310 0 56000 0 00031 857CLTRA= LDQLA1 F4417480
01311−0 75400 0 00000 858PXD0,0 F4417490
01312 0 60100 0 01113 859STONLIST−1 STORE ENDMARK FOR N-LIST F4417500
01313 0 53400 1 00045 860LXALZTR4=,1 F4417510
01314 0 60100 1 06025 861STOTRAM+1,1 F4417520
01315−0 60000 1 06024 862STQTRAM,1 F4417530
01316 2 00002 1 01314 863SELF26 TIXSELF26−2,1,2 F4417540
01317−0 53400 1 07775 864LXDDOBOX=,1 F4417550
01320 0 50000 0 00054 865CLAOPMSK= F4417560
01321 0 60100 1 06477 866STODOLIST−1,1 STORE ENDMARK FOR DOLIST F4417570
01322 0 76200 0 00221 867RDSSYSTAP F4417580
01323 0 60000 0 01114 868STZNLIST CLEAR DUMMY SENSE LIGHTS. F4417590
01324 0 60000 0 01115 869STZNLIST+1 F4417600
01325 0 60000 0 01116 870STZNLIST+2 F4417610
01326 0 60000 0 01117 871STZNLIST+3 F4417620
01327 0 02000 0 00004 872TRARDFORT F4417630
873 F4417640
874 F4417650
875SECTION 4 - PART 2 OF 6 (1ST RECORD OF 2) F4420010
876 F4420020
877FORTRAN EDITOR INFORMATION F4420030
878 MASTER RECORD CARD = F0640000 F4420040
879 ENTRY POINT = 4 (CONTROL GOES BACK TO FORTRAN LOADER - F4420050
880 1 TO CS - IN ORDER TO READ IN NEXT RECORD)F4420060
881 FIRST LOCATION = 33 F4420070
882 LAST LOCATION = 1104 F4420080
883 F4420090
00033 884ORG27 F4420100
885CONSTANTS AND VARIABLES F4420110
00033 0 00000 0 00000 886L0M HTR0 F4420120
00034 0 00000 0 00006 887L6M HTR6 F4420130
00035 0 00001 0 00000 888LD1M HTR0,0,1 F4420140
00036 0 00003 0 00000 889LD3 HTR0,0,3 F4420150
00037 0 00007 0 00000 890LD7M HTR0,0,7 F4420160
00040 0 00000 0 01275 891SETYM SETADD F4420170
00041 0 00000 0 01750 892TIFY TIFADD F4420180
00042 0 00000 0 00311 893LZSET1 ZSET+1 F4420190
00043 0 00000 0 00312 894LZTIF2 ZTIFRD+2 F4420200
00044 0 05360 0 00000 895LXTRA 0,0,XTRA F4420210
00045 0 01274 0 00000 896LZTRA 0,0,ZTRA F4420220
00046 0 00620 0 00000 897LXSET 0,0,XSET F4420230
00047 0 00310 0 00000 898LZSET 0,0,ZSET F4420240
00050 0 76664 0 00000 899LNLST 0,0,−NLIST F4420250
00051 0 76660 0 00000 900LDSAN 0,0,−NLIST−4 F4420260
00052 0 00000 0 03063 901LFXDN RDTIF−1 F4420270
00053 0 02000 0 00613 902LCOUT TRAOUTB TRANSFER TO EXIT ROUTINE F4420280
00054 0 02000 0 03131 903TRNOM TRANOMOR F4420290
00055 2 00000 4 00705 904CNST2M TIXC3CLA,4,0 TO TEXT FOR END OF LOOKUP F4420300
00056+002000000000 905CONSTM OCT2000000000 F4420310
00057+000000077777 906ADRMK OCT77777 F4420320
00060+077777000000 907DECMKM OCT77777000000 F4420330
00061−300000000000 908PFXMKM OCT−300000000000 F4420340
00062+000000700000 909IFMSK OCT700000 F4420350
00063+000770000000 910XXPSX OCT770000000 F4420360
00064+000140000000 911XX14X OCT140000000 F4420370
00065+000160000000 912XX16X OCT160000000 F4420380
00066+000360000000 913XX360 OCT360000000 F4420390
00067−370000000000 914FSTLT OCT−370000000000 F4420400
00070−230000000000 915FSTT OCT−230000000000 F4420410
00071+170000000000 9160CTALM OCT170000000000 F4420420
00072+377777777777 917ENDMKM OCT377777777777 F4420430
00073−100000000000 918GTNCD OCT−100000000000 F4420440
00074+300000000000 919CRTCD OCT300000000000 F4420450
00075+076225000000 920LPSE OCT76225000000 F4420460
00076+034743000000 921LTPL OCT34743000000 F4420470
00077+035121000000 922LTRA OCT35121000000 TRA F4420480
00100+001622000000 923OCT1622000000 TXL-TRA F4420490
00101−000372000000 924LTROP OCT−372000000 TTR-TXL F4420500
00102+035121000000 925OCT35121000000 TRA F4420510
00103+041104000000 926OCT41104000000 PSE-TRA F4420520
00104−033642000000 927OCT−33642000000 DCT-PSE F4420530
00105−024000000000 928OCT−24000000000 RTT-DCT F4420540
00106+027642000000 929OCT27642000000 MSE-RTT F4420550
00107−007100000000 930OCT−7100000000 TZE-MSE F4420560
00110−032154000000 931OCT−32154000000 HPR-TZE F4420570
00111+031316000000 932LNTOP OCT31316000000 TSX-HPR F4420580
00112+000001000000 933SBOX OCT1000000 F4420590
00113−000001000000 934SPBOX OCT−1000000 F4420600
00114+000001000000 935TBOX OCT1000000 F4420610
00115−000001000000 936TPBOX OCT−1000000 F4420620
00116 0 00312 0 00000 937PBOX 0,0,ZTIFRD+2 F4420630
00117 0 00000 0 00000 938BBOX F4420640
00120 0 00000 0 00000 939MBOX 0 F4420650
00121 0 00000 0 00000 940ACBOX 0 F4420660
00122 0 00000 0 00000 941OUTBX 0 F4420670
00123 0 00000 0 00000 942ENTBX 0 F4420680
00124 0 00000 0 00000 943XBOX SAVE POWER OF 2 F4420690
00125 0 00000 0 00000 944ERAS1M 0 F4420700
00126 0 00000 0 00000 945ERAS2M 0 F4420710
00127 0 00000 0 00000 946ERAS3M F4420720
947 F4420730
948THIS ROUTINE COMPLETES THE ANALYSIS OF THE COMPILED F4420740
949INSTRUCTIONS USING THE BASIC BLOCK LIST, THE DO LIST, AND F4420750
950TIFRD. IT COMPILES THE TABLES OF SETS AND TRANSFERS USED IN F4420760
951THE SIMULATION PROGRAM. F4420770
00130 1 00001 2 00131 952BEGBB TXIBEGBB+1,2,1 SET FOR NEXT BASIC BLOCK F4420780
00131 0 50000 0 00112 953CLASBOX F4420790
00132 0 40000 0 00113 954ADDSPBOX F4420800
00133 0 77100 0 00022 955ARS18 PUT SET TABLE ADDRESS INTO BB TABLEF4420810
00134 0 40000 0 00114 956ADDTBOX F4420820
00135 0 40000 0 00115 957ADDTPBOX F4420830
00136 0 60100 2 02413 958STOBBTABL,2 PUT TRA TABLE ADDRESS INTO BB TABLEF4420840
00137−0 53400 4 00114 959LXDTBOX,4 F4420850
00140−2 01274 4 00143 960TNXFNDAS,4,ZTRA IS BLOCK OF TRA TABLE FULL F4420860
00141−0 63400 4 00114 961SXDTBOX,4 SAVE NEW INDEX FOR TRA F4420870
00142 0 07400 4 03147 962TSXWRTRA,4 WRITE TRA BLOCK ON DRUM F4420880
00143−2 00454 1 00145 963FNDAS TNX2FNDS,1,ZINSTM IS BLOCK OF INSTRUCTIONS ALL USED F4420890
00144 0 07400 4 00763 964TSXRDINSM,4 YES, READ IN NEXT BLOCK F4420900
00145 0 50000 1 03703 9652FNDS CLAINSTM,1 IF THERE IS NO LOCATI0N SYMBOL, F4420910
00146 0 10000 0 00225 966TZETR3S+1 THIS CANT BE A SET OR AN ENDING F4420920
967 OTHER THAN A CERTAINTY CASE F4420930
00147−0 53400 4 00116 968LXDPBOX,4 CHANGE, LOOK AT ASSIGN ENTRY F4420940
00150−2 00310 4 00155 9692TNX TNXBADD,4,ZTIFRD IS BLOCK OF TIFRD ALL USED F4420950
00151−0 63400 4 00116 970SXDPBOX,4 YES, READ IN MORE F4420960
00152 0 07400 4 03064 971TSXRDTIF,4 F4420970
00153−0 53400 4 00116 972LXDPBOX,4 F4420980
00154 0 50000 1 03703 973CLAINST.M,1 COMPARE FORMULA NO. TO ASSIGN F4420990
00155 0 40000 0 00034 974BADD ADDL6M LIST. F4421000
00156 0 40200 4 04214 975SUBTIFRDM,4 F4421010
00157 0 10000 0 00231 976TZEASNCS F4421020
00160 0 50000 1 03702 9772CLA CLAINSTM−1,1 NOT AN ASSIGN F4421030
00161−0 32000 0 00060 978ANADECMKM TEST FOR A SET SENSE LIGHT F4421040
00162 0 40200 0 00075 979SUBLPSE F4421050
00163−0 10000 0 00257 980TNZTSTTR NOT A PSE, LOOK FOR A TRANSFER F4421060
00164 0 50000 1 03700 981CLAINST.M−3,1 LOOK AT ADDRESS OF PSE FOR SET F4421070
00165−0 32000 0 00063 982ANAXXPSX F4421080
00166 0 40200 0 00064 983SUBXX14X F4421090
00167 0 10000 0 00174 984TZESTSLT IT IS A SET SENSE LIGHT F4421100
00170 0 50000 1 03677 985CLAINSTM−4,1 NOT A SET SENSE LIGHT, SEE IF NEXT F4421110
00171 0 40200 2 07772 986SUBBBLIST−1,2 INSTRUCTION STARTS A BB F4421120
00172 0 10000 0 00320 987TZECRTCS YES, IS A CERTAINTY CASE F4421130
00173 0 02000 0 00504 988TRAIF2PS NO, IS A PSE CASE. F4421140
00174−0 53400 4 00112 989STSLT LXDSBOX,4 LOAD INDEX FOR SET TABLE F4421150
00175−2 00310 4 00201 990TNX3CLA,4,ZSET IF SET BLOCK IS FULL, PUT ON DRUM F4421160
00176−0 63400 4 00112 991SXDSBOX,4 SAVE INDEX F4421170
00177 0 07400 4 01032 992TSXWRSET,4 GO TO DRUM ROUTINE F4421180
00200−0 53400 4 00112 993LXDSBOX,4 RESTORE INDEX F4421190
00201 0 50000 1 03700 9943CLA CLAINSTM−3,1 LOOK AT RELATIVE ADDRESS OF PSE F4421200
00202−0 32000 0 00037 995ANALD7M FIND NO OF SENSE LIGHT F4421210
00203 0 10000 0 00210 996TZESLSOF IF ZERO TURN ALL LIGHTS OFF F4421220
00204 0 40000 0 00051 997ADDLDSAN NOT ZERO, ADD ADDRESS OF FIRST F4421230
00205 0 40000 0 00031 998ADDLA1 ADD ONE FOR SENSE LIGHT ON F4421240
00206 0 60100 4 04524 999STOSET..M,4 STORE SET ENTRY F4421250
00207 1 00001 4 00224 1000TXITR3S,4,1 INDEX FOR NEXT SET ENTRY F4421260
00210−0 63400 2 00117 1001SLSOF SXDBBOX,2 SAVE INDEX B F4421270
00211−0 53400 2 00276 1002LXDLD4,2 F4421280
00212 0 50000 0 00051 1003CLALDSAN PUT ENTRIES IN SET TABLE TO TURN F4421290
00213 0 40000 0 00035 10043ADD ADDLD1M OFF ALL SENSE LIGHTS F4421300
00214−2 00310 4 00220 1005TNX4STO,4,ZSET IS BLOCK OF SETS FULL F4421310
00215−0 63400 4 00112 1006SXDSBOX,4 YES, SAVE INDEX C F4421320
00216 0 07400 4 01032 1007TSXWRSET,4 WRITE BLOCK ON DRUM F4421330
00217−0 53400 4 00112 1008LXDSBOX,4 RESTORE INDEX C F4421340
00220 0 60100 4 04524 10094STO STOSETM,4 F4421350
00221 1 00001 4 00222 1010TXI3TIX,4,1 SET FOR NEXT ENTRY IN TABLE F4421360
00222 2 00001 2 00213 10113TIX TIX3ADD,2,1 ARE ALL SETS DONE F4421370
00223−0 53400 2 00117 1012LXDBBOX,2 YES, RESTORE INDEX B F4421380
00224−0 63400 4 00112 1013TR3S SXDSBOX,4 STORE SET TABLE INDEX F4421390
00225 0 50000 1 03677 1014CLAINST.M−4,1 TEST THIS FOR END OF A BASIC BLOCK F4421400
00226 0 40200 2 07772 1015SUBBBLIST−1,2 (CANT BE A TRANSFER, SKIP, ETC.) F4421410
00227 0 10000 0 00320 1016TZECRTCS END OF BB MUST BE A CERTAINTY CASE F4421420
00230 1 00004 1 00143 1017TXFAS TXIFNDAS,1,4 NOT END OF BB, LOOK AT NEXT INSTR. F4421430
00231−0 63400 4 00116 1018ASNCS SXDPBOX,4 SAVE INDEX FOR TIFRD F4421440
00232 0 50000 1 03675 1019CLAINST.M−6,1 PUT ADDRESS (=N) OF STA INTO AC F4421450
00233 0 07400 4 00632 1020TSXSRCHN,4 SEARCH N-LIST FOR N F4421460
00234 0 40000 0 00050 1021ADDLNLST PUT INDEX FOR N IN SET TABLE F4421470
00235−0 53400 4 00112 1022LXDSBOX,4 PUT SET TABLE ADDRESS INTO INDEX F4421480
00236−2 00310 4 00242 1023TNX4STD,4,ZSET IS SET BLOCK FULL F4421490
00237−0 63400 4 00112 1024SXDSBOX,4 YES,SAVE INDEX F4421500
00240 0 07400 4 01032 1025TSXWRSET,4 PUT BLOCK ON DRUM F4421510
00241−0 53400 4 00112 1026LXDSBOX,4 RESTORE INDEX F4421520
00242 0 60100 4 04524 10274STD STOSETM,4 STORE ADDRESS OF N BEING SET F4421530
00243−0 63400 4 00112 1028SXDSBOX,4 SAVE INDEX F4421540
00244−0 53400 4 00116 1029LXDPBOX,4 SET FOR TIFRD F4421550
00245 0 50000 4 04213 1030CLATIFRDM−1,4 GET VALUE TO ASSIGN TO N FROM TIFRDF4421560
00246 0 76700 0 00022 1031ALS18 F4421570
00247 1 00002 4 00250 1032LD2 TXILD2+1,4,2 SET INDEX FOR NEXT ENTRY IN TIFRD F4421580
00250−0 63400 4 00116 1033SXDPBOX,4 SAVE TIFRD INDEX F4421590
00251 0 07400 4 00667 1034TSXFNDBB,4 CHANGE VALUE FOR N TO BASIC BLOCK F4421600
00252−0 53400 4 00112 1035LXDSBOX,4 NUMBER, PUT SET ADDRESS IN INDEXF4421610
00253 0 77100 0 00022 1036ARS18 AND PUT VALUE N IS TO BE GIVEN F4421620
00254 0 62100 4 04524 1037STASET..M,4 INTO TABLE ENTRY F4421630
00255 1 00001 4 00256 1038TXI4TXII,4,1 SET INDEX FOR NEXT ENTRY IN TABLE F4421640
00256 1 00004 1 00224 10394TXII TXITR3S,1,4 SINCE THIS INSTRUCTION IS A CLA ANDF4421650
1040 IS FOLL0WED BY A STA, IT CANNOT F4421660
1041 BE THE END OF A BASIC BLOCK. F4421670
1042 ALSO THE STA CANNOT BE AN F4421680
1043 ASSIGN, PSE, TRANSFER, OR SKIP. F4421690
1044 IT CAN ONLY BE A CERTAINTY CASE F4421700
1045 OR INNOCUOUS. F4421710
00257 0 50000 1 03677 1046TSTTR CLAINSTM−4,1 IS THIS LAST INSTRUCTION IN A BB F4421720
00260 0 40200 2 07772 1047SUBBBLIST−1,2 F4421730
00261 0 10000 0 00312 1048TZEENDBB YES,LOOK FOR TYPE OF ENDING F4421740
00262−0 53400 4 00612 1049LXDLD8,4 NO, CHECK FOR ENDING OF GROUP OF F4421750
00263−0 50000 1 03702 1050CALINST.M−1,1 INSTRUCTIONS F4421760
00264−0 32000 0 00060 1051ANADECMKM LOOK AT OP CODE F4421770
00265 0 40200 4 00112 1052SUBP SUBLNTOP+1,4 COMPARE TO OP CODES OF POSSIBLE F4421780
00266 0 10000 4 00307 1053TZETRTIN+1,4 ENDINGS--TRANSFER WHEN FOUND F4421790
00267 2 00001 4 00265 1054TIXSUBP,4,1 TRY NEXT POSSIBILITY F4421800
00270−0 50000 1 03702 1055CALINST.M−1,1 NOT FOUND--LOOK FOR A CONDITIONAL F4421810
00271−0 32000 0 00067 10566ANA ANAFSTLT TRANSFER F4421820
00272 0 60200 0 00125 1057SLWERAS1M F4421830
00273 0 50000 0 00125 1058CLAERAS1M F4421840
00274 0 40200 0 00070 1059SUBFSTT F4421850
00275 0 10000 0 00426 1060TZECNDTR IS A CONDITIONAL TRANSFER F4421860
00276 1 00004 1 00143 1061LD4 TXIFNDAS,1,4 NOT AN END OF BB, LOOK AT NEXT INSTF4421870
00277 0 02000 0 00451 1062TRAGOTOVM TRA IS THE OPERATI0N CODE F4421880
00300 0 02000 0 00504 1063TRAIF2PS PSE F4421690
00301 0 02000 0 00536 1064TRAIF2CS DCT F4421900
00302 0 02000 0 00536 1065TRAIF2CS RTT F4421910
00303 0 02000 0 00530 1066TRAMSECSM MSE F4421920
00304 0 02000 0 00552 1067TRAIF3CSM TZE F4421930
00305 0 02000 0 00601 1068TRAHPRCS HPR F4421940
00306 1 00004 1 00143 1069TRTIN TXIFNDAS,1,4 TSX IS OP CODE F4421950
00307 0 02000 0 00324 1070TRATRACSM TRA IS THE OPERATION CODE F4421960
00310 0 02000 0 00377 1071TRADOCSM TXL F4421970
00311 0 02000 0 00327 1072TRTTR TRATRACSM+3 TTR F4421980
00312−0 53400 4 00036 1073ENDBB LXDLD3,4 SET INDEX F4421990
00313 0 50000 1 03702 1074CLAINST.M−1,1 THIS INST ENDS A BASIC BLOCK--LOOK F4422000
00314−0 32000 0 00060 1075ANADECMKM AT OP CODE FOR TYPE OF ENDING F4422010
00315 0 40200 4 00102 10766SUB SUBLTROP+1,4 C0MPARE TO POSSIBLE OP CODE F4422020
00316 0 10000 4 00312 1077TZETRTTR+1,4 TRANSFER IF FOUND F4422030
00317 2 00001 4 00315 1078TIX6SUB,4,1 TRY NEXT POSSIBILITY F4422040
00320 0 07400 4 00663 1079CRTCS TSXENTB2,4 NOT A CONDITIONAL TRANSFER--IT IS F4422050
1080 A CERTAINTY CASE DUE TO AN ENTRYF4422060
00321−0 50000 0 00074 10816CLA CALCRTCD PUT CERTAINTY CODE IN BB TABLE F4422070
00322 0 63000 2 02413 1082STPBBTABL,2 F4422080
00323 1 00004 1 00130 1083TXIBEGBB,1,4 LOOK AT NEXT INSTR--BEG OF A BB. F4422090
00324−0 50000 1 03701 1084TRACSM CALINSTM−2,1 OP CODE IS TRA--SEE IF ADDRESS IS F4422100
00325−0 32000 0 00061 1085ANAPFXMKM IN PROGRAM(UNCONDITIONAL TRA) ORF4422110
00326−0 10000 0 00334 1086TNZGOTONM IN N LIST (GO TO N) F4422120
00327 0 50000 1 03701 1087CLAINST.M−2,1 GET INSTR OF ADDRESS F4422130
00330 0 07400 4 00653 1088TSXENTRB,4 ENTER IN TRA TABLE F4422140
00331−0 50000 0 00074 1089CALCRTCD STORE CERTAINTY CODE IN BB TABLE F4422150
00332 0 63000 2 02413 1090STPBBTABL,2 F4422160
00333 1 00004 1 00130 1091TXIBEGBB,1,4 LOOK AT NEXT INST.--NEW B.B. F4422170
00334−0 50000 0 00073 1092GOTONM CALGTNCD IS A GO TO N F4422180
00335 0 63000 2 02413 1093STPBBTABL,2 STORE GO TO N CODE IN BB TABLE F4422190
00336 0 50000 1 03701 1094CLAINST.M−2,1 PUT N INTO AC F4422200
00337 0 07400 4 00632 1095TSXSRCHN,4 FIND LOCATION 0F N IN N-LIST F4422210
00340−0 53400 4 00114 1096LXDTBOX,4 F4422220
00341 0 62200 4 06024 1097STDTRA..M,4 PUT N-LIST ADDRESS IN TRA TABLE F4422230
00342−0 53400 4 00116 1098LXDPBOX,4 PUT TIFRD ADDRESS INTO INDEX F4422240
00343−2 00310 4 00347 10997TNX TNXBCLA,4,ZTIFRD IS TIFRD BLOCK USED F4422250
00344−0 63400 4 00116 1100SXDPBOX,4 YES, SAVE INDEX F4422260
00345 0 07400 4 03064 1101TSXRDTIF,4 READ IN NEXT BLOCK 0F TIFRD F4422270
00346−0 53400 4 00116 1102LXDPBOX,4 RESTORE INDEX F4422280
00347 0 50000 1 03703 1103BCLA CLAINSTM,1 COMPARE FORMULA NUMBER OF INSTR. TOF4422290
00350−0 32000 0 00060 1104ANADECMKM THAT OF NEXT ENTRY IN TIFRD F4422300
00351 0 40000 0 00031 1105ADDLA1 F4422310
00352 0 40200 4 04214 1106SUBTIFRDM,4 F4422320
00353 0 10000 0 00355 11078ATZE TZE8TXI ENTRY FOUND F4422330
00354 0 07400 4 00004 1108TSXRDFORT,4 NO ENTRY FOUND IN TIFRD FOR GO TO NF4422340
00355 1 00002 4 00356 11098TXI TXI8TXI+1,4,2 SET FOR N-WORDS IN TIFRD F4422350
00356−2 00310 4 00362 11108TNX TNX8CLA,4,ZTIFRD SEE IF TIFRD BLOCK IS ALL USED F4422360
00357−0 63400 4 00116 1111SXDPBOX,4 YES SAVE INDEX F4422370
00360 0 07400 4 03064 1112TSXRDTIF,4 READ IN NEXT BLOCK F4422380
00361−0 53400 4 00116 1113LXDPBOX,4 RESTORE INDEX F4422390
00362 0 50000 4 04214 11148CLA CLATIFRDM,4 GET NEXT VALUE ON N FROM TIFRD F4422400
00363 0 12000 0 00375 1115TPL8ATRB PLUS INDICATES NO MORE VALUES FOR NF4422410
00364 0 76000 0 00003 1116SSP ELIMINATE MINUS SIGN F4422420
00365−0 63400 4 00116 1117SXDPBOX,4 SAVE TIFRD INDEX F4422430
00366−0 53400 4 00114 1118LXDTBOX,4 GET TRA TABLE INDEX F4422440
00367−2 01274 4 00372 1119TNX8ATSX,4,ZTRA IS BLOCK OF TRA TABLE FULL F4422450
00370−0 63400 4 00114 1120SXDTBOX,4 YES SAVE INDEX F4422460
00371 0 07400 4 03147 1121TSXWRTRA,4 WRITE BLOCK ON DRUM F4422470
00372 0 07400 4 00653 11228ATSX TSXENTRB,4 ENTER TRANSFER IN TRA TABLE F4422480
00373−0 53400 4 00116 1123LXDPBOX,4 RESTORE INDEX FOR TIFRD F4422490
00374 1 00001 4 00356 1124TXI8TXI+1,4,1 SET FOR NEXT WORD F4422500
00375−0 63400 4 00116 11258ATRB SXDPBOX,4 SAVE TIFRD INDEX F4422510
00376 1 00004 1 00130 1126TXIBEGBB,1,4 SET FOR NEXT INSTR AND NEXT BB. F4422520
00377 0 50000 1 03701 1127DOCSM CLAINSTM−2,1 THIS IS A DO CASE F4422530
00400 0 07400 4 00653 1128TSXENTRB,4 ENTER ADDRESS OF TRA BACK F4422540
00401 0 07400 4 00663 1129TSXENTB2,4 ENTER TRA TO NEXT INSTR F4422550
00402−0 63400 2 00117 1130SXDBBOX,2 SAVE INDEX F4422560
00403−0 53400 2 00035 1131LXDLD1M,2 LOOK AT DOLIST ENTRY FOR F4422570
00404−0 53400 4 00114 1132LXDTBOX,4 THIS DO F4422580
00405 0 50000 2 06500 11339CLAT CLADOLIST,2 COMPARE LOCATION IN DO LIST TO F4422590
00406−0 32000 0 00060 1134ANADECMKM THIS BASIC BLOCK F4422600
00407 0 40200 0 00117 1135SUBBBOX F4422610
00410 0 10000 0 00412 1136TZECLAR F4422620
00411 1 00002 2 00405 1137TXI9CLAT,2,2 NOT FOUND--TRY NEXT F4422630
00412 0 50000 2 06477 1138CLAR CLADOLIST−1,2 LOOK AT ADDRESS WORD IN DO LIST F4422640
00413−0 32000 0 00062 1139ANAIFMSK SEE IF DO HAS AN IF F4422650
00414 0 10000 0 00424 1140TZEDONOIF NO IF--TRANSFER F4422660
00415 0 50000 2 06500 1141CLADOLIST,2 DO WITH IF-PUT LOOP COUNT IN F4422670
00416 0 76700 0 00022 1142ALS18 TRANSFER TABLE F4422680
00417 0 62200 4 06030 1143DWFCD STDTRAM+4,4 F4422690
00420−0 50000 0 00417 1144CALDWFCD GET CODE FOR DO WITH IF F4422700
00421−0 53400 2 00117 1145DOLXD LXDBBOX,2 RESTORE INDEX FOR BB TABLE F4422710
00422 0 63000 2 02413 1146STPBBTABL,2 STORE CODE FOR ENDING IN BB TABLE F4422720
00423 1 00004 1 00130 1147TXIBEGBB,1,4 DO NEXT INSTR.--NEXT BASIC BLOCK F4422730
00424−0 50000 0 00424 1148DONOIF CALDONOIF GET CODE FOR DO WITHOUT IF F4422740
00425 0 02000 0 00421 1149TRADOLXD STORE CODE IN B B TABLE F4422750
00426 0 50000 1 03701 1150CNDTR CLAINSTM−2,1 THE OP CODE IS A CONDITIONAL TRA F4422760
00427 0 40200 0 00071 1151SUB0CTALM SEE IF THIS IS A REAL TRANSFER F4422770
00430 0 10000 0 00230 1152TZETXFAS NO-- IT IS NOT ANYTHING F4422780
00431 0 50000 1 03703 1153CLAINST.M,1 F4422790
00432 0 40200 1 03701 1154SUBINST.M−2,1 F4422800
00433 0 10000 0 00230 1155TZETXFAS F4422810
00434 0 50000 1 03701 1156CLAINST.M−2,1 PUT ADDRESS OF TRA IN TRA TABLE F4422820
00435 0 07400 4 00653 1157TSXENTRB,4 F4422830
00436 0 50000 1 03675 1158CLAINST.M−6,1 PUT NEXT TRA ADDRESS IN TRA TABLE F4422840
00437 0 07400 4 00653 1159TSXENTRB,4 F4422850
00440 0 50000 1 03703 1160CLAINST.M,1 F4422860
00441−0 53400 4 00114 116111LXD LXDTBOX,4 F4422870
00442 0 62200 4 06030 1162STDTRA..M+4,4 F4422880
00443−0 50000 0 00474 116311CAL CALPBYCDM PUT PROBABILITY CODE IN BB TABLE F4422690
00444 0 63000 2 02413 1164STPBBTABL,2 F4422900
00445 0 50000 0 00247 1165CLALD2 PUT NO. OF CASES (=2) IN TRA TABLE F4422910
00446 0 62200 4 06026 1166STDTRA..M+2,4 F4422920
00447−0 63400 4 00114 1167SXDTBOX,4 SAVE TRA INDEX F4422930
00450 1 00010 1 00130 1168TXIBEGBB,1,8 DO NEXT INSTRUCTION F4422940
00451 0 50000 1 03700 1169GOTOVM CLAINSTM−3,1 THIS IS A GO TO VECTOR F4422950
00452−0 73400 4 00000 1170PDX0,4 F4422960
00453 2 00001 4 00455 1171TIXOK,4,1 CHECK NO. OF BRANCHES F4422970
00454 0 07400 4 00004 1172TSXRDFORT,4 NONE, PART OF PROGRAM NOT F4422980
1173 TRANSFERED TO F4422990
00455 3 00001 4 00457 1174OK TXHONEVCT+1,4,1 TEST FOR ONLY 0OE BRANCH F4423000
00456 1 00004 1 00327 1175ONEVCT TXITRACSM+3,1,4 ONLY ONE BRANCH--A CERTAINTY CASE F4423010
00457−0 75400 4 00000 1176PXD0,4 MORE THAN ONE--STANDARD CASE F4423020
00460−0 53400 4 00114 1177LXDTBOX,4 SET INDEX FOR TRA TABLE ADDRESS F4423030
00461 0 62200 4 06022 1178STDTRA..M−2,4 PUT NO. INTO TRA TABLE F4423040
00462 0 62200 0 00120 1179STDMBOX SAVE NO. TO TEST IF VECTOR IS DONE F4423050
00463−0 50000 0 00474 1180CALPBYCDM F4423060
00464 0 63000 2 02413 1181STPBBTABL,2 PUT PROBABILITY CODE IN BB TABLE F4423070
00465 0 50000 1 03703 1182CLAINST.M,1 F4423080
00466 0 62200 4 06024 1183STDTRA..M,4 PUT FORMULA NUMBER INT0 TRA TABLE F4423090
00467−2 00454 1 00471 118413TIX TNX13CLA,1,ZINSTM IS BLOCK OF INSTRUCTIONS ALL USED F4423100
00470 0 07400 4 00763 1185TSXRDINSM,4 READ IN NEXT BLOCK F4423110
00471 0 50000 1 03675 118613CLA CLAINSTM−6,1 ENTER ADDRESS OF ONE TRANSFER F4423120
00472 0 07400 4 00653 1187TSXENTRB,4 INTO TRA TABLE. F4423130
00473−0 53400 4 00120 1188LXDMBOX,4 HAVE ALL BRANCHES OF VECTOR BEEN F4423140
00474 2 00001 4 00476 1189PBYCDM TIX13SXD,4,1 ENTERED F4423150
00475 1 00010 1 00130 119013ON TXIBEGBB,1,8 YES, GO TO NEXT BB--NEXT INST. F4423160
00476−0 63400 4 00120 119113SXD SXDMBOX,4 NO,SAVE COUNT AND ENTER NEXT F4423170
00477−0 53400 4 00114 1192LXDTBOX,4 PUT TRA TABLE ADDRESS IN INDEX F4423180
00500−2 01274 4 00503 1193STPCD TNX13TXIM,4,ZTRA HAS THIS BLOCK OF TRA BEEN FILLED F4423190
00501−0 63400 4 00114 1194SXDTBOX,4 YES,SAVE TRA INDEX F4423200
00502 0 07400 4 03147 1195TSXWRTRA,4 WRITE BLOCK OF TRA ON DRUM F4423210
00503 1 00004 1 00467 119613TXIM TXI13TIX,1,4 SET INST. INDEX AND DO NEXT BRANCH F4423220
00504 0 50000 1 03700 1197IF2PS CLAINSTM−3,1 THIS IS A PSE, LOOK AT ADDRESS TO F4423230
00505−0 32000 0 00063 1198ANAXXPSX SEE IF IT IS 164-166 F4423240
00506 0 40200 0 00065 1199SUBXX16X F4423250
00507 0 10000 0 00514 1200TZEPSTCS YES, IT IS A TEST F4423260
00510 0 50000 1 03700 1201CLAINST.M−3,1 F4423270
00511−0 32000 0 00060 1202ANADECMKM NO, SEE IF ADDR IS 360 F4423280
00512 0 40200 0 00066 1203SUBXX360 F4423290
00513−0 10000 0 00230 1204TNZTXFAS NO,THIS IS NOT A BB END F4423300
00514−0 50000 0 00474 1205PSTCS CALPBYCDM THIS IS A PSE TEST INSTRUCTION F4423310
00515 0 63000 2 02413 1206STPBBTABL,2 PUT PROBABILITY CODE IN BB TABLE F4423320
00516−0 53400 4 00114 1207LXDTBOX,4 SET INDEX FOR TRA TABLE ADDRESS F4423330
00517 0 50000 1 03703 1208CLAINST.M,1 PUT FORMULA NUMBER IN TRA TABLE F4423340
00520 0 62200 4 06024 1209STDTRA..M,4 F4423350
00521 0 50000 0 00247 1210CLALD2 PUT NO. OF CASES(=2) IN TRA TABLE F4423360
00522 0 62200 4 06022 1211STDTRA..M−2,4 F4423370
00523 0 50000 1 03671 1212SNSCS CLAINSTM−10,1 PUT ADDRESS FOR ON INTO TRA TABLE F4423380
00524 0 07400 4 00653 1213TSXENTRB,4 F4423390
00525 0 50000 1 03675 1214CLAINST.M−6,1 PUT OFF ADDRESS INTO TRA TABLE F4423400
00526 0 07400 4 00653 1215TSXENTRB,4 F4423410
00527 1 00014 1 00130 1216MSECD TXIBEGBB,1,12 DO NEXT BB. F4423420
00530−0 50000 0 00527 1217MSECSM CALMSECD THIS IS A MSE TEST F4423430
00531 0 63000 2 02413 1218STPBBTABL,2 STORE MSE CODE IN BBTABL F4423440
00532 0 50000 1 03700 1219CLAINST.M−3,1 LOOK AT ADDRESS OF MSE F4423450
00533−0 53400 4 00114 1220LXDTBOX,4 SET INDEX FOR TRA TABLE F4423460
00534 0 62200 4 06024 1221STDTRA..M,4 PUT NO. OF SENSE LIGHT IN TRA TABLEF4423470
00535 0 02000 0 00523 1222TRASNSCS PUT ADDRESSES IN TRA TABLE F4423480
00536−0 50000 0 00474 1223IF2CS CALPBYCDM THIS IS A TWO-WAY TEST INSTRUCTION F4423490
00537 0 63000 2 02413 1224STPBBTABL,2 PUT PROBABILITY CODE IN BB TABLE F4423500
00540−0 53400 4 00114 1225LXDTBOX,4 SET INDEX FOR TRA TABLE F4423510
00541 0 50000 1 03703 1226CLAINST.M,1 PUT FORMULA NUMBER IN TRA TABLE F4423520
00542 0 62200 4 06024 1227STDTRA..M,4 F4423530
00543 0 50000 0 00247 1228CLALD2 PUT NO OF CASES (=2) IN TRA TABLE F4423540
00544 0 62200 4 06022 1229STDTRA..M−2,4 F4423550
00545 0 50000 1 03675 1230CLAINST.M−6,1 PUT ADDRESSES IN TRA TABLE F4423560
00546 0 07400 4 00653 1231TSXENTRB,4 =ON- ADDRESS F4423570
00547 0 50000 1 03671 1232CLAINST.M−10,1 -OFF - ADDRESS F4423580
00550 0 07400 4 00653 1233TSXENTRB,4 F4423590
00551 1 00014 1 00130 1234LD12M TXIBEGBB,1,12 DO NEXT BB F4423600
00552 0 50000 1 03676 1235IF3CSM CLAINST.M−5,1 THIS IS A TZE, NOT END OF A BB. F4423610
00553−0 32000 0 00060 1236ANADECMKM CHECK TO SEE IF IT IS FOLLOWED BY AF4423620
00554 0 40200 0 00076 1237SUBLTPL TPL AND A TRA, IF NOT THERE HAS F4423630
00555 0 10000 0 00557 1238TZE16CLA BEEN AN ERROR F4423640
00556 0 07400 4 00004 1239IFTSX TSXRDFORT,4 ERROR F4423650
00557 0 50000 1 03672 124016CLA CLAINSTM−9,1 CHECK FOR TRA F4423660
00560−0 32000 0 00060 1241ANADECMKM F4423670
00561 0 40200 0 00077 1242SUBLTRA F4423680
00562−0 10000 0 00556 1243TNZIFTSX ERROR F4423690
00563−0 50000 0 00474 124416CAL CALPBYCDM NO ERROR F4423700
00564 0 63000 2 02413 1245STPBBTABL,2 PUT PROBABILITY CODE IN BB TABLE F4423710
00565−0 53400 4 00114 1246LXDTBOX,4 SET INDEX FOR TRA TABLE F4423720
00566 0 50000 1 03703 1247CLAINST.M,1 PUT FORMULA NO. IN TRA TABLE F4423730
00567 0 62200 4 06024 1248STDTRA..M,4 F4423740
00570 0 50000 0 00036 1249CLALD3 PUT N0. OF CASES (=3) IN TRA TABLE F4423750
00571 0 62200 4 06022 1250STDTRA..M−2,4 F4423760
00572 0 50000 1 03675 1251CLAINST.M−6,1 PUT ADDRESSES OF BRANCHES INTO F4423770
00573 0 07400 4 00653 1252TSXENTRB,4 TRA TABLE F4423780
00574 0 50000 1 03701 1253CLAINST.M−2,1 F4423790
00575 0 07400 4 00653 1254TSXENTRB,4 F4423800
00576 0 50000 1 03671 1255CLAINST.M−10,1 F4423810
00577 0 07400 4 00653 1256TSXENTRB,4 F4423820
00600 1 00014 1 00130 1257TXIBEGBB,1,12 DO NEXT BB. F4423830
00601−0 50000 1 03676 1258HPRCS CALINSTM−5,1 TEST FOR PAUSE(INNOCUOUS) OR A STOPF4423840
00602−0 32000 0 00060 1259ANADECMKM F4423850
00603 0 40200 0 00077 1260SUBLTRA IS HPR FOLLOWED BY TRA F4423860
00604−0 10000 0 00276 1261TNZLD4 NO-IGNORE-- IS A PAUSE F4423870
00605 0 50000 1 03675 1262CLAINST.M−6,1 DOES TRA GO BACK TO HPR F4423880
00606 0 40200 1 03703 1263SUBINST.M,1 F4423890
00607−0 10000 0 00276 1264TNZLD4 NO-- HPR IS A PAUSE--IGNORE F4423900
00610−0 50000 0 00500 1265CALSTPCD THIS IS A STOP--PUT STOP CODE IN F4423910
00611 0 63000 2 02413 1266STPBBTABL,2 BB TABLE AND NO ENTRY IN TRATBL F4423920
00612 1 00010 1 00130 1267LD8 TXIBEGBB,1,8 DO NEXT BASIC BLOCK F4423930
00613−0 63400 2 00117 1268OUTB SXDBBOX,2 SAVE LENGTH OF BB TABLE F4423940
00614 0 50200 0 00760 1269CLSC5STD GET ADDRESS IN FXDO LIST F44.3950
00615 0 40200 0 00031 1270SUBLA1 F4423960
00616 0 62100 0 00617 1271STASTOREB F4423970
00617 0 60100 0 00000 1272STOREB STOXXXXXX F4423980
00620 0 50000 2 02413 1273CLABBTABL,2 LOOK AT LAST ENTRY IN BB TABLE F4423990
00621 0 62200 0 07777 1274STDTTBOX= PUT LENGTH OF TRA TABLE IN TTBOX F4424000
00622 0 76700 0 00022 1275ALS18 F4424010
00623 0 62200 0 07776 1276STDSSBOX= PUT LENGTH OF SET TABLE IN SS BOX F4424020
00624−0 75400 0 00000 1277PXD0,0 F4424030
00625 0 60100 2 02412 1278STOBBTABL−1,2 F4424040
00626 0 07400 4 03147 1279TSXWRTRA,4 WRITE LAST BLOCK OF TRAS ON DRUM F4424050
00627 0 07400 4 01032 1280TSXWRSET,4 WRITE LAST BLOCK OF SETS ON DRUM F4424060
00630 0 76200 0 00221 1281RDSSYSTAP F4424070
00631 0 02000 0 00004 1282TRARDFORT DO NEXT BLOCK OF PROGRAM F4424080
1283 F4424090
1284THIS ROUTINE SEARCHES THE N-LIST FOR THE N IN THE AC, ENTERS F4424100
1285IT IF IT IS NOT ALREADY ENTERED AND RETURNS TO THE LOCATION F4424110
1286FOLLOWING THE TSX WITH THE INDEX FOR N IN THE DECREMENT OF F4424120
1287THE ACCUMULATOR F4424130
00632−0 63400 4 00125 1288SRCHN SXDERAS1M,4 SAVE INDEX TO RETURN F4424140
00633−0 53400 4 00035 1289LXDLD1M,4 SET INDEX F4424150
00634 0 60100 0 00121 1290STOACBOX SAVE AC F4424160
00635 0 50000 4 01114 1291CLANN CLANLIST,4 LOOK AT ENTRY IN N-LIST F4424170
00636 0 10000 0 00642 1292TZEENTRN END OF LIST REACHED, N NOT FOUND F4424180
00637 0 40200 0 00121 1293SUBACBOX COMPARE TO N TO BE FOUND F4424190
00640 0 10000 0 00650 1294TZENFOUN N HAS BEEN FOUND F4424200
00641 1 00001 4 00635 1295TXICLANN,4,1 NOT FOUND YET, TRY NEXT ENTRY F4424210
00642−2 00031 4 00644 1296ENTRN TNXC1CLA,4,ZNLIST TEST FOR OVERFLOW OF N-LIST F4424220
00643 0 07400 4 00004 1297TSXRDFORT,4 N-LIST HAS OVERFLOWED F4424230
00644 0 50000 0 00121 1298C1CLA CLAACBOX STORE N IN N-LIST F4424240
00645 0 60100 4 01114 1299STONLIST,4 F4424250
T00646−0 75400 0 00000 1300PXD STORE ZERO IN LOCATION AFTER LAST F4424260
00647 0 60100 4 01113 1301STONLIST−1,4 ENTRY IN N-LIST F4424270
00650−0 75400 4 00000 1302NFOUN PXD0,4 PUT INDEX FOR N INTO AC F4424280
00651−0 53400 4 00125 1303LXDERAS1M,4 RESTORE INDEX FOR TRA BACK F4424290
00652 0 02000 4 00001 1304TRA1,4 TRANSFER BACK F4424300
1305 F4424310
1306THIS ROUTINE TAKES THE COMPILED INSTRUCTION NUMBER IN THE F4424320
1307ACCUMULATOR, TRANSLATES IT TO A BASIC BLOCK NUMBER, ENTERS F4424330
1308THE BASIC BLOCK NUMBER IN THE TRANSFER TABLE, TESTS FOR A F4424340
1309TRANSFER TO THE BEGINNING OF A 0O WITH AN IF. IT RETURNS TO F4424350
1310THE LOCATION FOLLOWING THE TSX TO IT. F4424360
00653−0 63400 4 00123 1311ENTRB SXDENTBX,4 SAVE INDEX F4424370
00654 0 07400 4 00667 1312TSXFNDBB,4 CHANGE INSTRUCTION NUMBER TO BB NO.F4424380
00655−0 53400 4 00114 1313LXDTBOX,4 F4424390
00656 0 62200 4 06023 1314STDTRA..M−1,4 ENTER IN TRA TABLE F4424400
00657 1 00002 4 00660 1315TXIC2SXD,4,2 SET FOR NEXT ENTRY IN TRA TABLE F4424410
00660−0 63400 4 00114 1316C2SXD SXDTBOX,4 F4424420
00661−0 53400 4 00123 1317LXDENTBX,4 G0 TO TSTAD WITH ADDRESS SET TO GO F4424430
00662 0 02000 0 00713 1318TRATSTAD BACK TO MAIN ROUTINE F4424440
1319 F4424450
1320THIS ROUTINE ENTERS IN THE TRANSFER TABLE AN0 TESTS A F4424460
1321TRANSFER TO THE INSTRUCTION (AND BASIC BLOCK) IMMEDIATELY F4424470
1322AFTER THE LOCATION OF THE TRANSFER F4424480
00663−0 63400 4 00123 1323ENTB2 SXDENTBX,4 SAVE INDEX F4424490
00664−0 75400 2 00000 1324PXD0,2 PUT THIS BASIC BLOCK NO. INTO AC F4424500
00665 0 40000 0 00035 1325ADDLD1M ADD ONE F4424510
00666 0 02000 0 00655 1326TRAENTRB+2 ENTER AND TEST THIS ADDRESS F4424520
1327 F4424530
1328THIS ROUTINE CHANGES COMPILED INSTRUCTION NOS. (IN THE AC) F4424540
1329TO BASIC BLOCK NUMBERSIIN DECREMENT OF THE ACCUMULATOR) BY F4424550
1330OPTIMAL TABLE LOOKUP F4424560
00667 0 60100 0 00121 1331FNDBB STOACBOX SAVE NUMBER BEING LOOKED FOR F4424570
00670−0 63400 4 00122 1332SXDOUTBX,4 SAVE EXIT INDEX F4424580
00671 0 56000 0 00055 1333LDQCNST2M SET UP TEST FOR END F4424590
00672−0 53400 4 00033 1334LXDL0M,4 START LOOK UP F4424600
00673 0 50000 0 00124 1335CLAXBOX F4424610
00674 0 77100 0 00001 1336C3ARS ARS1 F4424620
00675 0 62200 0 00702 1337STDC3TXI F4424630
00676 0 62200 0 00704 1338STDC3TIX F4424640
00677 0 50000 0 00121 1339CLAACBOX F4424650
D00700 3 00000 4 00704 1340PLACEM TXHC3TIX,4 F4424660
00701 0 34000 4 07773 1341CASBBLIST,4 F4424670
D00702 1 00000 4 00705 1342C3TXI TXIC3CLA,4 F4424680
00703 0 02000 0 00710 1343TRAC3FND F4424690
00704 2 00000 4 00705 1344C3TIX TIXC3CLA,4,XXXXXX F4424700
00705 0 50000 0 00704 1345C3CLA CLAC3TIX F4424710
00706 0 04000 0 00674 1346TLQC3ARS F4424720
00707 0 07400 4 00004 1347TSXRDFORT,4 FL0W ERROR F4424730
00710−0 75400 4 00000 1348C3FND PXD0,4 F4424740
00711−0 53400 4 00122 1349LXDOUTBX,4 F4424750
00712 0 02000 4 00001 1350TRA1,4 RETURN F4424760
1351 F4424770
1352THIS ROUTINE TESTS FOR A TRANSFER TO THE BEGINNING OF A DO F4424780
1353AND MAKES A SET ENTRY FOR THE DO. F4424790
00713−0 63400 1 00125 1354TSTAD SXDERAS1M,1 SAVE INDEX REGISTER FOR TRA BACK F4424800
00714−0 63400 4 00122 1355SXDOUTBX,4 F4424810
00715−0 53400 1 00112 1356LXDSBOX,1 F4424820
00716 0 60100 0 00121 1357STOACBOX SAVE ADDRESS BEING TESTED F4424830
00717−0 53400 4 00035 1358LXDLD1M,4 COMPARE TO DO LIST F4424840
00720 0 50000 0 00121 1359C4CLA CLAACBOX PUT ADDRESS BEING TESTED INTO AC F4424850
00721−0 50100 0 00062 1360ORAIFMSK WITH AN IF MARK F4424860
00722 0 34000 4 06477 1361C4CAS CASDOLIST−1,4 COMPARE TO DO LIST F4424870
00723 1 00002 4 00722 1362TXIC4CAS,4,2 ENTRY SMALLER,OR EQUAL BUT W. NO IFF4424880
00724 0 02000 0 00731 1363TRAFXDO ENTRY EQUAL, HAS IF F4424890
00725−0 63400 1 00112 1364SXDSBOX,1 ENTRY LARGER, TEST FINISHED. F4424900
00726−0 53400 1 00125 1365LXDERAS1M,1 SAVE SET INDEX AN0 RESTORE INDEX F4424910
00727−0 53400 4 00122 1366LXDOUTBX,4 REGISTERS. F4424920
00730 0 02000 4 00001 1367TRA1,4 RETURN TO MAIN ROUTINE F4424930
00731−0 75400 2 00000 1368FXDO PXD0,2 SEE IF TRA IS IN OR OUT OF RANGE F4424940
00732−0 50100 0 00062 1369ORAIFMSK OF THIS DO F4424950
00733 0 40200 4 06477 1370SUBDOLIST−1,4 F4424960
00734−0 12000 0 00742 1371TMIC4ENT TR BEFORE BEG OF DO,MAKE SET ENTRY F4424970
00735−0 75400 2 00000 1372PXD0,2 TR AFTER BEG OF DO, SEE IF IN DO. F4424980
00736 0 34000 4 06500 1373CASDOLIST,4 COMPARE TO END OF DO. F4424990
00737 0 02000 0 00742 1374TRAC4ENT TR. AFTER DO, ENTER SET F4425000
00740 1 00002 4 00720 1375TXIC4CLA,4,2 TR. AT END OF DO--NO SET F4425010
00741 1 00002 4 00720 1376TXIC4CLA,4,2 TR. IN RANGE OF DO--NO SET F4425020
00742 0 50000 4 06500 1377C4ENT CLADOLIST,4 ENTER SET FOR DO. F4425030
00743−2 00310 1 00745 1378TNXC4STD,1,ZSET IS BLOCK OF SET TABLE FULL F4425040
00744 0 07400 4 01032 1379TSXWRSET,4 YES, WRITE BLOCK ON DRUM F4425050
00745 0 60100 1 04524 1380C4STD STOSETM,1 STORE BB NO. IN SET TABLE F4425060
00746 0 50000 0 00031 1381CLALA1 F4425070
00747 0 62100 1 04524 1382STASETM,1 STORE 1 INTO SET LIST F4425080
00750 0 50000 0 00760 1383CLAC5STD MODIFY ADDRESS IN FIX DO LIST FOR F4425090
00751 0 40000 0 00031 1384ADDLA1 NEXT ENTRY F4425100
00752 0 62100 0 00760 1385STAC5STD F4425110
00753−0 32000 0 00057 1386ANAADRMK F4425120
00754 0 40200 0 00052 1387SUBLFXDN IS FIXDO LIST FULL F4425130
00755−0 12000 0 00757 1388TMIC5STD−1 NO CONTINUE TESTING F4425140
00756 0 07400 4 00004 1389TSXRDFORT,4 FIXDOS FULL F4425150
00757−0 75400 1 00000 1390PXD0,1 F4425160
00760 0 60100 0 02413 1391C5STD STOFIXDOS−1 STORE SET ADDRESS IN FIX DO LIST F4425170
00761 1 00001 1 00762 1392C5TXI TXIC5TXI+1,1,1 SET FOR NEXT ENTRY IN SET LIST F4425180
00762 1 00002 4 00720 1393TXIC4CLA,4,2 SET DO LIST INDEX, CONTINUE TEST F4425190
1394 F4425200
1395THIS ROUTINE READS ANOTHER BLOCK OF COMPILED INSTRUCTIONS F4425210
1396INTO STORAGE AND SHIFTS THE EXTRA INSTRUCTIONS TO THE F4425220
1397BEGINNING OF THE BLOCK F4425230
00763−0 63400 4 00122 1398RDINSM SXDOUTBX,4 SAVE INDEX FOR RETURN F4425240
00764 0 50000 0 00032 1399CLAMINUS4 INITIALIZE ERROR BOX F4425250
00765 0 60100 0 00030 1400STOERRBX F4425260
00766−0 63400 2 00117 1401SXDBBOX,2 SAVE INDEX F4425270
00767−0 53400 4 00551 1402LXDLD12M,4 SHIFT EXTRA INSTRUCTIONS FROM END F4425280
00770 0 50000 4 03227 1403D1CLA CLANDINS,4 OF BLOCK FOR BEGINNING F4425290
00771 0 60100 4 03703 1404STOINST.M,4 F4425300
00772 2 00001 4 00770 1405TIXD1CLA,4,1 IS BLOCK SH1FTED F4425310
00773 0 76200 0 00224 1406D1RDS RDSINSTTP SLLECT 1NSTRUCTION TAPE F4425320
00774−0 53400 2 00036 1407LXDLD3,2 YES, SET INDEX FOR NO. OF RECORDS F4425330
00775 0 70000 4 03667 1408D1CPY CPYINSTM−12,4 COPY BLOCK OF INSTRUCTIONS F4425340
00776 1 00001 4 00775 1409TXID1CPY,4,1 SET FOR NEXT WORD F4425350
00777 0 02000 0 01007 1410TRAD2END END OF FILE F4425360
01000−2 00001 2 01003 1411TNXD1BCK,2,1 END OF RECORD--IS IT END OF 3RD RECF4425370
01001 0 76200 0 00224 1412RDSINSTTP NO, READ NEXT RECORD. F4425380
01002 0 02000 0 00775 1413TRAD1CPY F4425390
01003 0 76600 0 00333 1414D1BCK WRS219 TEST EOR TAPE ERROR E4425400
01004−0 76000 0 00012 1415RTT F4425410
01005 0 02000 0 01021 1416TRAINERR ERROR F4425420
01006 3 00453 4 01016 1417TXHD1XX,4,ZINSTM−1 IF 3RD RECORD FULL--NOT END OF F1LEF4425430
01007−0 75400 4 00000 1418D2END PXD0,4 REACHED END OF INSTRUCTIONS, F4425440
01010 0 40000 0 00612 1419ADDLD8 PUT TEST FOR LAST 1NSTRUCTION F4425450
01011 0 62200 0 00143 1420STDFNDAS INTO MAIN ROUT1NE F4425460
01012 0 50000 0 00053 1421CLALCOUT PUT ADDRESS OF FINAL EXIT INTO MAINF4425470
01013 0 60100 0 00144 1422STOFNDAS+1 ROUTINE. F4425480
01014 0 50000 0 00072 1423CLAENDMKM F4425490
01015 0 60100 4 03667 1424STOINST.M−12,4 F4425500
01016−0 53400 4 00122 1425D1XX LXDOUTBX,4 NO ERROR, RESTORE INDEX REGISTERS F4425510
01017−0 53400 2 00117 1426LXDBBOX,2 F4425520
01020 0 02000 4 00001 1427TRA1,4 RETURN TO MAIN ROUT1NE F4425530
01021 0 50000 0 00030 1428INERR CLAERRBX F4425540
01022−0 12000 0 01024 1429SKIP7 TMISKIP7+2 HAVE 5 TRIES AT READING BEEN MADE F4425550
01023 0 07400 4 00004 1430TSXRDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE F4425560
01024 0 40000 0 00031 1431ADDLA1 NO, TRY READING AGA1N F4425570
01025 0 60100 0 00030 1432STOERRBX F4425580
01026 0 76400 0 00224 1433D2BST BSTINSTTP BACKSPACE OVER RECOROS JUST REAO F4425590
01027 1 00001 2 01030 1434TXID2TIX,2,1 F4425600
01030−2 00003 2 01026 1435D2TIX TNXD2BST,2,3 F4425610
01031 0 02000 0 00773 1436TRAD1RDS TAPE BACKSPACED--TRY TO READ AGAIN F4425620
1437 F4425630
1438THIS ROUTIRE WRITES A BLOCK OF SETS ON DRUM 3. F4425640
01032−0 63400 4 00122 1439WRSET SXDOUTBX,4 SAVE INDEX FOR RETURN F4425650
01033 0 60100 0 00121 1440STOACBOX SAVE CONTENTS OF AC F4425660
01034 0 50000 0 00113 1441D7CLA CLASPBOX SET SP BOX FOR NEXT BLOCK F4425670
01035 0 40000 0 00047 1442ADDLZSET F4425680
01036 0 60100 0 00113 1443STOSPBOX F4425690
01037 0 40200 0 00046 1444SUBLXSET F4425700
01040−0 12000 0 01042 1445TMISTWRS NO OVERFLOW --CONTINLE F4425710
01041 0 07400 4 00004 1446TSXRDFORT,4 SET TABLE HAS OVERFLOWED. F4425720
01042 0 76600 0 00303 1447STWRS WRSSETDRM SELECT DRUM F4425730
01043−0 75400 0 00000 1448PXD0,0 CLEAR AC F4425740
01044−0 53400 4 00047 1449LXDLZSET,4 SET INDEX FOR COMPUTING CHECKSUM F4425750
01045 0 36100 4 04524 1450D6ACL ACLSETM,4 COMPUTE CHECK SUM F4425760
01046 2 00001 4 01045 1451TIXD6ACL,4,1 F4425770
01047 0 60200 0 00125 1452SLWERAS1M STORE CHECK SUM F4425780
01050 0 46000 0 00040 1453LDASETYM LOCATE DRUM ADDRESS F4425790
01051−0 53400 4 00047 1454LXDLZSET,4 SET INOEX EOR COPY1NG F4425800
01052 0 70000 4 04524 1455D6CPY CPYSETM,4 COPY BLOCK F4425810
01053 2 00001 4 01052 1456TIXD6CPY,4,1 F4425820
01054 0 70000 0 00125 1457CPYERAS1M COPY CHECK SUM F4425830
01055 0 50000 0 00040 1458CLASETYM SET DRUM ADDRESS FOR NEXT BLOCK F4425840
01056 0 40000 0 00042 1459ADDLZSET1 F4425850
01057 0 60100 0 00040 1460STOSETYM F4425860
01060−0 53400 4 00122 1461LXDOUTBX,4 RESTORE INDEX REGISTER F4425870
01061 0 50000 0 00121 1462CLAACBOX F4425880
01062 0 02000 4 00001 1463TRA1,4 F4425890
1464 F4425900
1465THIS SETS UP FOR OPTIMAL LOOK UP IN BB LIST F4425910
01063−0 53400 1 00551 1466PASS2 LXDLD12M,1 INITIALIZE INDEX REGISTERS F4425920
01064 1 00455 1 01065 14671TXI TXI1TXI+1,1,ZINSTM+1 F4425930
01065 0 50000 0 07774 1468CLABBOX.= GET LENGTH OF BBLIST F4425940
01066 0 62200 0 00700 1469STDPLACEM PUT LENGTH INTO TEST F4425950
01067 0 77100 0 00001 1470ARS1 F4425960
01070 0 30000 0 00033 1471FADL0M FIND LEAST POWER OF 2 NOT LESS THANF4425970
01071 0 77100 0 00033 1472ARS27 LENGTH OF TABLE F4425980
01072 0 40200 0 00035 1473SUBLD1M F4425990
01073 0 62100 0 01075 1474STAARSX F4426000
01074 0 50000 0 00056 1475CLACONSTM F4426010
A01075 0 77100 0 00000 1476ARSX ARS F4426020
01076 0 60100 0 00124 1477STOXBOX F4426030
01077 0 50000 0 07775 1478CLADOBOX= IF THERE ARE NO DOS, DO NOT TEST F4426040
01100−0 10000 0 01103 1479TNZTRAQ−1 FOR A TRANSFER TO A DO F4426050
01101 0 50000 0 00730 1480CLAFXDO−1 F4426060
01102 0 60100 0 00713 1481STOTSTAD F4426070
01103 0 53400 2 00057 1482LXAADRMK,2 F4426080
01104 0 02000 0 00130 1483TRAQ TRABEGBB F4426090
1484 F4426100
1485 F4426110
1486SECTION 4 - PART 2 QF 6 I2ND RECORD OF 2) F4426120
1487 F4426130
1488FORTRAN EDITOR INFORMATION F4426140
1489 MASTER RECORD CARD = F0650000 F4426150
1490 ENTRY POINT = 1063 (CONTROL GOES TO PREVIOUS RECORD) F4426160
1491 FIRST LOCATION = 3064 F4426170
1492 LAST LOCATION = 3210 F4426180
1493 F4426190
1494 F4426200
03064 1495ORG1588 F4426210
1496THIS ROUIINE READS A BLOCK OF TIFRD INTO CORE STORAGE FROM F4426220
1497DRUM 1. F4426230
03064−0 63400 4 00122 1498RDTIF SXDOUTBX,4 SAVE INDEX FOR RETURN F4426240
03065−0 63400 2 00125 1499SXDERAS1M,2 SAVE INDEX F4426250
03066 0 50000 0 00032 1500CLAMINUS4 INITIALIZE ERROR BOX F4426260
03067 0 60100 0 00030 1501STOERRBX F4426270
03070 0 50000 0 03703 1502CLANTIFR−1 MOVE EXTRA WORD FROM END OF BLOCK F4426280
03071 0 60100 0 04213 1503STOTIFRDM−1 TO BEGINNING F4426290
03072 0 76200 0 00301 1504TFRDS RDSTIFDRM SELECT DRUM F4426300
03073 0 46000 0 00041 1505LDATIFY LOCATE DRUM ADDRESS F4426310
03074 0 70000 0 00126 1506CPYERAS2M COPY LENGTH OF BLOCK F4426320
03075−0 53400 6 00126 1507LXDERAS2M,6 SET INDEX FOR COUNT F4426330
03076 0 70000 4 04213 1508D2CPY CPYTIFRDM−1,4 READ IN BLOCK OF TIFRD F4426340
03077 2 00001 4 03076 1509TIXD2CPY,4,1 TEST FOR END OF BLOCK F4426350
03100 0 70000 0 00127 1510CPYERAS3M COPY CHECK SUM F4426360
03101−0 50000 0 00126 1511CALERAS2M F4426370
03102 0 10000 0 03121 1512TZELSTBLT TIFGO IS EMPTY F4426380
03103 0 36100 2 04213 1513D3ACL ACLTIFRDM−1,2 COMPUTE CHECKSUM F4426390
03104 2 00001 2 03103 1514TIXD3ACL,2,1 F4426400
03105 0 60200 0 00121 1515SLWACBOX F4426410
03106 0 50000 0 00121 1516CLAACBOX F4426420
03107 0 40200 0 00127 1517SUBERAS3M C0MPARE CHECK SUMS F4426430
03110−0 10000 0 03141 1518TNZTFERR NOT EQUAL,ERROR F4426440
03111−0 53400 4 00126 1519LXDERAS2M,4 WAS THIS A FULL BLOCK F4426450
03112−2 00307 4 03121 1520TNXLSTBLT,4,ZTIFRD−1 NO--WAS LAST BLOCK F4426460
03113 0 50000 0 00041 1521CLATIFY THIS WAS A FULL BLOCK, SET DRUM F4426470
03114 0 40000 0 00043 1522ADDLZTIF2 ADDRESS FOR NEXT BLOCK F4426480
03115 0 62100 0 00041 1523STATIFY F4426490
03116−0 53400 2 00125 1524TFLXD LXDERAS1M,2 RESTORE INDEX REGISTER F4426500
03117−0 53400 4 00122 1525LXDOUTBX,4 F4426510
03120 0 02000 4 00001 1526TRA1,4 RETURN TO MAIN ROUT1NE F4426520
03121 0 50000 0 00054 1527LSTBLT CLATRNOM END OF TIFGO--PREVENT FURTHER F4426530
03122 0 60100 0 03065 1528STORDTIF+1 ATTEMPTS TO READ IN F4426540
03123 0 50000 0 00126 1529CLAERAS2M PUT NUMBER OF WORDS IN THIS BLOCK F4426550
03124 0 40000 0 00035 1530ADDLD1M INTO COMPARISONS F4426560
03125 0 62200 0 00150 1531STD2TNX F4426570
03126 0 62200 0 00343 1532STD7TNX F4426580
03127 0 62200 0 00356 1533STD8TNX F4426590
03130 0 02000 0 03116 1534TRATFLXD RESTORE INDEX REGISTERS AND EXIT. F4426600
03131 0 50000 0 03156 1535NOMOR CLATRTSX TIFRD IS ALL USED - STORE A TSX F4426610
03132 0 60100 0 03064 1536STORDTIF F4426620
03133 0 50000 0 03140 1537CLATR2CL F4426630
03134 0 60100 0 00147 1538STO2TNX−1 F4426640
03135−0 53400 4 00116 1539LXDPBOX,4 F4426650
03136 0 60000 4 04214 1540STZTIFRDM,4 F4426660
03137 0 02000 0 03117 1541TRATFLXD+1 F4426670
03140 0 02000 0 00160 1542TR2CL TRA2CLA F4426680
03141 0 50000 0 00030 1543TFERR CLAERRBX F4426690
03142−0 12000 0 03144 1544SKIP8 TMISKIP8+2 HAVE 5 TRIES AT READING BEEN MADE F4426700
03143 0 07400 4 00004 1545TSXRDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE F4426710
03144 0 40000 0 00031 1546ADDLA1 NO, TRY READING AGAIN F4426720
03145 0 60100 0 00030 1547STOERRBX F4426730
03146 0 02000 0 03072 1548TRATFRDS F4426740
1549 F4426750
1550THIS ROUTINE WRITES A BLOCK OF THE TRA TABLE ON THE DRUM F4426760
1551WITH CHECK SUM F4426770
03147−0 63400 4 00122 1552WRTRA SXDOUTBX,4 SAVE INDFX FOR RETURN F4426780
03150 0 60100 0 00121 1553STOACBOX SAVE CONTENTS OF THE AC F4426790
03151 0 50000 0 00115 1554TRCLA CLATPBOX SET TP BOX FOR NEXT BLOCK F4426800
03152 0 40000 0 00045 1555ADDLZTRA F4426810
03153 0 60100 0 00115 1556STOTPBOX F4426820
03154 0 40200 0 00044 1557SUBLXTRA F4426830
03155−0 12000 0 03157 1558TMITRWRS NO OVERFLOW--CONTINUE F4426840
03156 0 07400 4 00004 1559TRTSX TSXRDFORT,4 THE TRA TABLE HAS OVERFLOWED F4426850
03157 0 76600 0 00301 1560TRWRS WRSTRADRM SELECT DRUM F4426860
03160−0 53400 4 00045 1561LXDLZTRA,4 SET INDEX F4426870
03161−0 75400 0 00000 1562PXD0,0 CLEAR AC F4426880
03162 0 36100 4 06024 1563D4ACL ACLTRAM,4 COMPUTE CHECKSUM F4426890
03163 2 00001 4 03162 1564TIXD4ACL,4,1 F4426900
03164 0 60200 0 00125 1565SLWERAS1M STORE CHECK SUM F4426910
03165−0 53400 4 00045 1566LXDLZTRA,4 SET INDEX FOR COPYING F4426920
03166 0 70000 4 06024 1567D4CPY CPYTRAM,4 COPY BLOCK F4426930
03167 2 00001 4 03166 1568TIXD4CPY,4,1 F4426940
03170 0 70000 0 00125 1569CPYERAS1M COPY CHECK SUM F4426950
03171−0 53400 4 00276 1570LXDLD4,4 F4426960
03172 0 50000 4 04530 1571D5CLA CLANDTRA,4 SHIFT EXTRA ENTRIES FROM THE END F4426970
03173 0 60100 4 06024 1572STOTRA..M,4 TO THE BEGINNING OF BLOCK F4426980
03174 2 00001 4 03172 1573TIXD5CLA,4,1 F4426990
03175−0 53400 4 00045 1574LXDLZTRA,4 SET INDEX F4427000
03176−0 75400 0 00000 1575PXD0,0 F4427010
03177 0 56000 0 00031 1576LDQLA1 F4427020
03200 0 60100 4 06021 1577D5ST2 STOTRAM−3,4 INITIALIZE TRA TABLE F4427030
03201−0 60000 4 06020 1578STQTRA..M−4,4 F4427040
03202 2 00002 4 03200 1579TIXD5ST2,4,2 F4427050
03203 0 50000 0 03157 1580CLATRWRS SET ADDRESS FOR NEXT BLOCK F4427060
03204 0 40000 0 00031 1581ADDLA1 F4427070
03205 0 62100 0 03157 1582STATRWRS F4427080
03206−0 53400 4 00122 1583TRLXD LXDOUTBX,4 RESTORE INDEX REGISTERS F4427090
03207 0 50000 0 00121 1584CLAACBOX RESTORE CONTENTS OF AC F4427100
03210 0 02000 4 00001 1585TRA1,4 RETURN TO MAIN ROUTINE F4427110
1586 F4427120
1587 F4427130
1588 SECTION 4 - PART 3 OF 6 F4430010
1589 F4430020
1590 FORTRAN EDITOR INFORMATION F4430030
1591 MASTER RECORD CARD = F0670000 F4430040
1592 ENTRY POINT = 111 F4430050
1593 FIRST LOCATION = 33 F4430060
1594 LAST LOCATION = 437 F4430070
1595 F4430080
1596 F4430090
00033 1597ORG27 F4430100
1598 CONSTANTS AND VARIABLES F4430110
00033 0 00000 0 00000 1599ZERO 0 F4430120
00034 0 00001 0 00000 1600LD1N 0,0,1 F4430130
00035 0 70007 0 00000 1601LD7N 0,0,−TRATBL+2 F4430140
00036+200000000000 1602PBYCDN OCT200000000000 F4430150
00037−300000000000 1603PFXMKN OCT−300000000000 F4430160
00040+377777777777 1604ENDMKN OCT377777777777 F4430170
00041 0 00000 0 00310 1605LAZST ZSET F4430180
00042 0 00000 0 00311 1606LZST1 ZSET+1 F4430190
00043 0 00000 0 00374 1607LZFR1 ZFRET=+2 F4430200
00044 0 00000 0 01274 1608LAZTR ZTRA F4430210
00045 0 00310 0 00000 1609LZSETN 0,0,ZSET F4430220
00046 0 01274 0 00000 1610LZTRAN 0,0,ZTRA F4430230
00047 0 00000 0 01275 1611WSETY SETADD F4430240
00050 0 00000 0 01750 1612FRETY FRTADD F4430250
00051 0 00000 0 02260 1613BBLYN BBLADD F4430260
00052 0 00000 0 03270 1614DOYN DOADDR F4430270
00053 0 02000 0 00366 1615TRBCK TRACLAFN F4430280
00054 0 00000 0 00201 1616LFXST FXSET F4430290
00055 0 00000 0 00000 1617ERAS1N F4430300
00056 0 00000 0 00000 1618ERAS2N F4430310
00057 0 00000 0 00000 1619ERAS3N F4430320
00060 0 00000 0 00000 1620ERAS4N F4430330
00061 0 00000 0 00000 1621ERAS5N F4430340
1622 F4430350
1623THIS ROUTINE READS THE SET TABLE FROM DRUM 3. F4430360
00062 0 50000 0 00032 1624RDSET CLAMINUS4 INITIALIZE ERROR BOX F4430370
00063 0 60100 0 00030 1625STOERRBX F4430380
00064 0 76200 0 00303 162616WRS RDSSETDRM F4430390
00065 0 46000 0 00047 1627LDAWSETY LOCATE DRUM ADDRESS F4430400
00066−0 53400 3 07776 1628LXDSSBOX=,3 SET INDEX REGISTERS F4430410
00067 0 70000 1 01063 162916CPY CPYSETTAB+1,1 COPY TABLE F4430420
00070 2 00001 1 00067 1630TIX16CPY,1,1 F4430430
00071 0 70000 0 00055 1631CPYERAS1N COPY CHECK SUM F4430440
00072−0 75400 0 00000 1632PXD0,0 CLEAR AC F4430450
00073 0 36100 2 01063 163316ACL ACLSETTAB+1,2 COMPUTE CHECK SUM F4430460
00074 2 00001 2 00073 1634TIX16ACL,2,1 F4430470
00075 0 60200 0 00056 1635SLWERAS2N STORE CHECK SUM F4430480
00076 0 50000 0 00056 1636CLAERAS2N COMPARE CHECK SUMS F4430490
00077 0 40200 0 00055 1637SUBERAS1N F4430500
00100 0 10000 0 00107 1638TZEREAD4 IF NO ERROR-READ IN NEXT PROGRAM F4430510
00101 0 50000 0 00030 163917ERR CLAERRBX F4430520
00102−0 12000 0 00104 1640SKIP9 TMISKIP9+2 HAVE 5 TRIES AT READING BEEN MA0E F4430530
00103 0 07400 4 00004 1641TSXRDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE F4430540
00104 0 40000 0 00031 1642ADDLA1 NO, TRY READING AGAIN F4430550
00105 0 60100 0 00030 1643STOERRBX F4430560
00106 0 02000 0 00064 1644TRA16WRS TRY AGAIN F4430570
00107 0 76200 0 00221 1645READ4 RDSSYSTAP F4430580
00110 0 02000 0 00004 1646TRARDFORT F4430590
1647 F4430600
1648THIS ROUTINE WRITES THE BBLIST ON DRUM 3 F4430610
00111−0 53400 3 07774 1649LXD LXDBBOX.=,3 PUT BASIC BLOCK LIST ON DRUM F4430620
00112−0 75400 0 00000 1650PXD0,0 F4430630
00113 0 76600 0 00303 1651WRSBBLDRM F4430640
00114 0 36100 1 07773 1652ACLBBLIST,1 COMPUTE CHECK SUM F4430650
00115 2 00001 1 00114 1653SELF30 TIXSELF30−1,1,1 F4430660
00116 0 36100 0 07773 1654ACLBBLIST F4430670
00117 0 60200 0 00055 1655SLWERAS1N STORE CHECK SUM F4430680
00120 0 46000 0 00051 1656LDABBLYN F4430690
00121 0 70000 2 07773 1657CPYBBLIST,2 COPY LIST F4430700
00122 2 00001 2 00121 1658SELF31 TIXSELF31−1,2,1 F4430710
00123 0 70000 0 07773 1659CPYBBLIST COPY LAST WORD IN LIST F4430720
00124 0 70000 0 00055 1660CPYERAS1N COPY CHECK SUM F4430730
1661 F4430740
1662THIS ROUTINE WRITES DOLIST ON DRUM 1. F4430750
00125−0 53400 3 07775 1663LXDDOBOX=,3 COPY DO LIST ONTO DRUM F4430760
00126−0 75400 0 00000 1664PXD0,0 F4430770
00127 0 76600 0 00301 1665WRSDODRUM SELECT DRUM F4430780
00130 0 36100 1 06500 16662ACL ACLDOLIST,1 COMPUTE CHECK SUM F4430790
00131 2 00001 1 00130 1667TIX2ACL,1,1 F4430800
00132 0 60200 0 00055 1668SLWERAS1N STORE CHECK SUM F4430810
00133 0 46000 0 00052 1669LDADOYN F4430820
00134 0 70000 2 06500 16702CPY CPYDOLIST,2 COPY TABLE F4430830
00135 2 00001 2 00134 1671TIX2CPY,2,1 F4430840
00136 0 70000 0 00055 1672CPYERAS1N COPY CHECK SUM F4430850
1673 F4430860
1674THIS READS THE TWO BLOCKS OF THE SET TABLE FROM THE DRUM F4430870
00137 0 50000 0 00032 16754PXD CLAMINUS4 INITIALIZE ERROR BOX F4430880
00140 0 60100 0 00030 1676STOERRBX F4430890
00141 0 76200 0 00303 16774WRS RDSSETDRM F4430900
00142 0 46000 0 00047 1678LDAWSETY F4430910
00143−0 53400 3 00045 1679LXDLZSETN,3 F4430920
00144 0 70000 1 07774 16804CPY CPYSETLOC,1 COPY BLOCK F4430930
00145 2 00001 1 00144 1681TIX4CPY,1,1 F4430940
00146 0 70000 0 00055 1682CPYERAS1N COPY CHECK SUM F4430950
00147−0 75400 0 00000 1683PXD0,0 CLEAR AC F4430960
00150 0 36100 2 07774 16844ACL ACLSETLOC,2 COMPUTE CHECKSUM F4430970
00151 2 00001 2 00150 1685TIX4ACL,2,1 F4430980
00152 0 60200 0 00056 1686SLWERAS2N F4430990
00153 0 50000 0 00056 1687CLAERAS2N F4431000
00154 0 40200 0 00055 1688SUBERAS1N COMPARE CHECK SUMS F4431010
00155 0 10000 0 00164 16894TZE TZETESTST F4431020
00156 0 50000 0 00030 1690STERR CLAERRBX F4431030
00157−0 12000 0 00161 1691SKIP10 TMISKIP10+2 HAVE 5 TRIES AT READING BEEN MADE F4431040
00160 0 07400 4 00004 1692TSXRDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE F4431050
00161 0 40000 0 00031 1693ADDLA1 NO, TRY READING AGAIN F4431060
00162 0 60100 0 00030 1694STOERRBX F4431070
00163 0 02000 0 00141 1695TRA4WRS TRY AGAIN TO READ IN F4431080
00164 0 50000 0 07776 1696TESTST CLASSBOX= IS THERE ANOTHER BLOCK ON DRUM F4431090
00165 0 40200 0 00045 1697SUBLZSETN F4431100
00166−0 12000 0 00201 1698TMIFXSET NO OTHER- F4431110
00167 0 50000 0 00047 16996SET CLAWSETY ANOTHER BLOCK-SET DRUM ADDRESS F4431120
00170 0 40000 0 00042 1700ADDLZST1 F4431130
00171 0 60100 0 00047 1701STOWSETY F4431140
00172 0 50000 0 00144 17025CLA CLA4CPY SET ADDRESSES FOR NEXT BLOCK F4431150
00173 0 40200 0 00041 1703SUBLAZST F4431160
00174 0 62100 0 00144 1704STA4CPY F4431170
00175 0 62100 0 00150 1705STA4ACL F4431180
00176 0 50000 0 00054 1706CLALFXST F4431190
00177 0 62100 0 00155 1707STA4TZE STORE ADDRESS FOR NEXT ROUTINE F4431200
00200 0 02000 0 00137 1708TRA4PXD READ IN NEXT BLOCK F4431210
1709 F4431220
1710THIS ROUTINE FIXES THE SETS FOR TRANSFERS TO DOS WITH IFS F4431230
00201 0 53400 1 00033 1711FXSET LXAZERO,1 SET INDEX FOR FIX DO LIST F4431240
00202 0 50000 1 02414 1712CCLA CLAFIXDOS,1 GET ENTRY FROM FIXDO LIST F4431250
00203−0 12000 0 00213 1713TMIWRTST ALL DONE IF MINUS F4431260
00204−0 73400 4 00000 1714PDX0,4 SET FOR ADDRESS IN SET TABLE F4431270
00205 0 50000 4 07774 1715CLASETLOC,4 LOOK AT ENTRY IN SET TABLE F4431280
00206−0 73400 2 00000 1716PDX0,2 SET FOR ADDRESS IN BASIC BLOCK TAB.F4431290
00207 0 50000 2 02413 1717CLABBTABL,2 GET ADDRESS IN TRA TABLE F4431300
00210 0 40000 0 00035 1718ADDLD7N SET FOR CORE ADDRESS OF COUNTER F4431310
00211 0 62200 4 07774 1719STDSETLOC,4 PUT INTO SET TABLE F4431320
00212 1 77777 1 00202 1720TXICCLA,1,−1 LOOK AT NEXT ENTRY IN FIXDO LIST F4431330
1721 F4431340
1722THIS ROUTINE WRITES THE FINISHED SET TABLE ON THE DRUM F4431350
00213−0 53400 3 07776 1723WRTST LXDSSBOX=,3 SET INDEX REGISTERS F4431360
00214 0 76600 0 00303 1724WRSSETDRM SELECT DRUM F4431370
00215−0 75400 0 00000 1725PXD0,0 F4431380
00216 0 36100 1 07774 17267AACL ACLSETLOC,1 COMPUTE CHECK SUM F4431390
00217 2 00001 1 00216 1727TIX7AACL,1,1 F4431400
00220 0 60200 0 00055 1728SLWERAS1N STORE CHECK SUM F4431410
00221 0 46000 0 00047 1729LDAWSETY F4431420
00222 0 70000 2 07774 17307ACPY CPYSETLOC,2 COPY TABLE F4431430
00223 2 00001 2 00222 1731TIX7ACPY,2,1 F4431440
00224 0 70000 0 00055 1732CPYERAS1N COPY CHECK SUM F4431450
1733 F4431460
1734 THIS ROUTINE READS THE TRA TABLE FROM THE DRUM F4431470
00225 0 50000 0 07777 1735RDTRA CLATTBOX= F4431480
00226 0 40200 0 00034 1736SUBLD1N F4431490
00227 0 60100 0 00057 1737STOERAS3N INITIALIZE ERAS3N F4431500
00230 0 50000 0 00032 17388PXD CLAMINUS4 INITIALIZE ERROR BOX F4431510
00231 0 02000 0 00265 1739TRASKIP11+3 F4431520
00232 0 76200 0 00301 17408WRS RDSTRADRM F4431530
00233−0 53400 3 00046 1741LXDLZTRAN,3 SET INDICES F4431540
00234 0 70000 1 07774 17428CPY CPYTRATBL+1,1 COPY BLOCK OF TABLE F4431550
00235 2 00001 1 00234 1743TIX8CPY,1,1 F4431560
00236 0 70000 0 00055 1744CPYERAS1N COPY CHECK SUM F4431570
00237 0 36100 2 07774 17458ACL ACLTRATBL+1,2 F4431580
00240 2 00001 2 00237 1746TIX8ACL,2,1 F4431590
00241 0 60200 0 00056 1747SLWERAS2N F4431600
00242 0 50000 0 00056 1748CLAERAS2N F4431610
00243 0 40200 0 00055 1749SUBERAS1N COMPARE CHECK SUMS F4431620
00244−0 10000 0 00261 1750TNZTRERR IF NOT ZERO, HAS BEEN AN ERROR F4431630
00245 0 50000 0 00057 1751CLAERAS3N PUT NO OF WORDS COPIED IN AC F4431640
00246 0 40200 0 00046 1752SUBLZTRAN ADD BLOCK JUST COPIED F4431650
00247−0 12000 0 00270 1753TMICLRNS MINUS MEANS ALL D0NE, CLEAR N LIST F4431660
00250 0 60100 0 00057 1754STOERAS3N STORE NUMBER OF WORDS LEFT TO COPY F4431670
00251 0 50000 0 00232 1755CLA8WRS NOT FINISHED--SET DRUM NUMBER FOR F4431680
00252 0 40000 0 00031 1756ADDLA1 NEXT BLOCK F4431690
00253 0 62100 0 00232 1757STA8WRS F4431700
00254 0 50000 0 00234 1758CLA8CPY SET ADDRESSES FOR NEXT BLOCK F4431710
00255 0 40200 0 00044 1759SUBLAZTR F4431720
00256 0 62100 0 00234 1760STA8CPY F4431730
00257 0 62100 0 00237 1761STA8ACL F4431740
00260 0 02000 0 00230 1762TRA8PXD COPY NEXT BLOCK F4431750
00261 0 50000 0 00030 1763TRERR CLAERRBX F4431760
00262−0 12000 0 00264 1764SKIP11 TMISKIP11+2 HAVE 5 TRIES AT READING BEEN MADE F4431770
00263 0 07400 4 00004 1765TSXRDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE F4431780
00264 0 40000 0 00031 1766ADDLA1 NO, TRY READING AGAIN F4431790
00265 0 60100 0 00030 1767STOERRBX F4431800
00266−0 75400 0 00000 1768PXD0,0 CLEAR AC F4431810
00267 0 02000 0 00232 1769TRA8WRS TRY AGAIN F4431820
1770 F4431830
1771THIS CLEARS THE LOCATION IN THE N-LIST F4431840
00270 0 56000 0 00033 1772CLRNS LDQZERO F4431850
00271 0 53400 4 00031 1773LXALA1,4 F4431860
00272 0 50000 4 01114 1774CLANS CLANLIST,4 F4431870
00273 0 10000 0 00300 1775TZE11PXD END OF LIST-DO NEXT ROUTINE F4431880
00274−0 60000 4 01114 1776STQNLIST,4 STORE ZERO IN N-LIST F4431890
00275 1 00001 4 00272 1777TXICLANS,4,1 SET FOR NEXT WORD IN LIST F4431900
1778 F4431910
1779THIS ROUTINE READS FRET FROM DRUM 2 F4431920
00276−0 63400 2 00060 1780RDFRT SXDERAS4N,2 SAVE INDEX REGISTERS F4431930
00277−0 63400 1 00061 1781SXDERAS5N,1 F4431940
00300 0 50000 0 00032 178211PXD CLAMINUS4 INITIALIZE ERROR BOX F4431950
00301 0 02000 0 00343 1783TRASKIP12+3 F4431960
00302 0 76200 0 00302 178411WRS RDSFRTDRM SELECT DRUM F4431970
00303 0 46000 0 00050 1785LDAFRETY LOCATE DRUM ADDRESS F4431980
00304 0 70000 0 00056 1786CPYERAS2N COPY NO. 0F WORDS IN BLOCK F4431990
00305−0 53400 7 00056 1787LXDERAS2N,7 SET INDEX REGISTERS F4432000
00306 0 70000 1 01062 178811CPY CPYFRET,1 COPY BLOCK F4432010
00307 2 00001 1 00306 1789TIX11CPY,1,1 F4432020
00310 0 70000 0 00055 1790CPYERAS1N COPY CHECK SUM F4432030
00311 0 70000 0 00057 1791CPYERAS3N C0PY FIRST WORD OF NEXT BLOCK F4432040
00312 0 36100 2 01062 179211ACL ACLFRET,2 COMPUTE CHECKSUM F4432050
00313 2 00001 2 00312 1793TIX11ACL,2,1 F4432060
00314 0 36100 0 00056 1794ACLERAS2N F4432070
00315 0 60200 0 00056 1795SLWERAS2N F4432080
00316 3 00000 4 00322 1796TXH11CLA,4,0 TEST FOR FRET EMPTY F4432090
00317 0 50000 0 00402 1797CLANOQFD IF EMPTY--PREVENT LOOKING AT IT F4432100
00320 0 62100 0 00357 1798STA13TXIN−1 F4432110
00321 0 02000 0 00346 1799TRAFXTRA GO TO MAKE UP PROBABILITIES F4432120
00322 0 50000 0 00056 180011CLA CLAERAS2N COMPARE CHECKSUMS F4432130
00323 0 40200 0 00055 1801SUBERAS1N F4432140
00324−0 10000 0 00337 1802TNZFQERR IF NOT ZERO--HAS BEEN AN ERROR F4432150
00325 0 50000 0 00050 180312CLA CLAFRETY SET DRUM ADDRESS FOR NEXT BLOCK F4432160
00326 0 40000 0 00043 1804ADDLZFR1 F4432170
00327 0 60100 0 00050 1805STOFRETY F4432180
00330 0 50000 0 00057 1806CLAERAS3N TEST FOR END OF FRET F4432190
00331−0 10000 0 00334 1807TNZ12TRA−2 F4432200
00332 0 50000 0 00341 1808CLASKIP12+1 STORE A TSX TO PREVENT READING F4432210
00333 0 60100 0 00301 1809STO11PXD+1 IN MORE-THIS IS END OF TABLE F4432220
00334−0 53400 1 00061 1810LXDERAS5N,1 RESTORE INDEX REGISTERS F4432230
00335−0 53400 2 00060 1811LXDERAS4N,2 F4432240
00336 0 02000 0 00346 181212TRA TRAFXTRA GO TO NEXT PART OF PROGRAM F4432250
00337 0 50000 0 00030 1813FQERR CLAERRBX F4432260
00340−0 12000 0 00342 1814SKIP12 TMISKIP12+2 HAVE 5 TRIES AT READING BEEN MADE F4432270
00341 0 07400 4 00004 1815TSXRDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE F4432280
00342 0 40000 0 00031 1816ADDLA1 NO, TRY READING AGAIN F4432290
00343 0 60100 0 00030 1817STOERRBX F4432300
00344−0 75400 0 00000 1818PXD0,0 F4432310
00345 0 02000 0 00302 1819TRA11WRS TRY AGAIN F4432320
1820 F4432330
1821THIS ROUTINE PUTS THE CUMULATIVE PROBABILITIES INTO THE TRA F4432340
1822TABLE FROM THE FREQUENCY TABLE F4432350
00346−0 53400 2 00033 1823FXTRA LXDZERO,2 SET INDEX REGISTERS F4432360
00347 0 50000 0 07774 1824CLABBOX.= ADD LENGTH OF TABLE F4432370
00350 0 40200 0 00034 1825SUBLD1N F4432380
00351 0 62200 0 00352 1826STD13TXH STORE FOR COMPARISON F4432390
D00352 3 00000 2 00062 182713TXH TXHRDSET,2 HAS END OF TABLE BEEN REACHED F4432400
00353−0 50000 2 02413 1828CALBBTABL,2 LOOK AT ENTRY IN BB TABLE F4432410
00354−0 73400 1 00000 1829PDX0,1 GET ADDRESS IN TRA TABLE F4432420
00355−0 32000 0 00037 1830ANAPFXMKN LOOK AT C0DE FOR ENDING F4432430
00356 0 40200 0 00036 1831SUBPBYCDN IS IT A PROBABILITY CASE F4432440
00357 0 10000 0 00361 1832TZECLAT YES, GET PROBABILITIES F4432450
00360 1 00001 2 00352 183313TXIN TXI13TXH,2,1 NO, GO TO NEXT BASIC BLOCK F4432460
00361 0 50000 4 01062 1834CLAT CLAFRET,4 IS FORMULA NO. IN TRA TABLE THE F4432470
00362 0 76700 0 00022 1835ALS18 SAME AS IN FRET(FRET HAS - SIGN)F4432480
00363 0 40000 1 07773 1836ADDTRATBL,1 F4432490
00364−0 10000 0 00402 1837TNZNOQFD NO, NO FREQUENCY FOUND F4432500
00365−2 00001 4 00372 183814TIX TNX14LXD,4,1 SET FOR NEXT WORD F4432510
00366 0 50000 4 01062 1839CLAFN CLAFRET,4 GET PROBABILITY FROM FRET F4432520
00367−0 12000 0 00360 1840TMI13TXIN MINUS INDICATES NEXT ENTRY IN FRET F4432530
00370 0 60100 1 07773 1841STOTRATBL,1 PUT PROBABILITY IN TRA TABLE F4432540
00371 1 00002 1 00365 1842TXI14TIX,1,2 SET FOR NEXT ENTRY IN TRA F4432550
00372 0 50000 0 00057 184314LXD CLAERAS3N TEST FOR END OF LAST BLOCK F4432560
00373−0 10000 0 00377 1844TNZ14CLA F4432570
00374 0 50000 0 00402 1845CLANOQFD END OF TABLE-PREVENT FURTHER F4432580
00375 0 62100 0 00357 1846STA13TXIN−1 LOOKING AT FRET F4432590
00376 1 00001 2 00352 1847TXI13TXH,2,1 ALSO END OF ENTRY-LOOK AT NEXT BB. F4432600
00377 0 50000 0 00053 184814CLA CLATRBCK END OF BLOCK OF FRET--READ IN NEXT F4432610
00400 0 62100 0 00336 1849STA12TRA BLOCK, SETTING ADDRESS FOR F4432620
00401 0 02000 0 00276 1850TRARDFRT RETURN F4432630
00402−0 12000 0 00416 1851NOQFD TMINTENT FORM. NO. IN FRET IS LARGER, NOT F4432640
1852 IN FRET F4432650
00403 2 00001 4 00404 1853TIXCLAQ,4,1 FORM. NO. SMALLER, TRY NEXT ENTRY F4432660
00404 0 50000 4 01062 1854CLAQ CLAFRET,4 LOOK AT NEXT WORD IN FRET F4432670
00405−0 12000 0 00362 1855TMICLAT+1 - MEANS NEW ENTRY, COMPARE TO TRA F4432680
00406 2 00001 4 00404 1856TIXCLAQ,4,1 KEEP LOOKING FOR BEG. OF NEXT ENTRYF4432690
00407 0 50000 0 00057 1857CLAERAS3N END OF BLOCK REACHED F4432700
00410 0 10000 0 00414 1858TZENDTBL TEST FOR END OF TABLE F4432710
00411 0 50000 0 00403 1859CLACLAQ−1 END OF BLOCK ONLY-STORE RETURN F4432720
00412 0 62100 0 00336 1860STA12TRA ADDRESS AND GO TO READ F4432730
00413 0 02000 0 00276 1861TRARDFRT IN NEXT BLOCK F4432740
00414 0 50000 0 00402 1862NDTBL CLANOQFD END OF TABLE-PREVENT FURTHER F4432750
00415 0 62100 0 00357 1863STA13TXIN−1 LOOKING AT FRET. F4432760
00416 0 50000 1 07771 1864NTENT CLATRATBL−2,1 NO ENTRY IN FRET--MAKE UP FREQS F4432770
00417−0 63400 4 00055 1865SXDERAS1N,4 SAVE FRET ADDRESS F4432780
00420−0 73400 4 00000 1866PDX0,4 PUT NO. OF BRANCHES IN INDEX F4432790
00421 0 50000 0 00034 1867CLALD1N PUT TOTAL PROBABILITY IN AC F4432800
00422 0 56000 0 00033 1868LDQZERO CLEAR MQ F4432810
00423 0 22100 1 07771 1869DVPTRATBL−2,1 DIVIDE BY NO. OF BRANCHES F4432820
00424 0 76000 0 00012 1870DCT F4432830
00425 0 07400 4 00004 1871TSXRDFORT,4 BAD DIVIDE F4432840
00426−0 60000 0 00056 1872STQERAS2N STORE PROBABILITY IN AC F4432850
00427−0 75400 0 00000 1873PXD0,0 CLEAR AC F4432860
00430 0 40000 0 00056 187415ADD ADDERAS2N ADD PROB. OF BRANCH FOR CUMULATING F4432870
00431 0 60100 1 07773 1875STOTRATBL,1 PROBABILITY AND STORE F4432880
00432−2 00001 4 00434 1876TNX15LXD,4,1 IS THIS BASIC BLOCK DONE F4432890
00433 1 00002 1 00430 1877TXI15ADD,1,2 NO, DO NEXT BRANCH F4432900
00434−0 53400 4 00055 187815LXD LXDERAS1N,4 RESTORE INDEX F4432910
00435 0 50000 0 00040 1879CLAENDMKN F4432920
00436 0 60100 1 07773 1880STOTRATBL,1 STORE PROBABILITY IN LAST BRANCH F4432930
00437 1 00001 2 00352 1881TXI13TXH,2,1 DO NEXT BASIC BLOCK. F4432940
1882 F4432950
1883 F4432960
1884SECTION 4 - PART 4 OF 6 F4440010
1885 F4440020
1886FORTRAN EDITOR INFORMATION F4440030
1887 MASTER RECORD CARD = F0690000 F4440040
1888 ENTRY POINT = 42 F4440050
1889 FIRST LOCATION = 33 F4440060
1890 LAST LOCATION = 161 F4440070
1891 F4440080
1892 F4440090
00033 1893ORG27 F4440100
1894CONSTANTS AND VARIABLES F4440110
00033 0 00001 0 00000 1895LD1P 0,0,1 F4440120
00034 0 77777 0 00000 1896DECMKP 0,0,−1 F4440130
00035 0 77777 0 77777 1897ADMK −1,0,−1 F4440140
00036+100000000000 1898BT2MK OCT100000000000 F4440150
00037 0 00000 0 07640 1899VISITS HTR4000 COUNTER FOR NUMBER OF VISITS F4440160
00040+321702174347 1900RAND1 OCT321702174347 F4440170
00041+000000000001 1901RAND2 OCT1 F4440180
1902 F4440190
1903THIS ROUTINE SIMULATES THE FLOW OF THE COMPILED PROGRAM, F4440200
1904KEEPING TRACK OF THE NUMBER OF TIMES EACH BRANCH IS TAKEN AT F4440210
1905EACH BRANCH POINT F4440220
00042−0 53400 1 00031 1906SIMUL LXDLA1,1 PUT ZERO IN I R A F4440230
00043−0 50000 0 07777 1907CALTTBOX= F4440240
00044 0 77100 0 00014 1908ARS12 NUMBER OF STEPS IS NUMBER OF 2-WORDF4440250
00045 0 60100 0 00037 1909STOVISITS ENTRIES IN TRATBL TIMES 128 F4440260
00046 0 50000 0 00037 1910INTOBB CLAVISITS COUNT NO. OF BASIC BLOCKS VISITED F4440270
00047 0 40200 0 00031 1911SUBLA1 F4440280
00050−0 12000 0 00160 1912TMIREAD5 HAVE FINISHED SIMULATION F4440290
00051 0 60100 0 00037 1913STOVISITS F4440300
00052 0 50000 1 02413 1914CLABBTABL,1 GET ADDRESS OF SETS FOR THIS BB F4440310
00053 0 76700 0 00022 1915ALS18 F4440320
00054 0 62200 0 00060 1916STD1TXL F4440330
00055 0 50000 1 02412 1917CLABBTABL−1,1 GET FIRST ADDRESS OF SETS FOR BB F4440340
00056 0 73400 2 00000 1918PAX0,2 F4440350
00057 0 50000 2 01063 19191CLA CLASETTAB+1,2 LOOK AT ENTRY IN SET TABLE F4440360
D00060−3 00000 2 00065 19201TXL TXLON,2 NO MORE SETS F4440370
00061−0 73400 4 00000 1921PDX0,4 PUT ADDRESS INTO INDEX F4440380
00062 0 76700 0 00022 1922ALS18 F4440390
00063 0 62200 4 00000 1923STD0,4 DO THE SET F4440400
00064 1 77777 2 00057 1924TXI1CLA,2,−1 DO NEXT SET F4440410
00065−0 50000 1 02413 1925ON CALBBTABL,1 F4440420
00066−0 73400 2 00000 1926PDX0,2 PUT TRATBL ADDRESS IN INDEX F4440430
00067 0 40200 0 00036 1927SUBBT2MK F4440440
00070−0 12000 0 00132 1928TMIDOWIF CODE IS 000, DO WITH IF F4440450
00071 0 40200 0 00036 1929SUBBT2MK F4440460
00072−0 12000 0 00122 1930TMIMSECSE CODE IS 001--MSE CASE F4440470
00073 0 40200 0 00036 1931SUBBT2MK F4440480
00074−0 12000 0 00141 1932TMIPRBYCS CODE IS 010--PROBABILITY F4440490
00075 0 40200 0 00036 1933SUBBT2MK F4440500
00076−0 12000 0 00147 1934TMIENTERP CODE IS 011--CERTAINTY F4440510
00077 0 40200 0 00036 1935SUBBT2MK F4440520
00100−0 12000 0 00140 1936TMITROUT CODE IS 100-- DO NO IF F4440530
00101 0 40200 0 00036 1937SUBBT2MK F4440540
00102−0 12000 0 00105 1938TMIGOTONP CODE IS 101-GO TO N CASE F4440550
00103−0 53400 1 00031 1939STOPCS LXDLA1,1 -10 IS A STOP-GO TO BB ZERO F4440560
00104 0 02000 0 00046 1940TRAINTOBB F4440570
00105 0 50000 2 07773 1941GOTONP CLATRATBL,2 THIS IS A GO TO N--GET ADDRESS OF F4440580
00106−0 73400 4 00000 1942PDX0,4 N-CELL AND PUT IN INDEX F4440590
00107 0 50000 1 02412 1943CLABBTABL−1,1 SAVE END OF ENTRY IN TRA TABLE F4440600
00110 0 62200 0 00116 1944STDTXLN F4440610
00111 0 50000 2 07772 1945CLANT CLATRATBL−1,2 LOOK AT ENTRY IN TRAT F4440620
00112−0 32000 0 00034 1946ANADECMKP AND OUT ALL BUT VALUE FOR N IN TRATF4440630
00113 0 40200 4 01114 1947SUBNLIST,4 IS THIS ENTRY FOR CURRENT VALUE F4440640
00114 0 10000 0 00147 1948TZEENTERP YES, ENTER F4440650
00115 1 00002 2 00116 1949TXITXLN,2,2 NO, LOOK AT NEXT ENTRY IN TRAT F4440660
D00116−3 00000 2 00111 1950TXLN TXLCLANT,2 TEST FOR N NOT SET F4440670
00117−0 50000 1 02413 1951CALBBTABL,1 F4440680
00120−0 73400 2 00000 1952PDX0,2 F4440690
00121 0 02000 0 00147 1953TRAENTERP ENTER TRA TO FIRST BRANCH GIVEN F4440700
00122 0 50000 2 07773 1954MSECSE CLATRATBL,2 THIS IS A MSE--GET ADDRESS OF SENSEF4440710
00123−0 73400 4 00000 1955PDX0,4 LIGHT CELL AND PUT IN INDEX F4440720
00124 0 50000 4 01260 1956CLASNSLT,4 IS LIGHT ON OR OFF F4440730
00125 0 10000 0 00131 1957TZEMSETXI OFF--TAKE SECOND BRANCH F4440740
00126−0 75400 0 00000 1958PXD0,0 ON--TURN OFF, TAKE FIRST BRANCH F4440750
00127 0 60100 4 01260 1959STOSNSLT,4 F4440760
00130 0 02000 0 00147 1960TRAENTERP ENTER TRANSFER F4440770
00131 1 00002 2 00147 1961MSETXI TXIENTERP,2,2 ENTER TRANSFER F4440780
00132 0 50000 2 07771 1962DOWIF CLATRATBL−2,2 THIS IS A DO WITH AN IF F4440790
00133 0 40000 0 00033 1963ADDLD1P ADD ONE T0 LOOP COUNT F4440800
00134 0 56000 2 07773 1964LDQTRATBL,2 COMPARE TO NO. OF TIMES IN LOOP F4440810
00135 0 04000 0 00140 1965TLQTROUT TRANSFER OUT--LOOP DONE F4440820
00136 0 62200 2 07771 1966STDTRATBL−2,2 LOOP NOT DONE-STORE NEW COUNT F4440830
00137 0 02000 0 00147 1967TRAENTERP TAKE TRANSFER BACK F4440840
00140 1 00002 2 00147 1968TROUT TXIENTERP,2,2 TAKE TRANSFER OUT F4440850
00141 0 56000 0 00040 1969PRBYCS LDQRAND1 THIS IS A PROBABILITY CASE F4440860
00142 0 20000 0 00041 1970MPYRAND2 GENERATE A RANDOM NUMBER BY F4440870
00143−0 60000 0 00041 1971STQRAND2 MULTIPLIC. AND SAVE THE RESULT F4440880
00144 0 50000 2 07773 1972COMP CLATRATBL,2 COMPARE TO CUMULATIVE PROB IN TRA F4440890
00145 0 04000 0 00147 1973TLQENTERP FOUND, TAKE TRANSFER F4440900
00146 1 00002 2 00144 1974TXICOMP,2,2 NOT FOUND--LOOK AT NEXT BRANCH F4440910
00147 0 50000 2 07772 1975ENTERP CLATRATBL−1,2 THIS IS THE BRANCH TO BE TAKEN F4440920
00150−0 73400 1 00000 1976PDX0,1 PUT NO. OF NEXT BASIC BLOCK IN IR AF4440930
00151 0 40000 0 00031 1977ADDLA1 ADD 1 TO COUNTER FOR THIS TRANSFER F4440940
00152 0 62100 2 07772 1978STATRATBL−1,2 STORE COUNT F4440950
00153 0 40200 2 07772 1979SUBTRATBL−1,2 TEST FOR OVERFLOW F4440960
00154 0 10000 0 00046 1980TZEINTOBB NO OVERFLOW, DO NEXT BB F4440970
00155 0 50000 0 00035 1981OVRFLO CLAADMK F4440980
00156 0 62100 2 07772 1982STATRATBL−1,2 STORE MAXIMUM COUNT F4440990
00157 0 02000 0 00046 1983TRAINTOBB F4441000
00160 0 76200 0 00221 1984READ5 RDSSYSTAP F4441010
00161 0 02000 0 00004 1985TRARDFORT F4441020
1986 F4441030
1987 F4441040
1988SECTION 4 - PART 5 OF 6 F4450010
1989 F4450020
1990FORTRAN EDITOR INFORMATION F4450030
1991 MASTER RECORD CARD = F0710000 F4450040
1992 ENTRY POINT = 42 F4450050
1993 FIRST LOCATION = 33 F4450060
1994 LAST LOCATION = 205 F4450070
1995 F4450080
1996 F4450090
00033 1997ORG27 F4450100
1998CONSTANTS AND VARIABLES F4450110
00033+000000700000 1999TGMSK OCT700000 F4450120
00034+000000777777 2000RTMSK OCT777777 F4450130
00035−300000000000 2001CODMK OCT−300000000000 F4450140
00036 0 00000 0 03270 2002DOYY DOADDR F4450150
00037 0 00000 0 00000 2003MPYR1 F4450160
00040 0 00000 0 00000 2004MPYR2 F4450170
00041 0 00000 0 00000 2005BBBOX F4450180
2006 F4450190
2007THIS ROUTINE PUTS THE DO LIST INTO STORAGE FROM THE DRUM F4450200
00042 0 50000 0 00032 2008RDDOS CLAMINUS4 INITIALIZE ERROR BOX F4450210
00043 0 60100 0 00030 2009STOERRBX F4450220
00044 0 76200 0 00301 2010RDSDOL RDSDODRUM F4450230
00045−0 53400 3 07775 2011LXDDOBOX=,3 F4450240
00046 0 46000 0 00036 2012LDADOYY F4450250
00047−3 00000 1 00204 2013TXLREAD6,1,0 IF NO DOS-GO TO TAG PASS F4450260
00050 0 70000 1 01120 2014CPYDOBLOK,1 F4450270
00051 2 00001 1 00050 2015SELF32 TIXSELF32−1,1,1 F4450280
00052 0 70000 0 00040 2016CPYMPYR2 F4450290
T00053−0 75400 0 00000 2017PXD F4450300
00054 0 36100 2 01120 2018ACLDOBLOK,2 F4450310
00055 2 00001 2 00054 2019SELF33 TIXSELF33−1,2,1 F4450320
00056 0 60200 0 00037 2020SLWMPYR1 F4450330
00057 0 50000 0 00037 2021CLAMPYR1 F4450340
00060 0 40200 0 00040 2022SUBMPYR2 F4450350
00061 0 10000 0 00070 2023TZEFXDOS F4450360
00062 0 50000 0 00030 2024CLAERRBX F4450370
00063−0 12000 0 00065 2025SKIP13 TMISKIP13+2 HAVE 5 TRIES AT READING BEEN MADE F4450380
00064 0 07400 4 00004 2026TSXRDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE F4450390
00065 0 40000 0 00031 2027ADDLA1 NO, TRY READING AGAIN F4450400
00066 0 60100 0 00030 2028STOERRBX F4450410
00067 0 02000 0 00044 2029TRARDSDOL F4450420
2030 F4450430
2031THIS ROUTINE FIXES THE COUNTERS FOR BASIC BLOCKS IN DOS F4450440
2032WITHOUT IFS F4450450
T00070−0 75400 0 00000 2033FXDOS PXD F4450460
00071 0 60100 2 00443 2034ZSTO STOLCNTR,2 F4450470
00072 3 00226 2 00074 2035TXHZLXD,2,150 CLEAR L-C0UNTERS TO INITIALIZE F4450480
00073 1 00001 2 00071 2036TXIZSTO,2,1 F4450490
00074−0 53400 4 00031 2037ZLXD LXDLA1,4 SET INDEX REGISTER--0 IN IR C F4450500
00075 0 53400 2 00031 2038LXALA1,2 ONE IN B F4450510
00076 0 50000 0 07775 2039CLADOBOX= PUT LENGTH OF TNX TABLE IN 9TSTND F4450520
00077 0 62200 0 00203 2040STD9TSTND F4450530
00100 0 50000 2 01117 2041LOOKDO CLADOBLOK−1,2 LOOK AT ENTRY IN DO LIST F4450540
00101−0 32000 0 00033 2042ANATGMSK DOES THIS DO HAVE AN IF F4450550
00102 1 00002 2 00103 20434TXI TXI4TXI+1,2,2 SET FOR NEXT ENTRY IN DO LIST F4450560
00103−0 10000 0 00203 2044TNZ9TSTND DO HAS IF-LOOK AT NEXT F4450570
00104 0 50000 0 00031 2045CLALA1 NO IF-START FIXING COUNTERS F4450580
00105 0 60100 4 00443 2046STOLCNTR,4 PUT ONE IN COUNTER ZERO F4450590
00106 1 00001 4 00107 2047TXI4CLA,4,1 F4450600
00107 0 50000 2 01121 20484CLA CLADOBLOK+1,2 F4450610
00110 0 62200 0 00041 2049STDBBBOX STORE NO. OF THIS BB. F4450620
00111 0 50000 2 01122 2050CLADOBLOK+2,2 F4450630
00112 0 62100 4 00443 2051STALCNTR,4 STORE NO. TIMES IN LOOP IN COUNTERSF4450640
00113 0 50000 2 01117 2052NTHRDO CLADOBLOK−1,2 IS THERE ANOTHER TXL TO THIS ADDR. F4450650
00114 0 40200 2 01121 2053SUBDOBLOK+1,2 F4450660
00115−0 10000 0 00126 2054TNZENDBBQ NO, LOOK AT END OF THIS B.B. F4450670
00116 1 00001 4 00117 2055BEGDO TXICLANO−1,4,1 YES, INCREASE L BOX BY 1 F4450680
00117 1 00002 2 00120 2056TXICLANO,2,2 SET FOR NEXT ENTRY IN TNX LIST F4450690
00120 0 50000 2 01122 2057CLANO CLADOBLOK+2,2 GET NO. OF TIMES IN THIS DO F4450700
00121 0 62100 4 00443 2058STALCNTR,4 4 F4450710
00122 0 56000 4 00443 2059LDQLCNTR,4 MULTIPLY NO OF TIMES IN THIS D0 F4450720
00123 0 20000 4 00444 2060MPYLCNTR+1,4 BY NO. OF TIMES IN OUTER DOS F4450730
00124−0 60000 4 00443 2061STQLCNTR,4 STORE IN COUNTER FOR THIS DO F4450740
00125 0 02000 0 00113 2062TRANTHRDO SEE IF THERE IS ANOTHER TNX TO THISF4450750
00126−0 53400 1 00041 2063ENDBBQ LXDBBBOX,1 THIS IS END 0F BB IN DO WITHOUT IF F4450760
00127 0 50000 1 02413 2064CLABBTABL,1 LOOK AT ENTRY ON BB TABLE F4450770
00130−0 73400 1 00000 2065PDX0,1 GET ADDRESS IN TRA TABLE F4450780
00131−0 32000 0 00035 2066ANACODMK LOOK AT ENDING CODE F4450790
00132 0 10000 0 00155 2067TZEENDDO ZERO INDICATES DO ENDING F4450800
00133 0 50000 1 07772 2068CLATRATBL−1,1 A CERTAINTY CASE--LOOK AT TRATBL F4450810
00134−0 32000 0 00034 2069ANARTMSK GET COUNTER FROM TRA TABLE F4450820
00135 0 60100 0 00037 2070STOMPYR1 F4450830
00136 0 56000 0 00037 2071LDQMPYR1 MULTIPLY C0UNTER BY NUMBER OF TIMESF4450840
00137 0 20000 4 00443 2072MPYLCNTR,4 THIS LOOP IS DONE F4450850
00140−0 60000 0 00037 2073STQMPYR1 F4450860
00141 0 50000 0 00037 2074CLAMPYR1 F4450870
00142 0 34000 0 00034 2075CASRTMSK TEST FOR COUNTER OVERFLOW F4450880
00143 0 50000 0 00034 2076CLARTMSK COUNTER HAS OVERFLOWED F4450890
00144 0 76100 0 00000 2077NOP NO OVERFLOW F4450900
00145 0 62100 1 07772 2078STATRATBL−1,1 PUT ALL ONES IN C0UNTER F4450910
00146−0 53400 1 00041 20796LXD LXDBBBOX,1 F4450920
00147 1 00001 1 00150 2080TXINXTBB,1,1 SET FOR NEXT BB--DOES IT BEGIN A DOF4450930
00150−0 75400 1 00000 2081NXTBB PXD0,1 LOOK AT NEXT BB F4450940
00151 0 62200 0 00041 2082STDBBBOX DOES THIS BB START A DO F4450950
00152 0 40200 2 01117 2083SUBDOBLOK−1,2 COMPARE TO DO LIST F4450960
00153 0 10000 0 00116 2084TZEBEGDO F4450970
00154 0 02000 0 00126 2085TRAENDBBQ F4450980
00155 0 50000 1 07770 2086ENDDO CLATRATBL−3,1 THIS IS THE END 0F A DO WITHOUT IF F4450990
00156−0 32000 0 00034 2087ANARTMSK F4451000
00157 0 60100 0 00037 2088STOMPYR1 F4451010
00160 0 56000 0 00037 2089LDQMPYR1 MULTIPLY COUNTER BY TOTAL NO OF F4451020
00161 0 20000 4 00443 2090MPYLCNTR,4 TIMES IN LOOP F4451030
00162−0 60000 0 00040 2091STQMPYR2 STORE NO IN MPYR2 F4451040
00163 0 56000 0 00037 2092LDQMPYR1 MULTIPLY COUNTER BY NO TIME DO IS F4451050
00164 0 20000 4 00444 2093MPYLCNTR+1,4 STARTED TO GET COUNTER OUT F4451060
00165−0 60000 0 00037 2094STQMPYR1 F4451070
00166 0 50000 0 00037 2095CLAMPYR1 F4451080
00167 0 34000 0 00034 2096CASRTMSK TEST FOR COUNTER OVERFLOW F4451090
00170 0 50000 0 00034 2097CLARTMSK COUNTER HAS OVERFLOWED-USE MAX. NO.F4451100
00171 0 76100 0 00000 2098NOP NO OVERFLOW F4451110
00172 0 62100 1 07770 2099STATRATBL−3,1 STORE NO TIMES OUT IN COUNTER OUT F4451120
00173 0 50200 0 00037 2100CLSMPYR1 F4451130
00174 0 40000 0 00040 2101ADDMPYR2 F4451140
00175 0 34000 0 00034 2102CASRTMSK TEST FOR COUNTER OVERFLOW F4451150
00176 0 50000 0 00034 2103CLARTMSK COUNTER HAS OVERFLOWED-USE MAX. NO.F4451160
00177 0 76100 0 00000 2104NOP NO OVERFLOW F4451170
00200 0 62100 1 07772 2105STATRATBL−1,1 STORE NO TIMES BACK IN COUNT. BACK F4451180
00201 1 77777 4 00202 2106TXI9TXL,4,−1 DECREASE LEVEL COUNTER FOR DO DONE F4451190
00202 3 00000 4 00146 21079TXL TXH6LXD,4,0 IS THIS THE END OF OUTER DO F4451200
D00203−3 00000 2 00100 21089TSTND TXLLOOKDO,2 YES, IS IT END OF PROBLEM F4451210
00204 0 76200 0 00221 2109READ6 RDSSYSTAP F4451220
00205 0 02000 0 00004 2110TRARDFORT YES, GO TO NEXT ROUTINE F4451230
2111 F4451240
2112 F4451250
2113 SECTION 4 - PART 6 OF 6 F4460010
2114 F4460020
2115 FORTRAN EDITOR INFORMATION F4460030
2116 MASTER RECORD CARD = F0730000 F4460040
2117 ENTRY POINT = 100 F4460050
2118 FIRST LOCATION = 33 F4460060
2119 LAST LOCATION = 1021 F4460070
2120 F4460080
2121 F4460090
00033 2122ORG27 F4460100
2123 CONSTANTS AND VARIABLES F4460110
00033 0 00000 0 00000 2124LOR F4460120
00034 0 00000 0 77777 2125LC1 −1 F4460130
00035 0 00000 0 00005 2126L5 5 F4460140
00036 0 00000 0 00006 2127L6R 6 F4460150
00037 0 00000 0 00010 2128L8 8 F4460160
00040 0 00000 0 03773 2129L2043 2043 F4460170
00041 0 00000 0 03777 2130L2047 2047 F4460180
00042 0 00000 0 04000 2131L2048 2048 F4460190
00043 0 00001 0 00000 2132LD1R 0,0,1 F4460200
00044+000000777770 2133STMSK OCT777770 F4460210
00045+000000777777 2134TAGMK OCT777777 F4460220
00046+000033000000 2135TMARK OCT33000000 F4460230
00047+077777000000 2136DECMKR OCT77777000000 F4460240
00050+037777037777 2137MASK OCT37777037777 F4460250
00051+377770000000 213814ONES OCT377770000000 F4460260
00052 0 00017 0 00000 2139LZTAG 0,0,ZTAG F4460270
2140 OPERATION CODES OF TYPES OF REFERENCES F4460280
00053+036721000000 2141OCT36721000000 LXA F4460290
00054+036731000000 2142OCT36731000000 TXI F4460300
00055+033167000000 2143OCT33167000000 TIX F4460310
00056+036747000000 2144OCT36747000000 LXP F4460320
00057+042524000000 2145OCT42524000000 DED F4460330
00060+036724000000 2146OCT36724000000 LXD F4460340
00061+072167000000 2147OCT72167000000 PAX F4460350
00062+072467000000 2148LCOPS OCT72467000000 PDX F4460360
00063 0 00000 0 02260 2149BBLYR BBLADD F4460370
00064 0 00000 0 00000 2150BBTY F4460380
00065 0 76600 0 00301 2151LA301 WDR1 F4460390
00066 0 02000 0 00575 2152LTRND TRANDDR F4460400
00067 0 00000 0 00000 2153ERAS1R F4460410
00070 0 00000 0 00000 2154ERAS2R F4460420
00071 0 00000 0 00001 2155IINBX 1 F4460430
00072 0 00000 0 00000 2156INSX F4460440
00073−0 00001 0 00000 2157TGPBOX MZE0,0,1 F4460450
00074 0 00114 0 00000 2158BLKNO 0,0,76 F4460460
00075 0 00000 0 00000 2159BLKSIZ LENGTH OF BLOCK TO BE STORED F4460470
00076 0 00000 0 00000 2160LENGTH TOTAL LENGTH OF TABLE LEFT TO STOREF4460480
00077 0 00674 0 00000 2161BLKMAX 0,0,BBSIZE F4460490
2162 F4460500
2163THIS ROUTINE ALTERS THE TRATBL INTO SUCC TABLE AND PUTS IT F4460510
2164ON THE DRUM. F4460520
00100 0 77200 0 00224 2165START REWINSTTP F4460530
00101 0 50000 0 07777 2166CLATTBOX= F4460540
00102−0 73400 1 00000 2167PDX0,1 PUT LENGTH OF TABLE IN INDEX F4460550
00103 3 00000 1 00111 2168TXHISPRED,1,0 F4460560
00104 0 60100 0 07776 2169NOPRED STOPREDBX F4460570
00105 0 60100 0 07775 2170STOSUCCBX THERE IS NO PRED TABLE-SPACE OVER F4460660
00106 0 62100 0 02412 2171STABBTABL−1 F4460590
00107 0 62100 0 02413 2172STABBTABL F4460600
00110 0 02000 0 00234 2173TRARDBBL F4460610
00111 0 77100 0 00023 2174ISPRED ARS19 F4460620
00112 0 62100 0 00126 2175STATSX+1 STORE LENGTH FOR PUTTING SUCCESSOR F4460630
00113 0 62100 0 00217 2176STATSX2+1 AND PREDECESSOR TABLES ON DRUM F4460640
00114 0 56000 1 07774 21771LDQ LDQPRED+1,1 MOVE SUCCESSOR ADDRESS FROM DECR. F4460650
00115 0 50000 1 07774 2178CLAPRED+1,1 TO ADDRESS PART OF ENTRY WORD F4460660
00116 0 76700 0 00003 2179ALS3 AND COUNTER FROM ADDRESS TO F4460670
00117−0 76300 0 00022 2180LGL18 BITS 1-14 F4460680
00120−0 76000 0 00001 2181PBT TEST FOR OVERFLOW F4460690
00121 0 02000 0 00123 2182TRA1STO NO OVERFLOW F4460700
00122−0 50100 0 00051 2183ORA14ONES OVERFLOW-ENTER HIGHEST POSSIBLE NO F4460710
00123 0 60100 1 07775 21841STO STOPRED+2,1 STORE SHIFTED ENTRY F4460720
00124 2 00002 1 00114 2185TIX1LDQ,1,2 DO NEXT ENTRY F4460730
00125 0 07400 4 00633 2186TSX TSXDRUM.J,4 F4460740
A00126 0 00000 0 00000 2187HTR NUMBER OF ENTRIES ON TABLE F4460750
00127 0 00000 0 07773 2188HTRPRED CORE MEMORY ADDRESS OF LAST WORD F4460760
00130 0 00000 0 00000 2189HTR0 DRUM ADDRESS AUTOMATICALLY SET FOR F4460770
2190 NEXT TRY F4460780
00131 0 50000 0 00130 2191CLATSX+3 F4460790
00132 0 60100 0 00221 2192STOTSX2+3 F4460800
00133 0 60100 0 07775 2193STOSUCCBX F4460810
2194 F4460820
2195THIS PUTS THE BASIC BLOCK NUMBER OF THE PREDECESSOR IN THE F4460830
2196TRA TABLE F4460840
00134 0 50000 0 07774 2197CLABBOX.= F4460850
00135 0 40200 0 00043 2198SUBLD1R F4460860
00136 0 62200 0 00151 2199STDNBOXR F4460870
00137 0 53400 2 00033 2200LXALOR,2 F4460880
00140−0 53400 1 00043 2201LXDLD1R,1 ONE INTO INDEX A F4460890
00141 0 50000 2 02412 2202CLABB CLABBTABL−1,2 GET ADDRESS IN TRA TABLE F4460900
00142 0 62200 0 00145 2203STDTXBB F4460910
00143−0 75400 2 00000 2204PXD0,2 PUT PRED NO IN TRA ENTRY F4460920
00144 0 77100 0 00022 2205ARS18 F4460930
D00145 3 00000 1 00150 2206TXBB TXHNBOXR−1,1 TEST FOR END 0F TABLE F4460940
00146 0 62100 1 07774 22071STD STAPRED+1,1 F4460950
00147 1 00002 1 00145 2208TXITXBB,1,2 SET FOR NEXT TRA F4460960
00150 1 00001 2 00151 2209TXINBOXR,2,1 SET FOR NEXT BASIC BLOCK F4460970
D00151−3 00000 2 00141 2210NBOXR TXLCLABB,2 TEST FOR LAST BB F4460980
2211 F4460990
2212THIS PART SORTS THE ALTERED SUCCESSOR TABLE INTO THE F4461000
2213PREDECESSOR TABLE F4461010
00152 1 77775 1 00153 22142TXI TXI2TXI+1,1,−3 LAST ADDRESS IN PRED INTO I R A F4461020
00153−3 00000 1 00177 2215TXLPRDBB,1,0 TEST FOR ONLY ONE ENTRY IN PRED F4461030
00154−0 75400 1 00000 2216LXABB PXD0,1 F4461040
00155−0 73400 2 00000 2217PDX0,2 F4461050
00156 0 50000 1 07772 2218CLAPRED−1,1 TAKE ENTRIES FOR COMPARISON F4461060
00157 0 56000 1 07773 2219LDQPRED,1 FIND LARGEST ELEMENT LEFT IN TABLE F4461070
00160 0 34000 2 07774 22202CAS CASPRED+1,2 F4461080
00161 0 02000 0 00173 2221TRA2TIX F4461090
00162 0 02000 0 00173 2222TRA2TIX F4461100
00163−0 60000 0 00067 2223STQERAS1R F4461110
00164 0 56000 2 07774 2224LDQPRED+1,2 EXCHANGE ENTRIES-- STORAGE IS GREATF4461120
00165 0 60100 2 07774 2225STOPRED+1,2 F4461130
00166 0 50000 0 00067 2226CLAERAS1R F4461140
00167−0 60000 0 00067 2227STQERAS1R F4461150
00170 0 56000 2 07775 2228LDQPRED+2,2 F4461160
00171 0 60100 2 07775 2229STOPRED+2,2 F4461170
00172 0 50000 0 00067 2230CLAERAS1R F4461180
00173 2 00002 2 00160 22312TIX TIX2CAS,2,2 TEST FOR END OF TABLE F4461190
00174 0 60100 1 07772 2232STOPRED−1,1 THIS IS LARGEST ENTRY NOT SORTED F4461200
00175−0 60000 1 07773 2233STQPRED,1 YET, STORE AND CONTINUE SORT F4461210
00176 2 00002 1 00154 2234TIXLXABB,1,2 HAS ENTIRE TABLE BEEN SORTED YET F4461220
2235 F4461230
2236THIS PUTS THE ADORESSES OF ENTRIES IN THE PREDECESSOR TABLE F4461240
2237INTO THE BASIC BLOCK TABLE F4461250
00177−0 53400 2 07774 2238PRDBB LXDBBOX.=,2 PUT LAST BB ADDRESS INTO IR B F4461260
00200−0 53400 5 07777 2239LXDTTBOX=,5 PUT LAST PRED ADDRESS INTO A AND C F4461270
00201−0 75400 4 00000 22403PXD PXD0,4 NEW BB F4461280
00202 0 77100 0 00022 2241ARS18 F4461290
00203 0 62100 2 02413 2242STABBTABL,2 PUT PRED ADDR IN BB TABLE F4461300
00204 1 77776 4 00205 22433TXI TXI3TXI+1,4,−2 SET FOR NEXT ENTRY IN BB TABLE F4461310
00205−2 00001 2 00214 2244TNX3ENO,2,1 IS THIS THE END OF THE TABLE F4461320
00206−0 75400 2 00000 2245PXD0,2 PUT NEW BB NO IN AC FOR COMPARISON F4461330
00207 0 34000 4 07774 2246CAS CASPRED+1,4 COMPARE BB NO IN PRED TABLE TO BB F4461340
00210 0 02000 0 00201 2247TRA3PXD NO IN AC F4461350
00211 0 76100 0 00000 2248NOP EQUALITY NOT POSSIBLE F4461360
00212 2 00002 4 00207 2249TIXCAS,4,2 F4461370
00213 0 62100 0 02412 2250STABBTABL−1 PUT ZERO AS PRED FOR BB1 F4461380
00214−0 75400 0 00000 22513ENO PXD0,0 PUT ZERO AS PRED ADDR INTO TABLE F4461390
00215 0 62100 0 02413 2252STABBTABL FOR BB ZERO F4461400
00216 0 07400 4 00633 2253TSX2 TSXDRUM.J,4 PUT PRED TABLE ON DRUM F4461410
A00217 0 00000 0 00000 2254HTR F4461420
00220 0 00000 0 07773 2255HTRPRED CORE MEMORY ADDRESS OF LAST WORD F4461430
A00221 0 00000 0 00000 2256HTR --DRUM ADDRESS F4461440
00222 0 50000 0 00221 2257CLATSX2+3 F4461450
00223 0 60100 0 07776 2258STOPREDBX SAVE DRUM ADDRESS F4461460
2259 F4461470
2260THIS ROUTINE ADJUSTS THE ADDRESSES IN THE BB TABLE TO F4461480
2261CORRESPOND TO ONE WORD ENTRIES IN THE PREDECESSOR AND F4461490
2262SUCCESSOR TABLES F4461500
00224−0 53400 2 07774 2263SHFTBB LXDBBOX.=,2 SET INDEX F4461510
00225 1 00001 2 00226 2264TXICAL4,2,1 F4461520
00226−0 50000 2 02414 2265CAL4 CALBBTABL+1,2 F4461530
00227−0 32000 0 00050 2266ANAMASK F4461540
00230 0 77100 0 00001 2267ARS1 , F4461550
00231 0 62200 2 02414 2268STDBBTABL+1,2 F4461560
00232 0 62100 2 02414 2269STABBTABL+1,2 F4461570
00233 2 00001 2 00226 2270TIXCAL4,2,1 F4461580
2271 F4461590
2272 THIS ROUTINE READS THE BASIC BLOCK LIST FROM THE DRUM F4461600
00234 0 50000 0 00032 2273RDBBL CLAMINUS4 INITIALIZE ERROR BOX F4461610
00235 0 02000 0 00260 2274TRASKIP14+3 F4461620
00236 0 76200 0 00303 2275BRDS RDSBBLDRM F4461630
00237 0 46000 0 00063 2276LDABBLYR F4461640
00240−0 53400 3 07774 2277LXDBBOX.=,3 F4461650
00241 0 70000 1 07773 2278BCPY CPYBBLIST,1 F4461660
00242 2 00001 1 00241 2279TIXBCPY,1,1 F4461670
00243 0 70000 0 07773 2280CPYBBLIST F4461680
00244 0 70000 0 00067 2281CPYERAS1R F4461690
00245 0 36100 2 07773 2282BACL ACLBBLIST,2 F4461700
00246 2 00001 2 00245 2283TIXBACL,2,1 F4461710
00247 0 36100 0 07773 2284ACLBBLIST F4461720
00250 0 60200 0 00070 2285SLWERAS2R F4461730
00251 0 50000 0 00070 2286CLAERAS2R F4461740
00252 0 40200 0 00067 2287SUBERAS1R F4461750
00253 0 10000 0 00263 2288TZETAGPAS F4461760
00254 0 50000 0 00030 2289CLAERRBX F4461770
00255−0 12000 0 00257 2290SKIP14 TMISKIP14+2 HAVE 5 TRIES AT READING BEEN MADE F4461780
00256 0 07400 4 00004 2291TSXRDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE F4461790
00257 0 40000 0 00031 2292ADDLA1 NO, TRY READING AGAIN F4461800
00260 0 60100 0 00030 2293STOERRBX F4461810
T00261−0 75400 0 00000 2294PXD F4461820
00262 0 02000 0 00236 2295TRABRDS F4461830
2296 F4461840
2297THIS ROUTINE COMPILES THE LIST OF TAGGED INSTRUCTIONS F4461850
00263 0 53400 2 00033 2298TAGPAS LXALOR,2 INITIALIZE INDEX REGISTERS F4461860
00264 0 53400 4 00031 2299LXALA1,4 F4461870
00265 0 50000 0 00032 2300RDINSR CLAMINUS4 INITIALIZE ERROR BOX F4461880
00266 0 60100 0 00030 2301STOERRBX F4461890
00267 0 53400 1 00045 2302LXATAGMK,1 F4461900
00270 0 76200 0 00224 2303RDSIN RDSINSTTP F4461910
00271 0 70000 1 06457 2304CPYN CPYINSTR−1,1 COPY BLOCK F4461920
00272 1 00001 1 00271 2305TXICPYN,1,1 F4461930
00273 0 02000 0 00375 2306TRAOUTR END OF FILE-EXIT F4461940
00274−0 76000 0 00012 2307ENDRC RTT F4461950
00275 0 02000 0 00301 2308TRAERRORR F4461960
00276−0 63400 1 00363 23091ALXD SXDLZINS,1 STORE LENGTH OF RECORD TO COMPARE F4461970
00277 0 53400 1 00033 2310LXALOR,1 CONTINUE TAG PASS F4461980
00300 0 02000 0 00364 2311TRALZINS+1 F4461990
00301 0 50000 0 00030 2312ERRORR CLAERRBX F4462000
00302−0 12000 0 00304 2313SKIP15 TMISKIP15+2 HAVE 5 TRIES AT READING BEEN MADE F4462010
00303 0 07400 4 00004 2314TSXRDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE F4462020
00304 0 40000 0 00031 2315ADDLA1 NO, TRY READING AGAIN F4462030
00305 0 60100 0 00030 2316STOERRBX F4462040
00306 0 76400 0 00224 2317BSTINSTTP F4462050
00307 0 02000 0 00267 2318TRARDSIN−1 TRY AGAIN TO READ IN RECORD. F4462060
00310−0 75400 4 00000 2319INTBB PXD0,4 PUT TAG ADDR IN BB LIST F4462070
00311 0 40000 0 00073 2320ADDTGPBOX F4462080
00312 0 77100 0 00022 2321ARS18 F4462090
00313−0 50100 0 00046 2322ORATMARK F4462100
00314 0 60100 2 06314 2323STOBBTAGS,2 F4462110
00315 1 00001 2 00316 2324BGTXI TXIBGTXI+1,2,1 F4462120
00316−0 50000 1 06455 2325CALINST.R−3,1 IS THIS THE INSTRUCTION TAGGED F4462130
00317−0 32000 0 00044 2326ANASTMSK F4462140
00320 0 10000 0 00362 2327TZETXINS NO F4462150
00321 0 50000 1 06455 2328CLAINST.R−3,1 YES, F4462160
00322−0 32000 0 00045 2329ANATAGMK F4462170
00323−0 76000 0 00003 2330SSM AND A MINUS FOR 1ST INST IN A BASICF4462180
00324 0 60100 4 06500 2331STOTAG,4 BLOCK INTO TAG LIST F4462190
00325−0 63400 2 00067 2332TSTOP SXDERAS1R,2 SAVE INDEX F4462200
00326 0 53400 2 00037 2333LXAL8,2 SET FOR A COMPARISON F4462210
00327 0 50000 1 06457 2334CLAINST.R−1,1 COMPARE OP CODE OF INSTRUCTION F4462220
00330−0 32000 0 00047 2335ANADECMKR F4462230
00331 0 40200 2 00063 2336SUB SUBLCOPS+1,2 OP CODES OF TYPES 0F TAGGED INSTRS F4462240
00332 0 10000 2 00346 2337TZETROPS+1,2 TRANSFER WHEN FOUND F4462250
00333 0 40000 2 00063 2338ADDLCOPS+1,2 RESTORE ORIGINAL CODE TO AC F4462260
00334 2 00001 2 00331 2339TIXSUB,2,1 TRY NEXT COMPARISON F4462270
00335 1 00005 2 00346 2340LD5 TXISTOCD,2,5 NOT FOUND-IS PASSIVE -WANT 6 IN IRBF4462280
2341GET CODE FOR TYPE OF INSTRUCTION INTO INDEX F4462290
00336 1 77771 2 00346 2342TXISTOCD,2,−7 LXA--INDEX HAS 8, WANT 1 F4462300
00337 1 77776 2 00346 2343TXISTOCD,2,−2 TXI--INDEX HAS 7, WANT 5 F4462310
00340 1 77777 2 00346 2344TXISTOCD,2,−1 TIX--INDEX HAS 6, WANT 5 F4462320
00341 1 77775 2 00346 2345TXISTOCD,2,−3 LXP--INDEX HAS 5, WANT 2 F4462330
00342 1 77777 2 00346 2346TXISTOCD,2,−1 DED--INDEX HAS 4, WANT 3 F4462340
00343 1 77776 2 00346 2347TXISTOCD,2,−2 LXD--INDEX HAS 3, WANT 1 F4462350
00344 1 77777 2 00346 2348TXISTOCD,2,−1 PAX--INDEX HAS 2, WANT 1 F4462360
00345 0 02000 0 00346 2349TROPS TRASTOCD PDX--INDEX HAS 1, WANT 1 F4462370
00346−0 75400 2 00000 2350STOCD PXD0,2 STORE CODE FOR TYPE OF OPERATION INF4462380
00347 0 62200 4 06500 2351STDTAG,4 TAG LIST F4462390
00350−0 53400 2 00067 2352LXDERAS1R,2 F4462400
00351 1 00001 4 00352 2353TXITSTTG,4,1 SET FOR NEXT WORD IN TAG LIST F4462410
00352−2 00017 4 00362 2354TSTTG TNXTXINS,4,ZTAG TEST FOR END OF BLOCK F4462420
00353 0 76600 0 00223 2355WRTAG WRSTAGTAP END OF BLOCK--WRITE ON TAPE F4462430
00354 0 70000 4 06500 2356TGCPY CPYTAG,4 F4462440
00355 1 00001 4 00356 2357TGTXI TXITGTXI+1,4,1 F4462450
00356−2 00017 4 00354 2358TNXTGCPY,4,ZTAG F4462460
00357 0 50000 0 00073 2359CLATGPBOX F4462470
00360 0 40000 0 00052 2360ADDLZTAG F4462480
00361 0 60100 0 00073 2361TGSTO STOTGPBOX F4462490
00362 1 00004 1 00363 2362TXINS TXITXINS+1,1,4 F4462500
00363 2 00144 1 00265 2363LZINS TIXRDINSR,1,ZINSTR F4462510
00364 0 50000 1 06460 2364CLAINSTR,1 IS THIS THE BEG OF A BASIC BLOCK F4462520
00365 0 40200 2 07773 2365SUBBBLIST,2 F4462530
00366 0 10000 0 00310 2366TZEINTBB YES F4462540
00367 0 50000 1 06455 2367CLAINST.R−3,1 NO, IS IT TAGGED F4462550
00370−0 32000 0 00044 2368ANASTMSK F4462560
00371 0 10000 0 00362 2369TZETXINS NO F4462570
00372 0 50000 1 06455 2370CLAINST.R−3,1 YES F4462580
00373−0 32000 0 00045 2371ANATAGMK F4462590
00374 0 02000 0 00324 2372TRATSTOP−1 F4462600
00375−0 75400 4 00000 2373OUTR PXD0,4 F4462610
00376 0 40000 0 00073 2374ADDTGPBOX F4462620
00377 0 77100 0 00022 2375ARS18 F4462630
00400−0 50100 0 00046 2376ORATMARK F4462640
00401 0 60100 2 06314 2377STOBBTAGS,2 F4462650
00402 3 00001 4 00405 2378TXHWRTG2,4,1 F4462660
00403 0 50000 0 00073 2379CLATGPBOX F4462670
00404 0 12000 0 00411 2380TPL TPLFINAL F4462680
00405 0 50000 0 00404 2381WRTG2 CLATPL F4462690
00406 0 60100 0 00361 2382STOTGSTO F4462700
00407 0 53400 4 00031 2383LXALA1,4 F4462710
00410 0 02000 0 00353 2384TRAWRTAG F4462720
00411 0 50000 0 07774 2385FINAL CLABBOX.= F4462730
00412 0 40000 0 00043 2386ADDLD1R F4462740
00413 0 60100 0 07774 2387STOBBOX.= F4462750
00414 0 50000 0 07776 2388CLAPREDBX F4462760
00415 0 60100 0 07777 2389STOBBTBOX F4462770
00416 0 50000 0 00047 2390CLADECMKR WANT TXL TO HAVE BLK-1 F4462780
00417 0 62200 0 00545 2391STDTXLBBT LATER F4462790
00420 0 76600 0 00333 2392IOD F4462800
00421 0 56000 0 00077 2393LDQBLKMAX COMPUTE NO. OF BB IN BLOCK F4462810
T00422−0 75400 0 00000 2394PXD F4462820
00423 0 22100 0 00036 2395DVPL6R F4462830
00424 0 76000 0 00012 2396DCT F4462840
00425 0 07400 4 00004 2397TSXRDFORT,4 BAD DIVIDE F4462850
00426−0 60000 0 00074 2398STQBLKNO F4462860
00427 0 56000 0 07774 2399LDQBBOX.= F4462870
00430 0 20000 0 00036 2400MPYL6R F4462880
00431−0 60000 0 00076 2401STQLENGTH STORE TOTAL LNGTH OF TABLE FOR DRUMF4462890
00432−0 53400 1 00031 2402LXDLA1,1 F4462900
00433 0 50000 0 07777 2403NXTBL CLABBTBOX COMPUTE WRS ADDRESSES F4462910
00434−0 32000 0 00041 2404ANAL2047 F4462920
00435 0 62100 0 00064 2405STABBTY STORE DRUM ADDRESSES F4462930
00436 0 50000 0 07777 2406CLABBTBOX F4462940
00437 0 77100 0 00013 2407ARS11 F4462950
00440 0 40000 0 00065 2408ADDLA301 F4462960
00441 0 62100 0 00525 2409STAWRS1 F4462970
00442 0 40000 0 00031 2410ADDLA1 F4462980
00443 0 62100 0 00576 2411STANDWRS F4462990
00444 0 50000 0 00076 2412CLALENGTH F4463000
00445 0 10000 0 00606 2413TZEOUT2 F4463010
00446−0 12000 0 00606 2414TMIOUT2 FORM NEW TABLE LENGTH F4463020
00447 0 40200 0 00077 2415SUBBLKMAX F4463030
00450 0 60100 0 00076 2416STOLENGTH IS THIS A FULL BLOCK F4463040
00451−0 12000 0 00453 2417TMILSTBLR NO, PUT IN ACTUAL LENGTH F4463050
T00452−0 75400 0 00000 2418PXD YES, PUT IN FULL BLOCK LENGTH F4463060
00453 0 40000 0 00077 2419LSTBLR ADDBLKMAX FORM NEXT DRUM ADDRESS F4463070
00454 0 77100 0 00022 2420ARS18 F4463080
00455 0 40000 0 07777 2421ADDBBTBOX F4463090
00456 0 40000 0 00031 2422ADDLA1 F4463100
00457 0 60100 0 07777 2423STOBBTBOX F4463110
00460 0 53400 4 00071 2424LXAIINBX,4 RESTORE INSTRUCTION REPLACED FOR F4463120
00461 0 50000 0 00072 2425CLAINSX END OF PREVIOUS BLOCK F4463130
00462 0 60100 4 00555 2426STOCPY1A,4 F4463140
00463−0 50000 0 00545 2427CALTXLBBT COMPUTE NEW TEST DECREMENTS FOR F4463150
00464 0 40000 0 00074 2428ADDBLKNO TESTING END OF BLOCK--THE VALUE F4463160
00465 0 62200 0 00545 2429STDTXLBBT IS THE NUMBER OF THE LAST BASIC F4463170
00466 0 62200 0 00551 2430STDTXL2 BLOCK WHICH WILL FIT IN THIS BLKF4463180
00467 0 62200 0 00570 2431STDTXL3 F4463190
00470−0 32000 0 00047 2432ANADECMKR F4463200
00471 0 40000 0 00043 2433ADDLD1R IS THIS LARGER THAN THE NUMBER OF F4463210
00472 0 40200 0 07774 2434SUBBBOX.= THE LAST BASIC BLOCK F4463220
00473−0 12000 0 00501 2435TMICOMB NO F4463230
00474 0 50000 0 07774 2436CLABBOX.= YES, TEST DECREMENT SHOULD BE F4463240
00475 0 40200 0 00043 2437SUBLD1R NUMBER OF LAST BB INSTEAD F4463250
00476 0 62200 0 00545 2438STDTXLBBT F4463260
00477 0 62200 0 00551 2439STDTXL2 F4463270
00500 0 62200 0 00570 2440STDTXL3 F4463280
00501 0 50000 0 00041 2441COMB CLAL2047 F4463290
00502 0 40200 0 00064 2442SUBBBTY SET B FOR TEST FOR END OF DRUM F4463300
00503 0 73400 2 00000 2443PAX0,2 NUMBER OF WORDS LEFT ON DRUM INTO BF4463310
00504 0 40000 0 00031 2444ADDLA1 F4463320
00505 0 76500 0 00043 2445LRS35 ARRANGE CONNECTION TO 2ND LOOP F4463330
00506 0 22100 0 00036 2446DVPL6R FIND OUT WHICH OF THE 6 WORDS IN F4463340
2447 AN ENTRY WILL OCCUPY THE LAST F4463350
2448 POSITION ON THE DRUM F4463360
00507 0 76000 0 00012 2449DCT F4463370
00510 0 07400 4 00004 2450TSXRDFORT,4 BAD DIVIDE F4463380
00511 0 40200 0 00031 2451SUBLA1 F4463390
00512−0 12000 0 00604 2452TMIZREM BREAK IS BETWEEN ENTRIES (PUT 5 F4463400
2453 INTO AC) F4463410
00513−0 10000 0 00515 2454TNZFREM MORE THAN ONE WORD FITS (LEAVE F4463420
2455 NO-I IN AC) F4463430
00514 0 50000 0 00034 2456CLALC1 EXACTLY 1 WORD FITS (PUT LC1 IN AC)F4463440
00515 0 76700 0 00001 2457FREM ALS1 GET ADDRESS OF INSTRUCTION TO BE F4463450
00516 0 76000 0 00006 2458COM REPLACED BY TRA TO 2ND LOOP F4463460
00517 0 62100 0 00071 2459STAIINBX SAVE ADDRESS 0F THIS ONE F4463470
00520 0 53400 4 00071 2460LXAIINBX,4 F4463480
00521 0 56000 4 00555 2461LDQCPY1A,4 REPLACE PROPER INSTRUCTION WITH A F4463490
2462 TRANSFER TO TAKE CARE OF END F4463500
2463 OF DRUM SITUATION F4463510
00522 0 50000 0 00066 2464CLALTRND F4463520
00523 0 60100 4 00555 2465STOCPY1A,4 STORE A TRA NDDR F4463530
00524−0 60000 0 00072 2466STQINSX F4463540
A00525 0 76600 0 00000 2467WRS1 WRS SELECT DRUM F4463550
T00526−0 75400 0 00000 2468PXD F4463560
00527−3 00000 2 00600 2469TXLLDA1,2,0 INDEX B HAS NO. OF WORDS LEFT ON F4463570
2470 DRUM, ONLY 1 WORD FITS ON DRUM F4463580
00530−2 00006 2 00573 2471TNXNOBK,2,6 LESS THAN 6 WORDS FIT F4463590
00531 0 46000 0 00064 2472LDABBTY MAIN LOOP FOR STORING BB TABLE F4463600
00532 0 70000 1 02413 2473CPY1R CPYBBTABL,1 WRITE SIX WORDS OF ENTRY F4463610
00533 0 36100 1 02413 2474ACLBBTABL,1 F4463620
00534 0 70000 1 06314 2475CPYBBTAGS,1 F4463630
00535 0 36100 1 06314 2476ACLBBTAGS,1 F4463640
00536 0 70000 0 00033 2477CPYLOR F4463650
00537 0 60200 0 00067 2478SLWERAS1R F4463660
00540 0 70000 0 00033 2479CPYLOR F4463670
00541 1 00001 1 00542 2480TXICPY5,1,1 INCREASE INDEX OF POSITION IN BBT F4463680
00542 0 70000 0 00033 2481CPY5 CPYLOR F4463690
00543−2 00006 2 00550 2482TNXCPY6C,2,6 TEST FOR NEARING END OF DRUM F4463700
00544 0 70000 0 00033 2483CPY6 CPYLOR (LESS THAN 6 WORDS LEFT) F4463710
D00545−3 00000 1 00532 2484TXLBBT TXLCPY1R,1 F4463720
00546 0 70000 0 00067 2485CPYERAS1R WHOLE BLOCK FITS, COPY CHECKSUM F4463730
00547 0 02000 0 00433 2486TRANXTBL F4463740
00550 0 70000 0 00033 2487CPY6C CPYLOR F4463750
00551−3 00000 1 00555 2488TXL2 TXLCPY1A,1,XXXXXX F4463760
00552 0 70000 0 00067 2489CPYERAS1R F4463770
00553 0 02000 0 00433 2490TRANXTBL F4463780
A00554 0 00000 0 00000 2491DUMM HTR USED IN SWITCHING AT END OF BLOCK F4463790
2492ONE OF THE FOLLOWING INSTRUCTIONS IS ALWAYS REPLACED BY F4463800
2493TRANSFER TO SECOND DRUM. F4463810
00555 0 70000 1 02413 2494CPY1A CPYBBTABL,1 F4463820
00556 0 36100 1 02413 2495ACLBBTABL,1 F4463830
00557 0 70000 1 06314 2496CPY2A CPYBBTAGS,1 F4463840
00560 0 36100 1 06314 2497ACLBBTAGS,1 F4463850
00561 0 70000 0 00033 2498CPY3A CPYLOR F4463860
00562 0 60200 0 00067 2499SLWERAS1R F4463870
00563 0 70000 0 00033 2500CPY4A CPYLOR F4463880
00564 1 00001 1 00565 2501TXICPY5A,1,1 F4463890
00565 0 70000 0 00033 2502CPY5A CPYLOR F4463900
00566 0 76100 0 00000 2503NOP F4463910
00567 0 70000 0 00033 2504CPY6A CPYLOR F4463920
00570−3 00000 1 00601 2505TXL3 TXLCPY1B,1,XXXXXX F4463930
00571 0 70000 0 00067 2506CPY7A CPYERAS1R F4463940
00572 0 02000 0 00433 2507TRANXTBL F4463950
00573 0 46000 0 00064 2508NOBK LDABBTY F4463960
00574 0 02000 0 00555 2509TRACPY1A F4463970
00575 0 53400 2 00042 2510NDDR LXAL2048,2 SELECT 2ND DRUM F4463980
A00576 0 76600 0 00000 2511NDWRS WRS F4463990
00577 0 02000 4 00532 2512TRACPY1R,4 F4464000
00600 0 46000 0 00064 2513LDA1 LDABBTY F4464010
00601 0 70000 1 02413 2514CPY1B CPYBBTABL,1 F4464020
00602−0 53400 4 00603 2515LXDLMLE,4 PRESET RETURN TO MAIN LOOP F4464030
00603 1 77777 0 00575 2516LMLE TXINDDR,0,−1 F4464040
00604 0 50000 0 00035 2517ZREM CLAL5 IF DRUM ENDS WITH LAST WORD IN AN F4464050
00605 0 02000 0 00515 2518TRAFREM ENTRY F4464060
2519 F4464070
2520 THIS ROUTINE WRITES BBLIST ON TAPE 3. F4464080
00606 0 77000 0 00223 2521OUT2 WEFBLT F4464090
00607−0 53400 1 07774 2522LXDBBOX.=,1 F4464100
00610 0 50000 0 07774 2523CLABBOX.= F4464110
00611 0 77100 0 00022 2524ARS18 F4464120
00612 0 60100 0 07774 2525STOBBOX.= F4464130
00613−0 53400 2 00616 2526LXDWBL2,2 F4464140
00614 0 76600 0 00223 2527WRSBLT F4464150
00615 0 70000 2 07774 2528WBL1 CPYBBOX.=,2 WRITE BB LIST F4464160
00616 1 00001 2 00617 2529WBL2 TXIWBL2+1,2,1 F4464170
00617 2 00001 1 00615 2530TIXWBL1,1,1 F4464180
00620 0 76400 0 00223 2531BSTBLT F4464190
00621 0 76400 0 00223 2532BSTBLT F4464200
00622 0 76400 0 00223 2533BSTBLT F4464210
00623 0 76200 0 00223 2534RDSBLT F4464220
00624 0 53400 1 00032 2535LXAMINUS4,1 MOVES KEYS FOR SECTION 5 IN F4464230
00625 0 50000 1 10000 2536KEYS CLA4096,1 8-1-4-1 SYSTEM, DOES NOTHING IN F4464240
00626 0 60100 1 20000 2537STO8192,1 4-1-4-1 SYSTEM. F4464250
00627 2 00001 1 00625 2538TIXKEYS,1,1 F4464260
00630 0 76200 0 00221 2539RDSSYSTAP F4464270
00631 0 02000 0 00004 2540TRARDFORT F4464280
2541 F4464290
2542THIS DRUM SUBROUTINE TRANSFERS A TABLE TO THE DRUM,TABLE IS F4464300
2543BACKWARDS IN CM AND STORED EVERY OTHER WORD. GOES FORWARD ON F4464310
2544DRUM. CALLING SEQUENCE IS, F4464320
2545 TSX DRUM,4 F4464330
2546 HTR N N IS NUMBER OF ENTRIES IN THE TABLE F4464340
2547 HTR A A IS CM ADDRESS OF LAST ENTRY IN F4464350
2548 TABLE F4464360
2549 HTR D D IS DRUM ADDRESS,0-8191 F4464370
2550UPON RETURN, NEXT AVAILABLE DRUM ADDRESS HAS REPLACED THE F4464380
2551HTR D F4464390
2552A CHECK SUM IS PUT AFTER EVERY B WORDS,SEE THE NEXT CARD. F4464400
2553A MUST BE GREATER THAN 1,N GETS REPLACED BY 0 F4464410
00632 0 00000 0 00215 2554GP1..J HTRBBBB.J ADDRESS HAS B. F4464420
00633 0 50000 4 00002 2555DRUM.J CLA2,4 SET ADDRESSES DEPENDENT ON INITIAL F4464430
00634 0 62100 0 00664 2556STAG7...J TABLE ADDRESS IN CORES F4464440
00635 0 62100 0 00757 2557STAG22..J F4464450
00636 0 62100 0 00762 2558STAG17..J F4464460
00637 0 62100 0 00753 2559STAG33..J F4464470
00640 0 40200 0 01012 2560SUBTWOA.J F4464480
00641 0 62100 0 00760 2561STAG14..J F4464490
00642−0 53400 1 01013 2562G1...J LXDGK6..J,1 INITIALIZE INDEX 0F POSITION IN F4464500
00643−0 63400 1 00666 2563SXDG8...J,1 TABLE. F4464510
00644 0 50000 4 00001 2564G2...J CLA1,4 FORM N-B F4464520
00645 0 40200 0 00632 2565SUBGP1..J F4464530
00646−0 12000 0 00733 2566TMIG3...J IS N LARGER THAN B F4464540
00647 0 60100 4 00001 2567STO1,4 YES STORE NEW N F4464550
00650 0 50000 0 00632 2568CLAGP1..J PREPARE TO TRANSFER B WORDS F4464560
00651 0 10000 4 00004 2569G4...J TZE4,4 IF NO WORDS LEFT,RETURN F4464570
00652 0 60100 0 01015 2570STOGV2..J F4464580
00653−0 53400 1 00666 2571LXDG8...J,1 CURRENT INDEX TO A F4464590
00654 1 00002 1 00655 2572G5...J TXIG5...J+1,1,2 UP IT,IT LAGS BEHIND F4464600
00655−0 63400 1 01016 2573SXDGV3..J,1 F4464610
00656 0 76700 0 00023 2574ALS19 F4464620
00657 0 40200 0 00666 2575SUBG8...J THE TXL IS NEGATIVE F4464630
00660−0 73400 2 00000 2576PDX0,2 F4464640
00661−0 63400 2 00666 2577SXDG8...J,2 SET NEW END TEST F4464650
00662 0 50000 0 01014 2578CLAZERO.J F4464660
00663 1 00002 1 00664 2579G6...J TXIG6...J+1,1,2 CHECK F4464670
00664 0 36100 1 00000 2580G7...J ACLTABLEJ,1 F4464680
00665 3 07775 2 00667 2581TXHG31..J,2,4093 SUM. F4464690
00666−3 00000 1 00663 2582G8...J TXLG6...J,1,SET..J F4464700
00667 0 60200 0 01017 2583G31..J SLWGV4..J STORE CHECK SUM F4464710
00670 0 50000 4 00003 2584CLA3,4 SPACE LEFT ON DRUM, NEGATIVE F4464720
00671−0 32000 0 01004 2585ANAGK1..J F4464730
00672 0 40200 0 01005 2586SUBGK2..J F4464740
00673 0 40000 0 01015 2587ADDGV2..J WILL BLOCK FIT F4464750
00674−0 12000 0 00721 2588TMIG9...J F4464760
00675 0 60100 0 01021 2589G20..J STOGV6..J NO,STO. AMOUNT LEFT OVER F4464770
00676 0 40200 0 01015 2590SUBGV2..J F4464780
00677 0 76000 0 00003 2591SSP IN AC IS DRUM SPACE F4464790
00700 0 60100 0 01015 2592STOGV2..J F4464800
00701 0 76700 0 00023 2593ALS19 F4464810
00702 0 40000 0 01016 2594ADDGV3..J FORM INITIALIZING INDEX F4464820
00703−0 73400 2 00000 2595PDX0,2 FOR 2ND HALF F4464830
00704−0 53400 1 01016 2596LXDGV3..J,1 LOAD BEFORE STORING BACK F4464840
00705−0 63400 2 01016 2597SXDGV3..J,2 F4464850
00706 1 77776 2 00707 2598G30..J TXIG30..J+1,2,−2 END TEST IS 2 LESS F4464860
00707−0 63400 2 00763 2599SXDG23..J,2 F4464870
00710 0 50000 0 01007 2600CLAGK4..J DRUM SELECTION ROUTINE F4464880
00711 0 07400 2 00770 2601TSXG11..J,2 ALS0 STORES SWITCH F4464890
00712 0 02000 0 00744 2602TRAG15..J F4464900
00713 0 50000 4 00003 2603G24..J CLA3,4 F4464910
00714 0 40200 0 01010 2604SUBONEA.J F4464920
00715 0 60100 4 00003 2605STO3,4 SET BLOCK LENGTH TO NO. OF F4464930
00716 0 50000 0 01021 2606CLAGV6..J WORDS LEFT. F4464940
00717 0 60100 0 01015 2607STOGV2..J F4464950
00720 0 02000 0 00737 2608TRAG10..J F4464960
00721 0 40000 0 01010 2609G9...J ADDONEA.J DOES SUM CHECK FIT TOO F4464970
00722−0 12000 0 00737 2610TMIG10..J F4464980
00723 0 50000 0 01006 2611G19..J CLAGK3..J NO F4464990
00724 0 07400 2 00770 2612TSXG11..J,2 F4465000
00725 0 40000 0 01010 2613ADDONEA.J ARRANGE TO PUT CK SUM F4465010
00726 0 62100 0 00730 2614STAG25..J ON NEXT DRUM F4465020
00727 0 02000 0 00741 2615TRAG12..J F4465030
00730 0 76600 0 00000 2616G25..J WRSSET..J F4465040
00731 0 70000 0 01017 2617G26..J CPYGV4..J COPY CHECK SUM. F4465050
00732 0 02000 0 00644 2618TRAG2...J F4465060
00733 0 56000 0 01014 2619G3...J LDQZERO.J RECORD THAT THERE ARE NO WORDS LEFTF4465070
00734 0 50000 4 00001 2620CLA1,4 F4465080
00735−0 60000 4 00001 2621STQ1,4 F4465090
00736 0 02000 0 00651 2622TRAG4...J F4465100
00737 0 50000 0 00731 2623G10..J CLAG26..J SUM CK. FITS TOO F4465110
00740 0 07400 2 00770 2624TSXG11..J,2 F4465120
00741 0 50000 0 00666 2625G12..J CLAG8...J F4465130
00742 0 62200 0 00763 2626STDG23..J SET END TEST F4465140
00743−0 53400 1 01016 2627LXDGV3..J,1 F4465150
00744 0 50000 0 01015 2628G15..J CLAGV2..J F4465160
00745 0 76000 0 00001 2629LBT IS BLOCK LENGTH ODD F4465170
00746 0 02000 0 00766 2630TRAG13..J NO F4465180
00747 0 56000 0 01010 2631LDQONEA.J F4465190
00750 0 04000 0 00755 2632TLQG32..J IS IT EQUAL TO ONE F4465200
00751 0 46000 0 01020 2633LDAGV5..J YES, TRANSFER THE SINGLE WORD F4465210
00752 1 00002 1 00753 2634G34..J TXIG34..J+1,1,2 F4465220
00753 0 70000 1 00000 2635G33..J CPYTABLEJ,1 F4465230
00754 0 02000 0 00764 2636TRAG18..J F4465240
00755 0 46000 0 01020 2637G32..J LDAGV5..J COPY WORDS 0NTO THE DRUM F4465250
00756 1 00002 1 00757 2638G27..J TXIG27..J+1,1,2 F4465260
00757 0 70000 1 00000 2639G22..J CPYTABLEJ,1 F4465270
00760 0 70000 1 77776 2640G14..J CPYTABLEJ−2,1 F4465280
00761 1 00004 1 00762 2641G16..J TXIG16..J+1,1,4 F4465290
00762 0 70000 1 00000 2642G17..J CPYTABLEJ,1 F4465300
D00763−3 00000 1 00760 2643G23..J TXLG14..J,1 F4465310
00764 0 70000 0 01017 2644G18..J CPYGV4..J OR TRA G25 OR TRA G24 F4465320
00765 0 02000 0 00644 2645TRAG2...J F4465330
00766 0 46000 0 01020 2646G13..J LDAGV5..J F4465340
00767 0 02000 0 00760 2647TRAG14..J F4465350
2648 F4465360
2649DRUM SELECTION SUBROUTINE,COMPUTES NEW DRUM ADDRESS F4465370
00770 0 60100 0 00764 2650G11..J STOG18..J STORE SWITCH WORD. F4465380
00771 0 50000 4 00003 2651CLA3,4 PRESERVE DRUM ADDRESS F4465390
00772 0 60100 0 01020 2652STOGV5..J F4465400
00773 0 40000 0 01015 2653ADDGV2..J FORM THE NEW DRUM ADDRESS F4465410
00774 0 40000 0 01010 2654ADDONEA.J F4465420
00775 0 60100 4 00003 2655STO3,4 F4465430
00776 0 50000 0 01020 2656CLAGV5..J SELECT THE DRUM F4465440
00777 0 77100 0 00013 2657ARS11 F4465450
01000 0 40000 0 01011 2658ADDGK5..J F4465460
01001 0 60100 0 01002 2659STOG21..J F4465470
A01002 0 76600 0 00000 2660G21..J WRS F4465480
01003 0 02000 2 00001 2661TRA1,2 F4465490
2662 F4465500
2663FOLLOWING ARE THE CONSTANTS USED F4465510
01004 0 00000 0 03777 2664GK1..J 2047 F4465520
01005 0 00000 0 04000 2665GK2..J 2048 F4465530
01006 0 02000 0 00730 2666GK3..J TRAG25..J F4465540
01007 0 02000 0 00713 2667GK4..J TRAG24..J F4465550
01010 0 00000 0 00001 2668ONEA.J 1 F4465560
01011 0 76600 0 00301 2669GK5..J WDR1 F4465570
01012 0 00000 0 00002 2670TWOA.J 2 F4465580
01013 0 77774 0 00000 2671GK6..J 0,0,−4 F4465590
01014 0 00000 0 00000 2672ZERO.J F4465600
2673VARIABLES OR TEMPORARY STORAGE F4465610
01015 0 00000 0 00000 2674GV2..J LENGTH OF BLOCK F4465620
01016 0 00000 0 00000 2675GV3..J INDEX OF LAST WORD IN BLOCK F4465630
01017 0 00000 0 00000 2676GV4..J SUM CHECK F4465640
01020 0 00000 0 00000 2677GV5..J OLD DRUM ADDRESS F4465650
01021 0 00000 0 00000 2678GV6..J REMAINING BLOCK LENGTH F4465660
00000 2679TABLEJ SYN0 F4465670
00000 2680SET..J SYN0 F4465680
2681 F4465690
2682 F4465700