$(1) . LIT N5REG . DEFINE THE REGISTERS . SECTION 1.2.1 . THIS SECTION IS ENTERED WHEN THE TRIAD CONTAINING . THE EQUALS OPERATOR IS ENCOUNTERED. TESTS ARE THEN . MADE TO DETERMINE WHICH OF THE EXPRESSION CONTAINING . STATEMENTS IS BEING PROCESSED. . ST011* LA,S2 AA1,ITEM . HERE AFTER EQUALS TNE,M AA1,1 010700 J ST012 ARITHMETIC EQ 010800 TNE,M AA1,3 011100 J ST012 LOGICAL EQ 011200 TNE,M AA1,16 011500 J ST019 CALL 011600 SLJ CLOB1 LA,M AA1,PZERO LIST ELEMENT 011700 SA AA1,PZERO 011800 SZ PZERO+1 011900 SZ PZERO+2 012000 LA,M AA1,A0 012100 LX BB1,ALGI 012200 SA AA1,PZERO+3 012300 LA,S3 AA1,TT1,BB1 GET TYPE L,S1 AA2,TT1,BB1 TE,M AA2,6 TEST FOR TRIAD J STNOCT L B11,TT1,BB1 TP,XM 0,B11 AN,M B11,0,*0 TZ TT13,B11 . TEST FOR CHARACTER OPERAND J ST01CH . IT WAS A CHARACTER OPERAND L,T1 AA2,TT3,B11 TNE,M AA2,01023 TEST FOR OFFSET J STOCA TE,M AA2,01017 J STNOCT NOT A SUBSCRIPTED FORM L B11,TT1,B11 TP,XM 0,B11 AN,M B11,0,*0 STOCA L,S3 AA1,TT1,B11 STNOCT . ENTRY HERE IF NO OCTAL TO SUBSTITUTE SSC AA1,3 DIGIT TO SLJ SSL AA1,11 A DESIG S AA1,IOFLX1 TP,XH2 TT1,BB1 NEGATIVE QUANITIES J ST011B ARE TREATED AS EXPRESSIONS L,S1 AA1,TT1,BB1 TEST TO SEE IF EXPRESSION IS WITHIN GENIOLT TE,M AA1,1 GENIOL TNE,M AA1,2 GENIOL J ST011C VARIABLE OK GENIOL TNE,M AA1,3 TEST FOR CONSTANT J ST011X TNE,M AA1,5 GENIOL J ST011B EXPRESSION OK IN OUTPUT LIST GENIOL TE,M AA1,6 GENIOL SLJ N5ERRL ONLY ALLOWED TYPES GENIOL L B11,TT1,BB1 GENIOL TP,XH2 TT1,BB1 GO TO REFERENCED TRIAL GENIOL AN,M B11,0,*0 GENIOL L,S2 AA1,TT3,B11 EXTRACT OPERATOR TYPE GENIOL TNE,M AA1,15 GENIOL J ST011C SUBSCRIPT JUST ADDRESS GENIOL TNE,M AA1,19 GENIOL J ST011C OFFSET JUST ADDRESS GENIOL ST011B . EXPRESSION MAY NOT BE READ INTO ONLY WRITTEN OUTOF GENIOL TNZ,H2 IOLST GENIOL J STX11 SZ,H2 IOFLX1 PREVENT SHORT IO LIST GENIOL SLJ GEN GENIOL PCI 0,TT1,BB1 GENIOL SLJ N5LOAD LOAD ACCORDING TO TYPE GENIOL PCI 0,P1 MI 1,FNI04U,NAME . SLJ NI04$ OR ATH02$ EX $+1 GENIOL L,H1 AA1,IOFLX1 TNE,M AA1,0140 TEST FOR TYPE 6 BOOLEAN L,M AA1,0160 A,H1 AA1,OLDITM+1 S,H1 AA1,OLDITM+1 GENIOL J PHS5G GENIOL ST011X L,H2 B11,TT1,BB1 TP,XH2 TT1,BB1 AN,M B11,0,*0 TZ,S2 TT1,BB1 DO NOT MATERIALIZE J ST011B BUT PASS VALUE OF IMMEDIATE CONSTANT L AA2,2,B11 SSC AA2,21 TEST BETWEEN ONE WORD SSL AA2,33 HOLERITH CONSTANT IN SYM TABLE TE,M AA2,7 J $+3 . SKIP TESTING NOLERITH FOR CONVERSION T TZ,H1 CRFLD . TEST FOR CHARACTERS BEING ACTIVE J ST011CH TE,M AA2,3 IS CLASS A CONSTANT J ST011Z L,S3 AA2,TT1,BB1 GET TYPE OF CONSTANT TE,M AA2,6 IS IT BOOLEAN J ST011B L,M AA2,0160 SET A FIELD OF SLJ TO 7 S,H1 AA2,IOFLX1 J ST011B ST011CH L BB2,B11 LMJ B11,QTSBR L B11,ALGI S AA1,TT13,B11 J ST01CH ST011Z TNZ,H2 IOLST J STX11 NO GOOD IN INPUT LIST ST011C . GENIOL L AA1,IOFLX1 GENIOL L AA2,IOFLX S,H2 AA2,IOFLX1 AA AA1,(SLJ ('NIO1$ ')) SA AA1,ST011A 012800 SLJ GEN GENERATE INSTR TO 012900 PCI 0,TT1,BB1 PUT LIST ELEMENT 013000 MI 1,(LA P0,P1,0,M) ADDRESS INTO A0 EX $+1 ST01CHA . JOINING POINT FOR CHARACTER OPERANDS SLJ CLOB1 TNZ,S2 U1110A . REENTRANT LIBRARY TZ,H2 IOFLX1 J ST011J SLJ GENR MI 1,ST011A,NAME 013200 EX ST011L ST011J L,H1 AA1,OLDITM+1 AND,M AA1,017 A,H1 AA2,IOFLX1 S,H1 AA2,OLDITM+1 ST011L SN,H2 AA1,IOFLX TNZ,H2 IOFLX1 TNZ,S2 U1110A . REENTRANT LIBRARY J PHS5G L AA1,IOFLX S AA1,SIOFLX . SAVE FLAG FOR LMJ GENERATION DL AA1,OLDITM . SAVE L,M A0,ADDRESS SO AN DS AA1,OLDITS . LMJ B11,IO CAN BE IN INSERTED IN FRONT DL AA1,LMJCON DS AA1,OLDITM LMJ B11,FILE61 +OLDITS L AA1,SIOFLX S AA1,IOFLX . RESTORE FLAG FOR LMJ GENERATION J PHS5G STX11 L,H1 AA1,N5ERLA S,H1 AA1,STERA LMJ B11,ERFP +STERA J PHS5G ST01CH L AA1,(0200,0) . TYPE 010 FOR CHARACTER IN A S AA1,IOFLX1 L AA2,IOFLX S,H2 AA2,IOFLX1 AA AA1,(SLJ ('NI01$ ')) S AA1,ST011A L,M AA2,010 . TYPE FOR CHARACTER STRING S,T3 AA2,PZERO+3 . SET FOR SLJ INSTRUCTION L,H1 AA1,TT13,B11 . OPERAND STRING TNZ AA1 L,H2 AA1,TT13,B11 . SUBSTRING TABLE S,H2 AA1,ST01CHX SLJ GEN PCI 0,(((A0))-3) MI 1,ST01CHX,TEMP EX ST01CHA . THIS SECTION GENERATES CODE FOR SHORT IO LISTS THAT . RESULT FROM IMPLIED DO LOOPS STIOSL* . SLJ CLOB1 . GET ANY EXPRESSIONS OUT OF VOLATILE RE DO LMSC , TZ,H2 IOFLX1 . TEST FOR LMJ X11,1,X11 DO LMSC , J STIOSM DO LMSC , LMJ B11,FILE61 DO LMSC , +LMJCON DO JPL , TZ,S2 U1110A . TEST REENTRANT CODE OPTION DO JPL , J STIOSLZ DO JPL , SLJ GEN DO JPL , MI 1,(SLJ ('NIO3$ ')),NAME DO JPL , EX STIOSM DO JPL ,STIOSLZ TZ,H2 IOFLX1 . TEST FOR LMJ X11,1,X11 DO JPL , J STIOSM DO JPL , LMJ B11,FILE61 DO JPL , +LMJCON STIOSM L,H2 B11,ITEM+1 . SYM POINTER TO ARRAY NAME L,S3 AA1,2,B11 SSL AA1,3 . EXTRACT TYPE L,M AA2,1 TE,M AA1,4 . 4 IS COMPLEX TNE,M AA1,3 . 3 IS DOUBLE PRECISION L,M AA2,2 S AA2,SVALUE+5 . SAVE INCREMENT MULTIPLIER LSSL AA1,4 A,M AA1,0400 . FLAG FOR IMPLIED LOOP S,H1 AA1,IOFLX1 SZ,H2 IOFLX1 SLJ GEN PCI 0,ITEM+1 EX $+1 STIOSA SLJ GENR MI 1,(+P1) EX $+1 L,M AA2,0130006 . CODE FOR SHORT LIST ITEM L,S1 AA1,OLDITM . SAVE RELOCATION TYPE S,H1 AA2,OLDITM . S,S2 AA1,OLDITM . RESTORE RELOCATION TYPE L,M BB1,4 . GET OFFSET, INITIAL,FINAL . . INCREMENT AND PROD OF DIMEN CONSTANTS STIOSB L,H2 B11,ITEM+2,BB1 . GET VALUE OR ADDRESS TNZ,S2 ITEM+2,BB1 . IMMEDIATE CONSTANT? L B11,0,B11 . NO, GET CONSTANT L AA2,B11 L,S3 AA1,ITEM+2,BB1 . SIGN FIELD TEP,M AA1,4 . IS IT NEGATIVE LN AA2,AA2 . YES, COMPLEMENT IT S AA2,SVALUE,BB1 . SAVE VALUE JGD BB1,STIOSB . DONE 4 OF THEM? JGD BB1,STIOSB . DONE 5 OF THEM L AA1,SVALUE+5 . MULTIPLIER TE,M AA1,2 J $+4 . NOT DP OR COMPLEX L AA2,SVALUE+4 . DIMENSIONS TNE,M AA2,1 . CANT BE A ONE S AA1,SVALUE+4 . UNLESS NOT SUBSCRIPTED L AA1,SVALUE+1 . INITIAL VALUE MSI AA1,SVALUE+4 . MULTIPLIER, 2 FOR DP OR COMPLEX A AA1,SVALUE . OFFSET S,H2 AA1,OLDITM . SEND OFFSET TO PHASE 6 L,H1 AA1,IOFLX1 . FLAG AND TYPE BITS S,H1 AA1,OLDITM+1 SLJ GENR MI 1,(+0),ABS . MAKE HOLE FOR FIRST, LAST EX $+1 L AA1,SVALUE+4 . DIMENSIONS S,H2 AA1,IOFLX . TURN OFF LMJ INDICATOR S,H2 AA1,IOFLX1 MSI AA1,SVALUE+3 . INCREMENT S,H1 AA1,OLDITM+1 L AA1,SVALUE+2 . FINAL AN AA1,SVALUE+1 . INITIAL DSA AA1,36 DI AA1,SVALUE+3 . INCREMENT A,M AA1,1 . COMPUTE NUMBER OF ITEMS TO MOVE S,H2 AA1,OLDITM+1 L,S1 AA1,OLDITM . SAVE RELOCATION TYPE L AA2,(0130005,0) . CODE FOR DECIMAL EDIT S AA2,OLDITM . OF SHORT LIST IO ITEM S,S2 AA1,OLDITM . RESTORE RELOCATION TYPE DO JPL , SZ,H2 IOFLX . PREVENT SHORT LIST J PHS5G ST012* LX BB1,ALGI LA AA1,TT1,BB1 TNE AA1,TT2,BB1 J PHS5G TZ EXPL2 TEST FOR ONE EXPRESSION EQUAL TO ANOTHER SUBEXG J ST011K SUBEXG L,M AA1,5 TEST FOR SUBEXPRESSIONS SUBEXG TE,S1 AA1,TT1 SUBEXG J ST011K SUBEXG TE,S1 AA1,TT2 SUBEXG J ST011K SUBEXG TP,XH2 TT2 J ST011K SZ BB2 L BB1,TT2 SUBEXG L,T1 BB1,SUBEXD,BB1 TEST FOR TEMP ASSIGNED TO EXP SUBEXG TNZ BB1 SUBEXG J ST11KB L,S2 AA1,TEM,BB1 SUBEXG TE,M AA1,074 SEE IF TEMP PERMANENTLZ ASSIGNED SUBEXG J ST011K SUBEXG L BB2,TT1 SUBEXG S,T1 BB1,SUBEXD,BB2 SET TEMP NUMBER TO THAT OF ASSIGNEDSUBEXGSS ST11KA L,T1 AA1,TT3 TE,M AA1,01016 TEST FOR SUBSCRIPT J ST011Q L BB1,TT1 TZ,H2 SUBEXQ,BB1 IGNORE SPURIOUS LOC FUNCTIONS LOGIFT TN,T3 SUBEXD,BB1 TEST IF THIS IS ZERO LEVEL SUBSCRIPT J ST011Q SZ,T1 SUBEXD,BB2 J SP ST11KB TN,T3 SUBEXD,BB1 . TEST ZERO LEVEL SUBSCRIPT J ST011K J ST11KA ST011Q J PHS5G SUBEXG ST011K . SUBEXG LX BB1,ALGI SUBEXG SZ JDSFLA SZ AFLG LA,S1 AA1,TT1,BB1 013600 TNE,M AA1,7 DUMMY TEST 013700 J ST014 013800 TE,M AA1,6 . TEST CHARACTER MODE J ST0121 L,H2 BB2,TT1,BB1 . TRIAD NUMBER TNZ TT13,BB2 . TEST FOR SUBSTRINGS J ST0121 . NO SUBSTRINGS L,M AA1,('N$EQCH') . FUNCTION FOR EQUALS OPERATOR TZ,S2 U1110A . TEST REENTERENT CODE L,M AA1,('N$$QCH') . REENTERENT FUNCTION FOR EQUALS SLJ N5CHEX . GENERALIZED CALL FOR SUBSTRINGS J PHS5G ST0121 SLJ GEN GEN STORE FOR PCI 0,TT1,BB1 EQUATION 014000 PCI 0,TT2,BB1 014100 PCI 0,TT3,BB1 014200 TE,ID P1,ST012A,5 TLE,ID P1,ST0130,7 EX $+1 TRACE S GB1,TREQFL FLAG FOR TRACE THAT EQUAL BEING GENRTD TRACE SLJ GENR TRACE TE,T P2,$+2,5 ZERO TEST OK FOR LOGICAL TLE,T P2,ST012A,3 SKIP ZERO TEST FOR DP SLJ ZRTST PCI 0,P2 J ST0122 ST012A SLJ AREQ1N PCI 0,P2 014400 ST0122 TE,ID P1,ST013V,5 TLE,T 2,ST0132,P1 014500 TE,T P1,ST0132,6 TE,T P1,ST0132,5 014600 TE,S P0,ST0131,1 014700 MI 1,(DS P0,P1) J ST013 ST0123 EX $+1 L,M AA1,1 S,S3 AA1,OLDITM LA AA1,OLDITM+1 AA AA1,(020,0) SA AA1,OLDITM+1 ST0124 SLJ GENR ST013 EX $+1 L,S1 AA1,GMINST+1 TNE,M AA1,073 J STO13Z TG,M AA1,6 ONLY TEST STORE INSTRUCTIONS J $+4 L,H1 AA1,GMINST+1 DO NOT ASSIGN IF AND,M AA1,07400 STORE WAS INTO PART WORD JNZ AA2,ST013Q TZ JDSFLA J ST013Q CATCH FLD OF WHOLE WORD STO13Y SZ TREQFL SLJ GENR ST013V SLJ ASGN PCI 0,P1 015000 ST0130 EX PHS5G STO13Z L BB1,LALGI L,S2 AA1,TT3,BB1 TLE,M AA1,15 CHECK FOR MULTIPLIES AND DIVIDES J STO13Y WHICH ARE SHIFTS J PHS5G ST013Q SN,H2 AA1,ARQFND SET NOT TO COUNT ON FIRST USE SLJ GENR SLJ AREQ1C MAKE CONDITIONAL REQUEST TO DESTROZ WHOLE WORD PCI 0,P1 J $+1 IGNORE FACT IT WAS LOADED EX PHS5G ST0131 MI 1,(SNA P0,*P1) DOUBLE STORE MI 1,(SNA P0,P1) NEGATIVE SEQUENCE J ST0123 ST0132 SLJ ZRTST PCI 0,P2 J ST0134 TE,S P0,ST0133,1 MI 1,(SA P0,P1) 015500 J ST013 015600 ST0133 MI 1,(SNA P0,P1) 015700 J ST013 015800 ST0134 MI 1,(SZ P1) EX $+1 LA,M GA0,1 .SET FLAG SA GA0,AFLG J ST0124 STFRMA S,H1 AA1,ARGOPB L,M AA1,TT2,BB1 L,S1 AA2,TT2,BB1 TE,M AA2,6 J STFRMB L B11,TT2,BB1 TP,XH2 TT2,BB1 AN,M B11,0,*0 L,M AA1,TT3,B11 STFRMB S AA1,ARGOPA ADDRESS OF ARGUMENT LMJ B11,ARG J PHS5G ST014 L,H2 AA1,TT1,BB1 A,M AA1,436 CHANGES 077 TO 499 TG,M AA1,460 J STFRMA TNZ LOGIFF J ST015 ARITH IF 016000 TNZ LGARIF J ST015 SZ LGARIF TZ ST01F2 J ST014C L,H2 AA1,ST01F1 JZ AA1,$+4 TNE,M AA1,01223 J ST01R2 J ST014A . ASSIGNED AND UNCONDITIONAL GO TO L BB2,LGNSLV L,M AA1,020000 S,H1 AA1,LOGIFX,BB2 SLJ GEN PCI 1,LOGIFX,BB2 PCI 0,TT2,BB1 016300 SLJ AREQ1 PCI 0,P2 016500 TE,S P0,ST0141,1 016600 MI 1,(JNB P0,P1) EX ST014C ST0141 MI 1,(JB P0,P1) EX ST014C ST014A SLJ GEN A GO TO FOLLOWS PCI 0,ITEM+2 THE LOGICAL IF PCI 0,TT2,BB1 SLJ AREQ1N PCI 0,P2 TE,S P0,ST014B MI 1,(JNB P0,P1) EX ST014C ST014B MI 1,(JB P0,P1) EX ST014C ST014C SZ ST01F1 J PHS5G ST01R2 L BB2,LGNSLV SLJ GEN PCI 1,LOGIFX,BB2 PCI 0,TT2,BB1 SLJ AREQ1 PCI 0,P2 TE,S P0,ST01R3,1 MI 1,(JNB P0,P1),REL EX $+3 ST01R3 MI 1,(JB P0,P1),REL EX $+1 LA AA1,ITEM+2 SA AA1,ITEM+1 J ST19 ST015 LA,S3 AA1,TT2,BB1 ARITH IF SSC AA1,18 AA AA1,(050000,1) SA AA1,IFSUBX LA,M AA1,1 SA AA1,SUBEXQ+1 LOGIFT SA AA1,SUBEXD+1 LOGIFT LA AA1,IFSUBX SA AA1,TT1,BB1 J ST0121 ST09* LA,M AA1,7 FORM INDEX BASED L B11,FLARG LOCATION OF CODING FOR FLD CODIN CSC24 SZ FLARG TZ,M 0,B11 J 0,B11 CSC24 SZ BB1 ON DROPOUTS 018000 TE,S1 AA1,ITEM+1 AX,M BB1,4 018200 TE,S1 AA1,ITEM+2 AX,M BB1,2 018400 TE,S1 AA1,ITEM+3 AX,M BB1,1 018600 SX BB1,ST015X 018700 LX BB2,ALGI 018800 TNE,S1 AA1,ITEM+1 THE PRESENCE OF A SIGLE DROP OUT SZ GOTOFL CONTROL CAN GET TO THE NEXT STATEMENT TNE,S1 AA1,ITEM+2 SZ GOTOFL TNE,S1 AA1,ITEM+3 SZ GOTOFL J $+1,BB1 018900 J ST09A J ST0151 019100 J ST0154 019200 J ST0157 019300 J ST016 019400 J ST0161 019500 J ST0164 019600 J ST017 019700 ST09A L,H1 AA1,N5ERLA S,H1 AA1,ST09C LMJ B11,ERFP +ST09C J PHS5G ST0151 SLJ GEN N1,N2 DROPOUT 019800 PCI 0,ITEM+3 N3 019900 PCI 0,IFSUBX TE,T 6,$+2,P2 TREAT BOOLEAN AS INTEGER ST015A TG,T 1,ST0152,P2 020100 SLJ AREQ1N PCI 0,P2 020300 MI 1,(JZ P0,2),SREL 020400 TE,S P0,$+3,1 020500 MI 1,(JP P0,P1) 020600 EX PHS5G 020700 MI 1,(JN P0,P1) 020800 EX PHS5G 020900 ST0152 SLJ AREQCN PCI 0,P2 021100 J ST0153 LOADED 021200 MI 1,(LUF P0,P2) NOT LOADED 021300 SA,U 1,P0 021400 MI 1,(JZ P0,2),SREL 021500 TE,S P2,$+3,1 021600 MI 1,(JP P0,P1) EX PHS5G 021800 MI 1,(JN P0,P1) EX PHS5G 022000 ST0153 . TE,T 3,$+3,P2 . ST0153 TEST FOR DOUBLE PRECISION 1108 MI 1,(TEP P0,(0400400,0)),CON J $+2 1108 MI 1,(TEP P0,(0400040,0)),CON 1108 TE,S P0,$+3,1 022300 MI 1,(JP P0,P1) 022400 EX PHS5G 022500 MI 1,(JN P0,P1) 022600 EX PHS5G 022700 ST0154 SLJ GEN N1,N3 DROPOUT 022800 PCI 0,ITEM+2 022900 PCI 0,IFSUBX TE,T 6,$+2,P2 TREAT BOOLEAN AS INTEGER TG,T 1,ST0155,P2 SLJ AREQ1N PCI 0,P2 023300 MI 1,(JZ P0,P1) 023400 EX PHS5G 023500 ST0155 SLJ AREQCN PCI 0,P2 023700 J ST0156 023800 MI 1,(LUF P0,P2) 023900 SA,U 1,P0 024000 MI 1,(JZ P0,P1) 024100 EX PHS5G 024200 ST0156 . TE,T 3,$+3,P2 . ST0156 TEST FOR DOUBLE PRECISION 1108 MI 1,(TOP P0,(0400400,0)),CON J $+2 1108 MI 1,(TOP P0,(0400040,0)),CON 1108 MI 1,(J P1) 024400 EX PHS5G 024500 ST0157 SLJ GEN N1 DROPOUT 024600 PCI 0,ITEM+2 N2 024700 PCI 0,ITEM+3 N3 024800 PCI 0,IFSUBX TE,T 6,$+2,P3 TREAT BOOLEAN AS INTEGER ST015B TG,T 1,ST0158,P3 025000 SLJ AREQ1N PCI 0,P3 025200 MI 1,(JZ P0,P1) 025300 TE,S P0,$+3,1 025400 MI 1,(JP P0,P2) 025500 EX PHS5G 025600 MI 1,(JN P0,P2) 025700 EX PHS5G 025800 ST0158 SLJ AREQCN PCI 0,P3 026000 J ST0159 026100 MI 1,(LUF P0,P3) 026200 SA,U 1,P0 026300 MI 1,(JZ P0,P1) 026400 TE,S P3,$+3,1 026500 MI 1,(JP P0,P2) 026600 EX PHS5G 026700 MI 1,(JN P0,P2) 026800 EX PHS5G 026900 ST0159 . TE,T 3,$+3,P3 . ST0159 TEST FOR DOUBLE PRECISION 1108 MI 1,(TOP P0,(0400400,0)),CON J $+2 1108 MI 1,(TOP P0,(0400040,0)),CON 1108 MI 1,(J P1) 027100 TE,S P0,$+3,1 027200 MI 1,(JP P0,P2) 027300 EX PHS5G 027400 MI 1,(JN P0,P2) 027500 EX PHS5G 027600 ST016 SLJ GEN N2,N3 DROPOUT 027700 PCI 0,ITEM+1 027800 PCI 0,IFSUBX LR,S P2 028000 TE,T 6,ST015A+1,P2 TREAT BOOLEAN AS INTEGER J ST015A 028100 ST0161 LA AA1,ITEM+1 N2 DROPOUT TE AA1,ITEM+3 J ST016D SLJ GEN PCI 0,ITEM+1 PCI 0,IFSUBX TE,T 6,$+2,P2 TREAT BOOLEAN AS INTEGER TG,T 1,ST016E,P2 SLJ AREQ1N PCI 0,P2 MI 1,(JNZ P0,P1) EX PHS5G ST016E SLJ AREQCN PCI 0,P2 J ST016F LOADED MI 1,(LUF P0,P2) SA,U 1,P0 MI 1,(JNZ P0,P1) EX PHS5G ST016F . TE,T 3,$+3,P2 . ST016F TEST FOR DOUBLE PRECISION 1108 MI 1,(TEP P0,(0400400,0)),CON J $+2 1108 MI 1,(TEP P0,(0400040,0)),CON 1108 MI 1,(J P1) EX PHS5G ST016D SLJ GEN PCI 0,ITEM+1 028300 PCI 0,ITEM+3 028400 PCI 0,IFSUBX TE,T 6,$+2,P3 TREAT BOOLEAN AS INTEGER TG,T 1,ST0162,P3 028600 SLJ AREQ1N PCI 0,P3 028800 ST016C MI 1,(JZ P0,3),SREL TE,S P0,$+3,1 029000 ST016A MI 1,(JN P0,P1) 029100 J $+2 029200 ST016B MI 1,(JP P0,P1) 029300 MI 1,(J P2) 029400 EX PHS5G 029500 ST0162 SLJ AREQCN PCI 0,P3 029700 J ST0163 029800 MI 1,(LUF P0,P3) 029900 SA,U 1,P0 030000 SA,S P3,P0 J ST016C ST0163 . TE,T 3,$+3,P3 . ST0163 TEST FOR DOUBLE PRECISION 1108 MI 1,(TOP P0,(0400400,0)),CON J $+2 1108 MI 1,(TOP P0,(0400040,0)),CON 1108 MI 1,(J 3),SREL 030500 TE,S P0,ST016B,1 030600 J ST016A 030700 ST0164 SLJ GEN N3 DROPOUT 030800 PCI 0,ITEM+2 030900 PCI 0,ITEM+1 031000 PCI 0,IFSUBX LR,S P3 TE,T 6,ST015B+1,P3 TREAT BOOLEAN AS INTEGER J ST015B 031300 ST017 SLJ GEN NO DROPOUTS 031400 PCI 0,ITEM+1 031500 PCI 0,ITEM+2 031600 PCI 0,ITEM+3 031700 PCI 0,IFSUBX TE,T 6,$+2,P4 TREAT BOOLEAN AS INTEGER TG,T 1,ST0171,P4 031900 SLJ AREQ1N PCI 0,P4 032100 ST0170 MI 1,(JZ P0,P2) 032200 TE,S P0,$+2,0 032300 SW P1,P3 032400 EX $+1 LA AA1,ITEM+1 CHECK IF N1=N3 TE AA1,ITEM+3 J ST017A NO SLJ GENR YES, GENERATE MI 1,(J P1) UNCOND JUMP EX PHS5G ST017A SLJ GENR MI 1,(JN P0,P1) 032500 MI 1,(J P3) 032600 EX PHS5G 032700 ST0171 SLJ AREQCN PCI 0,P4 032900 J ST0172 LOADED 033000 MI 1,(LUF P0,P4) NOT LOADED 033100 SA,U 1,P0 033200 TE,S 0,ST0170,P4 033300 SA,S 1,P0 033400 J ST0170 033500 ST0172 . TE,T 3,$+3,P4 . ST0172 TEST FOR DOUBLE PRECISION 1108 MI 1,(TOP P0,(0400400,0)),CON J $+2 1108 MI 1,(TOP P0,(0400040,0)),CON 1108 MI 1,(J P2) 033700 J ST0170+1 033800 ST019 LX BB1,ALGI CALL 037700 S AA1,B11FL SLJ GEN 037800 PCI 0,TT2,BB1 037900 PCI 0,(((B11))-3) 038000 TNE,ID P1,$+4,6 T IF CALL WITH NO ARGS SLJ AREQ1 MAKE TRIAD REFERENCE PCI 0,P1 SO THAT REGIST IS RELEASED EX PHS5G ARGS 038200 EX $+1 038300 L AA1,TT1,BB1 INVERT OPERANDS SO CODE WILL LOOK LIKE L AA2,TT2,BB1 FUNCTION WITH ARGUMENTS THEN S AA2,TT1,BB1 CONTINUE PROCESSING IN N5COL S AA1,TT2,BB1 ARGUMENT STATEMENT WILL BE RECOGIZED J OP163 $(2) . ZRTST* TE,T P1,ZRTST0,5 J ZRTSTJ . $(1) . ZRTSTJ TLE,T P1,ZRTST3+1,4 ZRTST0 TNE,ID P1,ZRTST3+1,3 EX $+1 LX,M GB3,1 TZ,S2 *GPT,GB2 J ZRTST2 IMMEDIATE CONST LX,H2 BB1,*GPT,GB2 SYM TABLE CONST TP,XH2 *GPT,GB2 ANX,M BB1,0,*0 L,S3 GA4,2,BB1 SSL GA4,3 GET TYPE FIELD TNE,M GA4,1 J ZRTST4 L GA5,(0400400,0) TNE,M GA4,3 L GA5,(0400040,0) TEP GA5,0,BB1 TEP GA5,0,BB1 J ZRTST3 ZRTST1 SLJ GENR NO SKIP NOP 0 RETURN ZRTST2 TNZ,XH2 *GPT,GB2 J ZRTST1 ZRTST3 SLJ GENR SKIP NOP 1 RETURN ZRTST4 TNZ 0,BB1 J ZRTST1 J ZRTST3 $(2) . REENT ST01CHX LA,M P1,$-$ STERA +05022 . BAD EXPRESSIN INPUT LIST IFSUBX +050000,1 REENT ST09C +0,05007 REENT OLDITS +0 . USED TO SAVE OLDITM +0 LMJCON +040000,0 LMJ B11,1,B11 SIOFLX +0 . SAVE IOFLX SVALUE +0 . OFFSET +0 . INITIAL +0 . FINAL +0 . INCREMENT +0 . PRODUCT OF DIMENSIONS +0 . MULTIPLIER FOR INCREMENT END