. THIS SECTION CONTAINS ALL THE CODE TO TRANSMIT ITEMS FROM F31 . TO F50 AND/OR F40 EXCEPT FOR THE ACTUAL FILING ROUTINES $(1) RGS . REGISTER DEFINITIONS STACK EQU N3STCK . THIS ROUTINE REMOVES AN EXPRESSION AND ALL SUBESPRESSIONS CONTAINED 20410 . AND PLACES THEM IN A BUFFER CALLED INSET AT THE BEGIINNING OF THIS 20420 . ROUTINE THE ADDRESS OF THE HIGHEST ORDER EXPRESSION IS IN SULOC 20430 . ON ENTERING THE OLCATION IN INSERT TO STORE REFORMED TREADS IN IS B4 20440 . ALSO ON ENTERING THR NUMBER OF THE TRIAD TO START WITH IS IN B5 20450 RSB* LX B2,(1,0) USED AS AN INDEX FOR THE STACK 20460 SX,H2 B11,RSBX SAVES EXIT 20470 LX B3,(-1,0) USED AS AND INDEX FOR STA 20480 SR R6,SXLD . FLAG FOR FIRST SUBEXPRESSION RSB1 LX,016 B1,INSERT,B4 LOADS LOCATION 20500 LMJ B10,SXT . CONVERT TRIAD TO SUBEXPRESSION XRSB LA,H1 A0,1,A3 205200 SSL A0,6 205300 TNE,H2 A0,TLOC 205310 SN,H2 A0,TLOC . SET SO THIS EXPRESSION WILL NOT HOLD BACK 205320 SA A0,B6 . SAVE NUMBER TO REUSE 205400 JE A0,1,B1,S1 5 RSBB . BBBB WAS AN EXP 205500 RSBX1 JE A0,2,B1,S1 5 RSBA . AAAA WAS AN EXP 205600 RSBX2 AX,016 B5,1 TRIN0 = TRIN0+1 20580 AX,016 B4,3 INSN0 = INSN0+3 20590 LR R15,SXLD JGD R15,$+1 SR R15,SXLD L,S4 A14,1,A3 AND,M A14,2 . IF J2=1, EXP IS REMOVED ON ZERO OCCURRENCES JNZ A15,RSBJ2 RSBD . NKSBX RSBL1 LR R15,SXLD JGD R15,RSBJ SR R15,SXLD RSBLJ1 AAL SUBEXD,NEXD,B6 . ADD THIS LOCATION IFL CSUBXD 1 SXLOC A3 B6 NKSBX SLJ DLINK REMOVE FROM CHAIN NKSBX RSBJ1 TNZ,M 0,B2 21040 J RSBC . WHEN STANO IS ZERO THERE ARE NO MORE EXP21050 ANX,M B2,1 21060 SZ SXDF CSC27 SX,T2 B5,STACK,B2 SXLOC A3 STACK,B2,T1 NKSBX MVW STACK,B2 STA,B3 L,H1 A4,1,A3 SSL A4,6 AX,M B3,1 L,M A15,1,B3 TG,M A15,LTNO J RSBOV TABLE OVERFLOW J RSB1 21150 RSBOV XERF ERR27 ERRAX+20 SLJ XERV RSBA . NKSBX JNBL A4,1,A3,S4 020 RSBX2 . R2 WAS NOT ON L,T3 A0,2,B1 . EXPRESSION NUMBER LNKSBX SXLOC A1 A0 LNKSBX TE,T1 A0,1,A1 EXPRESSION EFFECTIVLEZ COMMON J RSBX2 AS IT HAS BEEN REUSED SA,T1 A0,STACK,B2 JBL A4,1,A1,S4 040 RSBX2 . NEVER LINK TO COMMON LA,M A0,2,B1 . LOADS LOCATION OF TRIAD 21200 AN,M A0,INSERT SA,1 A0,STACK,*B2 21210 J RSBX2 21220 RSBB . LNKSBX JNBL A4,1,A3,S4 010 RSBX1 . R1 WAS NOT ON L,T3 A0,1,B1 . EXPRESSION NUMBER LNKSBX SXLOC A1 A0 LNKSBX TE,T1 A0,1,A1 EXPRESSION EFFECTIVLEZ COMMON J RSBX1 AS IT HAS BEEN REUSED SA,T1 A0,STACK,B2 JBL A4,1,A1,S4 040 RSBX1 . NEVER LINK TO COMMON LA,M A0,1,B1 . LOADS LOCATION OF TRIAD 21260 AN,M A0,INSERT SA,1 A0,STACK,*B2 21280 J RSBX1 21290 RSBC LA,M A4,0,B5 . TRIAD NO. TO A4 AN,M A4,1 ANX,M B4,1 . DECREASE COUNT INSNO 21310 SX B4,INSNO 21320 JMGI B3,$+3 213300 SZ SXDF . CLEAR FLAG 21340 J *RSBX REENT NOP LMA,T3 A0,STA,B3 . LOADS LOCATION OF ITEM IN INSERT TO CHANGE ANU,T2 A4,STA,B3 , COMPUTES REORDERED TRIAD NUMBER SA,T3 A5,INSERT,A0 L,M R15,6 S,S1 R15,INSERT,A0 ID FOR TRIAD J RSBC+3 214000 RSBJ S R15,SXLD TNZ DELF TNZ SXDF J RSBLJ1 . STATEMENT EQUALS CAN BE REUSED TN,XH2 3,A3 TEST FOR ZERO LEVEL J RSBJ1 21580 J RSBJ1 RSBJ2 TZ SXDF CSC24 J RSBD CSC24 L A15,SXCNT NKSBX TZ DELF USES ALREADY COUNTED DOWN J $+4 DFL SXCNT 1 . ONLY REMOVE WHEN USES ARE ZERO NKSBX JNZ A15,RSBJ1 . HAS BEEN MARKED WITH BIT WHICH SAYS DO NOT FIND ME TP 2,A3 THE COUNTS OF SOME DELTE EXPRESSIONS MAY BE ZERO WITH O J RSBJ1 OUTSTANDING USES J RSBD $(2) RSBX* J $-$ REENT LIT END