$(1) . LIT N5REG . THIS DEFINES THE REGSTERS . . SECTION 1.4.0 . THIS SECTION DETERMINES THE ORDER OF COMPUTATION OF . AN EXPRESSION IN ORDER TO MINIMIZE ARITHMETIC REGISTER . USAGE. IN ADDITION, TRIADS WITH AN EXPONENTIATION . OPERATOR,I.E., . OPERAND1 OPERAND2 ** . ARE CONVERTED . TO TWO TRIADS, . EXPI TRIADREF : . . OPERAND1 OPERAND2 , . WHERE EXPI IS . THE APPROPRIATE SUBROUTINE AND 'TRIADREF' REFERS TO . THE SECOND TRIAD. ALSO, COMMA OPERATORS ARE NUMBERED . ACCORDING TO THEIR ASSOCIATION WITH COLON OPERATORS. . DETR LX BB1,(1,0) REENT SZ SUBS RESET SUBS 042700 SZ DETC RESET COMMA COUNTER 042800 SZ DETCL1 SZ DETMLT DET1 L,H1 AA1,TT3,BB1 TEST FOR COMPLEX DIVIDE TNE,M AA1,0101304 J DET01 L,S2 AA1,TT3,BB1 TE,M AA1,13 ** TEST J DET10 LA,S6 AA1,TT3,BB1 SSL AA1,5 JB AA1,DET10 J IF EXP .LT. 9 DET01 LX BB2,EXPL2 AX,M BB2,1 TLEM,M BB2,TTLTH J $+2 J N5ER SZ TT10,BB2 LA AA1,TT1,BB1 MOVE TRIAD TO END SA AA1,TT1,BB2 LA AA1,TT2,BB1 SA AA1,TT2,BB2 LA AA1,TT3,BB1 SA AA1,TT3,BB2 LA AA1,TT7,BB1 SA AA1,TT7,BB2 LA,M AA1,2 SA,S1 AA1,TT5,BB2 LA AA1,TT9,BB1 SA AA1,TT9,BB2 LA AA1,(1,0) SA AA1,TT4,BB2 LA,M AA1,17 MAKE OP COMMA SA,S2 AA1,TT3,BB2 S,S3 AA1,TT10,BB2 SZ TT1,BB1 SZ TT2,BB1 LA AA1,TT3,BB1 AND AA1,(07400000) AU AA2,(0102200,0) TNE AA1,(0101304,0) AU AA2,(0102400,0) SPECIAL DIVIDE OPERATOR SA AA3,TT3,BB1 LA,M AA1,6 MAKE 2ND OPND SA,S1 AA1,TT2,BB1 TRIAD REF SX,H2 BB2,TT2,BB1 LA,S6 AA1,TT3,BB2 PUT EXP NR INTO AA AA1,(0200,0) SA AA1,TT1,BB1 SZ,S6 TT3,BB2 SX BB1,DETCL1 S BB1,AA3 L,M AA2,077 L,S1 AA1,TT1,BB2 TE,M AA1,6 J DETJA L,H2 BB1,TT1,BB2 TP,XH2 TT1,BB2 ANX,M BB1,0,*0 S,S3 AA2,TT10,BB1 S,T1 AA3,TT12,BB1 DETJA L,S1 AA1,TT2,BB2 TE,M AA1,6 J DETJB L,H2 BB1,TT2,BB2 TP,XH2 TT2,BB2 ANX,M BB1,0,*0 S,S3 AA2,TT10,BB1 S,T1 AA3,TT12,BB1 DETJB . SX BB2,BB1 SX BB2,EXPL2 DET10 LA,S1 AA1,TT1,BB1 SZ DETQ1 0 TO Q1 043000 SX BB1,DETS1 I TO S1 LX,H2 BB2,TT1,BB1 043200 TP,XH2 TT1,BB1 IF NEG ANX,M BB2,0,*0 REMOVE BIT LX,H2 BB3,TT2,BB1 043300 TP,XH2 TT2,BB1 ANX,M BB3,0,*0 TE,M AA1,6 IS X(I) PRIMITIVE 043400 J DET11 YES 043500 TZ,S2 TT3,BB2 CHECK OP FOR ZERO J DET101 NO LA AA1,TT1,BB1 FIND NON-DUMMY AND AA1,(0400000) OPERAND AND LA AA1,TT1,BB2 REPLACE TRIAD LA,S1 AA3,TT1,BB2 REF ITEM TNE,M AA3,7 LA AA1,TT2,BB2 XOR AA1,AA2 SA AA2,TT1,BB1 J DET11 DET101 LA,S2 AA1,TT5,BB2 Q(X) TO Q1 SA AA1,DETQ1 043700 LA,T2 AA1,TT5,BB2 S(X) TO S1 043800 SA AA1,DETS1 043900 DET11 LA,S1 AA1,TT2,BB1 044100 SZ DETQ2 0 TO Q2 044200 SX BB1,DETS2 I TO S2 TE,M AA1,6 IS Y(I) PRIMITIVE 044400 J DET12 YES TZ,S2 TT3,BB3 J DET111 LA AA1,TT2,BB1 AND AA1,(0400000) LA AA1,TT1,BB3 LA,S1 AA3,TT1,BB3 TNE,M AA3,7 LA AA1,TT2,BB3 XOR AA1,AA2 SA AA2,TT2,BB1 J DET12 DET111 LA,S2 AA1,TT5,BB3 Q(Y) TO Q2 SA AA1,DETQ2 044700 LA,T2 AA1,TT5,BB3 S(Y) TO S2 044800 SA AA1,DETS2 044900 DET12 LA,S2 AA1,TT3,BB1 GET OP TE,M AA1,17 IS Z(I) COMMA 045100 J DET13 045200 TZ,S6 TT3,BB1 J DET2 DET121 LA AA1,DETC AA,M AA1,1 045400 SA,T1 AA1,TT10,BB1 SA AA1,DETC 045600 J DET2 DET13 TNE,M AA1,16 COLON TEST J DET131 TNE,M AA1,20 J DET131 TE,M AA1,18 SPECIAL EXP TEST J DET2 DET131 LA AA2,DETC NR OF AA,M AA2,1 ARGS 046100 S,T1 AA2,TT1,BB1 TO FUNCTION REFERENCE SZ DETC 046300 SZ,T1 TT10,BB1 DET2 LA AA1,DETQ1 046400 TE AA1,DETQ2 DOES Q1 EQUAL Q2 046500 J DET22 NO 046600 AA,M AA1,1 Q1+1 TO 046700 SA,S2 AA1,TT5,BB1 Q(I) 046800 TZ DETQ1 046900 J DET23 047000 SX,T2 BB1,TT5,BB1 I TO S(I) 047100 DET21 TNZ DETCL1 J DET210 LX BB1,DETCL1 SZ DETCL1 J DET10 DET210 LA,S2 AA1,TT3,*BB1 TNE,M AA1,1 EQUALS TEST 047300 J DET211 TNE,M AA1,14 SUBSC DEF TEST J DET4 YES L BB2,AA1 L AA2,(02102000) TEST FOR 10 15 AND 19 SSL AA2,0,BB2 JB AA2,DET1 OPERATOR CAN APPEAR IN SUBSTATEMENT L AA2,TT3-1,BB1 AND AA2,(0777700000077) TE AA3,(0102000000044) SX B11,DETMLT J DET1 . . SECTION 1.4.1 . THIS SECTION PROCESSES THE TRIAD TABLES FROM THE END . TO THE BEGINNING, PROPAGATING FUNCTION SYMBOL TABLE . REFERENCES AND ARGUMENT NUMBERS. . DET211 LX BB2,EXPL2 AX,M BB2,1 SZ AA3 SZ ARCOLN DET21B JGD BB2,$+2 J *DET EXIT NOP 0 DELAY LA,S2 AA1,TT3,BB2 048000 TNE,M AA1,024 SPECIAL DIVIDE J DET21D TNE,M AA1,022 EXPONENTIATION J DET21D TE,M AA1,16 COLON TEST 048100 J DET212 048200 LA,H2 AA2,TT3,BB2 CHECK AND,M AA2,0177777 FOR OPEN JZ AA3,DET21C FUNCTIONS TNE,M AA3,055 CABS TEST J DET21D TG,M AA3,64 AUTO MATH FUNC TEST EVER1 J DET21D YES EVER1 J DET21B DET21C LX,H2 BB3,TT1,BB2 TP,XH2 TT1,BB2 IF NEG ANX,M BB3,0,*0 REMOVE BIT SX BB3,ARCOLN S,H2 BB3,TT10,BB2 S,H1 BB2,ARCOLN SZ AA3 J DET213 DET21D SZ AA3 NO, 0 TO SYM REF L,M AA1,0777 . FLAG FOR ROUTINES WHICH REFERENCE I BANK S AA1,ARCOLN S,H2 AA1,TT10,BB2 S,H1 BB2,ARCOLN J DET213 DET212 TE,M AA1,17 COMMA TEST 049600 J DET21B NO TZ,H2 TT3,BB2 SPECIAL COMMA TEST 049800 J DET21B YES SA,H2 AA3,TT3,BB2 FUNCTION SYM REF TO COMMA LA,S1 AA1,TT1,BB2 FIRST COMMA OPERAND 050100 TE,M AA1,6 TRIAD REF TEST J DET213 PRIMITIVE 050300 LX,H2 BB3,TT1,BB2 GET TRIAD NR TP,XH2 TT1,BB2 IF NEG ANX,M BB3,0,*0 REMOVE BIT L,H2 AA1,ARCOLN TE,M AA1,0777 SA,H2 AA1,TT10,BB3 TNE,M AA1,0777 S,S3 AA1,TT10,BB3 L,T1 AA1,TT10,BB2 SA,H1 AA1,TT4,BB3 LA AA1,TT1,BB2 MOVE SIGN OF AND AA1,(0177777) TRIAD REF SA,H2 AA2,TT1,BB2 TO OPERATOR AND AA1,(0400000) LA AA1,TT3,BB3 XOR AA1,AA2 SA AA2,TT3,BB3 LA,M AA2,2 ARG TYPE IS ORDINARY 050900 SA,S1 AA2,TT5,BB3 FUNCTION ARG TYPE 051000 LA,H2 AA1,TT3,BB2 FUNCTION SYM REF 051100 SA,H2 AA1,TT4,BB3 051200 L,H1 AA1,ARCOLN TNZ,T1 TT12,BB3 S,T1 AA1,TT12,BB3 DET213 LA,S1 AA1,TT2,BB2 SECOND COMMA OPERAND 051300 TE,M AA1,6 051400 J DET21A PRIMITIVE LX,H2 BB3,TT2,BB2 051600 TP,XH2 TT2,BB2 IF NEG ANX,M BB3,0,*0 REMOVE BIT L,H2 AA1,ARCOLN TE,M AA1,0777 SA,H2 AA1,TT10,BB3 TNE,M AA1,0777 S,S3 AA1,TT10,BB3 LA,T1 AA1,TT10,BB2 COMMA COUNT A,M AA1,1 S,H1 AA1,TT4,BB3 LA AA1,TT2,BB2 MOVE SIGN OF AND AA1,(0177777) TRIAD REF SA,H2 AA2,TT2,BB2 TO OPERATOR AND AA1,(0400000) LA AA1,TT3,BB3 XOR AA1,AA2 SA AA2,TT3,BB3 LA,M AA2,2 SA,S1 AA2,TT5,BB3 052000 LA,H2 AA1,TT3,BB2 FUNCTION SYM REF 052100 SA,H2 AA1,TT4,BB3 052200 L,H1 AA1,ARCOLN TNZ,T1 TT12,BB3 S,T1 AA1,TT12,BB3 DET21A LA,S2 AA1,TT3,BB2 TE,M AA1,17 COMMA TEST J DET21B L,T1 AA1,TT10,BB2 S,H1 AA1,TT4,BB2 SZ,T1 TT10,BB2 J DET21B DET22 TG AA1,DETQ2 IS Q1 LESS THAN Q2 054000 J DET3 NO 054100 DET22A LA AA1,DETQ2 Q2 TO Q(I) SA,S2 AA1,TT5,BB1 054300 DET23 LA AA1,DETS2 S2 TO 054400 SA,T2 AA1,TT5,BB1 S(I) 054500 LA AA1,DETS1 S1 TO 054600 SA,T3 AA1,TT5,BB3 F(Y) 054700 TNZ DETQ1 IS Q1 ZERO 054800 J DET21 YES 054900 SX,T3 BB1,TT5,BB2 I TO F(X) 055000 J DET21 055100 DET3 LA,S2 AA2,TT3,BB1 TNE,14 AA2,1 J DET22C DET22B SA,S2 AA1,TT5,BB1 LA AA1,DETS1 S1 TO 055300 SA,T2 AA1,TT5,BB1 S(I) 055400 LA AA1,DETS2 S2 TO 055500 SA,T3 AA1,TT5,BB2 F(X) 055600 TNZ DETQ2 IS Q2 ZERO 055700 J DET21 YES 055800 SX,T3 BB1,TT5,BB3 I TO F(Y) 055900 J DET21 056000 DET4 LA,S6 AA1,TT3-1,BB1 CHECK SUBSCR DEF TE,M AA1,3 FOR INITIAL LOAD TYPE JNZ AA1,*DET LA,S2 AA1,TT7-1,BB1 TE,M AA1,045 J *DET TNZ DETMLT SX B11,SUBS J *DET EXIT DET22C L,S1 AA2,TT2,BB1 TNE,M AA2,6 TEST FOR TRIAD RIGHT OF EQUALS J DET22A J DET22B $(0) DET* NOP . REENT J DETR REENT ARCOLN + 0 END