Symbols

␣␣␣␣DO = 1339

Definition
02473 1274 DO SYN FORTAG+100 F3B12150

References (9)

00432	0 70000 2 02473	279	M10270	CPY	DO,2 DO REC. READ 100 WDS BEYOND AIL.	F3B02780
00447	0 50000 2 02474	292	M10285	CLA	DO+1,2 TEST CURRENT DO INST AN SXD	F3B02910
00463	0 50000 2 02475	304	M10300	CLA	DO+2,2 SEARCH SXTX TABLE FOR ENTRY	F3B03030
00475	0 60100 2 02475	314		STO	DO+2,2 CURRENT SXD DO INSTR.	F3B03130
00477	0 60100 2 02473	316		STO	DO,2 ZEROS IN DO RECORD BUFFER.	F3B03150
00626	0 50000 2 02473	410	M11010	CLA	DO,2 COMPARE AIL AND DO INTERNAL	F3B04090
00637	0 50000 2 02473	419	M11031	CLA	DO,2 GATHERING 4 WORDS FROM	F3B04180
00661	0 50000 2 02473	437	M11060	CLA	DO,2 GET NEXT DO INST SAME BLOCK	F3B04360
00700	0 50000 2 02473	452	ERR3	CLA	DO,2 TEST IF BOTH AIL AND DO HAVE SAME FORMULA NO.	F3B04510

␣␣␣0P1 = 3643

Definition
07073 1277 0P1 SYN 3643

References (2)

	01307	0 02000 0 07071	724		TRA	0P1−2 NEW ROUTINE HANDLING ADD. SUBROUTINES	F3B07230
	01311	0 02000 0 07071	726		TRA	0P1−2 NEW ROUTINE HANDLING ADD. SUBROUTINES	F3B07250

␣␣␣3WD = 1232

Definition
02320 0 00000 0 00000 1265 3WD TEHP STORAGE FOR THID WD OF COMPILED INST F3B12060

References (2)

	01612	0 60100 0 02320	932		STO	3WD	F3B09310
	01703	0 00000 0 02320	989		HTR	3WD A	F3B09880

␣␣␣4WD = 1233

Definition
02321 0 00000 0 00000 1266 4WD TEHP STORAGE FORF0URTH WD OF COMPILED INST F3B12070

References (2)

	01614	0 60100 0 02321	934		STO	4WD	F3B09330
	01704	0 00000 0 02321	990		HTR	4WD	F3B09890

␣␣␣AIL = 1239

Definition
02327 1273 AIL SYN FORTAG F3B12140

References (43)

00345	0 70000 1 02327	226	M10230	CPY	AIL,1 AIL REC. READ OVER FORTAG FILE.	F3B02250
00360	−0 50000 1 02327	237	PAT1	CAL	AIL,1 A FORTRAN FCN, A CLOSED SUBRTN,	F3B02360
00361	−0 32000 1 02330	238		ANA	AIL+1,1 IS IDENTIFIED BY 4 WORDS	F3B02370
00362	−0 32000 1 02331	239		ANA	AIL+2,1 FILLED WITH 1 BITS.	F3B02380
00363	−0 32000 1 02332	240		ANA	AIL+3,1 TEST IF AIL ENTRY IS ALL 1 BITS,	F3B02390
00400	0 50000 1 02327	253	PAT3	CLA	AIL,1 TEST IF 0PEN SUBRTN END,	F3B02520
00405	−0 50000 1 02327	258		CAL	AIL,1 TEST IF CURRENT ENTRY	F3B02570
00406	−0 32000 1 02330	259		ANA	AIL+1,1 AN OPEN SUBRTN END OR	F3B02580
00412	−0 32000 1 02331	263	OUT24	ANA	AIL+2,1 CONTINUATION OF TEST IF	F3B02620
00413	−0 32000 1 02332	264		ANA	AIL+3,1 CURRENT ENTRY F FCN OR	F3B02630
00576	−0 50000 1 02327	381	PAT14	CAL	AIL,1 TEST FOR FORTRAN FCN. AIL	F3B03800
00577	−0 32000 1 02330	382		ANA	AIL+1,1 WORD ALL ONES IF A FORTRAN FCN.	F3B03810
00600	−0 32000 1 02331	383		ANA	AIL+2,1	F3B03820
00601	−0 32000 1 02332	384		ANA	AIL+3,1	F3B03830
00670	0 50000 1 02327	444		CLA	AIL,1 TEST IF CURRENT AIL OPER RDS	F3B04430
00673	0 50000 1 02327	447		CLA	AIL,1 TEST IF CURRENT AIL OPER WRS	F3B04460
00705	−0 60200 1 02327	457		ORS	AIL,1 FOR SEC. 4 PURP0SES.	F3B04560
00744	0 50000 1 02327	489	ERR2	CLA	AIL,1 TEST IF FORTRAN FCN DEFINED IN MIDDLE OF	F3B04880
00755	0 50000 1 02327	499	M12010	CLA	AIL,1 MOVING 4 WORDS OF INSTR	F3B04980
01001	0 50000 1 02327	519	M12040	CLA	AIL,1 NEXT AIL INST SAME BLOCK AS	F3B05180
01006	0 50000 1 02327	524		CLA	AIL,1 TEST IF OPEN SRTN. IF NOT,	F3805230
01073	0 50000 1 02327	579	M13005	CLA	AIL,1 SECOND WORD	F3B05780
01103	0 50000 1 02327	587		CLA	AIL,1 INFO ON LOC OF ARG	F3B05860
01106	0 50000 1 02327	590		CLA	AIL,1 REL ADD AND TAG, IF ANY.	F3B05890
01125	0 50000 1 02327	606		CLA	AIL,1 VALUE OF EXPONENT, 3RD WORD	F3B06050
01150	0 50000 1 02327	625	M13080	CLA	AIL,1 VALUE OF EXPONENT	F3B06240
01212	0 50000 1 02327	661	M13200	CLA	AIL,1 TEST TO SEE IF EXPONENT	F3B06600
01230	0 50000 1 02327	676	M13250	CLA	AIL,1 VALUE OF EXPONENT AND TEST TO	F3806750
01305	0 50000 1 02327	722		CLA	AIL,1 COMPARE SPECIAL OP. FUNCTION NAME	F3B07210
01350	0 50000 1 02327	758	M13555	CLA	AIL,1 REL ADD AND TAG, IF ANY,	F3B07570
01415	0 50000 1 02327	799	M13605	CLA	AIL,1 REL ADD AND TAG, IF ANY,	F3B07980
01514	0 50000 1 02325	868	M13681	CLA	AIL−2,1 TEST INTERNAL FORMULA NO,	F3B08670
01517	0 50000 1 02327	871		CLA	AIL,1 LOCATION OF ARGUMENT	F3B08700
01522	0 50000 1 02327	874	M13685	CLA	AIL,1 REL ADD + TAG OF	F3B08730
01601	0 50000 1 02327	922	M13730	CLA	AIL,1 REL ADD AND TAG 0,	F3B09210
01621	0 50000 1 02327	939	M13745	CLA	AIL,1 REL ADD AND TAG OF	F3B09380
01717	0 50000 1 02327	1003	M13780	CLA	AIL,1 END MARK, IF ANY, TO ENDT, THIS WILL	F3B10020
01722	0 50000 1 02327	1006	M13785	CLA	AIL,1 SYMBOLIC ADDRESS OF ITH ARG, I EQUAL 2,...,N	F3B10050
01725	0 50000 1 02327	1009	M13790	CLA	AIL,1 REL ADD AND TAG OF	F3B10080
02066	0 50000 1 02327	1108	M13905	CLA	AIL,1 REL ADD AND TAG, IF ANY,	F3B11070
02133	0 50000 1 02327	1148	M13960	CLA	AIL,1 REL ADD AND TAG, IF ANY, TO	F3B11480
02156	0 50000 1 02325	1167	ERR1	CLA	AIL−2,1 INT. FORMULA NO. OF ARGURMENT	F3B11670
02161	0 50000 1 02327	1170		CLA	AIL,1 LOCATION OF ARGUMENT	F3B11700

␣␣␣CIB = 1439

Definition
02637 1275 CIB SYN FORTAG+200 F3B12160

References (3)

00541	0 70000 1 02637	352	M10910	CPY	CIB,1	F3B03510
00717	0 70000 1 02637	468	CIT01	CPY	CIB,1 25 COMPILED INSTR. ON TP 3.	F3B04670
00731	0 60100 2 02637	478		STO	CIB,2 M1CW, M1CW+1, M1CW+2	F3B04770

␣␣␣E1C = 1228

Definition
02314 0 00000 0 00000 1261 E1C CELL FOR SAVING MQ F3B12020

References (2)

	00707	−0 60000 0 02314	460	CIT00	STQ	E1C E1C CELL FOR SAVING MQ.	F3B04590
	00740	0 56000 0 02314	485		LDQ	E1C RESTORE MQ, IRA, IRB.	F3B04840

␣␣␣E2C = 1229

Definition
02315 0 00000 0 00000 1262 E2C CELL FOR SAVING IRA F3B12030

References (2)

	00710	−0 63400 1 02315	461		SXD	E2C,1 E2C CELL FOR SAVING IRA.	F3B04600
	00741	−0 53400 1 02315	486		LXD	E2C,1 IRA GIVES AIL REC POSITION.	F3804850

␣␣␣E3C = 1230

Definition
02316 0 00000 0 00000 1263 E3C CELL FOR SAVING IRB F3B12040

References (2)

	00711	−0 63400 2 02316	462		SXD	E3C,2 E3C CELL FOR SAVING IRB.	F3B04610
	00742	−0 53400 2 02316	487		LXD	E3C,2 IRB GIVES DO REC POSITION.	F3B04860

␣␣␣M1D = 1193

Definition
02251 672122626060 1226 M1D BCD 7XABS␣␣ABS␣␣␣XINT␣␣INT␣␣␣XFIX␣␣FLOAT␣XMOD␣␣ F3B11820
Reference
01306 0 34000 4 02273 723 M13503 CAS M1D+18,4 IS THIRD WORD OF 1ST AIL ENTRY F3807220

␣␣␣OUT = 397

Definition
00615 1 77777 2 00616 396 OUT TXI OUT1,2,−1 MAKE IRB VALUE ZERO. F3B039S0
Reference
00605 −0 10000 0 00615 388 TNZ OUT ENTRY IS NOT A FORTRAN FCN. F3B03870

␣␣BB0X = 1231

Definition
02317 0 00000 0 00000 1264 BB0X 2S COMP OF NO OF WORDS ALREADY ENTERED IN BLOCK F3B12050

References (4)

00537	−0 53400 2 02317	350	LXD	BB0X,2 IN CIB BUFFER FROM CIT.	F3B03490
00573	0 60100 0 02317	378	STO	BB0X KEEPS COUNT OF RECORDS IN CIB BUFFER.	F3B03770
00712	−0 53400 2 02317	463	LXD	BB0X,2 2S COMP NO. ALREADY IN BLOCK.	F3B04620
00737	−0 63400 2 02317	484	SXD	BB0X,2 2S COMPL NO. WORDS ALREADY IN BLOCK.	F3B04830

␣␣CBOX = 1218

Definition
02302 0 00000 0 00000 1251 CBOX IRC DURING CHTG TABLE SEARCH, SXTX TABLE SEARCH F3B11920

References (4)

00445	−0 63400 4 02302	290		SXD	CBOX,4 SAVE IRC FOR TSX TEST	F3B02890
00453	−0 53400 4 02302	296		LXD	CBOX,4 IN BLOCK EXAMINED FOR SXD.	F3B02950
01020	−0 63400 4 02302	535		SXD	CBOX,4 IRC HAS TSX RTN ADDR TO M12030.	F3B05340
01027	−0 53400 4 02302	542	M12510	LXD	CBOX,4 IRC HAS TSX RTN ADDR TO	F3B05410

␣␣CHTG = 3041

Definition
05741 1272 CHTG BSS 600 F3B12130

References (8)

00221	0 50000 4 05741	138	CLA	CHTG,4 SEARCH ROUTINE AT M12500.	F3B01370
00227	0 50000 4 05741	144	CLA	CHTG,4 TO PREVENT SEARCHING ENTIRE	F3B01430
00263	0 60100 2 05741	174	STO	CHTG,2 WITH FORTAG AND UCHTG TAG	F3B01730
00265	0 60100 2 05742	176	STO	CHTG+1,2 TABLE EXHAUSTED.	F3B01750
01022	0 50000 4 05741	537	CLA	CHTG,4 CMP INT FMLA NO CUR AIL INSTR	F3B05360
01034	0 50000 4 05741	547	CLA	CHTG,4 GET TAG1 FROM 2ND WORD OF	F3B05460
01055	0 50000 4 05741	564	CLA	CHTG,4 DECREMENT VALUE IN M12530 TO	F3B05630
01063	0 50000 4 05741	570	CLA	CHTG,4 ROUTINE ENTERED WHEN AIL	F3B05690

␣␣ENDT = 1227

Definition
02313 0 00000 0 00000 1260 ENDT IND APPEARANCE OF END MARK IN MAX,MIN ROUTINES F3B12010

References (3)

01720	0 60100 0 02313	1004	STO	ENDT BE ALL 1S IF END.	F3B10030
01757	0 50000 0 02313	1035	CLA	ENDT I=N	F3B10340
02044	0 50000 0 02313	1089	CLA	ENDT I=N	F3B10880

␣␣ERAS = 3039

Definition
05737 1271 ERAS BSS 2 ORIGEN + SXTX LENGTH, SXTX, CHTG LENGTH F3B12120

References (25)

00032	0 70000 0 05737	13		CPY	ERAS THE 7TH RECORD OF 5TH FILE WHICH IS	F3B00120
00035	−0 53400 1 05737	16		LXD	ERAS,1 COUNT FILE. TAPE 2 BACKSPACED NO.	F3B00150
00100	0 70000 0 05737	54	M10055	CPY	ERAS TAPE 4 T0 GET T0 FIRST RECORD	F3800530
00112	0 70000 0 05737	64		CPY	ERAS	F3B00630
00115	0 53400 2 05737	67		LXA	ERAS,2 RECORD COUNT, A EOF MARK, AND	F3B00660
00132	0 70000 0 05737	81		CPY	ERAS TABLE LENGTH TO ERAS	F3B00800
00133	0 70000 0 05740	82		CPY	ERAS+1 CHECK SUM INTO ERAS+1.	F3B00810
00134	−0 50000 0 05737	83		CAL	ERAS CHECK DRUM READ	F3B00820
00135	0 40200 0 05740	84		SUB	ERAS+1 TEST IF TABLE LENGTH READ	F3B00830
00142	0 50000 0 05737	89	PEC03	CLA	ERAS TEST IF THERE ARE ANY ENTRIES	F3B00880
00165	0 50000 0 05740	109		CLA	ERAS+1 PUT UCHTG TABLE LENGTH IN ADDRESS AND	F3B01080
00201	0 60100 0 05737	121		STO	ERAS MOVE TAG OF CURRENT FORTAG ENTRY	F3B01200
00205	0 34000 0 05737	125		CAS	ERAS TEST FORTAG INTERNAL	F3B01240
00277	0 70000 0 05737	187		CPY	ERAS 1ST WORD IS ORIGIN + 2+ TAB LENGTH.	F3801860
00300	0 70000 0 05740	188		CPY	ERAS+1 2ND DR WD IS CK SUM FOR 1ST WD.	F3801870
00301	−0 50000 0 05737	189		CAL	ERAS SXDTX TABLE ENTRY HAS 3 WORDS.	F3801880
00302	0 40200 0 05740	190		SUB	ERAS+1 THIRD WORD IS CHECK SUM.	F3B01890
00307	0 50000 0 05737	195	RSTO21	CLA	ERAS SUBTRACT ORIGIN+2 FROM FIRST	F3B01040
00364	0 60200 0 05737	241		SLW	ERAS INDICATES SUCCEEDING ENTRIES	F3B02400
00365	0 50000 0 05737	242		CLA	ERAS BEL0NG T0 A FORTRAN FCN AND	F3B02410
00557	0 70000 0 05737	366		CPY	ERAS NEXT FILE AFTER AIL EOF	F3B03650
00564	0 53400 2 05737	371		LXA	ERAS,2	F3B03700
00602	0 60200 0 05737	385		SLW	ERAS	F3B03840
00603	0 50000 0 05737	386		CLA	ERAS	F3B03850
00620	0 70000 0 05737	399	OUT14	CPY	ERAS AIL ENTRIES WHICH ARE	F3B03980

␣␣ERR1 = 1134

Definition
02156 0 50000 1 02325 1167 ERR1 CLA AIL−2,1 INT. FORMULA NO. OF ARGURMENT F3B11670

␣␣ERR2 = 484

Definition
00744 0 50000 1 02327 489 ERR2 CLA AIL,1 TEST IF FORTRAN FCN DEFINED IN MIDDLE OF F3B04880

References (2)

	00630	0 07400 4 00744	412	M11015	TSX	ERR2,4 TEST FOR FORTRAN FCNS.	F3B04110
	00751	0 07400 4 00744	495	M12000	TSX	ERR2,4 TEST 1ST AIL WORD ALL ONES.	F3B04940

␣␣ERR3 = 448

Definition
00700 0 50000 2 02473 452 ERR3 CLA DO,2 TEST IF BOTH AIL AND DO HAVE SAME FORMULA NO. F3B04510
Reference
00677 1 00001 1 00700 451 M11080 TXI ERR3,1,1 T0 TEST IF SPACING TAPE. F3B04500

␣␣M1CW = 1234

Definition
02322 1267 M1CW BSS 4 FOUR WORD INST SPACE FOR COMPILING F3B12080

References (120)

00640	0 60100 4 02326	420		STO	M1CW+4,4 DO REC BUFFER AND PLACING	F3B04190
00644	0 00000 0 02322	424		HTR	M1CW CALLING SEQ FOR LOCATIONS	F3B04230
00645	0 00000 0 02323	425		HTR	M1CW+1 OF 4 COMPILED WORDS.	F3B04240
00646	0 00000 0 02324	426		HTR	M1CW+2	F3B04250
00647	0 00000 0 02325	427		HTR	M1CW+3	F3B04260
00756	0 60100 4 02326	500		STO	M1CW+4,4 INTO COMPILED WORD 8UFFER.	F3804990
00761	0 50000 0 02325	503	M12021	CLA	M1CW+3 TEST IF TAGGED INSTR, BITS 24-26.	F3B05020
00770	0 00000 0 02322	510		HTR	M1CW CALLING SEQ FOR LOCATIONS	F3B05090
00771	0 00000 0 02323	511		HTR	M1CW+1 OF 4 COMPILED WORDS.	F3B05100
00772	0 00000 0 02324	512		HTR	M1CW+2	F3B05110
00773	0 00000 0 02325	513		HTR	M1CW+3	F3B05120
01016	0 50000 0 02325	533	M12500	CLA	M1CW+3 SYMBOLIC TAG IN BINARY BITS	F3805320
01041	0 62100 0 02325	552		STA	M1CW+3 REPLACE CUR AIL TAG WITH CHTG T2.	F3B05510
01071	0 60100 0 02322	577		STO	M1CW INT FMLA NO, IF ANY, TO H1CW	F3B05760
01104	0 60100 0 02324	588		STO	M1CW+2 TO M1CW+2	F3B05870
01107	0 60100 0 02325	591		STO	M1CW+3 TO M1CW+3	F3B05900
01117	0 50000 0 02324	599		CLA	M1CW+2 LOCATION OF ARGUMENT	F3B05980
01122	0 50000 0 02324	602		CLA	M1CW+2 LOCATION AGAIN	F3B06010
01131	0 60100 0 02323	610		STO	M1CW+1 AND PLACE IT IN OP CODE	F3B06090
01135	0 50000 0 02325	614	M13060	CLA	M1CW+3 EXPONENT GREATER THAN 1	F3B06130
01144	0 00000 0 02322	621		HTR	M1CW LOCATION OF INTERNAL FORMULA NO	F3B06200
01146	0 00000 0 02324	623		HTR	M1CW+2 LOCATION OF ARGUMENT	F3B06220
01147	0 00000 0 02325	624		HTR	M1CW+3 TAG	F3B06230
01162	0 00000 0 02324	636		HTR	M1CW+2 OF THE ARGUMENT HAS ALREADY	F3B06350
01163	0 00000 0 02325	637		HTR	M1CW+3 BEEN CONSIDERED, AND TH LOOP	F3B06360
01202	0 00000 0 02324	652		HTR	M1CW+2 PAIR OF INSTRUCTIONS	F3B06510
01203	0 00000 0 02325	653		HTR	M1CW+3	F3B06520
01221	0 60100 0 02324	668		STO	M1CW+2 STORE VALUE OF EXPONENT IN INSTR. AREA	F3B06670
01223	0 00000 0 02322	670		HTR	M1CW CALLING SEQUENCE FOR ARG-	F3B06690
01225	0 00000 0 02324	672		HTR	M1CW+2 A STO INSTRUCTION, AND CONTINUE	F3B06710
01226	0 00000 0 02325	673		HTR	M1CW+3 AS IF IT WERE STORED INITIALLY	F3B06720
01234	0 00000 0 02322	680		HTR	M1CW ARGUMENT IS RETAINED AS THE	F3B06790
01251	0 60100 0 02324	693		STO	M1CW+2 PLACE 010000000000IN LOCATION POS.	F3B06920
01253	0 00000 0 02322	695		HTR	M1CW ZERO	F3B06940
01255	0 00000 0 02324	697		HTR	M1CW+2 AND THEN TRANSFER TO DETER-	F3B06960
01256	0 00000 0 02325	698		HTR	M1CW+3 MINE THE VALUE OF THE	F3B06970
01263	0 00000 0 02324	704		HTR	M1CW+2 INSTRUCTION, AND A LRS INSTR-	F3B07030
01264	0 00000 0 02325	705		HTR	M1CW+3 UCTION.	F3B07040
01301	0 00000 0 02324	718		HTR	M1CW+2	F3B07170
01302	0 00000 0 02325	719		HTR	M1CW+3	F3B07180
01346	0 60100 0 02324	756		STO	M1CW+2 TO M1CW+2	F3B07550
01351	0 60100 0 02325	759		STO	M1CW+3 TO M1CW+3	F3B07580
01352	0 50000 0 02324	760		CLA	M1CW+2 LOCATION OF ARGUMENT	F3B07590
01355	0 50000 0 02324	763		CLA	M1CW+2 LOCATION OF ARGUMENT	F3B07620
01360	0 50000 0 02325	767		CLA	M1CW+3 RELATIVE ADDRESS AND TAG (IF ANY)	F3B07660
01367	0 00000 0 02322	774		HTR	M1CW INTERNAL FMLA NO.	F3B07730
01371	0 00000 0 02324	776		HTR	M1CW+2	F3B07750
01372	0 00000 0 02325	777		HTR	M1CW+3	F3B07760
01402	0 60100 0 02324	787		STO	M1CW+2 LOCATION OF ARG	F3B07860
01404	0 00000 0 02322	789		HTR	M1CW INT. FMLA NO.	F3B07880
01406	0 00000 0 02324	791		HTR	M1CW+2	F3B07900
01407	0 00000 0 02325	792		HTR	M1CW+3	F3B07910
01413	0 60100 0 02324	797		STO	M1CW+2 TO M1CW+2	F3B07960
01416	0 60100 0 02325	800		STO	M1CW+3 TO M1CW+3	F3807990
01417	0 50000 0 02324	801		CLA	M1CW+2 LOCATION OF ARG.	F3B08000
01422	0 50000 0 02324	804		CLA	M1CW+2 LOCATION OF ARG.	F3B08030
01425	0 50000 0 02325	808		CLA	M1CW+3 4TH WORD	F3B08070
01434	0 00000 0 02322	815		HTR	M1CW INT. FMLA NO. IF ANY.	F3B08140
01436	0 00000 0 02324	817		HTR	M1CW+2	F3808160
01437	0 00000 0 02325	818		HTR	M1CW+3	F3B08170
01504	0 60100 0 02324	859		STO	M1CW+2 010000000000	F3B08580
01506	0 00000 0 02322	861		HTR	M1CW INT, FMLA NO.	F3B08600
01510	0 00000 0 02324	863		HTR	M1CW+2	F3B08620
01511	0 00000 0 02325	864		HTR	M1CW+3	F3B08630
01520	0 60100 0 02324	872	RET3	STO	M1CW+2 LOCATION OF ARGUMENT	F3B08710
01523	0 60100 0 02325	875		STO	M1CW+3 FIRST ARG TO M1CW+3	F3B08740
01532	0 50000 0 02325	882	M13700	CLA	M1CW+3 REL. ADDRESS + TAG, IF ANY	F3B08810
01553	0 00000 0 02322	900		HTR	M1CW XMOD.	F3B08990
01562	0 00000 0 02324	907		HTR	M1CW+2 A	F3B09060
01563	0 00000 0 02325	908		HTR	M1CW+3	F3B09070
01572	0 60100 0 02322	915		STO	M1CW INTERNAL FMLA NO.	F3B09140
01574	0 60100 0 02323	917		STO	M1CW+1	F3B09160
01577	0 60100 0 02324	920		STO	M1CW+2 SYMBOLIC ADDRESS OF 2ND ARGUM.	F3B09190
01602	0 60100 0 02325	923		STO	M1CW+3 SECOND ARG TO M1CW+3	F3B09220
01605	0 00000 0 02322	927		HTR	M1CW	F3B09260
01607	0 00000 0 02324	929		HTR	M1CW+2	F3B09280
01610	0 00000 0 02325	930		HTR	M1CW+3	F3B09290
01611	0 50000 0 02324	931		CLA	M1CW+2 SAVE FIRST ARG IN 3RD WORD	F3B09300
01613	0 50000 0 02325	933		CLA	M1CW+3 SAVE REL ADD AND TAG IN 4WD	F3B09320
01617	0 60100 0 02324	937		STO	M1CW+2 SYMBOLIC AD OF 2ND ARG.	F3B09360
01622	0 60100 0 02325	940		STO	M1CW+3 SECOND ARG T0 M1CW+3	F3B09390
01633	0 00000 0 02324	949		HTR	M1CW+2	F3B09480
01634	0 00000 0 02325	950		HTR	M1CW+3	F3B09490
01676	0 00000 0 02324	984		HTR	M1CW+2 B	F3B09830
01677	0 00000 0 02325	985		HTR	M1CW+3	F3B09840
01713	0 00000 0 02322	999		HTR	M1CW	F3B09980
01715	0 00000 0 02324	1001		HTR	M1CW+2 SYMBOLIC ADDRESS OF FIRST ARGUHENT	F3B10000
01716	0 00000 0 02325	1002		HTR	M1CW+3 RELATIVE ADDRESS + TAG, IF ANY	F3B10010
01723	0 60100 0 02324	1007		STO	M1CW+2 TO M1CW+2	F3B10060
01726	0 60100 0 02325	1010		STO	M1CW+3 ITH ARG T0 M1CW+3	F3B10090
01743	0 00000 0 02324	1023		HTR	M1CW+2 ITH ARGUMENT I=2....,N	F3B10220
01744	0 00000 0 02325	1024		HTR	M1CW+3	F3B10230
01755	0 00000 0 02324	1033		HTR	M1CW+2	F3B10320
01756	0 00000 0 02325	1034		HTR	M1CW+3	F3B10330
02020	0 00000 0 02322	1069		HTR	M1CW	F3810680
02022	0 00000 0 02324	1071		HTR	M1CW+2	F3810700
02023	0 00000 0 02325	1072		HTR	M1CW+3	F3B10710
02030	0 00000 0 02324	1077		HTR	M1CW+2	F3810760
02031	0 00000 0 02325	1078		HTR	M1CW+3	F3810770
02042	0 00000 0 02324	1087		HTR	M1CW+2	F3B10860
02043	0 00000 0 02325	1088		HTR	M1CW+3	F3B10870
02064	0 60100 0 02324	1106		STO	M1CW+2 SYMBOLIC LOCATION OF ARGUMENT	F3B11050
02067	0 60100 0 02325	1109		STO	M1CW+3 TO M1CW+3	F3B11080
02070	0 50000 0 02324	1110		CLA	M1CW+2	F3B11090
02073	0 50000 0 02324	1113		CLA	M1CW+2	F3B11120
02076	0 50000 0 02325	1116		CLA	M1CW+3 RELATIVE ADDRESS AND TAG, IF ANY	F3B11150
02105	0 00000 0 02322	1123		HTR	M1CW	F3B11220
02107	0 00000 0 02324	1125		HTR	M1CW+2	F3811240
02110	0 00000 0 02325	1126		HTR	M1CW+3	F3811250
02113	0 60100 0 02324	1131		STO	M1CW+2 SYMBOLIC LOCATION	F3B11300
02115	0 00000 0 02322	1133		HTR	M1CW	F3B11330
02117	0 00000 0 02324	1135		HTR	M1CW+2	F3B11350
02120	0 00000 0 02325	1136		HTR	M1CW+3	F3B11360
02123	0 00000 0 02322	1140		HTR	M1CW	F3B11400
02125	0 00000 0 02324	1142		HTR	M1CW+2	F3B11420
02126	0 00000 0 02325	1143		HTR	M1CW+3	F3B11430
02131	0 60100 0 02324	1146		STO	M1CW+2 SYMBOLIC ADDRESS.	F3B11460
02134	0 60100 0 02325	1149		STO	M1CW+3 M1CW+3	F3B11490
02145	0 00000 0 02324	1158		HTR	M1CW+2	F3B11580
02146	0 00000 0 02325	1159		HTR	M1CW+3	F3B11590

␣␣OUT1 = 398

Definition
00616 −0 63400 2 00411 397 OUT1 SXD PAT5+1,2 DECREMENT ZERO MEANS NO FORTRAN FCNS. F3B03960
Reference
00615 1 77777 2 00616 396 OUT TXI OUT1,2,−1 MAKE IRB VALUE ZERO. F3B039S0

␣␣PAT1 = 240

Definition
00360 −0 50000 1 02327 237 PAT1 CAL AIL,1 A FORTRAN FCN, A CLOSED SUBRTN, F3B02360
Reference
00356 0 10000 0 00360 235 TZE PAT1 ROUTINE TO SKIP OVER FORTRAN FUNCTIONS F3B02340

␣␣PAT2 = 251

Definition
00373 −0 75400 1 00000 248 PAT2 PXD 0,1 COMPARE NO. CURRENT WORD OF F3B02470

References (4)

00402	1 77774 1 00373	255		TXI	PAT2,1,−4 0S IN IST WORD INDICATES F FCN ENTRY	F3B02540
00416	0 10000 0 00372	267		TZE	PAT2−1 ENTRY INDICATES F FCN.	F3B02660
00417	1 77774 1 00373	268		TXI	PAT2,1,−4 OPEN SUBRTN END.	F3B02670
00425	1 77774 1 00373	274	OUT43	TXI	PAT2,1,−4 ADD 4 IRA, AT LEAST 1 INSTR IN ROUTINE	F3B02730

␣␣PAT3 = 256

Definition
00400 0 50000 1 02327 253 PAT3 CLA AIL,1 TEST IF 0PEN SUBRTN END, F3B02520
Reference
00375 0 02000 0 00400 250 TRA PAT3 TO TEST IF LAST INSTR IN REC. F3B02490

␣␣PAT4 = 259

Definition
00403 0 40200 0 02211 256 PAT4 SUB M1CON+17 -377777777777. F3B02550
Reference
00401 −0 10000 0 00403 254 TNZ PAT4 BY 1S IN FIRST WORD OF ENTRY. F3B02530

␣␣PAT5 = 264

Definition
00410 0 53400 4 02170 261 PAT5 LXA M1CON,4 F3B02600

References (5)

00367	−0 10000 0 00410	244		TNZ	PAT5 AIL ENTRY NOT A FORTRAN FCN.	F3B02430
00371	0 62200 0 00411	246		STD	PAT5+1 STORE 1 IN DECRE. F FCN EXISTS.	F3B02450
00404	−0 10000 0 00410	257		TNZ	PAT5 IST DESIRED AIL ENTRY FOUND	F3B02560
00546	−0 53400 2 00411	357	PAT10	LXD	PAT5+1,2 WRITE FORTRAN FCNS AS 2ND FILE ON TAPE 3.	F3B03560
00616	−0 63400 2 00411	397	OUT1	SXD	PAT5+1,2 DECREMENT ZERO MEANS NO FORTRAN FCNS.	F3B03960

␣␣RET1 = 239

Definition
00357 0 02000 4 00002 236 RET1 TRA 2,4 IRC VALUE SET BY TSX RETURN F FCN TEST F3B02350

␣␣RET2 = 452

Definition
00704 0 50000 0 02210 456 RET2 CLA M1CON+16 INCREASE AIL 1ST WD ADDRESS F3B04550
Reference
00702 0 10000 0 00704 454 TZE RET2 LXD BEFORE RDS HAS ZERO LOCATION. F3B04530

␣␣RET3 = 848

Definition
01520 0 60100 0 02324 872 RET3 STO M1CW+2 LOCATION OF ARGUMENT F3B08710

␣␣SXTX = 1539

Definition
03003 1276 SXTX SYN FORTAG+300 F3B12170

References (3)

00327	−0 50000 2 03003	211	CAL	SXTX,2 TEST LOGICAL SUM OF 1ST TWO	F3802100
00330	0 36100 2 03004	212	ACL	SXTX+1,2 WORDS EQUAL CHECK SUM IN 3RD	F3802110
00331	0 40200 2 03005	213	SUB	SXTX+2,2 WORD FOR EACH SXTX ENTRY.	F3802120

␣CCELL = 1226

Definition
02312 0 00000 0 00000 1259 CCELL IND SPECIAL OP ROUTINE F3B12000

References (7)

01312	−0 63400 4 02312	727	M13510	SXD	CCELL,4 IRC TO CCELL	F3B07260
01321	−0 53400 4 02312	734	M13520	LXD	CCELL,4	F3B07330
01541	0 34000 0 02312	889		CAS	CCELL COMPARE TO 10	F3B08880
01545	0 34000 0 02312	893		CAS	CCELL	F3B08920
01707	0 34000 0 02312	994		CAS	CCELL FOR MIN BRANCH	F3B09930
01735	0 34000 0 02312	1017		CAS	CCELL COMPARE FOR MINIMUM BR.	F3B10160
01773	0 50000 0 02312	1047		CLA	CCELL NO. OF FUNCTION FIXED MAX.	F3810460

␣CHTGL = 1212

Definition
02274 0 00000 0 00000 1245 CHTGL 2S COMP OF NO OF WORDS IN CHTG TABLE F3B11860

References (5)

00215	0 60100 0 02274	134	STO	CHTGL SAVE VALUE OF IRB FROM	F3B01330
00225	0 40200 0 02274	142	SUB	CHTGL NUMBER AND RECORD IN	F3B01410
00236	0 60100 0 02274	152	STO	CHTGL WORDS FOR CHANGE TAG TABLE SEARCH	F3B01510
01050	0 40200 0 02274	559	SUB	CHTGL CHTG BLOCK ALL SAME FMLA NO.	F3B05580
01061	0 40200 0 02274	568	SUB	CHTGL CHTG TABLE WHEN TESTING AIL	F3B05670

␣CIT00 = 455

Definition
459 COMPILING ROUTINE,CIT00 F3B04580

00707 −0 60000 0 02314 460 CIT00 STQ E1C E1C CELL FOR SAVING MQ. F3B04590

References (56)

00643	0 07400 4 00707	423		TSX	CIT00,4 TO CIT COMPILING ROUTINE.	F3B04220
00767	0 07400 4 00707	509	M12030	TSX	CIT00,4 TO CIT COMPILING IF TAG UNCHANGED.	F3805080
01143	0 07400 4 00707	620	M13070	TSX	CIT00,4 COMPILE FIRST INST	F3B06190
01157	0 07400 4 00707	633	M13090	TSX	CIT00,4 COMPILE INSTRUCTIONS FOR FIXED ARG.	F3B06320
01164	0 07400 4 00707	638		TSX	CIT00,4 WILL COMPILE N-2 PAIRS OF	F3B06370
01177	0 07400 4 00707	649		TSX	CIT00,4 COMPILE LAST 2 INST FOR	F3B06480
01204	0 07400 4 00707	654		TSX	CIT00,4	F3B06530
01222	0 07400 4 00707	669		TSX	CIT00,4 COMPILE FIRST INST	F3B06680
01233	0 07400 4 00707	679		TSX	CIT00,4 THE VALUE OF THE	F3B06780
01240	0 07400 4 00707	684		TSX	CIT00,4	F3B06830
01252	0 07400 4 00707	694		TSX	CIT00,4 COMPILE FIRST INST	F3B06930
01260	0 07400 4 00707	701	M13300	TSX	CIT00,4	F3B07000
01265	0 07400 4 00707	706		TSX	CIT00,4	F3B07050
01276	0 07400 4 00707	715	M13330	TSX	CIT00,4 COMPILE LAST INST FOR	F3B07140
01366	0 07400 4 00707	773	M13570	TSX	CIT00,4 COMPILE FIRST INST	F3B07720
01373	0 07400 4 00707	779	M13575	TSX	CIT00,4 COMPILE FIRST (SECOND) INST	F3B07780
01403	0 07400 4 00707	788		TSX	CIT00,4 COMPILE FIRST INST	F3B07870
01433	0 07400 4 00707	814	M13620	TSX	CIT00,4 COMPILE FIRST INST	F3B08130
01440	0 07400 4 00707	820	M13630	TSX	CIT00,4 COMPILE FIRST (SECOND) INST	F3808190
01450	0 07400 4 00707	829	M13640	TSX	CIT00,4 COMPILE 4 INST	F3808280
01455	0 07400 4 00707	834		TSX	CIT00,4	F3808330
01462	0 07400 4 00707	839		TSX	CIT00,4 +000001000000	F3B08380
01467	0 07400 4 00707	844		TSX	CIT00,4	F3B08430
01475	0 07400 4 00707	851	M13660	TSX	CIT00,4 COMPILE 1 INST	F3B08500
01505	0 07400 4 00707	860		TSX	CIT00,4	F3B08590
01552	0 07400 4 00707	899		TSX	CIT00,4 COMPILE 3 INST, FOR MULTIVARIATE	F3B08980
01557	0 07400 4 00707	904		TSX	CIT00,4	F3B09030
01564	0 07400 4 00707	909		TSX	CIT00,4	F3B09080
01604	0 07400 4 00707	926	M13735	TSX	CIT00,4 COMPILE FIRST INST	F3B09250
01630	0 07400 4 00707	946	M13755	TSX	CIT00,4 COMPILE LAST 9 INSTS	F3B09450
01635	0 07400 4 00707	951		TSX	CIT00,4	F3B09500
01642	0 07400 4 00707	956		TSX	CIT00,4	F3B09550
01647	0 07400 4 00707	961		TSX	CIT00,4	F3B09600
01654	0 07400 4 00707	966		TSX	CIT00,4	F3B09650
01661	0 07400 4 00707	971		TSX	CIT00,4	F3B09700
01666	0 07400 4 00707	976		TSX	CIT00,4	F3B09750
01673	0 07400 4 00707	981		TSX	CIT00,4	F3B09800
01700	0 07400 4 00707	986		TSX	CIT00,4	F3B09850
01712	0 07400 4 00707	998		TSX	CIT00,4 COMPILE FIRST INST	F3B09970
01740	0 07400 4 00707	1020		TSX	CIT00,4 COMPILE 3 INSTRUCTIONS FOR	F3B10190
01745	0 07400 4 00707	1025		TSX	CIT00,4	F3B10240
01752	0 07400 4 00707	1030		TSX	CIT00,4	F3B10290
01777	0 07400 4 00707	1051		TSX	CIT00,4 COMPILE LAST 3 INSTRUCTIONS	F3B10500
02004	0 07400 4 00707	1056		TSX	CIT00,4	F3B10550
02011	0 07400 4 00707	1061		TSX	CIT00,4	F3B10600
02017	0 07400 4 00707	1068	M13855	TSX	CIT00,4 COMPILE FIRST INST	F3B10670
02025	0 07400 4 00707	1074	M13860	TSX	CIT00,4 COMPILE 3 INST FOR	F3B10730
02032	0 07400 4 00707	1079		TSX	CIT00,4	F3810780
02037	0 07400 4 00707	1084		TSX	CIT00,4	F3B10830
02050	0 07400 4 00707	1093	M13880	TSX	CIT00,4 COMPILE TWO INST.	F3B10920
02055	0 07400 4 00707	1098		TSX	CIT00,4	F3B10970
02104	0 07400 4 00707	1122	M13910	TSX	CIT00,4	F3B11210
02114	0 07400 4 00707	1132		TSX	CIT00,4	F3B11320
02122	0 07400 4 00707	1139	M13950	TSX	CIT00,4	F3B11390
02142	0 07400 4 00707	1155	M13965	TSX	CIT00,4	F3B11550
02147	0 07400 4 00707	1160		TSX	CIT00,4	F3B11600

␣CIT01 = 463

Definition
00717 0 70000 1 02637 468 CIT01 CPY CIB,1 25 COMPILED INSTR. ON TP 3. F3B04670
Reference
00722 3 00001 2 00717 471 CIT03 TXH CIT01,2,1 FINISHED WHEN IRB IS 0. F3B04700

␣CIT02 = 465

Definition
00721 1 00001 2 00722 470 CIT02 TXI CIT03,2,1 WRITING OF CIB BUFFER F3B04690
Reference
00720 1 77777 1 00721 469 TXI CIT02,1,−1 F3B04680

␣CIT03 = 466

Definition
00722 3 00001 2 00717 471 CIT03 TXH CIT01,2,1 FINISHED WHEN IRB IS 0. F3B04700
Reference
00721 1 00001 2 00722 470 CIT02 TXI CIT03,2,1 WRITING OF CIB BUFFER F3B04690

␣CIT04 = 467

Definition
00723 0 53400 1 02174 472 CIT04 LXA M1CON+4,1 ROUTINE TO PLACE 4 WORDS F3B04710

References (2)

	00713	3 77634 2 00723	464		TXH	CIT04,2,−100 TR NO. WDS IN BLOCK LESS 100.	F3B04630
	00714	−3 00000 2 00723	465		TXL	CIT04,2,0 TR NO. WDS IN BLOCK EQUALS 0.	F3B04640

␣CIT05 = 470

Definition
00726 0 50000 4 00000 475 CIT05 CLA 0,4 IRC CONTAINS 2S COMP LOC OF F3B04740

References (4)

00725	0 62100 0 00726	474		STA	CIT05 BUFFER OF 100 WORDS,	F3B04730
00732	0 50000 0 00726	479		CLA	CIT05 AND M1CW+3.	F3B04780
00734	0 62100 0 00726	481		STA	CIT05	F3804800
00736	2 00001 1 00726	483	CIT07	TIX	CIT05,1,1 IRA LOADED WITH 4.	F3B04820

␣CIT06 = 472

Definition
A 00730 0 50000 0 00000 477 CIT06 CLA INSTR ADDRESS SEQUENT1ALLY F3B04760
Reference
00727 0 62100 0 00730 476 STA CIT06 CALLING SEQ LESS 1, F3B04750

␣CIT07 = 478

Definition
00736 2 00001 1 00726 483 CIT07 TIX CIT05,1,1 IRA LOADED WITH 4. F3B04820
Reference
00735 1 77777 2 00736 482 TXI CIT07,2,−1 F3B04810

␣M1ABC = 1165

Definition
02215 234321000000 1198 M1ABC BCD 7CLA000LDQ000MPY000LRS000ALS000STO000LLS000 F3B11760

References (89)

00450	0 40200 0 02246	293		SUB	M1ABC+25 BY EXAMINING 2ND WORD OF INSTR.	F3B02920
00671	0 40200 0 02236	445		SUB	M1ABC+17	F3B04440
00674	0 40200 0 02247	448		SUB	M1ABC+26	F3B04470
01074	0 40200 0 02237	580		SUB	M1ABC+18 FIXED EXP, FLOATING EXP OR SPECIAL OP	F3B05790
01076	0 40000 0 02240	582		ADD	M1ABC+19 TEST FOR FLOATING POINT	F3B05810
01120	0 40200 0 02241	600		SUB	M1ABC+20 SUBTRACT A PLUS SIGN	F3B05990
01123	0 40200 0 02237	603		SUB	M1ABC+18 SUBTRACT ASTERISK	F3B06020
01130	0 50000 0 02215	609		CLA	M1ABC EXP EQUALS 1, COMPILE A CLA INSTR	F3B06080
01145	0 00000 0 02216	622		HTR	M1ABC+1 LOCATION OF LDQ INSTRUCTION	F3B06210
01161	0 00000 0 02217	635		HTR	M1ABC+2 ENTIAL ROUTINE. THE LOCATION	F3B06340
01166	0 00000 0 02220	640		HTR	M1ABC+3	F3B06390
01201	0 00000 0 02217	651		HTR	M1ABC+2 CASE WE MUST COMPILE ONLY ONE	F3B06500
01206	0 00000 0 02221	656		HTR	M1ABC+4	F3B06550
01220	0 50000 0 02242	667	M13210	CLA	M1ABC+21 EXP GREATER THAN 1,0	F3B06660
01224	0 00000 0 02222	671		HTR	M1ABC+5 UMENT IN ACC, COMPILE	F3B06700
01235	0 00000 0 02232	681		HTR	M1ABC+13 ANSWER.	F3B06800
01242	0 00000 0 02223	686		HTR	M1ABC+6	F3B06850
01250	0 50000 0 02242	692	M13265	CLA	M1ABC+21 EXP GREATER 1,	F3B06910
01254	0 00000 0 02224	696		HTR	M1ABC+7 COMPILE A STQ INSTRUCTION	F3B06950
01262	0 00000 0 02225	703		HTR	M1ABC+8 ARGUMENT, COMPILE A FMP	F3B07020
01267	0 00000 0 02220	708		HTR	M1ABC+3	F3B07070
01300	0 00000 0 02225	717		HTR	M1ABC+8	F3B07160
01353	0 40200 0 02241	761		SUB	M1ABC+20 SUBTRACT PLUS SIGN	F3B07600
01356	0 40200 0 02237	764		SUB	M1ABC+18 ONE ASTERISK	F3B07630
01370	0 00000 0 02215	775		HTR	M1ABC COMPILE ACLA INSTRUCTION	F3B07740
01375	0 00000 0 02226	781		HTR	M1ABC+9 SSP	F3B07800
01401	0 50000 0 02242	786	M13580	CLA	M1ABC+21 010000000000	F3B07850
01405	0 00000 0 02224	790		HTR	M1ABC+7 STQ	F3B07890
01420	0 40200 0 02241	802		SUB	M1ABC+20 PLUS SIGN	F3B08010
01423	0 40200 0 02237	805		SUB	M1ABC+18 ASTERISK	F3B08040
01435	0 00000 0 02215	816		HTR	M1ABC CLA INSTRUCTION	F3808150
01442	0 00000 0 02227	822		HTR	M1ABC+10 UFA OP CODE	F3B08210
01443	0 00000 0 02243	823		HTR	M1ABC+22 060000000000	F3808220
01452	0 00000 0 02220	831		HTR	M1ABC+3 LRS INSTRUCTION	F3B08300
01457	0 00000 0 02230	836		HTR	M1ABC+11 ANA	F3B08350
01460	0 00000 0 02243	837		HTR	M1ABC+22 060000000000	F3808360
01464	0 00000 0 02223	841		HTR	M1ABC+6 LLS	F3B08400
01471	0 00000 0 02221	846		HTR	M1ABC+4 ALS	F3B08430
01477	0 00000 0 02231	853		HTR	M1ABC+12 FAD	F3B08520
01500	0 00000 0 02243	854		HTR	M1ABC+22 060000000000	F3B08530
01503	0 50000 0 02242	858	M13670	CLA	M1ABC+21 COMPILE FIRST INST	F3B08570
01507	0 00000 0 02224	862		HTR	M1ABC+7 STQ	F3B08610
01554	0 00000 0 02232	901		HTR	M1ABC+13 CLM	F3B09000
01561	0 00000 0 02216	906		HTR	M1ABC+1 LDQ	F3B09050
01566	0 00000 0 02223	911		HTR	M1ABC+6 LLS	F3B09100
01573	0 50000 0 02233	916		CLA	M1ABC+14 DVP OP CODE	F3B09150
01606	0 00000 0 02250	928		HTR	M1ABC+27 CLS A	F3B09270
01632	0 00000 0 02234	948		HTR	M1ABC+15 FDP B	F3B09470
01637	0 00000 0 02224	953		HTR	M1ABC+7 STQ	F3B09520
01640	0 00000 0 02242	954		HTR	M1ABC+21 010000000000	F3B09530
01644	0 00000 0 02215	958		HTR	M1ABC CLA	F3B09570
01645	0 00000 0 02242	959		HTR	M1ABC+21 010000000000	F3B09580
01651	0 00000 0 02227	963		HTR	M1ABC+10 UFA	F3B09620
01652	0 00000 0 02243	964		HTR	M1ABC+22 060000000000	F3B09630
01656	0 00000 0 02231	968		HTR	M1ABC+12 FAD	F3B09670
01657	0 00000 0 02243	969		HTR	M1ABC+22 060000000000	F3B09680
01663	0 00000 0 02222	973		HTR	M1ABC+5 STO	F3B09720
01664	0 00000 0 02242	974		HTR	M1ABC+21 060000000000	F3B09730
01670	0 00000 0 02216	978		HTR	M1ABC+1 LDQ	F3B09770
01671	0 00000 0 02242	979		HTR	M1ABC+21 060000000000	F3B09780
01675	0 00000 0 02225	983		HTR	M1ABC+8 FMP	F3B09820
01702	0 00000 0 02231	988		HTR	M1ABC+12 FAD	F3B09870
01714	0 00000 0 02215	1000		HTR	M1ABC CLA A1	F3B09990
01742	0 00000 0 02216	1022		HTR	M1ABC+1 LDQ	F3B10210
01747	0 00000 0 02235	1027		HTR	M1ABC+16 TLQ	F3810260
01750	0 00000 0 02245	1028		HTR	M1ABC+24 +170000000000	F3B10270
01754	0 00000 0 02215	1032		HTR	M1ABC CLA AI	F3B10310
02001	0 00000 0 02220	1053		HTR	M1ABC+3 LRS	F3B10520
02006	0 00000 0 02244	1058		HTR	M1ABC+23 ORA	F3B10570
02007	0 00000 0 02243	1059		HTR	M1ABC+22 06000D000000	F3B10580
02013	0 00000 0 02231	1063		HTR	M1ABC+12 FAD	F3B10620
02014	0 00000 0 02243	1064		HTR	M1ABC+22 060000000000	F3B10630
02021	0 00000 0 02216	1070		HTR	M1ABC+1 LDQ A1	F3B10690
02027	0 00000 0 02215	1076		HTR	M1ABC CLA A2....N	F3B10750
02034	0 00000 0 02235	1081		HTR	M1ABC+16 TLQ	F3B10800
02035	0 00000 0 02245	1082		HTR	M1ABC+24 +000002000000	F3B10810
02041	0 00000 0 02216	1086		HTR	M1ABC+1 LDQ A2....N	F3B10850
02052	0 00000 0 02224	1095		HTR	M1ABC+7 STQ	F3B10940
02053	0 00000 0 02242	1096		HTR	M1ABC+21 010000000000	F3B10950
02057	0 00000 0 02215	1100		HTR	M1ABC CLA	F3B10990
02060	0 00000 0 02242	1101		HTR	M1ABC+21 010000000000	F3B11000
02071	0 40200 0 02241	1111		SUB	M1ABC+20 PLUS SIGN	F3B11100
02074	0 40200 0 02237	1114		SUB	M1ABC+18 ASTERISK	F3B11130
02106	0 00000 0 02215	1124		HTR	M1ABC CLA A	F3B11230
02112	0 50000 0 02242	1130	M13920	CLA	M1ABC+21 010000000000	F3B11290
02116	0 00000 0 02224	1134		HTR	M1ABC+7 STQ	F3B11340
02124	0 00000 0 02215	1141		HTR	M1ABC CLA A1	F3B11410
02144	0 00000 0 02216	1157		HTR	M1ABC+1 LDQ A2	F3B11570
02151	0 00000 0 02223	1162		HTR	M1ABC+6 LLS	F3B11620

␣M1CON = 1144

Definition
02170 +000000000000 1177 M1CON DEC 0,1,2,3,4,10B17,1B17,2B17,4B17,8B17,17B17,18B17,35B17 F3B11740

References (150)

00047	0 40200 0 02174	27		SUB	M1CON+4 FORTAG IS TABLE NO. 4.	F3B00260
00055	0 53400 2 02170	33		LXA	M1CON,2 LOAD 0 INTO INDEX REG. B.	F3B00320
00104	0 53400 2 02170	58	M10060	LXA	M1CON,2 LOAD 0 INTO IRB.	F3B00570
00131	0 46000 0 02170	80		LDA	M1CON 0=DR ORG UCHTG - 2	F3B00790
00150	0 46000 0 02172	95		LDA	M1CON+2 DRUM READ ADDRESS OF 2.	F3B00940
00153	0 53400 1 02170	98		LXA	M1CON,1 LOAD 0 INTO IRA.	F3B00970
00164	0 53400 3 02170	108	PEC10	LXA	M1CON,3 LOAD 0 INTO IRA, IRB	F3B01070
00170	0 40000 0 02212	112		ADD	M1CON+18 OBTAIN 25 COMP OF FORTAG	F3B01110
00202	0 53400 4 02170	122		LXA	M1CON,4 INTO DECREMENT AND COMPARE WITH	F3B01210
00204	−0 32000 0 02205	124		ANA	M1CON+13 ENTRIES. IF TAGS ARE EQUAL,	F3B01230
00216	0 50000 0 02170	135		CLA	M1CON EDIT CHG TAG TABLE ROUTINE	F3B01340
00220	0 53400 4 02170	137		LXA	M1CON,4 WORD FOR CHANGE TAG TABLE	F3B01360
00235	0 50000 0 02170	151	PEC20	CLA	M1CON PLACE ZEROS INTO 3 CONTROL	F3B01500
00244	−0 32000 0 02205	159		ANA	M1CON+13 TO TAG1 OF UCHTG ENTRY.	F3B01580
00247	−0 32000 0 02205	162		ANA	M1CON+13 GIVEN IN FIRST WORD OF UCHTG	F3B01610
00276	0 46000 0 02213	186		LDA	M1CON+19 STARTING AT LOCATION 202	F3B01850
00310	0 40200 0 02214	196		SUB	M1CON+20 WORD TO GET SXDTX TABLE LENGTH.	F3801950
00323	0 46000 0 02214	207		LDA	M1CON+20 DRUM 1, LOC. 204.	F3B02060
00326	0 53400 2 02170	210		LXA	M1CON,2	F3B02090
00340	0 53400 4 02170	221	M10200	LXA	M1CON,4 0 IN IRC WHEN SKIPPING CL0SED SRTNS.	F3B02200
00341	0 50000 0 02171	222	M10210	CLA	M1CON+1 STORE 1 IN M1TRC, TP 2.	F3B02210
00344	0 53400 1 02170	225		LXA	M1CON,1 FILE ON TP 2 ALREADY POSITIONED.	F3B02240
00354	0 53400 1 02170	233		LXA	M1CON,1 IN CURRENT AIL REC, USUALLY 100	F3B02320
00366	0 40200 0 02211	243		SUB	M1CON+17 ARE SKIPPED OVER HERE.	F3B02420
00370	0 50000 0 02176	245		CLA	M1CON+6 AIL ENTRY IS A FORTRAN FCN.	F3B02770
00403	0 40200 0 02211	256	PAT4	SUB	M1CON+17 -377777777777.	F3B02550
00410	0 53400 4 02170	261	PAT5	LXA	M1CON,4	F3B02600
00415	−0 32000 0 02211	266		ANA	M1CON+17 -377777777777.	F3B02650
00426	0 50000 0 02171	275	M10250	CLA	M1CON+1 STORE 1 IN M1TRC, TP 2	F3B02740
00431	0 53400 2 02170	278		LXA	M1CON,2 FILE ON TP 2 ALREADY POSITIONED.	F3B02770
00443	0 53400 2 02170	288		LXA	M1CON,2 NO SXTX ENTRIES, GO TO AIL AND DO	F3B02870
00476	0 50000 0 02170	315		CLA	M1CON CHANGE SXD FMLA NO. TO	F3B03140
00572	0 50000 0 02170	377		CLA	M1CON INITIALIZE BBOX WITH 0. BBOX	F3B03760
00604	0 40200 0 02211	387		SUB	M1CON+17	F3B03860
00624	0 53400 1 02170	403	OUT22	LXA	M1CON,1	F3B04020
00631	−0 32000 0 02205	413		ANA	M1CON+13 +077777000000.	F3B04120
00636	0 53400 4 02174	418	M11030	LXA	M1CON+4,4 COMPILE DO INSTR BY	F3B04170
00662	−0 32000 0 02205	438		ANA	M1CON+13 AS PREVIOUS ONE.	F3B04370
00701	−0 32000 0 02206	453		ANA	M1CON+14 DETERMINE IF DO OR AIL INSTR COMPILED FIRST.	F3B04520
00704	0 50000 0 02210	456	RET2	CLA	M1CON+16 INCREASE AIL 1ST WD ADDRESS	F3B04550
00716	0 53400 1 02170	467		LXA	M1CON,1 WORDS WHICH MAKE UP	F3B04660
00723	0 53400 1 02174	472	CIT04	LXA	M1CON+4,1 ROUTINE TO PLACE 4 WORDS	F3B04710
00724	0 50000 0 02171	473		CLA	M1CON+1 OF COMPILED INSTR IN CIB	F3B04720
00733	0 40000 0 02171	480		ADD	M1CON+1	F3B04790
00745	0 34000 0 02211	490		CAS	M1CON+17 PROGRAM, BY FIRST INSTR WORD ALL ONES.	F3B04890
00754	0 53400 4 02174	498		LXA	M1CON+4,4 COMPILE AIL INST BY	F3B04970
00762	−0 32000 0 02207	504	M12022	ANA	M1CON+15 1,2 OR 3 GIVEN IN TAG. ONE	F3B05030
01002	−0 32000 0 02205	520		ANA	M1CON+13 PREVI0US ONE. +077777000000.	F3B05190
01126	0 40200 0 02176	607		SUB	M1CON+6 OF SECOND AIL ENTRY	F3B06060
01136	−0 32000 0 02207	615		ANA	M1CON+15 TEST IF TAG NEEDS CHANGING	F3B06140
01151	0 40200 0 02177	626		SUB	M1CON+7 SUBTRACT 2	F3B06250
01160	0 00000 0 02170	634		HTR	M1CON FOR THE EXPON.	F3B06330
01165	0 00000 0 02170	639		HTR	M1CON MPY AND LRS INSTRUCTIONS	F3B06380
01167	0 00000 0 02170	641		HTR	M1CON	F3B06400
01170	0 00000 0 02203	642		HTR	M1CON+11	F3B06410
01200	0 00000 0 02170	650		HTR	M1CON EXP GREATER OR EQUAL 2, IN WHICH	F3B06490
01205	0 00000 0 02170	655		HTR	M1CON	F3B06540
01207	0 00000 0 02170	657		HTR	M1CON	F3B06560
01210	0 00000 0 02202	658		HTR	M1CON+10	F3B06570
01213	0 40200 0 02176	662		SUB	M1CON+6 EQUALS 1, IF YES, TRANSFER	F3B06610
01231	0 40200 0 02176	677		SUB	M1CON+6 SEE IF EXPONENT = 1, IF IT IS	F3B06760
01236	0 00000 0 02170	682		HTR	M1CON	F3B06810
01237	0 00000 0 02170	683		HTR	M1CON	F3B06820
01241	0 00000 0 02170	685		HTR	M1CON	F3B06840
01243	0 00000 0 02170	687		HTR	M1CON	F3B06860
01244	0 00000 0 02204	688		HTR	M1CON+12	F3B06870
01261	0 00000 0 02170	702		HTR	M1CON INST COMPILING LOOP FOR FL0ATING	F3B07010
01266	0 00000 0 02170	707		HTR	M1CON ZERO, FOR INTERNAL FMLA. NO.	F3B07060
01270	0 00000 0 02170	709		HTR	M1CON PLACE 43 INDECREMENT OF	F3B07080
01271	0 00000 0 02204	710		HTR	M1CON+12 RELATIVE ADDRESS.	F3B07090
01277	0 00000 0 02170	716		HTR	M1CON EXP GREATER OR EQUAL 2	F3B07150
01304	−0 53400 4 02203	721	M13500	LXD	M1CON+11,4 SPECIAL OPS. LOAD COUNT OF 22 IN IR 4	F3B07200
01361	−0 32000 0 02207	768		ANA	M1CON+15 ARG TAGGED,	F3B07670
01374	0 00000 0 02170	780		HTR	M1CON ZERO	F3B07790
01376	0 00000 0 02170	782		HTR	M1CON ZERO	F3B07810
01377	0 00000 0 02170	783		HTR	M1CON ZERO	F3B07820
01426	−0 32000 0 02207	809		ANA	M1CON+15 ARG TAGGED	F3B08080
01441	0 00000 0 02170	821		HTR	M1CON ZERO	F3808200
01444	0 00000 0 02170	824		HTR	M1CON ZERO	F3808230
01451	0 00000 0 02170	830		HTR	M1CON ZERO	F3B08290
01453	0 00000 0 02170	832		HTR	M1CON ZERO	F3808310
01454	0 00000 0 02170	833		HTR	M1CON ZERO	F3B08320
01456	0 00000 0 02170	835		HTR	M1CON	F3B08340
01461	0 00000 0 02176	838		HTR	M1CON+6	F3B08370
01463	0 00000 0 02170	840		HTR	M1CON	F3B08390
01465	0 00000 0 02170	842		HTR	M1CON	F3B08410
01466	0 00000 0 02170	843		HTR	M1CON	F3808420
01470	0 00000 0 02170	845		HTR	M1CON	F3B08440
01472	0 00000 0 02170	847		HTR	M1CON	F3B08450
01473	0 00000 0 02203	848		HTR	M1CON+11 +000022000000	F3808470
01476	0 00000 0 02170	852		HTR	M1CON	F3B085I0
01501	0 00000 0 02170	855		HTR	M1CON ZERO	F3B08540
01515	0 40200 0 02211	869		SUB	M1CON+17 -377777777777, SHOULD BE AT	F3B08680
01533	−0 32000 0 02207	883		ANA	M1CON+15 +000000002000	F3B08820
01540	0 50000 0 02201	888	M13710	CLA	M1CON+9 SIGN, MODULO OR MAX, MIN	F3B08870
01544	0 50000 0 02175	892		CLA	M1CON+5 SIGN OR MODULO, +000012000000	F3B08910
01555	0 00000 0 02170	902		HTR	M1CON	F3B09010
01556	0 00000 0 02170	903		HTR	M1CON	F3B09020
01560	0 00000 0 02170	905		HTR	M1CON	F3B09040
01565	0 00000 0 02170	910		HTR	M1CON	F3B09090
01567	0 00000 0 02170	912		HTR	M1CON	F3B09110
01570	0 00000 0 02170	913		HTR	M1CON	F3B09120
01571	0 50000 0 02170	914		CLA	M1CON ZERO, T0 REPLACE 1,S.	F3B09130
01623	−0 32000 0 02207	941		ANA	M1CON+15 TEST IF TAGGED	F3B09400
01631	0 00000 0 02170	947		HTR	M1CON	F3B09460
01636	0 00000 0 02170	952		HTR	M1CON	F3B09510
01641	0 00000 0 02170	955		HTR	M1CON	F3B09540
01643	0 00000 0 02170	957		HTR	M1CON	F3B07560
01646	0 00000 0 02170	960		HTR	M1CON	F3B09590
01650	0 00000 0 02170	962		HTR	M1CON	F3B09610
01653	0 00000 0 02170	965		HTR	M1CON	F3B09640
01655	0 00000 0 02170	967		HTR	M1CON	F3B09660
01660	0 00000 0 02170	970		HTR	M1CON	F3B09690
01662	0 00000 0 02170	972		HTR	M1CON	F3B09710
01665	0 00000 0 02170	975		HTR	M1CON	F3B09740
01667	0 00000 0 02170	977		HTR	M1CON	F3B09760
01672	0 00000 0 02170	980		HTR	M1CON	F3B09790
01674	0 00000 0 02170	982		HTR	M1CON	F3B09810
01701	0 00000 0 02170	987		HTR	M1CON	F3B09860
01706	0 50000 0 02200	993	M13770	CLA	M1CON+8 +000004000000	F3B09920
01727	−0 32000 0 02207	1011		ANA	M1CON+15 TEST IF ITHARGUMENT TAGGED	F3B10100
01734	0 50000 0 02200	1016	M13800	CLA	M1CON+8 000004000000	F3B10150
01741	0 00000 0 02170	1021		HTR	M1CON ITH ARG	F3810200
01746	0 00000 0 02170	1026		HTR	M1CON	F3B10250
01751	0 00000 0 02177	1029		HTR	M1CON+7 +000002000000	F3810280
01753	0 00000 0 02170	1031		HTR	M1CON	F3B10300
01760	0 40200 0 02211	1036		SUB	M1CON+17 -377777777777	F3B10350
02000	0 00000 0 02170	1052		HTR	M1CON FOR MAX0, MIN0	F3810510
02002	0 00000 0 02170	1054		HTR	M1CON	F3810530
02003	0 00000 0 02203	1055		HTR	M1CON+11 18	F3B10540
02005	0 00000 0 02170	1057		HTR	M1CON	F3B10560
02010	0 00000 0 02170	1060		HTR	M1CON	F3810590
02012	0 00000 0 02170	1062		HTR	M1CON	F3810610
02015	0 00000 0 02170	1065		HTR	M1CON	F3810640
02026	0 00000 0 02170	1075		HTR	M1CON ITH ARG	F3B10740
02033	0 00000 0 02170	1080		HTR	M1CON	F3B10790
02036	0 00000 0 02177	1083		HTR	M1CON+7 +170000000000	F3B10820
02040	0 00000 0 02170	1085		HTR	M1CON	F3810840
02045	0 40200 0 02211	1090		SUB	M1CON+17 -377777777777	F3B10890
02051	0 00000 0 02170	1094		HTR	M1CON	F3B10930
02054	0 00000 0 02170	1097		HTR	M1CON	F3B10960
02056	0 00000 0 02170	1099		HTR	M1CON	F3B10980
02061	0 00000 0 02170	1102		HTR	M1CON	F3B11010
02077	−0 32000 0 02207	1117		ANA	M1CON+15	F3B11160
02135	−0 32000 0 02207	1150		ANA	M1CON+15 ARG TAGGED	F3B11500
02143	0 00000 0 02170	1156		HTR	M1CON	F3B11560
02150	0 00000 0 02170	1161		HTR	M1CON	F3B11610
02152	0 00000 0 02170	1163		HTR	M1CON	F3B11630
02153	0 00000 0 02170	1164		HTR	M1CON	F3B11640
02157	0 40200 0 02211	1168		SUB	M1CON+17 -377777777777	F3B11680

␣M1TRC = 1222

Definition
02306 0 00000 0 00000 1255 M1TRC NO OF REC READS F3B11960

References (6)

00342	0 60100 0 02306	223		STO	M1TRC READ ERROR COUNTER.	F3B02220
00427	0 60100 0 02306	276		STO	M1TRC READ ERROR COUNTER.	F3B02750
00501	0 50000 0 02306	319	M10700	CLA	M1TRC REDUNDANCY CHECK READING	F3B03180
00505	0 60100 0 02306	323		STO	M1TRC COUNT BY 1 IN TAPE READ	F3B03220
00511	0 50000 0 02306	327	M10750	CLA	M1TRC REDUNDANCY CHECK READING	F3B03260
00515	0 60100 0 02306	331		STO	M1TRC COUNT BY 1 IN TAPE READ	F3B03300

␣OUT13 = 399

Definition
00617 0 76200 0 00222 398 OUT13 RDS 146 SPACE OVER REMAINING F3B03970
Reference
00623 0 02000 0 00617 402 TRA OUT13 F3B04010

␣OUT14 = 400

Definition
00620 0 70000 0 05737 399 OUT14 CPY ERAS AIL ENTRIES WHICH ARE F3B03980
Reference
00621 0 02000 0 00620 400 TRA OUT14 NOT FORTRAN FCNS TO POSITION F3B03990

␣OUT22 = 404

Definition
00624 0 53400 1 02170 403 OUT22 LXA M1CON,1 F3B04020
Reference
00622 0 02000 0 00624 401 TRA OUT22 TAPE 2 AT END OF AIL FILE. F3B04000

␣OUT24 = 266

Definition
00412 −0 32000 1 02331 263 OUT24 ANA AIL+2,1 CONTINUATION OF TEST IF F3B02620
Reference
00407 0 02000 0 00412 260 TRA OUT24 ANOTHER FORTRAN FCN. F3B02590

␣OUT34 = 272

Definition
00420 −0 75400 1 00000 269 OUT34 PXD 0,1 COMPARE NO. CURRENT WORD OF F3B02680
Reference
00372 1 77774 1 00420 247 TXI OUT34,1,−4 TO TEST IF LAST AIL INSTR OF BUFFER. F3B02460

␣OUT41 = 275

Definition
00423 0 07400 4 00341 272 OUT41 TSX M10210,4 READ NEXT AIL RECORD. F3B02710

␣OUT43 = 277

Definition
00425 1 77774 1 00373 274 OUT43 TXI PAT2,1,−4 ADD 4 IRA, AT LEAST 1 INSTR IN ROUTINE F3B02730
Reference
00422 0 02000 0 00425 271 TRA OUT43 TO TEST IF LAST INSTR IN RECORD. F3B02700

␣PAT10 = 358

Definition
00546 −0 53400 2 00411 357 PAT10 LXD PAT5+1,2 WRITE FORTRAN FCNS AS 2ND FILE ON TAPE 3. F3B03560

␣PAT11 = 360

Definition
00550 0 77000 0 00223 359 PAT11 WEF 147 WR 2ND TAPE MARK ON TP 3 FOR MERGE 1 END. F3B03580

␣PAT12 = 363

Definition
00553 −0 63400 1 02166 362 PAT12 SXD M1ECTR+2,1 F3B03610

References (2)

	00547	3 00000 2 00553	358		TXH	PAT12,2,0 1 IN DECREMENT IF F FCNS IN AIL FILE.	F3B03570
	00561	0 76100 0 00556	368		NOP	PAT12+3 START OF AIL FILE TO GET	F3B03670

␣PAT13 = 374

Definition
00566 0 76400 0 00222 373 PAT13 BST 146 F3B03720

References (2)

	00565	1 00002 2 00566	372		TXI	PAT13,2,2	F3B03710
	00567	2 00001 2 00566	374		TIX	PAT13,2,1	F3B03730

␣PAT14 = 382

Definition
00576 −0 50000 1 02327 381 PAT14 CAL AIL,1 TEST FOR FORTRAN FCN. AIL F3B03800
Reference
01015 0 02000 0 00576 531 TRA PAT14 TO TEST FOR FORTRAN FCN. F3B05300

␣PAT15 = 390

Definition
00606 1 77774 1 00607 389 PAT15 TXI PAT15+1,1,−4 F3B03880
Reference
00606 1 77774 1 00607 389 PAT15 TXI PAT15+1,1,−4 F3B03880

␣PAT16 = 394

Definition
00612 0 07400 4 00341 393 PAT16 TSX M10210,4 TO READ NEXT AIL ENTRY. F3B03920

␣PEC00 = 87

Definition
77 CHANGE TAG TABLE EDIT F3B00760

00127 0 53400 4 02164 78 PEC00 LXA M1ECTR,4 LOAD 5 INTO IRC DR RD ERROR CTR. F3B00770

␣PEC01 = 88

Definition
00130 0 76200 0 00303 79 PEC01 RDS 195 UNEDITED CHTG TABLE ON L0G OR 3. F3B00780
Reference
00137 2 00001 4 00130 86 TIX PEC01,4,1 READ DRUM 5 TIMES IF LENGTH WRONG. F3B00850

␣PEC02 = 97

Definition
00141 0 53400 4 02164 88 PEC02 LXA M1ECTR,4 LOAD 5 INTO IRC DR RD ERROR CTR. F3B00870
Reference
00136 0 10000 0 00141 85 TZE PEC02 CORRECTLY FROM DRUM 3. F3B00840

␣PEC03 = 98

Definition
00142 0 50000 0 05737 89 PEC03 CLA ERAS TEST IF THERE ARE ANY ENTRIES F3B00880
Reference
00160 2 00001 4 00142 103 TIX PEC03,4,1 DRUM READ ERROR. TRY 5 TIMES. F3B01020

␣PEC04 = 105

Definition
00151 0 70000 1 00000 96 PEC04 CPY 0,1 READ CHG TAG TABLE INTO UCHTG BLOCK F3B00950
References (2)
00146 0 62100 0 00151 93 STA PEC04 CHG TAG TABLE ENTRIES TO BE F3B00920

00152 2 00001 1 00151 97 TIX PEC04,1,1 F3B00960

␣PEC05 = 108

Definition
00154 −0 50000 1 05263 99 PEC05 CAL UCHTG,1 UNEDITED CHG TAG TABLE ENTRIES CONSIST F3B00980

References (2)

	00145	0 40200 0 00154	92		SUB	PEC05 COMPUTE CORE ADDRESS INTO WHICH	F3B00910
	00163	2 00003 2 00154	106	PEC07	TIX	PEC05,2,3 TEST FOR END CHG TAG BLOCK	F3B01050

␣PEC06 = 114

Definition
00162 1 77775 1 00163 105 PEC06 TXI PEC07,1,−3 MODIFY TABLE ADDR FOR NEXT 3 WORDS. F3B01040
Reference
00157 0 10000 0 00162 102 TZE PEC06 SUM FOR THE ENTRY. F3B01010

␣PEC07 = 115

Definition
00163 2 00003 2 00154 106 PEC07 TIX PEC05,2,3 TEST FOR END CHG TAG BLOCK F3B01050
Reference
00162 1 77775 1 00163 105 PEC06 TXI PEC07,1,−3 MODIFY TABLE ADDR FOR NEXT 3 WORDS. F3B01040

␣PEC10 = 116

Definition
107 BEGIN EDIT OF UCHTG F3B01060

00164 0 53400 3 02170 108 PEC10 LXA M1CON,3 LOAD 0 INTO IRA, IRB F3B01070

␣PEC11 = 124

Definition
00174 0 50000 1 02327 116 PEC11 CLA FORTAG,1 SUCCESSIVE DUPLICATES IN F3B01150

References (2)

	00177	1 77777 1 00174	119		TXI	PEC11,1,−1 IRA KEEPS TRACK OF FORTAG ENTRIES.	F3B01180
D	00213	3 00000 1 00174	131	PEC16	TXH	PEC11,1 2S COMP OF FORTAG LENGTH IN DECREMENT.	F3B01300

␣PEC12 = 128

Definition
00200 0 76700 0 00022 120 PEC12 ALS 18 IRC KEEPS TRACK OF UCHTG ENTRIES. F3B01190
Reference
00176 0 02000 0 00200 118 TRA PEC12 UCHTG TABLE ENTRIES. F3801170

␣PEC13 = 131

Definition
00203 0 50000 4 05264 123 PEC13 CLA UCHTG+1,4 TAG1 IN DECREMENT OF UCHTG F3B01220
Reference
D 00211 3 00000 4 00203 129 PEC14 TXH PEC13,4 2S COMP OF UCHTG LENGTH IN DECREMENT. F3B01280

␣PEC14 = 137

Definition
D 00211 3 00000 4 00203 129 PEC14 TXH PEC13,4 2S COMP OF UCHTG LENGTH IN DECREMENT. F3B01280

References (6)

00173	0 62200 0 00211	115	STD	PEC14	F3B01140
00206	1 77775 4 00211	126	TXI	PEC14,4,−3 FORMULA LIES WITHIN RANGE	F3B01250
00210	1 77775 4 00211	128	TXI	PEC14,4,−3 OF UCHTG ENTRY.	F3B01270
00251	1 77775 4 00211	164	TXI	PEC14,4,−3 SATISFIED, PRODUCE ENTRY	F3B01630
00252	1 77775 4 00211	165	TXI	PEC14,4,−3 FOR EDITED CHG TAG TABLE.	F3B01640
00261	1 77775 4 00211	172	TXI	PEC14,4,−3 IN ADDRESS TAKEN FROM 2ND	F3801710

␣PEC15 = 138

Definition
00212 1 77777 1 00213 130 PEC15 TXI PEC16,1,−1 END OF UCHTG TABLE. F3B01290
Reference
00267 3 76646 2 00212 178 PEC32 TXH PEC15,2,−602 CHTG BLOCK EXCEEDS ALLOCATED 600 WORDS F3B01770

␣PEC16 = 139

Definition
D 00213 3 00000 1 00174 131 PEC16 TXH PEC11,1 2S COMP OF FORTAG LENGTH IN DECREMENT. F3B01300

References (2)

	00171	0 62200 0 00213	113		STD	PEC16 LENGTH AND UCHTG LENGTH AND	F3B01120
	00212	1 77777 1 00213	130	PEC15	TXI	PEC16,1,−1 END OF UCHTG TABLE.	F3B01290

␣PEC17 = 140

Definition
132 END OF EDIT, COMPUTE CHTGE2 F3B01310

00214 −0 75400 2 00000 133 PEC17 PXD 0,2 END OF FORTAG TABLE. F3B01320

␣PEC18 = 147

Definition
00223 1 77776 4 00224 140 PEC18 TXI PEC18+1,4,−2 IN EDITED CHG TAG TABLE WITH F3B01390

References (2)

	00223	1 77776 4 00224	140	PEC18	TXI	PEC18+1,4,−2 IN EDITED CHG TAG TABLE WITH	F3B01390
	00231	0 10000 0 00223	146		TZE	PEC18 SEARCH AT M12500.	F3B01450

␣PEC19 = 154

Definition
00232 −0 75400 4 00000 147 PEC19 PXD 0,4 F3B01460
Reference
00226 0 10000 0 00232 143 TZE PEC19 CONTR0L WORDS CHTGE1 AND CHTGE2 F3B01420

␣PEC20 = 157

Definition
150 ROUTINE FOR EMPTY UCHTG TABLE F3B01490

00235 0 50000 0 02170 151 PEC20 CLA M1CON PLACE ZEROS INTO 3 CONTROL F3B01500
Reference
00143 0 10000 0 00235 90 TZE PEC20 IN CHG TAG TABLE. F3B00890

␣PEC30 = 163

Definition
157 SEARCH FOR INT FMLA NO OF CUR. FORTAG ENTRY IN UCHTG F3B01560

00243 0 50000 1 02327 158 PEC30 CLA FORTAG,1 TAG OF FORTAG ENTRY EQUAL F3B01570
Reference
00207 0 02000 0 00243 127 TRA PEC30 GIVEN IN FIRST WORD F3B01260

␣PEC31 = 178

Definition
00262 0 50000 0 02273 173 PEC31 CLA COMBOX WORD OF UCHTG ENTRY. CONTINUE F3B01720

References (2)

	00257	0 02000 0 00262	170		TRA	PEC31 ADDRESS. SECOND WORD HAS	F3B01690
	00260	0 02000 0 00262	171		TRA	PEC31 TAG1 IN DECREMENT AND TAG2	F3B01700

␣PEC32 = 183

Definition
00267 3 76646 2 00212 178 PEC32 TXH PEC15,2,−602 CHTG BLOCK EXCEEDS ALLOCATED 600 WORDS F3B01770
Reference
00266 1 77776 2 00267 177 TXI PEC32,2,−2 F3B01760

␣SXLOC = 1217

Definition
02301 0 00000 0 00000 1250 SXLOC LOCATION WORD OF CURRENT DO INST F3B11910

References (2)

	00464	0 60100 0 02301	305		STO	SXLOC EQUAL TO ADDR PORTION GIVEN IN	F3B03040
	00467	0 40200 0 02301	308		SUB	SXLOC	F3B03070

␣SXTXL = 1216

Definition
02300 0 00000 0 00000 1249 SXTXL LENGTH OF SXTX TABLE F3B11900

References (4)

00312	0 60100 0 02300	198		STO	SXTXL STORE 0 AS SXDTX LENGTH IF NO	F3801970
00314	0 60100 0 02300	200	RSTO30	STO	SXTXL STORE SXDTX LENGTH AND LOAD	F3B01990
00441	0 50000 0 02300	286		CLA	SXTXL TEST IF SXDTX TABLE EMPTY	F3B02850
00465	0 53400 4 02300	306		LXA	SXTXL,4 3RD WD CURRENT SXD DO INSTR.	F3B03050

␣UCHTG = 2739

Definition
05263 1270 UCHTG BSS 300 F3B12110

References (7)

00154	−0 50000 1 05263	99	PEC05	CAL	UCHTG,1 UNEDITED CHG TAG TABLE ENTRIES CONSIST	F3B00980
00155	0 36100 1 05264	100		ACL	UCHTG+1,1 OF 3 WORDS. TEST LOG SUM OF	F3B00990
00156	0 40200 1 05265	101		SUB	UCHTG+2,1 2 WORDS EQUALS DRUM CHECK	F3B01000
00203	0 50000 4 05264	123	PEC13	CLA	UCHTG+1,4 TAG1 IN DECREMENT OF UCHTG	F3B01220
00246	0 50000 4 05263	161		CLA	UCHTG,4 NUMBER LIES WITHIN RANGE	F3B01600
00253	0 50000 4 05263	166		CLA	UCHTG,4 EDITED CHG TAG ENTRY CONSISTS	F3B01650
00264	0 50000 4 05264	175		CLA	UCHTG+1,4 COMPARIS0N LOOP UNTIL FORTAG	F3B01740

CCOUNT = 1225

Definition
02311 0 00000 0 00000 1258 CCOUNT COUNT NO OF PAIRS OF MPY,LRS INST FOR EXP ROUTINE F3B11990

References (5)

01153	0 62200 0 02311	628	STD	CCOUNT EXP-2 TO COUNT	F3B06270
01171	−0 53400 4 02311	643	LXD	CCOUNT,4 LOAD EXPONENT -2 IN IR 4 AND	F3B06420
01173	−0 63400 4 02311	645	SXD	CCOUNT,4 RESTORE CCOUNT DURING LOOP	F3B06440
01272	−0 53400 4 02311	711	LXD	CCOUNT,4 LOAD N-2 IN IR 4	F3B07100
01274	−0 63400 4 02311	713	SXD	CCOUNT,4 REPLACE CCOUNT	F3B07120

CHTGE1 = 1213

Definition
02275 0 00000 0 00000 1246 CHTGE1 2S COMP OF CUR. ENTRY POINT IN CHTG TABLE F3B11870

References (5)

00217	0 60100 0 02275	136		STO	CHTGE1 AS TABLE LENGTH CONTROL	F3B01350
00237	0 60100 0 02275	153		STO	CHTGE1 ROUTINE TO INDICATE NO ENTRIES	F3801520
01021	−0 53400 4 02275	536	M12503	LXD	CHTGE1,4	F3B05350
01047	0 60100 0 02275	558		STO	CHTGE1 VALUE T0 GET 1ST ENTRY OF	F3805570
01054	−0 53400 4 02275	563	M12550	LXD	CHTGE1,4 COMPUTE NEW CHTGE2. CHTGE2 IS	F3B05620

CHTGE2 = 1214

Definition
02276 0 00000 0 00000 1247 CHTGE2 2S COMP OF NEXT ENTRY POINT IN CHTG TABLE F3B11880

References (5)

00233	0 60100 0 02276	148		STO	CHTGE2	F3B01470
00240	0 60100 0 02276	154		STO	CHTGE2 IN EDITED CHG TAG TABLE.	F3801530
01031	0 50000 0 02276	544	M12515	CLA	CHTGE2 SEARCH CUR CHTG BLOCK FOR	F3B05430
01046	0 50000 0 02276	557	M12540	CLA	CHTGE2 UPDATE CHTGE1. CHTGE1 HAS IRC	F3B05560
01066	−0 63400 4 02276	573	M12570	SXD	CHTGE2,4 AND CHTGE2 TO GET NEXT ENTRY,	F3B05720

CHTGFN = 1215

Definition
02277 0 00000 0 00000 1248 CHTGFN INT FMLA NO APPEARING IN CURRENT CHTG TABLE BLOCK F3B11890

References (4)

00222	0 60100 0 02277	139	STO	CHTGFN CALCULATE NUMBER OF ENTRIES	F3B01380
00230	0 40200 0 02277	145	SUB	CHTGFN EDITED CHG TAG TABLE IN	F3B01440
01056	0 60100 0 02277	565	STO	CHTGFN INDICATE LAST ENTRY IN CHTG	F3B05640
01064	0 40200 0 02277	571	SUB	CHTGFN FMLA NO. GREATER THAN CHTG	F3B05700

COMBOX = 1211

Definition
02273 0 00000 0 00000 1244 COMBOX TAG OR 1NT FMLA NO OF FORTAG ENTRY DURING CHTG EDIT F3B11850

References (4)

00245	0 60100 0 02273	160		STO	COMBOX TEST FORTAG INTERNAL FORMULA	F3B01590
00250	0 34000 0 02273	163		CAS	COMBOX ENTRY. IF RANGE CONDITION IS	F3B01620
00256	0 34000 0 02273	169		CAS	COMBOX IN DECREMENT AND ZEROS IN	F3B01680
00262	0 50000 0 02273	173	PEC31	CLA	COMBOX WORD OF UCHTG ENTRY. CONTINUE	F3B01720

ERROR1 = 1133

Definition
02155 0 07400 4 00004 1166 ERROR1 TSX 4,4 A MULT1 VARIATE FN. HAS ONLY 1 VARIABLE F3B11660

References (7)

01345	0 07400 4 02156	755	M13550	TSX	ERROR1+1,4 INFO ON LOC OF ARG, CHECK FOR ALL 1S	F3B07540
01412	0 07400 4 02156	796	M13600	TSX	ERROR1+1,4 INFO ON LOC OF ARG	F3B07950
01516	0 10000 0 02155	870		TZE	ERROR1 LEAST TWO ARGUMENTS FOR MULTIVARIATE FCNS.	F3B08690
01576	0 07400 4 02156	919	M13725	TSX	ERROR1+1,4 CHECK FOR END OF CALLING SEQUENCE	F3B09180
01616	0 07400 4 02156	936	M13741	TSX	ERROR1+1,4 CHECK THAT NEXT WORD IS LAST ARG.	F3B09350
02063	0 07400 4 02156	1105	M13900	TSX	ERROR1+1,4 TO TEST IF ONLY ONE ARGUMENT	F3B11040
02130	0 07400 4 02156	1145	M13955	TSX	ERROR1+1,4 TEST IF ONLY 2 ARGUMENTS	F3B11450

ERROR2 = 1139

Definition
02163 0 07400 4 00004 1172 ERROR2 TSX 4,4 A UNIVARIATE OR 2VAR. ROUTINE NOT CORRECT F3B11720
Reference
02160 −0 10000 0 02163 1169 TNZ ERROR2 SHOULD BE ALL 1S, FOR PARTICULAR ROUTINE F3B11690

ERROR3 = 488

Definition
00750 0 07400 4 00004 493 ERROR3 TSX 4,4 WORD ALL 1S COMPARED HIGH TO AC WITH ALL 1S F3804920

FORTAG = 1239

Definition
02327 1269 FORTAG BSS 1500 AIL,DO,CIB LATER SHARE THIS BLOCK F3B12100

References (13)

00045	0 70000 0 02326	25		CPY	FORTAG−1 AND TEST FIRST WORD TO GUARANTEE	F3B00240
00046	0 50000 0 02326	26		CLA	FORTAG−1 BEGINNING OF FORTAG TABLE.	F3B00250
00052	0 70000 0 02326	30	M10030	CPY	FORTAG−1 READ 2ND FORTAG TABLE WORD AND TEST	F3B00290
00053	0 50000 0 02326	31		CLA	FORTAG−1 THERE ARE FORTAG ENTRIES.	F3B00300
00056	0 70000 2 02327	34	M10035	CPY	FORTAG,2 READ 3RD AND SUCCEEDING WORDS	F3B00330
00166	−0 50100 0 02326	110		ORA	FORTAG−1 FORTAG TABLE LENGTH IN DECREMENT	F3B01090
00174	0 50000 1 02327	116	PEC11	CLA	FORTAG,1 SUCCESSIVE DUPLICATES IN	F3B01150
00175	0 34000 1 02330	117		CAS	FORTAG+1,1 FORTAG TABLE NOT COMPARED TO	F3B01160
00243	0 50000 1 02327	158	PEC30	CLA	FORTAG,1 TAG OF FORTAG ENTRY EQUAL	F3B01570
	02327	1273	AIL	SYN	FORTAG	F3B12140
	02473	1274	DO	SYN	FORTAG+100	F3B12150
	02637	1275	CIB	SYN	FORTAG+200	F3B12160
	03003	1276	SXTX	SYN	FORTAG+300	F3B12170

M10000 = 25

Definition
00031 0 76200 0 00222 12 M10000 RDS 146 READ BINARY TAPE 2 WITH FORTAG TBL F3B00110
Reference
00034 0 76100 0 00031 15 NOP M10000 TAPE 2 STANDS AT DOTAGB RECORD F3B00140

M10010 = 31

Definition
00037 0 76400 0 00222 18 M10010 BST 146 F3B00170
References (2)
00036 1 00007 1 00037 17 TXI M10010,1,7 RECORDS IN DOTAGB PLUS 7 T0 START FORTAG, F3B00160

00040 2 00001 1 00037 19 TIX M10010,1,1 F3B00180

M10020 = 36

Definition
00044 0 76200 0 00222 24 M10020 RDS 146 READ TAPE 2 P0SITIONED AT FORTAG TBL F3B00230
Reference
00062 0 76100 0 00044 38 NOP M10020 RE-READ TAPE LOCATION. F3B00370

M10030 = 42

Definition
00052 0 70000 0 02326 30 M10030 CPY FORTAG−1 READ 2ND FORTAG TABLE WORD AND TEST F3B00290
Reference
00050 0 10000 0 00052 28 TZE M10030 TABLE NO. IS FIRST WORD OF TAPE TABLES. F3B00270

M10035 = 46

Definition
00056 0 70000 2 02327 34 M10035 CPY FORTAG,2 READ 3RD AND SUCCEEDING WORDS F3B00330
Reference
00057 1 77777 2 00056 35 TXI M10035,2,−1 OF FORTAG INTO CONSEC, LOCATIONS. F3B00340

M10040 = 49

Definition
00061 0 07400 2 00064 37 M10040 TSX M10043,2 TEST IF TAPE READ CORRECTLY. F3B00360
Reference
00054 0 10000 0 00061 32 TZE M10040 FORTAG TABLE ENTRIES ARE 1 WORD. F3B00310

M10043 = 52

Definition
00064 0 76600 0 00333 40 M10043 WRS 219 DELAY 704 FOR RTT TEST. F3B00390

References (4)

00033	0 07400 2 00064	14		TSX	M10043,2 THE TAPE TABLES HAVING 11 RECORDS.	F3B00130
00061	0 07400 2 00064	37	M10040	TSX	M10043,2 TEST IF TAPE READ CORRECTLY.	F3B00360
00113	0 07400 2 00064	65		TSX	M10043,2	F3B00640
00560	0 07400 2 00064	367		TSX	M10043,2 TO BACKSPACE TP 2 TO	F3B03660

M10045 = 56

Definition
00070 0 50000 2 00001 44 M10045 CLA 1,2 TAPE READ ERROR RTN. INITIALIZE F3B00430
Reference
00066 0 02000 0 00070 42 TRA M10045 TO TAPE READ ERROR ROUTINE. F3B00410

M10048 = 59

Definition
00073 2 00001 1 00000 47 M10048 TIX 0,1,1 F3B00460
Reference
00071 0 62100 0 00073 45 STA M10048 TIX ADDRESS TO RETURN TO PROPER F3B00440

M10050 = 61

Definition

		49			POSITIONING OF TAPE 2, TAPE 3, TAPE 4, TO READ COMPAIL	F3B00480
		50			WRITE MERGE 1, AND READ DO FILE, RESP.	F3B00490
00075	0 77200 0 00223	51	M10050	REW	147 REWIND TAPE 3 TO WRITE MERGE 1.	F3B00500

Reference
00063 0 02000 0 00075 39 TRA M10050 CONTINUE IN MAIN PROGRAM. F3B00380

M10055 = 64

Definition
00100 0 70000 0 05737 54 M10055 CPY ERAS TAPE 4 T0 GET T0 FIRST RECORD F3800530

References (2)

	00101	0 02000 0 00100	55		TRA	M10055 OF COMPDO FILE.	F3B00540
	00103	0 02000 0 00077	57		TRA	M10055−1 SPACE 0VER NEXT TRALEV RECORD.	F3B00560

M10060 = 68

Definition
00104 0 53400 2 02170 58 M10060 LXA M1CON,2 LOAD 0 INTO IRB. F3B00570

References (3)

00102	0 02000 0 00104	56	TRA	M10060 END OF TRALEV FILE.	F3800550
00105	1 00021 2 00106	59	TXI	M10060+2,2,17	F3B00580
00107	2 00001 2 00106	61	TIX	M10060+2,2,1 13 RECORDS TO POSITIDN TAPE 2	F3B00600

M10063 = 73

Definition
00111 0 76200 0 00222 63 M10063 RDS 146 F3B00620
Reference
00114 0 76100 0 00111 66 NOP M10063 BACKSPACE TAPE 2 OVER COMPAIL F3B00650

M10070 = 79

Definition
00117 0 76400 0 00222 69 M10070 BST 146 TO POSITION TAPE 2 TO FIRST F3B00680
References (2)
00116 1 00002 2 00117 68 TXI M10070,2,2 OVER COMPAIL RECORDS F3B00670

00120 2 00001 2 00117 70 TIX M10070,2,1 RECORD OF COMPAIL FILE. F3B00690

M10200 = 224

Definition
220 READ AIL, READ DO ROUTINES F3B02190

00340 0 53400 4 02170 221 M10200 LXA M1CON,4 0 IN IRC WHEN SKIPPING CL0SED SRTNS. F3B02200

References (3)

00273	0 02000 0 00340	183	TRA	M10200 NO SXTX ENTRIES.	F3B01820
00313	0 02000 0 00340	199	TRA	M10200 ENTRIES AND GO TO READ AIL RTN.	F3801980
00337	0 02000 0 00340	219	TRA	M10200 SXTX TABLE IN CORES SUCCESSFULLY.	F3B02180

M10210 = 225

Definition
00341 0 50000 0 02171 222 M10210 CLA M1CON+1 STORE 1 IN M1TRC, TP 2. F3B02210

References (9)

00376	0 07400 4 00341	251		TSX	M10210,4 READ NEXT AIL RECORD.	F3B02500
00423	0 07400 4 00341	272	OUT41	TSX	M10210,4 READ NEXT AIL RECORD.	F3B02710
00574	0 07400 4 00341	379		TSX	M10210,4 TO READ AIL FILE FOR FORTRAN FCNS.	F3B03780
00612	0 07400 4 00341	393	PAT16	TSX	M10210,4 TO READ NEXT AIL ENTRY.	F3B03920
00777	0 07400 4 00341	517		TSX	M10210,4 REC WORD COUNT.	F3B05160
01114	0 07400 4 00341	596		TSX	M10210,4 BACK TO READ NEXT AIL RECORD	F3B05950
01317	0 07400 4 00341	732		TSX	M10210,4 TO GET NEXT AIL RECORD	F3B07310
01530	0 07400 4 00341	880		TSX	M10210,4 BRING IN NEXT AIL REC.	F3B08790
01766	0 07400 4 00341	1042		TSX	M10210,4 PACK TO READ NEXT AIL RECORD	F3810410

M10220 = 227

Definition
00343 0 76200 0 00222 224 M10220 RDS 146 READ 1 RECORD OF AIL, THE 2ND F3B02230
Reference
00507 0 02000 0 00343 325 TRA M10220 RECORD AGAIN. F3B03240

M10230 = 229

Definition
00345 0 70000 1 02327 226 M10230 CPY AIL,1 AIL REC. READ OVER FORTAG FILE. F3B02250
Reference
00346 1 77777 1 00345 227 TXI M10230,1,−1 IRA GIVES POSITION IN AIL RECORD. F3B02260

M10240 = 235

Definition
00353 −0 63400 1 02305 232 M10240 SXD M1ALWN,1 STORE 2S COMPL AIL WORD COUNT F3B02310

M10250 = 278

Definition
00426 0 50000 0 02171 275 M10250 CLA M1CON+1 STORE 1 IN M1TRC, TP 2 F3B02740

References (3)

TD	00411	−3 00000 0 00426	262	TXL	M10250 UNCON. TR TO READ IN DO RECORD.	F3B02610
	00527	0 10000 0 00426	341	TZE	M10250 T0 READ DO FILE RECORD.	F3B03400
	00653	0 07400 4 00426	431	TSX	M10250,4 REC WORD COUNT.	F3B04300

M10260 = 280

Definition
00430 0 76200 0 00224 277 M10260 RDS 148 READ 1 RECORD OF DO, THE 1ST F3B02760
Reference
00517 0 02000 0 00430 333 TRA M10260 RECORD AGAIN F3B03320

M10270 = 282

Definition
00432 0 70000 2 02473 279 M10270 CPY DO,2 DO REC. READ 100 WDS BEYOND AIL. F3B02780
Reference
00433 1 77777 2 00432 280 TXI M10270,2,−1 IRB GIVES P0SITION IN DO RECORD. F3B02790

M10285 = 295

Definition
00447 0 50000 2 02474 292 M10285 CLA DO+1,2 TEST CURRENT DO INST AN SXD F3B02910

References (5)

00442	−0 10000 0 00445	287	TNZ	M10285−2 FROM STORED TABLE LENGTH.	F3B02860
00446	1 00004 2 00447	291	TXI	M10285,2,4 ADD 4 IRB GET 1ST WD LAST DO INSTR.	F3B02900
00452	3 00000 2 00446	295	TXH	M10285−1,2,0 IRB ZERO HEANS ALL DO ENTRIES	F3B02940
00472	0 02000 0 00452	311	TRA	M10285+3 NO SXTX ENTRY CORR TO SXD FOUND.	F3B03100
00500	0 02000 0 00452	317	TRA	M10285+3 TO CONTINUE SXD SEARCH OF DO REC.	F3B03160

M10290 = 300

Definition
00454 −0 75400 4 00000 297 M10290 PXD 0,4 IRC NOT ZERO AFTER 1ST DO REC F3B02960
Reference
00444 0 02000 0 00454 289 TRA M10290 COMPILATION ROUTINES. F3B02880

M10295 = 303

Definition
00457 −0 76000 0 00141 300 M10295 MSE 97 TEST IF END AIL FILE. F3B02990
Reference
00455 0 10000 0 00457 298 TZE M10295 IN CORES. IRC PERMITS RE-ENTRY F3B02970

M10300 = 307

Definition
00463 0 50000 2 02475 304 M10300 CLA DO+2,2 SEARCH SXTX TABLE FOR ENTRY F3B03030
Reference
00451 0 10000 0 00463 294 TZE M10300 CURRENT INSTR IS SXD. F3B02930

M10305 = 310

Definition
00466 0 50000 4 00000 307 M10305 CLA 0,4 ADDR SXTX ORGIN PLUS LENGTH F3B03060

References (2)

	00320	0 62100 0 00466	204		STA	M10305 FORTAG + 300. INITIALIZE	F3802030
	00471	2 00003 4 00466	310		TIX	M10305,4,3	F3B03090

M10310 = 315

Definition
00473 2 00001 4 00474 312 M10310 TIX M10310+1,4,1 ROUTINE PUT 2ND WORD SXTX F3B03110

References (3)

00321	0 62100 0 00474	205		STA	M10310+1 ADDRESSES FOR SXTX TABLE SEARCH.	F3802040
00470	0 10000 0 00473	309		TZE	M10310 SXTX ENTRY CORR TO SXD FOUND.	F3B03080
00473	2 00001 4 00474	312	M10310	TIX	M10310+1,4,1 ROUTINE PUT 2ND WORD SXTX	F3B03110

M10700 = 321

Definition
318 ERROR ROUTINES, END OF FILE ROUTINES F3B03170

00501 0 50000 0 02306 319 M10700 CLA M1TRC REDUNDANCY CHECK READING F3B03180
Reference
00352 0 02000 0 00501 231 TRA M10700 REDUNDANCY WHEN READING TP 2. F3B02300

M10705 = 326

Definition
00506 0 76400 0 00222 324 M10705 BST 146 COUNTER AND READ AIL F3B03230

M10750 = 329

Definition
00511 0 50000 0 02306 327 M10750 CLA M1TRC REDUNDANCY CHECK READING F3B03260
Reference
00437 0 02000 0 00511 284 TRA M10750 REDUNDANCY WHEN READING TP 2. F3B02830

M10755 = 334

Definition
00516 0 76400 0 00224 332 M10755 BST 148 COUNTER AND READ DO F3B03310

M10800 = 337

Definition
00521 0 76000 0 00141 335 M10800 PSE 97 END OF FILE FOR AIL ROUTINE. F3B03340
Reference
00347 0 02000 0 00521 228 TRA M10800 END OF AIL FILE. F3B02270

M10810 = 342

Definition
00526 −0 75400 4 00000 340 M10810 PXD 0,4 IRC ZERO IF DO FILE NOT READ YET. F3B03390
Reference
00523 0 02000 0 00526 337 TRA M10810 EOF AND TEST IF ENTRIES IN SXTX TBL F3B03360

M10850 = 345

Definition
00531 0 76000 0 00142 343 M10850 PSE 98 END OF FILE FOR DO ROUTINE. F3B03420
Reference
00434 0 02000 0 00531 281 TRA M10850 TO END OF DO FILE RTN. F3B02800

M10900 = 350

Definition
348 M1 TERMINAL ROUTINE F3B03470

00536 0 76600 0 00223 349 M10900 WRS 147 ROUTINE WR ON TP 3 INSTR REMAINING F3B03480

References (3)

00525	0 02000 0 00536	339	TRA	M10900 TO WR 0N TP 3 INSTR IN BUFFER.	F3B03380
00535	0 02000 0 00536	347	TRA	M10900	F3B03460
00625	0 02000 0 00536	404	TRA	M10900 TO WR ANY F FCN ENTRIES IN CIB BUFFER.	F3B04030

M10910 = 353

Definition
00541 0 70000 1 02637 352 M10910 CPY CIB,1 F3B03510
Reference
00544 3 00001 2 00541 355 TXH M10910,2,1 F3B03540

M10920 = 355

Definition
00543 1 00001 2 00544 354 M10920 TXI M10920+1,2,1 IRB 2S COMP NO WORDS CIB BUFFER. F3B03530

References (2)

	00542	1 77777 1 00543	353		TXI	M10920,1,−1	F3B03520
	00543	1 00001 2 00544	354	M10920	TXI	M10920+1,2,1 IRB 2S COMP NO WORDS CIB BUFFER.	F3B03530

M10930 = 357

Definition
00545 0 77000 0 00223 356 M10930 WEF 147 WR FORTRAN FCNS 2ND FILE TP 3. F3B03550

M11010 = 406

Definition

		405			COMPAIL INSTR USUALLY MERGED AHEAD OF COMPDO INSTR IF BOTH	F3B04040
		406			HAVE SAME FMLA NO, EXCEPT FOR READ AND WRITE,WHEN DO PRECEDES	F3804030
		407			THE AIL FOR TIMING REASONS. FMLA NO. DECREMENT PART HERE.	F3B04060
		408			COMPARISON OF AIL AND DO FMLA NOS AND	F3B04070
		409			COMPILATION OF DO INSTRUCTIONS	F3B04080
00626	0 50000 2 02473	410	M11010	CLA	DO,2 COMPARE AIL AND DO INTERNAL	F3B04090

References (2)

	00460	0 02000 0 00626	301		TRA	M11010 TO COMPARE AIL + DO FMLA NOS.	F3B03000
	00664	0 02000 0 00626	440		TRA	M11010 DO FMLA NO. GREATER AIL NO.	F3B04390

M11015 = 408

Definition
00630 0 07400 4 00744 412 M11015 TSX ERR2,4 TEST FOR FORTRAN FCNS. F3B04110
Reference
01011 0 02000 0 00630 527 TRA M11015 TO CMP AIL AND DO FMLA NOS. F3B05260

M11030 = 414

Definition
00636 0 53400 4 02174 418 M11030 LXA M1CON+4,4 COMPILE DO INSTR BY F3B04170

References (6)

00462	0 02000 0 00636	303	TRA	M11030 TO COMPILE DO INSTR.	F3B03020
00530	0 02000 0 00636	342	TRA	M11030 T0 COMPILE DO INSTRUCTIONS.	F3B03410
00633	0 02000 0 00636	415	TRA	M11030 AIL FMLA NO GREATER DO NO.	F3B04140
00660	0 02000 0 00636	436	TRA	M11030 COMPILING DO INSTR.	F3B04350
00666	0 02000 0 00636	442	TRA	M11030 DO FMLA NO. LESS AIL NO.	F3B04410
00706	0 02000 0 00636	458	TRA	M11030 T0 COMPILE DO INSTR.	F3B04570

M11031 = 415

Definition
00637 0 50000 2 02473 419 M11031 CLA DO,2 GATHERING 4 WORDS FROM F3B04180
Reference
00642 2 00001 4 00637 422 M11035 TIX M11031,4,1 F3B04210

M11035 = 418

Definition
00642 2 00001 4 00637 422 M11035 TIX M11031,4,1 F3B04210
Reference
00641 1 77777 2 00642 421 TXI M11035,2,−1 THEM IN CALLING SEQ LOCATIONS. F3B04200

M11055 = 429

Definition
00655 −0 76000 0 00141 433 M11055 MSE 97 END OF AIL FILE IF LIGHT 1 ON, F3B04320
Reference
00652 0 02000 0 00655 430 TRA M11055 P0SITION WITH TOTAL DO F3B04290

M11060 = 433

Definition
00661 0 50000 2 02473 437 M11060 CLA DO,2 GET NEXT DO INST SAME BLOCK F3B04360
Reference
00656 0 02000 0 00661 434 TRA M11060 F3B04330

M11070 = 439

Definition
00667 1 77777 1 00670 443 M11070 TXI M11070+1,1,−1 F3B04420

References (2)

	00634	0 02000 0 00667	416		TRA	M11070 AIL FMLA NO. EQUALS DO NO.	F3B04150
	00667	1 77777 1 00670	443	M11070	TXI	M11070+1,1,−1	F3B04420

M11080 = 447

Definition
00677 1 00001 1 00700 451 M11080 TXI ERR3,1,1 T0 TEST IF SPACING TAPE. F3B04500

References (2)

	00672	0 10000 0 00677	446		TZE	M11080	F3B04450
	00675	0 10000 0 00677	449		TZE	M11080	F3B04480

M12000 = 489

Definition
494 COMPILATION OF AIL INSTRUCTIONS F3804930

00751 0 07400 4 00744 495 M12000 TSX ERR2,4 TEST 1ST AIL WORD ALL ONES. F3B04940

References (8)

00533	0 02000 0 00751	345	TRA	M12000 EOF AND TEST IF AIL AT EOF.	F3B03440
00611	0 02000 0 00751	392	TRA	M12000 TO AIL COMPILATION ROUT1NE.	F3B03910
00614	0 02000 0 00751	395	TRA	M12000 TO AIL COMPILATION ROUTINE.	F3B03940
00635	0 02000 0 00751	417	TRA	M12000 AIL FMLA NO. LESS DO NO.	F3B04160
00676	1 00001 1 00751	450	TXI	M12000,1,1 RESTORE IRA CURRENT AIL VALUE.	F3B04490
00703	0 02000 0 00751	455	TRA	M12000 TO COMPILE AIL INSTRUCTION.	F3B04540
01013	3 00001 2 00751	529	TXH	M12000,2,1 IN THE MAIN MERGE IF IRB	F3B03280
01014	−3 00000 2 00751	530	TXL	M12000,2,0 ANY VALUE EXCEPT 1.	F3805290

M12005 = 491

Definition
00753 −0 12000 0 01070 497 M12005 TMI M13000 MINUS MEANS OPEN SU8ROUTINE. F3804960
Reference
01007 0 02000 0 00753 525 TRA M12005 COMPILE AIL INSTR F3B05240

M12010 = 493

Definition
00755 0 50000 1 02327 499 M12010 CLA AIL,1 MOVING 4 WORDS OF INSTR F3B04980
Reference
00760 2 00001 4 00755 502 M12020 TIX M12010,4,1 F3805010

M12020 = 496

Definition
00760 2 00001 4 00755 502 M12020 TIX M12010,4,1 F3805010
Reference
00757 1 77777 1 00760 501 TXI M12020,1,−1 F3B05000

M12021 = 497

Definition
00761 0 50000 0 02325 503 M12021 CLA M1CW+3 TEST IF TAGGED INSTR, BITS 24-26. F3B05020
Reference
01134 1 77776 1 00761 613 TXI M12021,1,−2 TRANSFER BACK FOR CHTG SEARCH F3B06120

M12022 = 498

Definition
00762 −0 32000 0 02207 504 M12022 ANA M1CON+15 1,2 OR 3 GIVEN IN TAG. ONE F3B05030
Reference
01603 1 77777 1 00762 924 TXI M12022,1,−1 BACK T0 END OF AIL ROUTINE F3B09230

M12030 = 503

Definition
00767 0 07400 4 00707 509 M12030 TSX CIT00,4 TO CIT COMPILING IF TAG UNCHANGED. F3805080
Reference
00763 0 10000 0 00767 505 TZE M12030 DIM TAGS NOT CHANGED. F3805040

M12035 = 508

Definition
00774 −0 75400 1 00000 514 M12035 PXD 0,1 TEST IF END OF CUR AIL REC F3B05130

References (11)

01211	1 77776 1 00774	659	TXI	M12035,1,−2 BACK T0 CONTINUE AIL ROUTINES	F3B06580
01217	1 77776 1 00774	666	TXI	M12035,1,−2	F3B06650
01247	1 77776 1 00774	691	TXI	M12035,1,−2 BACK T0 AIL ROUTINE	F3B06900
01303	1 77776 1 00774	720	TXI	M12035,1,−2 BACK TO STANDARD AIL ROUTINE	F3B07190
01400	1 77777 1 00774	784	TXI	M12035,1,−1 AIL ROUTINE	F3B07830
01474	1 77777 1 00774	849	TXI	M12035,1,−1 CONTINUE WITH ROUTINE	F3B08480
01502	1 77777 1 00774	856	TXI	M12035,1,−1 CONTINUE WITH AIL ROUTINE	F3B08550
01705	1 77777 1 00774	991	TXI	M12035,1,−1 AIL ROUTINE	F3B09900
01772	1 77777 1 00774	1046	TXI	M12035,1,−1 OUT FOR XMAX0, MAX1, XMIN0, MIN1	F3810450
02016	1 77777 1 00774	1066	TXI	M12035,1,−1 BACK TO END OF AIL ROUTINE	F3B10650
02154	1 77777 1 00774	1165	TXI	M12035,1,−1 AIL ROUTINE	F3B11650

M12040 = 513

Definition
01001 0 50000 1 02327 519 M12040 CLA AIL,1 NEXT AIL INST SAME BLOCK AS F3B05180
Reference
00776 0 02000 0 01001 516 TRA M12040 POSITION WITH TOTAL AIL F3805150

M12050 = 520

Definition
01010 −0 76000 0 00142 526 M12050 MSE 98 END OF DO FILE IF LIGHT 2 ON, F3B03250
Reference
01004 0 02000 0 01010 522 TRA M12050 NEXT AIL FMLA NO. GR THAN PREV. F3B09210

M12500 = 526

Definition
532 CHANGE TAG TABLE SEARCH F3805310

01016 0 50000 0 02325 533 M12500 CLA M1CW+3 SYMBOLIC TAG IN BINARY BITS F3805320

References (9)

00765	0 07400 4 01016	507	TSX	M12500,4 ENTRIES IN EDITED CHANGE	F3805060
01141	0 07400 4 01016	618	TSX	M12500,4 TRANSFER BACK T0 CHTG TABLE	F3B06170
01364	0 07400 4 01016	771	TSX	M12500,4 CHANGE TAG TABLE SEARCH	F3B07700
01431	0 07400 4 01016	812	TSX	M12500,4 CHTG TABLE SEARCH	F3808110
01536	0 07400 4 01016	886	TSX	M12500,4 CHTG TABLE SEARCH	F3B08850
01626	0 07400 4 01016	944	TSX	M12500,4 BACK TO AIL ROUTINE	F3B09430
01732	0 07400 4 01016	1014	TSX	M12500,4 CHTG TABLE SEARCH	F3B10)30
02102	0 07400 4 01016	1120	TSX	M12500,4 CHTG TABLE SEARCH	F3B11190
02140	0 07400 4 01016	1153	TSX	M12500,4 BACK T0 CHTG TABLE SEARCH	F3B11530

M12503 = 529

Definition
01021 −0 53400 4 02275 536 M12503 LXD CHTGE1,4 F3B05350
Reference
01067 0 02000 0 01021 574 TRA M12503 TO CMP AIL AND CHTG FMLA NOS. F3B05730

M12510 = 535

Definition
01027 −0 53400 4 02302 542 M12510 LXD CBOX,4 IRC HAS TSX RTN ADDR TO F3B05410

References (4)

01024	0 02000 0 01027	539	TRA	M12510 CHTG FMLA NO GREATER AIL NO.	F3805380
01042	0 02000 0 01027	553	TRA	M12510 RTN VIA TSX TO AIL COMP AT M12030.	F3B05520
01045	0 02000 0 01027	556	TRA	M12510	F3B05550
01053	0 02000 0 01027	562	TRA	M12510 EMPTY OR EXHAUSTED.	F3B05610

M12515 = 537

Definition
01031 0 50000 0 02276 544 M12515 CLA CHTGE2 SEARCH CUR CHTG BLOCK FOR F3B05430
Reference
01025 0 02000 0 01031 540 TRA M12515 CHTG FMLA NO EQUALS AIL NO, F3B05390

M12520 = 539

Definition
01033 1 77777 4 01034 546 M12520 TXI M12520+1,4,−1 F3B05450

References (2)

	01033	1 77777 4 01034	546	M12520	TXI	M12520+1,4,−1	F3B05450
D	01044	3 00000 4 01033	555		TXH	M12520,4 DECREMENT IS CHTGE2 VALUE.	F3B05540

M12530 = 547

Definition
01043 1 77777 4 01044 554 M12530 TXI M12530+1,4,−1 IRC ENDS CHTG BLOCK SAME FMLA NO. F3B05530

References (3)

01032	0 62200 0 01044	545		STD	M12530+1 CUR AIL INST TAG	F3B05440
01037	−0 10000 0 01043	550		TNZ	M12530 CHTG TAG AND AIL TAG DIFFERENT.	F3B05490
01043	1 77777 4 01044	554	M12530	TXI	M12530+1,4,−1 IRC ENDS CHTG BLOCK SAME FMLA NO.	F3B05530

M12540 = 550

Definition
01046 0 50000 0 02276 557 M12540 CLA CHTGE2 UPDATE CHTGE1. CHTGE1 HAS IRC F3B05560
Reference
01026 0 02000 0 01046 541 TRA M12540 CHTG FMLA NO LESS AIL NO. F3B05400

M12550 = 556

Definition
01054 −0 53400 4 02275 563 M12550 LXD CHTGE1,4 COMPUTE NEW CHTGE2. CHTGE2 IS F3B05620
Reference
01051 −0 10000 0 01054 560 TNZ M12550 CHTGL HAS 2S COMP NO WDS CHTG TABLE. F3B05590

M12555 = 559

Definition
01057 1 77776 4 01060 566 M12555 TXI M12555+1,4,−2 BLOCK ALL WITH SAME FMLA NO. F3B05650

References (2)

	01057	1 77776 4 01060	566	M12555	TXI	M12555+1,4,−2 BLOCK ALL WITH SAME FMLA NO.	F3B05650
	01065	0 10000 0 01057	572		TZE	M12555 FMLA, SO MUST UPDATE CHTGE1	F3B05710

M12570 = 566

Definition
01066 −0 63400 4 02276 573 M12570 SXD CHTGE2,4 AND CHTGE2 TO GET NEXT ENTRY, F3B05720
Reference
01062 0 10000 0 01066 569 TZE M12570 INSTR FOR CHANGING ITS TAG. F3B05680

M13000 = 568

Definition
575 EXPONENTIAL OPEN SUBROUTINES F3B05740

01070 0 76000 0 00002 576 M13000 CHS CHANGE MINUS SIGN OF F3B05750
Reference
00753 −0 12000 0 01070 497 M12005 TMI M13000 MINUS MEANS OPEN SU8ROUTINE. F3804960

M13005 = 571

Definition
01073 0 50000 1 02327 579 M13005 CLA AIL,1 SECOND WORD F3B05780
Reference
01072 1 77777 1 01073 578 TXI M13005,1,−1 DECREASE COUNT IN IR1 F3B05770

M13020 = 577

Definition
01101 0 76000 0 00144 585 M13020 PSE 100 FIXED EXP. LITE 100 ON F3B05840

References (3)

01075	0 10000 0 01101	581	TZE	M13020 FIXED EXPONENT	F3B05800
01077	0 10000 0 01102	583	TZE	M13020+1 IF NEITHER, THEN NOT EXPONENTIAL	F3B05820
01102	1 77777 1 01103	586	TXI	M13020+2,1,−1 3RD WORD	F3B05850

M13025 = 581

Definition
01105 1 77777 1 01106 589 M13025 TXI M13025+1,1,−1 F3B05880
Reference
01105 1 77777 1 01106 589 M13025 TXI M13025+1,1,−1 F3B05880

M13030 = 584

Definition
01110 1 77777 1 01111 592 M13030 TXI M13030+1,1,−1 DECREASE BY 1 F3B05910
Reference
01110 1 77777 1 01111 592 M13030 TXI M13030+1,1,−1 DECREASE BY 1 F3B05910

M13040 = 590

Definition
01116 1 77776 1 01117 598 M13040 TXI M13040+1,1,−2 DECREASE BY 2 F3B05970

References (2)

	01113	0 02000 0 01116	595		TRA	M13040 OF CURRENT AIL RECORD	F3B05940
	01116	1 77776 1 01117	598	M13040	TXI	M13040+1,1,−2 DECREASE BY 2	F3B05970

M13060 = 605

Definition
01135 0 50000 0 02325 614 M13060 CLA M1CW+3 EXPONENT GREATER THAN 1 F3B06130
Reference
01127 −0 10000 0 01135 608 TNZ M13060 EXP GREATER THAN 1 F3B06070

M13070 = 611

Definition
01143 0 07400 4 00707 620 M13070 TSX CIT00,4 COMPILE FIRST INST F3B06190

References (2)

	01137	0 10000 0 01143	616		TZE	M13070 ARG TAGGED	F3B06150
	01227	0 02000 0 01143	674		TRA	M13070	F3B06730

M13080 = 616

Definition
01150 0 50000 1 02327 625 M13080 CLA AIL,1 VALUE OF EXPONENT F3B06240
Reference
01257 0 02000 0 01150 699 TRA M13080 EXPONENT, F3B06980

M13090 = 623

Definition
632 FIXED ARGUMENT, STORED, IN AC, INMQ, EXP GREATER THAN 2 F3B06310

01157 0 07400 4 00707 633 M13090 TSX CIT00,4 COMPILE INSTRUCTIONS FOR FIXED ARG. F3B06320
Reference
D 01174 3 00000 4 01157 646 TXH M13090,4 F3B06450

M13110 = 634

Definition
01172 1 77777 4 01173 644 M13110 TXI M13110+1,4,−1 COMPILE N-2 PAIRS OF INSTRUCTIONS F3B06430
Reference
01172 1 77777 4 01173 644 M13110 TXI M13110+1,4,−1 COMPILE N-2 PAIRS OF INSTRUCTIONS F3B06430

M13115 = 637

Definition
01175 −0 76000 0 00144 647 M13115 MSE 100 ARG FIXED OR FL0ATING F3B06460
Reference
01152 0 10000 0 01175 627 TZE M13115 EXPONENT EQUAL TO 2 F3B06260

M13200 = 650

Definition
660 ARG IN AC, FIXED OR FLOATING F3B06590

01212 0 50000 1 02327 661 M13200 CLA AIL,1 TEST TO SEE IF EXPONENT F3B06600
Reference
01121 0 10000 0 01212 601 TZE M13200 ARG IN AC F3B06000

M13210 = 656

Definition
01220 0 50000 0 02242 667 M13210 CLA M1ABC+21 EXP GREATER THAN 1,0 F3B06660
Reference
01214 −0 10000 0 01220 663 TNZ M13210 BACK TO PICK UP NEXT RECORD F3B06620

M13250 = 664

Definition
675 ARG IN MQ, FIXED OR FL0ATING F3B06740

01230 0 50000 1 02327 676 M13250 CLA AIL,1 VALUE OF EXPONENT AND TEST TO F3806750
Reference
01124 0 10000 0 01230 604 TZE M13250 ARG IN MQ F3B06030

M13265 = 680

Definition
01250 0 50000 0 02242 692 M13265 CLA M1ABC+21 EXP GREATER 1, F3B06910
Reference
01232 −0 10000 0 01250 678 TNZ M13265 EQUAL TO ONE, WE KNOW THAT F3B06770

M13300 = 688

Definition
700 FLOATING ARG, STORE0, IN AC, IN MQ, EXP GREATER 2 F3B06990

01260 0 07400 4 00707 701 M13300 TSX CIT00,4 F3B07000

References (2)

	01155	0 02000 0 01260	630		TRA	M13300 FLOATING ARGUMENT	F3B06290
D	01275	3 00000 4 01260	714		TXH	M13300,4 BACK TO COMILE N-2 PRS. OF INST.	F3B07130

M13320 = 699

Definition
01273 1 77777 4 01274 712 M13320 TXI M13320+1,4,−1 DECREASE COUNT BY 1 F3B07110
Reference
01273 1 77777 4 01274 712 M13320 TXI M13320+1,4,−1 DECREASE COUNT BY 1 F3B07110

M13330 = 702

Definition
01276 0 07400 4 00707 715 M13330 TSX CIT00,4 COMPILE LAST INST FOR F3B07140
Reference
01176 0 02000 0 01276 648 TRA M13330 FLOATING ARGUMENT F3B06470

M13500 = 708

Definition
01304 −0 53400 4 02203 721 M13500 LXD M1CON+11,4 SPECIAL OPS. LOAD COUNT OF 22 IN IR 4 F3B07200
Reference
01100 1 77777 1 01304 584 TXI M13500,1,−1 DETERMINATION OF SPECIAL 0P. F3B05830

M13503 = 710

Definition
01306 0 34000 4 02273 723 M13503 CAS M1D+18,4 IS THIRD WORD OF 1ST AIL ENTRY F3807220

M13510 = 714

Definition
01312 −0 63400 4 02312 727 M13510 SXD CCELL,4 IRC TO CCELL F3B07260

References (2)

	01310	0 02000 0 01312	725		TRA	M13510 INCONSTANT AREA	F3807240
	01313	1 77776 1 01314	728		TXI	M13510+2,1,−2 DECREASE CONTENTS OF IR 1 BY 2	F3B07270

M13520 = 721

Definition
01321 −0 53400 4 02312 734 M13520 LXD CCELL,4 F3B07330
Reference
01316 0 02000 0 01321 731 TRA M13520 RENT AIL RECORD F3B07300

M13525 = 722

Definition
01322 0 02000 4 01345 735 M13525 TRA M13525+19,4 CHOOSE APPROPRIATE SPECIAL OP BRANCH F3B07340
Reference
01322 0 02000 4 01345 735 M13525 TRA M13525+19,4 CHOOSE APPROPRIATE SPECIAL OP BRANCH F3B07340

M13550 = 741

Definition
754 XABS, ABS BRANCH F3B07530

01345 0 07400 4 02156 755 M13550 TSX ERROR1+1,4 INFO ON LOC OF ARG, CHECK FOR ALL 1S F3B07540

References (2)

	01323	1 77776 1 01345	736		TXI	M13550,1,−2 (XABS)	F3807350
	01324	1 77776 1 01345	737		TXI	M13550,1,−2 (ABS)	F3B07360

M13555 = 744

Definition
01350 0 50000 1 02327 758 M13555 CLA AIL,1 REL ADD AND TAG, IF ANY, F3B07570
Reference
01347 1 77777 1 01350 757 TXI M13555,1,−1 INCREMENT IR 1. . F3B07560

M13570 = 758

Definition
01366 0 07400 4 00707 773 M13570 TSX CIT00,4 COMPILE FIRST INST F3B07720

References (2)

	01362	0 10000 0 01366	769		TZE	M13570 ARG NOT TAGGED	F3B07680
	01410	0 02000 0 01366	793		TRA	M13570 COMPILE INSTRUCTION AS IF STORED	F3B07920

M13575 = 763

Definition
778 ARG IN AC,(STORED) F3B07770

01373 0 07400 4 00707 779 M13575 TSX CIT00,4 COMPILE FIRST (SECOND) INST F3B07780
Reference
01354 0 10000 0 01373 762 TZE M13575 ARG IN AC F3B07610

M13580 = 769

Definition
785 ARG IN MQ F3B07840

01401 0 50000 0 02242 786 M13580 CLA M1ABC+21 010000000000 F3B07850
Reference
01357 0 10000 0 01401 765 TZE M13580 ARG IN MQ F3B07640

M13595 = 777

Definition
794 XFIX, XINT, INT BRANCH F3B07930

01411 0 76000 0 00144 795 M13595 PSE 100 FLOATING PT F3B07940
Reference
01326 1 77776 1 01411 739 TXI M13595,1,−2 (INT) F3B07380

M13600 = 778

Definition
01412 0 07400 4 02156 796 M13600 TSX ERROR1+1,4 INFO ON LOC OF ARG F3B07950

References (2)

	01325	1 77776 1 01412	738		TXI	M13600,1,−2 (XINT)	F3B07370
	01327	1 77776 1 01412	740		TXI	M13600,1,−2 (XFIX)	F3B07390

M13605 = 781

Definition
01415 0 50000 1 02327 799 M13605 CLA AIL,1 REL ADD AND TAG, IF ANY, F3B07980
Reference
01414 1 77777 1 01415 798 TXI M13605,1,−1 F3B07970

M13620 = 795

Definition
01433 0 07400 4 00707 814 M13620 TSX CIT00,4 COMPILE FIRST INST F3B08130

References (2)

	01427	0 10000 0 01433	810		TZE	M13620 NOT TAGGED	F3808090
	01512	0 02000 0 01433	865		TRA	M13620 TRANSFER TO CONTINUE AS STORED	F3B08640

M13630 = 800

Definition
819 ARG IN AC(STORED) F3B08180

01440 0 07400 4 00707 820 M13630 TSX CIT00,4 COMPILE FIRST (SECOND) INST F3808190

References (2)

	01421	0 10000 0 01440	803		TZE	M13630 ARG IN AC	F3B08020
	01776	0 02000 0 01440	1050		TRA	M13630 XMAX1, XMIN1, FIXED MIX OR MIN	F3810490

M13640 = 808

Definition
828 XFIX, XINT, ARG STORED, IN AC, IN MQ F3808270

01450 0 07400 4 00707 829 M13640 TSX CIT00,4 COMPILE 4 INST F3808280
Reference
01446 0 02000 0 01450 826 TRA M13640 XINT F3808250

M13660 = 829

Definition
850 INT, ARG STORED, IN AC, IN MQ F3B08490

01475 0 07400 4 00707 851 M13660 TSX CIT00,4 COMPILE 1 INST F3B08500
Reference
01447 0 02000 0 01475 827 TRA M13660 INT F3808260

M13670 = 835

Definition
857 XFIX, XINT, INT, ARG IN MQ F3B08560

01503 0 50000 0 02242 858 M13670 CLA M1ABC+21 COMPILE FIRST INST F3B08570
Reference
01424 0 10000 0 01503 806 TZE M13670 ARG IN MQ F3B08050

M13680 = 843

Definition
866 ALL MUTIVARIATE FUNCTIONS F3B08650

01513 0 76000 0 00144 867 M13680 PSE 100 PLACE SENSE SW. ON FOR FIXPT, F3B08660

References (5)

01331	1 77776 1 01513	742	TXI	M13680,1,−2 (XMOD)	F3B07410
01337	1 77776 1 01513	748	TXI	M13680,1,−2 (XMAX1B)	F3B07470
01340	1 77776 1 01513	749	TXI	M13680,1,−2 (MAX0B)	F3B07480
01343	1 77776 1 01513	752	TXI	M13680,1,−2 (XMIN1B)	F3B07510
01344	1 77776 1 01513	753	TXI	M13680,1,−2 (MINOB0)	F3B07520

M13681 = 844

Definition
01514 0 50000 1 02325 868 M13681 CLA AIL−2,1 TEST INTERNAL FORMULA NO, F3B08670

References (7)

01332	1 77776 1 01514	743	TXI	M13681,1,−2 (MOD)	F3B07420
01333	1 77776 1 01514	744	TXI	M13681,1,−2 (XSIGN)	F3B07430
01334	1 77776 1 01514	745	TXI	M13681,1,−2 (SIGN)	F3807440
01335	1 77776 1 01514	746	TXI	M13681,1,−2 (XMAX0 )	F3B07450
01336	1 77776 1 01514	747	TXI	M13681,1,−2 (MAX1 0	F3B07460
01341	1 77776 1 01514	750	TXI	M13681,1,−2 (XMIN0B)	F3807490
01342	1 77776 1 01514	751	TXI	M13681,1,−2 (MIN1B0)	F3807500

M13685 = 850

Definition
01522 0 50000 1 02327 874 M13685 CLA AIL,1 REL ADD + TAG OF F3B08730
Reference
01521 1 77777 1 01522 873 TXI M13685,1,−1 ADJUST COUNT IN IR 1, F3B08720

M13690 = 853

Definition
01525 −0 75400 1 00000 877 M13690 PXD 0,1 END OF AIL REC F3B08760
Reference
01524 1 77777 1 01525 876 TXI M13690,1,−1 F3B08750

M13700 = 858

Definition
01532 0 50000 0 02325 882 M13700 CLA M1CW+3 REL. ADDRESS + TAG, IF ANY F3B08810
Reference
01527 0 02000 0 01532 879 TRA M13700 IN AIL RECORD F3B08780

M13710 = 864

Definition
01540 0 50000 0 02201 888 M13710 CLA M1CON+9 SIGN, MODULO OR MAX, MIN F3B08870
Reference
01534 0 10000 0 01540 884 TZE M13710 FIRST ARG TAGGED F3B08830

M13725 = 894

Definition
01576 0 07400 4 02156 919 M13725 TSX ERROR1+1,4 CHECK FOR END OF CALLING SEQUENCE F3B09180
Reference
01575 1 77776 1 01576 918 TXI M13725,1,−2 DECREASE IR 1 BY 2 F3B09170

M13730 = 897

Definition
01601 0 50000 1 02327 922 M13730 CLA AIL,1 REL ADD AND TAG 0, F3B09210
Reference
01600 1 77777 1 01601 921 TXI M13730,1,−1 F3B09200

M13735 = 900

Definition
925 MOD BRANCH F3B09240

01604 0 07400 4 00707 926 M13735 TSX CIT00,4 COMPILE FIRST INST F3B09250
Reference
01551 0 02000 0 01604 897 TRA M13735 FL0ATING PT., MOD BRANCH F3B08960

M13741 = 910

Definition
01616 0 07400 4 02156 936 M13741 TSX ERROR1+1,4 CHECK THAT NEXT WORD IS LAST ARG. F3B09350
Reference
01615 1 77776 1 01616 935 TXI M13741,1,−2 F3B09340

M13745 = 913

Definition
01621 0 50000 1 02327 939 M13745 CLA AIL,1 REL ADD AND TAG OF F3B09380
Reference
01620 1 77777 1 01621 938 TXI M13745,1,−1 F3B09370

M13755 = 920

Definition
01630 0 07400 4 00707 946 M13755 TSX CIT00,4 COMPILE LAST 9 INSTS F3B09450
Reference
01624 0 10000 0 01630 942 TZE M13755 SECOND ARG TAGGED F3B09410

M13770 = 966

Definition
992 MAX, MIN BRANCH F3B09910

01706 0 50000 0 02200 993 M13770 CLA M1CON+8 +000004000000 F3B09920
Reference
01543 0 02000 0 01706 891 TRA M13770 MAX OR MIN BRANCH F3B08900

M13780 = 975

Definition
01717 0 50000 1 02327 1003 M13780 CLA AIL,1 END MARK, IF ANY, TO ENDT, THIS WILL F3B10020

References (3)

01765	0 02000 0 01717	1041	TRA	M13780 TO COMPILE INSTR. FOR ALL ARGUMENTS	F3810400
01770	0 02000 0 01717	1044	TRA	M13780	F3810430
02024	0 02000 0 01717	1073	TRA	M13780 TO STORE NEEDED INFORMATION	F3810720

M13785 = 978

Definition
01722 0 50000 1 02327 1006 M13785 CLA AIL,1 SYMBOLIC ADDRESS OF ITH ARG, I EQUAL 2,...,N F3B10050
Reference
01721 1 77776 1 01722 1005 TXI M13785,1,−2 F3B10040

M13790 = 981

Definition
01725 0 50000 1 02327 1009 M13790 CLA AIL,1 REL ADD AND TAG OF F3B10080
Reference
01724 1 77777 1 01725 1008 TXI M13790,1,−1 F3B10070

M13800 = 988

Definition
01734 0 50000 0 02200 1016 M13800 CLA M1CON+8 000004000000 F3B10150
Reference
01730 0 10000 0 01734 1012 TZE M13800 ITH ARG NOT TAGGED F3B10110

M13820 = 1011

Definition
01763 −0 75400 1 00000 1039 M13820 PXD 0,1 END OF AIL REC F3B10380

References (2)

	01762	1 77777 1 01763	1038		TXI	M13820,1,−1	F3B10370
	02047	1 77777 1 01763	1092		TXI	M13820,1,−1 TO TEST IF END OF AIL RECORD	F3B10910

M13830 = 1017

Definition
01771 −0 76000 0 00144 1045 M13830 MSE 100 TEST FOR FIXED PT AND TURN OFF SW. F3B10440

References (3)

01761	0 10000 0 01771	1037		TZE	M13830 LAST ARGUMENT	F3B10360
02062	0 02000 0 01771	1103		TRA	M13830 TEST SW, 4 AND GO TO VARIOUS ROUTES	F3B11020
02111	0 02000 0 01777	1128	M13915	TRA	M13830+6 TO COMILE 3 INSTR. AS MAX OR MIN	F3B11270

M13855 = 1039

Definition
1067 ALL MIN ROUTINE COMPILE FIRST INST F3B10660

02017 0 07400 4 00707 1068 M13855 TSX CIT00,4 COMPILE FIRST INST F3B10670
Reference
01711 0 02000 0 02017 996 TRA M13855 MIN BRANCH F3B09950

M13860 = 1045

Definition
02025 0 07400 4 00707 1074 M13860 TSX CIT00,4 COMPILE 3 INST FOR F3B10730
Reference
01737 0 02000 0 02025 1019 TRA M13860 MIN BRANCH F3B10180

M13880 = 1064

Definition
02050 0 07400 4 00707 1093 M13880 TSX CIT00,4 COMPILE TWO INST. F3B10920
Reference
02046 0 10000 0 02050 1091 TZE M13880 LAST ARGUMENT F3B10900

M13900 = 1075

Definition
1104 FLOAT BRANCH F3B11030

02063 0 07400 4 02156 1105 M13900 TSX ERROR1+1,4 TO TEST IF ONLY ONE ARGUMENT F3B11040
Reference
01330 1 77776 1 02063 741 TXI M13900,1,−2 (FLDAT) F3B07400

M13905 = 1078

Definition
02066 0 50000 1 02327 1108 M13905 CLA AIL,1 REL ADD AND TAG, IF ANY, F3B11070
Reference
02065 1 77777 1 02066 1107 TXI M13905,1,−1 F3B11060

M13910 = 1092

Definition
02104 0 07400 4 00707 1122 M13910 TSX CIT00,4 F3B11210

References (2)

	02100	0 10000 0 02104	1118		TZE	M13910 ARG NOT TAGGED	F3811170
	02121	0 02000 0 02104	1137		TRA	M13910 TO COMPILE A CLA INSTRUCTION	F3B11370

M13915 = 1097

Definition
1127 ARG IN AC (STORED) F3B11260

02111 0 02000 0 01777 1128 M13915 TRA M13830+6 TO COMILE 3 INSTR. AS MAX OR MIN F3B11270
Reference
02072 0 10000 0 02111 1112 TZE M13915 ARG IN AC F3B11110

M13920 = 1098

Definition
1129 ARG IN MQ F3B11280

02112 0 50000 0 02242 1130 M13920 CLA M1ABC+21 010000000000 F3B11290
Reference
02075 0 10000 0 02112 1115 TZE M13920 ARG IN MQ F3B11140

M13950 = 1106

Definition
1138 XSIGN, SIGN BRANCH F3B11380

02122 0 07400 4 00707 1139 M13950 TSX CIT00,4 F3B11390
Reference
01547 0 02000 0 02122 895 TRA M13950 SIGN BRANCH F3B08940

M13955 = 1112

Definition
02130 0 07400 4 02156 1145 M13955 TSX ERROR1+1,4 TEST IF ONLY 2 ARGUMENTS F3B11450
Reference
02127 1 77776 1 02130 1144 TXI M13955,1,−2 DECREASE IR 1 BY -2 F3B11440

M13960 = 1115

Definition
02133 0 50000 1 02327 1148 M13960 CLA AIL,1 REL ADD AND TAG, IF ANY, TO F3B11480
Reference
02132 1 77777 1 02133 1147 TXI M13960,1,−1 F3B11470

M13965 = 1122

Definition
02142 0 07400 4 00707 1155 M13965 TSX CIT00,4 F3B11550
Reference
02136 0 10000 0 02142 1151 TZE M13965 ARG NOT TAGGED F3B11510

M1ALFN = 1224

Definition
02310 0 00000 0 00000 1257 M1ALFN INT FMLA NO OF CUR BLOCK OF AIL INST F3B11980

References (3)

00752	0 62200 0 02310	496	STD	M1ALFN SAVE FMLA NO. 1ST INSTR ARITH BLOCK,	F3B04950
01003	0 34000 0 02310	521	CAS	M1ALFN	F3B05200
01023	0 34000 0 02310	538	CAS	M1ALFN WITH CUR CHTG TABLE BLOCK.	F3805370

M1ALWN = 1221

Definition
02305 0 00000 0 00000 1254 M1ALWN 2S COMP OF N0 OF WORDS IN CUR AIL REC F3B11950

References (9)

00353	−0 63400 1 02305	232	M10240	SXD	M1ALWN,1 STORE 2S COMPL AIL WORD COUNT	F3B02310
00374	0 34000 0 02305	249		CAS	M1ALWN AIL REC WITH AIL REC COUNT	F3B02480
00421	0 34000 0 02305	270		CAS	M1ALWN AIL REC WITH AIL REC COUNT	F3B02690
00610	0 34000 0 02305	391		CAS	M1ALWN AIL BUFFER.	F3B03900
00775	0 34000 0 02305	515		CAS	M1ALWN BY COMPAR1NG CURRENT AIL WD	F3B05140
01112	0 34000 0 02305	594		CAS	M1ALWN 2S COMPLIMENT OF NUMBER OF WORDS	F3B05930
01315	0 34000 0 02305	730		CAS	M1ALWN 2 IS COMP, OF NO. OF WORDS OF CUR-	F3B07290
01526	0 34000 0 02305	878		CAS	M1ALWN 2S COMPLIMENT OF NO. OF WORDS	F3B08770
01764	0 34000 0 02305	1040		CAS	M1ALWN 2S COMPL. OF NO. OF WORS OF AIL REC	F3810390

M1DOFN = 1223

Definition
02307 0 00000 0 00000 1256 M1DOFN INT FMLA NO OF CUR BLOCK OF DO INST F3B11970

References (3)

00627	0 62200 0 02307	411	STD	M1DOFN FORMULA NOS.	F3B04100
00632	0 34000 0 02307	414	CAS	M1DOFN COMPARE AIL AND	F3B04130
00663	0 34000 0 02307	439	CAS	M1DOFN AIL AND DO FMLA NOS IN DECREMENTS.	F3B04380

M1DOWN = 1220

Definition
02304 0 00000 0 00000 1253 M1DOWN 2S COMP OF N0 OF WORDS IN CUR DO REC F3B11940

References (2)

	00440	−0 63400 2 02304	285		SXD	M1DOWN,2 STORE 2S COMPL DO WORD COUNT.	F3B02840
	00651	0 34000 0 02304	429		CAS	M1DOWN BY COMPARING CURRENT DO WD	F3B04280

M1EATC = 328

Definition
00510 0 07400 4 00004 326 M1EATC TSX 4,4 AIL REC. READ 5 TIMES UNSUCCESSFULLY. F3B03250
Reference
00503 0 10000 0 00510 321 TZE M1EATC TAPE 2 READ ALREADY 5 F3B03200

M1ECTR = 1140

Definition
02164 +000000000005 1173 M1ECTR DEC 5,6,0,0 F3B11730

References (16)

00030	0 53400 1 02164	11		LXA	M1ECTR,1 LOAD 5 INTO IRA TP RD ERROR CTR.	F3B00100
00043	0 53400 1 02164	23		LXA	M1ECTR,1 LOAD 5 INTO IRA TP RD ERROR CTR.	F3B00220
00110	0 53400 1 02164	62		LXA	M1ECTR,1 TO READ COMPAIL RECORD COUNT FILE.	F3B00610
00127	0 53400 4 02164	78	PEC00	LXA	M1ECTR,4 LOAD 5 INTO IRC DR RD ERROR CTR.	F3B00770
00141	0 53400 4 02164	88	PEC02	LXA	M1ECTR,4 LOAD 5 INTO IRC DR RD ERROR CTR.	F3B00870
00274	0 53400 4 02164	184		LXA	M1ECTR,4 LOAD 5 INTO IRC DR RD ERROR CTR.	F3B01830
00306	0 53400 4 02164	194	RSTO20	LXA	M1ECTR,4 LOAD 5 INTO IRC DR RD ERROR CTR	F3801930
00502	0 40200 0 02164	320		SUB	M1ECTR AIL RECORD. TEST IF	F3B03190
00504	0 40000 0 02165	322		ADD	M1ECTR+1 TIMES. IF NOT, INCREASE	F3B03210
00512	0 40200 0 02164	328		SUB	M1ECTR DO RECORD. TEST IF	F3B03270
00514	0 40000 0 02165	330		ADD	M1ECTR+1 TIMES. IF NOT, INCREASE	F3B03290
00553	−0 63400 1 02166	362	PAT12	SXD	M1ECTR+2,1	F3B03610
00554	−0 63400 2 02167	363		SXD	M1ECTR+3,2	F3B03620
00555	0 53400 1 02164	364		LXA	M1ECTR,1 LOAD 5 INTO IRC TP RD ERROR CTR.	F3B03630
00562	−0 53400 1 02166	369		LXD	M1ECTR+2,1 F FCNS AT BEGINNING OF COMPAIL FILE.	F3B03680
00563	−0 53400 2 02167	370		LXD	M1ECTR+3,2	F3B03690

M1EDTC = 336

Definition
00520 0 07400 4 00004 334 M1EDTC TSX 4,4 DO REC. READ 5 TIMES UNSUCCESSFULLY, F3B03330
Reference
00513 0 10000 0 00520 329 TZE M1EDTC TAPE 2 READ ALREADY 5 F3B03280

RSTO00 = 185

Definition
180 SXTX TABLE READ ROUTINE F3B01790

00271 −0 76000 0 00142 181 RSTO00 MSE 98 TEST IF DO FILE EMPTY. F3B01800

References (2)

	00234	0 02000 0 00271	149		TRA	RSTO00	F3B01480
	00242	0 02000 0 00271	156		TRA	RSTO00 NO ENTRIES IN EDITED CHG TAG TABLE	F3B01550

RSTO05 = 189

Definition
00275 0 76200 0 00301 185 RSTO05 RDS 193 SXDTX TABLE 0N LOGICAL DRUM 1, F3B01840

References (2)

	00272	0 02000 0 00274	182		TRA	RSTO05−1 SENSE LIGHT 2 ON INDICATES	F3801810
	00304	2 00001 4 00275	192		TIX	RSTO05,4,1 DRUM READ CORRECTLY.	F3801910

RSTO20 = 198

Definition
00306 0 53400 4 02164 194 RSTO20 LXA M1ECTR,4 LOAD 5 INTO IRC DR RD ERROR CTR F3801930
Reference
00303 0 10000 0 00306 191 TZE RSTO20 TEST THAT FIRST 2 WORDS OFF F3801900

RSTO21 = 199

Definition
00307 0 50000 0 05737 195 RSTO21 CLA ERAS SUBTRACT ORIGIN+2 FROM FIRST F3B01040
Reference
00333 2 00001 4 00307 215 TIX RSTO21,4,1 RE-READING DRUM 3 TIMES IF ERROR. F3802140

RSTO30 = 204

Definition
00314 0 60100 0 02300 200 RSTO30 STO SXTXL STORE SXDTX LENGTH AND LOAD F3B01990
Reference
00311 −0 10000 0 00314 197 TNZ RSTO30 F3801960

RSTO40 = 212

Definition
00324 0 70000 2 00000 208 RSTO40 CPY 0,2 CPY LOOP F3B02070

References (4)

00316	0 40200 0 00327	202	SUB	RSTO40+3 CALC. ADDRESS TO READ IN SXTX TABLE.	F3802010
00317	0 62100 0 00324	203	STA	RSTO40 INITIAL WORD OF TABLE IS	F3B02020
00325	2 00001 2 00324	209	TIX	RSTO40,2,1 SXTX TABLE LENGTH IN IRB.	F3802080
00336	2 00003 1 00327	218	TIX	RSTO40+3,1,3 SXTX TABLE LENGTH IN 1RA,	F3B02170

RSTO60 = 221

Definition
00335 1 77775 2 00336 217 RSTO60 TXI RSTO60+1,2,−3 F3B02160

References (2)

	00332	0 10000 0 00335	214		TZE	RSTO60 PROGRAM AUT0MATICALLY TRIES	F3B02130
	00335	1 77775 2 00336	217	RSTO60	TXI	RSTO60+1,2,−3	F3B02160

TAGB0X = 1219

Definition
02303 0 00000 0 00000 1252 TAGB0X TAG OF CUR AIL INST DURING CHTG TABLE SEARCH F3B11930

References (2)

	01017	0 62100 0 02303	534		STA	TAGB0X 24-35 4TH WD COMPILED INSTR.	F3805330
	01036	0 40200 0 02303	549		SUB	TAGB0X TAG BOX HAS AIL TAG IN ADDR.	F3B05480

			459			COMPILING ROUTINE,CIT00	F3B04580
	00707	−0 60000 0 02314	460	CIT00	STQ	E1C E1C CELL FOR SAVING MQ.	F3B04590

			77			CHANGE TAG TABLE EDIT	F3B00760
	00127	0 53400 4 02164	78	PEC00	LXA	M1ECTR,4 LOAD 5 INTO IRC DR RD ERROR CTR.	F3B00770

	00146	0 62100 0 00151	93		STA	PEC04 CHG TAG TABLE ENTRIES TO BE	F3B00920
	00152	2 00001 1 00151	97		TIX	PEC04,1,1	F3B00960

			107			BEGIN EDIT OF UCHTG	F3B01060
	00164	0 53400 3 02170	108	PEC10	LXA	M1CON,3 LOAD 0 INTO IRA, IRB	F3B01070

			132			END OF EDIT, COMPUTE CHTGE2	F3B01310
	00214	−0 75400 2 00000	133	PEC17	PXD	0,2 END OF FORTAG TABLE.	F3B01320

			150			ROUTINE FOR EMPTY UCHTG TABLE	F3B01490
	00235	0 50000 0 02170	151	PEC20	CLA	M1CON PLACE ZEROS INTO 3 CONTROL	F3B01500

			157			SEARCH FOR INT FMLA NO OF CUR. FORTAG ENTRY IN UCHTG	F3B01560
	00243	0 50000 1 02327	158	PEC30	CLA	FORTAG,1 TAG OF FORTAG ENTRY EQUAL	F3B01570

	00036	1 00007 1 00037	17		TXI	M10010,1,7 RECORDS IN DOTAGB PLUS 7 T0 START FORTAG,	F3B00160
	00040	2 00001 1 00037	19		TIX	M10010,1,1	F3B00180

	00116	1 00002 2 00117	68		TXI	M10070,2,2 OVER COMPAIL RECORDS	F3B00670
	00120	2 00001 2 00117	70		TIX	M10070,2,1 RECORD OF COMPAIL FILE.	F3B00690

			220			READ AIL, READ DO ROUTINES	F3B02190
	00340	0 53400 4 02170	221	M10200	LXA	M1CON,4 0 IN IRC WHEN SKIPPING CL0SED SRTNS.	F3B02200

			318			ERROR ROUTINES, END OF FILE ROUTINES	F3B03170
	00501	0 50000 0 02306	319	M10700	CLA	M1TRC REDUNDANCY CHECK READING	F3B03180

			348			M1 TERMINAL ROUTINE	F3B03470
	00536	0 76600 0 00223	349	M10900	WRS	147 ROUTINE WR ON TP 3 INSTR REMAINING	F3B03480

			494			COMPILATION OF AIL INSTRUCTIONS	F3804930
	00751	0 07400 4 00744	495	M12000	TSX	ERR2,4 TEST 1ST AIL WORD ALL ONES.	F3B04940

			532			CHANGE TAG TABLE SEARCH	F3805310
	01016	0 50000 0 02325	533	M12500	CLA	M1CW+3 SYMBOLIC TAG IN BINARY BITS	F3805320

			575			EXPONENTIAL OPEN SUBROUTINES	F3B05740
	01070	0 76000 0 00002	576	M13000	CHS	CHANGE MINUS SIGN OF	F3B05750

			632			FIXED ARGUMENT, STORED, IN AC, INMQ, EXP GREATER THAN 2	F3B06310
	01157	0 07400 4 00707	633	M13090	TSX	CIT00,4 COMPILE INSTRUCTIONS FOR FIXED ARG.	F3B06320

			660			ARG IN AC, FIXED OR FLOATING	F3B06590
	01212	0 50000 1 02327	661	M13200	CLA	AIL,1 TEST TO SEE IF EXPONENT	F3B06600

			675			ARG IN MQ, FIXED OR FL0ATING	F3B06740
	01230	0 50000 1 02327	676	M13250	CLA	AIL,1 VALUE OF EXPONENT AND TEST TO	F3806750

			700			FLOATING ARG, STORE0, IN AC, IN MQ, EXP GREATER 2	F3B06990
	01260	0 07400 4 00707	701	M13300	TSX	CIT00,4	F3B07000

			754			XABS, ABS BRANCH	F3B07530
	01345	0 07400 4 02156	755	M13550	TSX	ERROR1+1,4 INFO ON LOC OF ARG, CHECK FOR ALL 1S	F3B07540

			778			ARG IN AC,(STORED)	F3B07770
	01373	0 07400 4 00707	779	M13575	TSX	CIT00,4 COMPILE FIRST (SECOND) INST	F3B07780

			785			ARG IN MQ	F3B07840
	01401	0 50000 0 02242	786	M13580	CLA	M1ABC+21 010000000000	F3B07850

			794			XFIX, XINT, INT BRANCH	F3B07930
	01411	0 76000 0 00144	795	M13595	PSE	100 FLOATING PT	F3B07940

			819			ARG IN AC(STORED)	F3B08180
	01440	0 07400 4 00707	820	M13630	TSX	CIT00,4 COMPILE FIRST (SECOND) INST	F3808190

			828			XFIX, XINT, ARG STORED, IN AC, IN MQ	F3808270
	01450	0 07400 4 00707	829	M13640	TSX	CIT00,4 COMPILE 4 INST	F3808280

			850			INT, ARG STORED, IN AC, IN MQ	F3B08490
	01475	0 07400 4 00707	851	M13660	TSX	CIT00,4 COMPILE 1 INST	F3B08500

			857			XFIX, XINT, INT, ARG IN MQ	F3B08560
	01503	0 50000 0 02242	858	M13670	CLA	M1ABC+21 COMPILE FIRST INST	F3B08570

			866			ALL MUTIVARIATE FUNCTIONS	F3B08650
	01513	0 76000 0 00144	867	M13680	PSE	100 PLACE SENSE SW. ON FOR FIXPT,	F3B08660

			925			MOD BRANCH	F3B09240
	01604	0 07400 4 00707	926	M13735	TSX	CIT00,4 COMPILE FIRST INST	F3B09250

			992			MAX, MIN BRANCH	F3B09910
	01706	0 50000 0 02200	993	M13770	CLA	M1CON+8 +000004000000	F3B09920