. THIS SECTION DETERMINES THE MOST RESTRICTIVE COMPUTE POINT TO BE . DETERMINED FOR THE TWO OPERANDS IN COPND1 AND COPND2 36190 . C IS A SUBROUTIME WHICH FINDS THE COMPUTE POINT BETWEEN TX + T4 36200 . AT THE CONCLUSION THE COMPUTE POINT IS IN TX 36210 RGS . REGISTER DEFINITION CONTR . TRIAD DEFINITION $(1) . LIT . CCD* LX,016 B9,0 ANALYSES OPERAND ONE 36220 SX,H2 B11,CXX LMJ B10,CC 36240 LX,016 B9,1 ANALYSES OPERAND TWO 36250 LMJ B10,CC 36260 MV TA,TX 36270 MV TB,TY 36280 CCD1 LMJ B11,CY 36290 LA,2 A14,TX 36300 TLE,H1 A14,BND J CCD2 COMPUTE POINT IS BEYOND BOUNDARY 36330 CCD3 LA,1 A14,TX 36340 TG,H2 A14,BND J CCD4 COMPUTE POINT IS BEYOND BOUNDARY 36360 CCD5 MV TX,TC 36370 J *CXX REENT N3C* RES 0 C* SX,H2 B11,CXX J CCD1 36430 CCD2 SZ,H1 TX . ZERO TO DP1 IN TX 36440 J CCD3 36450 CCD4 LA,M A15,077777 36460 TZ,S6 TX . KEEPS A SUBSCRIPT TOGEATHER IF IT CAME FROM POLISH MASK SA,1 A15,TX 077777 DP2 IN TX 36470 J CCD5 36480 . THIS SECTION FINDS THE RESULTANT COMPUTE POINTS BETWEEN TX AND TY 36500 . AND STORES THE RESULT IN TX 36510 CY* L,H1 A12,TY TG,H1 A12,TX S,H1 A12, TX . MAXIMIZE DP1 L,H2 A12,TY TLE,H2 A12,TX S,H2 A12,TX MINIMIZE DP2 J 0,B11 CC LX,1 B8,COPND1,B9 36710 ETV A3,COPND1,B9,S1 14 1 . BRANCH ON ID CC1 J $-2 36730 J CC3 INDUCTION VARIABLE 36740 J CC4 VARIABLE 36750 J CC8 CONSTANT 36760 J CC8 OFFSET 36770 J CC9 EXP 36780 J CC8 TRIAD 36790 J CC8 DROPOUT 36800 J CC1-2 OPERATOR ERROR 368010 J CC8 . SUBSCRIPT CODE DUMMY J CC1-2 STATEMENT TYPE J CC1-2 LABEL J CC1-2 GENERATED LABEL J CC8 STAT REF J CC8 FORMAT REF CC3 TNZ,S2 COPND1,B9 . SPECIAL QUASI INDUCTION VARIABLE L,1 B8,LOOP+1,B8 . LOAD SYM TABLE REF L A0,3,B8 DP1,DP2 SA A0,TA,B9 A0 TA(J) 36840 J 0,B10 . NO FURTHER TESTS WITHIN A SUBSCRIPT 368600 CC4* RES 0 CC10 L,H1 A4,FDPX IF VARIABLE EQUALS BASE BARIABLE OF STATEMENT FUNC L,M A3,060 TEST COMMON AND EQUIVALENCE TEP,S2 A3,2,B8 IF BASE VARIABLE IN COMMON IGNORE DEFINE L,M A4,0 L,H2 A3,FDPX L,H1 A5,3,A3 TG A5,SEQNO J $+5 TNZ,H1 3,A3 IGNORE IF STATEMENT FUNCTION NOT DEFINED J $+3 TNE,M A4,0,B8 USE COMPUTE OF STATEMENT FUNCTION L,H2 B8,FDPX L,S3 A4,2,B8 CSC24 AND,M A4,7 TNE,M A5,6 J CC8 . INTRINSIC FUNCTIONS HAVE NO DEFINITION POINT L A4,3,B8 TNZ CRENT J CC10J TE,M A4,077777 J CC10J TE,M A5,5 ALLOW NO ZERO LEVEL EXPRESSIONS EXCEPT FOR DUMMIES AN,M A4,077 CC10J S A4,TA,B9 L,H1 A4,2,B8 AND,M A4,0307 TNE,M A5,1 J 0,B10 TNE,M A5,0102 TEST FOR ABNORMAL EXTERNAL FUNCTION J CC5K L,S2 A4,2,B8 AND,M A4,040 369100 JNZ A5,CC6 369200 CC5 AND,M A4,020 369400 JZ A5,0,B10 369500 CC5J MV CRCDP,TY 36960 SR R4,FLCM . SHOWS COMMON VARIABLES WERE USED 369700 MVW TA,B9 TX 36980 LMJ B11,CY 36990 MVW TX TA,B9 37000 J 0,B10 37010 CC6 TNZ,S5 SUBSC IF SUBSCRIPT ALREADY OPTIMIZED TNZ,1 LOOPNU ALLOW EQUIVALENC J CC6A TNZ IDF J $+2 J CC6A L,M A5,2 DONOT CONSIDER EQUIVALENCE FOR SUBSCRIPTS SSL A5,*GETF FOR JB A5,CC5 CC6A MVW CREDP TY SR R4,FLEQ . SHOWS EQUIVALENT VARIABLES WERE USED 37030 MVW TA,B9 TX 37040 LMJ B11,CY 37060 LA A0,TX 37070 SA A0,TA,B9 37080 J CC5 37090 CC5K L A0,SEQNO COMPUTE SEQUENCE NUMBER AN,M A0,1 OF HOPEFULLY PRECEDING STATEMENT S A0,ABFCFL AND FORCE AN ABNORMAL FUNCTION TO BE EVALUATED T SSC A0,18 LXM,M A0,077777 L R15,A0 J CC5J+1 CC8 L,M A0,077777 S A0,TA,B9 371100 J 0,B10 37110 CC9 SXLOC A13 B8 LX B8,A13 LA A13,(077777077777) 37130 AND A13,2,B8 CP1,CP2 T(J) FOR EXPRESSION 37140 SA A14,TA,B9 371800 J 0,B10 37170 $(2) . CXX J $-$ REENT LIT END