N5REG . THIS DEFINES THE REGISTERS . SECTION 2.0.0 . INTERPRETOR GENERATOR PROGRAM . $(1) . LIT GENS LX GB1,(1,0) REENT LXM GB1,GEN GB1 IS LOC OF NEXT INSTR - 00600 LX GB2,(1,0) GB2 IS SUBR LEVEL - 00700 GEN0 LX GB3,(1,1) GB3 IS NR OF ARGS - 000800 LA,H2 GA0,GPT,GB2 AND GA0,(0177777) SA,H2 GA1,GEN3 GEN1 LA GA0,0,GB1 - 00900 DSL GA0,26 - 01000 TE,M GA0,01737 TEST FOR PCI - 01100 J GEN10 NOT PCI - 01200 SZ GA0 - 01300 DSC GA0,68 A FIELD IN GA0 - 01400 JZ GA0,GEN2 MAKE SYM ENTRY IF A NOT ZERO - 01500 SLJ TSCSYM LX GB4,CRSYM NEXT SYM TABLE LOC - 01600 LA GA2,(0107,0) - 001700 SZ 0,GB4 MAKE SYM ENTRY - 01800 SZ 1,GB4 - 01900 SA GA2,2,GB4 - 02000 SZ 3,GB4 - 02100 SX,H2 GB4,*0,GB1 - 02200 AX,M GB4,4 ADVANCE SYM LOC - 002300 SX GB4,CRSYM AND STORE - 002400 GEN2 LA,M GA2,*0,GB1 TG,M GA2,16 - 02800 J GEN3J TG,M GA2,8 GET PARAM NR ANA,M GA2,8 - 03100 SX,H1 GB3,GPX,GB2 SAVE CURRENT PARAM INDEX - 03200 LX GB3,GA2 GET PARAMETER FROM - 03300 LA,M GA2,*GPT-1,GB2 LOWER LEVEL LX,H1 GB3,GPX,GB2 RESTORE CURRENT PARAM INDEX - 03500 NOP 0 GEN3J SA GA2,*GEN3 AX,M GB3,1 ADVANCE PARAM INDEX AX,M GB1,1 ADVANCE INSTR INDEX - 03800 J GEN1 - 03900 GEN10 TNZ,M 0,GB2 - 004000 J GEN11 - 04100 SX GB1,GA0 - 04200 LXM GB1,GPX-1,GB2 - 004300 SA,H2 GA0,GPX-1,GB2 - 04400 GEN11 LA GA0,0,*GB1 NEXT INTERP INSTR - 04500 S GA0,GEN11S L,M A1,010 TOP A1,BUG J $+3 SLJ N5SNP +GEN11S DSL GA0,30 GA0 IS OP - 04600 DSL GA1,32 GA1 IS J - 04700 DSL GA2,32 GA2 IS A - 04800 DSL GA3,32 GA3 IS B - 04900 SSL GA4,18 GA4 IS M - 05000 SSC GA4,16 S,S6 GA4,GHI . CONTAINS INCREMENTING AND INDIRECT BITS SSL GA4,20 J GOPT,GA0 - 05100 GENT LXM GB1,GENR REENT J GEN11 - 05400 GOPT SLJ ERRL 0 J GSA 1 - 05600 J GSN SET NEW COUNTER SLJ ERRL 3 SLJ ERRL 4 SLJ ERRL 5 SLJ ERRL 6 SLJ ERRL 7 SLJ ERRL 10 SLJ ERRL 11 SLJ ERRL 12 SLJ ERRL 13 SLJ ERRL 14 SLJ ERRL 15 SLJ ERRL 16 SLJ ERRL 17 SLJ ERRL 20 SLJ ERRL 21 SLJ ERRL 22 J GLR 23 - 07400 SLJ ERRL 24 SLJ ERRL 25 SLJ ERRL 26 SLJ ERRL 27 J GMI 30 - 07900 SLJ ERRL 31 SLJ ERRL 32 SLJ ERRL 33 SLJ ERRL 34 SLJ ERRL 35 SLJ ERRL 36 SLJ ERRL 37 SLJ ERRL 40 SLJ ERRL 41 SLJ ERRL 42 SLJ ERRL 43 SLJ ERRL 44 SLJ ERRL 45 SLJ ERRL 46 SLJ ERRL 47 SLJ ERRL 50 SLJ ERRL 51 J GTETG 52 - 09700 J GTETG - 009800 J GTETG - 009900 J GTETG 55 - 10000 SLJ ERRL 56 SLJ ERRL 57 SLJ ERRL 60 SLJ ERRL 61 SLJ ERRL 62 SLJ ERRL 63 SLJ ERRL 64 SLJ ERRL 65 J GSW 66 - 10900 SLJ ERRL 67 SLJ ERRL 70 SLJ ERRL 71 J GOP72 72 - 11300 SLJ ERRL 73 J GOP74 74 - 11500 J GTLOC SLJ ERRL 76 SLJ ERRL 77 . SECTION 2.1.0 . GSA SZ GLRF STORE A INTO P(M) - 11900 TLE,M GA2,8 J GSA3 ABS A FLD - 12100 ANA,M GA2,8 GET PARAM NR - 12200 LX GB3,GA2 - 12300 TG,M GA1,5 SLJ ERRL J $+1,GA1 - 012400 J GSA0 SIGN - 012401 J GSA2 TYPE J GSA22 UPPER - 012403 J GSA24 ID - 012404 J GSA26 C,S2 OF ITEM - 012405 GSA0 LA,H2 GA2,*GPT,GB2 SIGN - 012500 LA,S1 GA0,*GPT,GB2 TZ GLRF J $+3 TNE,M GA0,5 J GSA02 TE,M GA0,6 J GSA01 L GA3,GA2 TZ GLRF J GSA04 ONLY PICK UP ONE SIGN INLOGICAL REVERSE S GA1,R2 S GA2,GA1 TP,XH2 *GPT,GB2 AN,M GA1,0,*0 XOR,H2 GA2,TT3,GA1 L GA1,R2 RESTORE GA1 GSA04 DSC GA2,36 SSL GA2,17 - 12600 J GSA3 GSA01 LA,T1 GA0,*GPT,GB2 TNE,M GA0,0301 SZ GA2 TNE,M GA0,0302 SZ GA2 SSL GA2,17 J GSA3 - 12700 GSA02 SA GA2,R2 TEMP STORAGE TO RETAIN SIGN TP,XH2 *GPT,GB2 AN,M GA2,0,*0 TNZ,T1 SUBEXD,GA2 J $+3 L GA2,R2 J GSA01 SUBEX IN TEMP L,S3 B11,SUBEXD,GA2 TLEM,M B11,12 J GSA01 SUBEX IS NOT IN REGISTER L GA2,R2 L,S3 GA5,AREGB1-12,B11 SSC GA5,24 XOR GA2,GA5 J GSA04 GSA2 LA GA2,*GPT,GB2 SUBEX - 14000 SSC GA2,21 - 14100 SSL GA2,33 - 14200 J GSA3 - 014201 GSA22 LA,S1 GA2,*GPT,GB2 UPPER - 014202 LA GA0,*GPT,GB2 - 014203 TE,M GA2,6 TRIAD REF CHECK - 014204 J GSA221 - 014205 LA,S3 GA2,TT6,GA0 TRIAD - 014206 J GSA3 - 014207 GSA221 LA,S3 GA2,3,GA0 SYM REF - 014208 J GSA3 - 014209 GSA24 LA,S1 GA2,*GPT,GB2 ID FIELD - 014210 J GSA3 - 014211 GSA26 LA,S2 GA2,*GPT,GB2 C=S2 FIELD - 014212 GSA3 TZ GLRF - 14300 LNA GA2,GA2 COMPLEMENT IF GLRF SET - 14400 ANA,M GA4,8 GET M PARAM NR - 14500 LX GB3,GA4 - 14600 TG,M GA1,5 SLJ ERRL J $+1,GA1 - 014700 J GSA30 SIGN - 014701 J GSA5 TYPE J GSA52 UPPER - 014703 J GSA54 ID - 014704 J GSA56 C=S2 OF ITEM - 014705 GSA30 LA,T1 GA0,*GPT,GB2 CHECK FOR IMM CONST TNE,M GA0,0302 J $+3 TE,M GA0,0301 J GSA31 NO JNB GA2,GEN11 LA,H2 GA0,*GPT,GB2 COMPLEMENT CONST SNA,H2 GA0,*GPT,GB2 J GEN11 GSA31 SSC GA2,19 LR R2,(0400000) LA GA0,*GPT,GB2 - 15000 MLU GA0,GA2 - 15100 SA GA1,*GPT,GB2 - 15200 J GEN11 - 15300 GSA5 SSC GA2,18 SUBEX - 16800 LR R2,(07000000) - 16900 LA GA0,*GPT,GB2 - 17000 MLU GA0,GA2 - 17100 SA GA1,*GPT,GB2 - 17200 J GEN11 - 17300 GSA52 LA,S1 GA1,*GPT,GB2 UPPER - 017301 LA GA0,*GPT,GB2 - 017302 TP,XH2 *GPT,GB2 AN,M GA0,0,*0 TE,M GA1,6 TRIAD REF TEST - 017303 J GSA521 - 017304 SA,S3 GA2,TT6,GA0 - 017309 J GEN11 - 017310 GSA521 SA,S3 GA2,3,GA0 SYM J GEN11 - 017316 GSA54 SA,S1 GA2,*GPT,GB2 ID - 017317 J GEN11 - 017318 GSA56 SA,S2 GA2,*GPT,GB2 C - 017319 J GEN11 - 017320 GLR SA GA2,GA4 LOGICAL REVERSE (COMPLEMENT) - 17400 SX GB1,GLRF SET NON ZERO J GSA+1 - 17600 . SET NEW COUNTER SYNTAX . GSN LCN,LOJ OR LCN,LOC . WHERE LCN IS LC1 INSTRUCTIONS . LC2 CONSTANTS AND TEMP . LC3 COMMON (NOT USED) . LC4 SINGLE VARIABLES . LOC IF GIVEN, IS THE VALUE TO FORCE COUNTER TO . IF NEXT LOCATION IS NOT DESIRED GSN S GA2,LCN . SYMBOLIC COUNTER NUMBER S,H2 GA2,GCG SZ GCG+1 JZ GA4,$+5 L GA2,GB1 . LOC OF NEXT INTERPRETIVE INS AN,M GA2,1 L GA4,*0,GA2 S GA4,GCG+1 . VALUE TO FORCE COUNTER TO LMJ B11,FILE61 +GCG J GEN11 . SECTION 2.2.0 . GMI LX GB4,(1,0) GENERATE INSTRUCTIONS - 17700 LXM GB4,GA4 GB4 IS LOC TO GEN FROM - 17800 GMIG L,S3 GA0,GMINST SZ GMINST TZ GHJ S,S3 GA0,GMINST SZ GMINST+1 - 18000 TNZ,S3 GMINST S,S3 GA1,GMINST . SMALL OFFSETS 131K SZ GA1 131K SZ GJFLAG SA,S1 GA3,GMINST ID TO F61 ITEM - 18100 TG,M GA3,7 SLJ ERRL BAD ID J $+1,GA3 DETERMINE ID - 18400 J GMID0 ID=0 SYM REF - 18500 J GMID2 1 TEMP - 018600 J GMID25 2 PROG REL J GMID3 3 SELF REL - 18800 J GMID2 4 ABSOLUTE - 18900 J GMID5 5 CONSTANT - 19000 J GMID6 6 NAME - 19100 GMID0 LX,S6 GB3,0,GB4 GET M PARAM - 19400 ANX,M GB3,8 NUMBER - 19500 TP GB3 BAD PARAMETER IF NEGATIVE SLJ ERRL LA,S1 GA0,*GPT,GB2 GET ID - 19600 TG,M GA0,17 SLJ ERRL BAD ID J $+1,GA0 - 20000 J GMID00 ID=0 - 020100 J GMID03 1 IND VAR - 20200 J GMID03 2 VARIABLE - 20300 J GMID01 3 CONSTANT - 20400 SLJ ERRL 4 OFFSET J GMID04 5 SUBEX - 20600 J GMID05 6 TRIAD - 20700 J GMID077 . 7 DROP OUT J GMID0P SLJ ERRL 9 SLJ ERRL 10 SLJ ERRL 11 SLJ ERRL 12 J GMID09 13 LABEL REF - 21400 J GMID09 14 FORMAT REF - 21500 SLJ ERRL 15 J GMID03 16 END DO - 021700 GMID00 LA GA0,*GPT,GB2 ID=0 - 023001 TP,XH2 *GPT,GB2 AN,M GA0,0,*0 LR,M R1,4 ABS ADDR MODE - 023002 SR,S1 R1,GMINST TO INSTR ITEM ID LA,T3 GA4,3,GA0 FILM LOC AA GA4,GA1 TO AA,S3 GA4,3,GA0 INSTR SA,H2 GA4,GMINST+1 ADDRESS J GMIB ADDRESS - 023006 GMID1J SZ GA1 GMID01 LA,S2 GA0,*GPT,GB2 CONSTANT - 23100 JZ GA0,GMID02 JUMP IF LONG CONSTANT - 023200 LA,S1 GA0,0,GB4 TE,M GA0,072 TNE,M GA0,076 J $+2 J GMID0A LA,XH2 GA5,*GPT,GB2 GET IMM CONST JZ GA5,GMIF62 DONT OUTPUT AH (0) J GMID5+1 GMID0A SX B1,GJFLAG SET J FLAG 9/11/63 LA,M GA0,4 SET ID - 23400 SA,S1 GA0,GMINST TO 4 - 23500 LA,H2 GA0,*GPT,GB2 - 23600 SA,H2 GA0,GMINST+1 - 23700 J GMIB SPECIAL LXM INDEXES A CONSTANT GMID02 LA,H2 GA0,*GPT,GB2 LONG CONSTANT, GET SYM REF - 23900 TP,XH2 *GPT,GB2 AN,M GA0,0,*0 L GA4,LRSTC1+7 . RSA FOR CONSTANTS LA GA5,2,GA0 CHECK FOR SSC GA5,21 NON-CONSTANTS SSL GA5,33 (LIKE HOLLERITH ARGS) TE,M GA5,3 J GMID03 NOT A CONSTANT L,S1 GA5,1,GA0 SSC GA5,4 JB GA5,GMID03 . SEE IF STORAGE ASSIGNED SA,H2 GA4,1,GA0 L GA5,CRSTC9 . SYMBOLLIC COUNTER FOR CONSTANTS SA,H1 GA5,1,GA0 - 24500 L,M GA5,020 . SET STORAGE SA,S1 GA5,1,GA0 ASSIGNED FLAG IN SYM TAB - 24700 AA,M GA4,1 ADVANCE RSA3 BY 1 LA,S3 GA5,2,GA0 GET T DIGIT FROM - 24900 SSL GA5,3 MODE WORD - 25000 TNE,M GA5,3 ADVANCE RSA3 ANOTHER 1 - 25100 AA,M GA4,1 IF CONSTANT IS TNE,M GA5,4 DOUBLE PREC - 25300 AA,M GA4,1 OR COMPLEX S GA4,LRSTC1+7 . STORE NEW VALUE OF RSA GMID03 LA,H2 GA4,GMINST+1 VAR OR LONG CONSTANT LR,M R2,0177777 PUT SYM REF - 25700 MLU GA4,*GPT,GB2 INTO INSTR SA,H2 GA5,GMINST+1 SA,H2 GA1,GMINST J OF MI TO OFFSET J GMIB - 26000 GMID04 LA,H2 GA0,*GPT,GB2 SUBEXPRESSION - 26100 TP,XH2 *GPT,GB2 AN,M GA0,0,*0 LA,M GA0,SUBEXD,GA0 TNZ SQFL . SQUARE SPECIAL CASE J GMIE4S SZ SQFL LR,M R2,4 ABSOLUTE ADDRESS TNZ,S3 0,GA0 TEST FOR EXPRESSION IN REGISTER J GMID4S LX,S3 B11,0,GA0 LA,S3 GA4,0,GA0 ASSIGNED REGISTER NUMBER TG,M GA4,12 AA,S6 GA4,AREGB1-11,B11 J GMID0Q GMID4S LR,M R2,1 TEMP RELATIVE L,T1 GA4,0,GA0 J GMID0Q GMIE4S LR,M R2,1 1 TO ID(TEMP REF) - 26200 LA GA4,0,GA0 SSL GA4,24 GET PLOC JNZ GA4,GMID0Q IS PLOC ASSIGNED LR,M R2,4 4 TO ID (ABS LOC) LX,S3 B11,0,GA0 LA,S3 GA4,0,GA0 GET T LOC TG,M GA4,12 AA,S6 GA4,AREGB1-11,B11 GMID0Q SR,S1 R2,GMINST STORE ID AA GA4,GA1 SA,H2 GA4,GMINST+1 AND ADDRESS LA GA1,0,GB4 CHECK I BIT - 27000 SSL GA1,16 OF INSTR - 27100 JB GA1,GMIB DONT COUNT DOWN IF SET - 27200 TZ GHJ J GMIB . NO COUNTING LA GA1,GHI CSC19 JNB GA1,$+6 CSC19 LA,M GA1,4 CSC19 TE GA1,R2 CSC19 J $+3 TG,M GA4,16 J GMIB CSC19 AN,M GA0,SUBEXD LOGIFT L,H2 GA1,SUBEXQ,GA0 LOGIFT AN,M GA1,1 LOGIFT TP GA1 LOGIFT SLJ ERRL LOGIFT S,H2 GA1,SUBEXQ,GA0 LOGIFT JNZ GA1,GMIB - 27600 L,M GA1,4 TE GA1,R2 TEST FOR EXPRESSION IN FILM WITH J FACTOR OR J $+5 INDIRECT BIT SET TZ JDESFL J GMIB DO NOT DEASSIGN IF IT HAS TO BE STORED L GA1,GHI TEST FOR INDIRECT BITS JB GA1,GMIB DO NOT DEASSIGN IF INDIRECT BIT IS GIVEN LMJ B11,DEAS DEASSIGN SUBEXD IF NN=0 - 27700 NOP 0,*GPT,GB2 - J GMIB - 27900 GMID0P LA,M GA0,*GPT,GB2 ANA,M GA0,TT3 J GMID05+3 ZRLVTM GMID05 LA,H2 GA0,*GPT,GB2 TRIAD REF TO GA0 - 28000 TP,XH2 *GPT,GB2 AN,M GA0,0,*0 LR,M R2,0177777 DELAY - 28100 L,S3 GA4,TT11,GA0 . OP XOR BITS AND,M GA4,3 TNZ GMOPXR . ALREADY SET S,S1 GA5,GMOPXR SN,H2 GA4,GMOPXR . SET AS SET TZ,H2 TT11,GA0 J GMID5A . THIS PARTICULAR TRIAD COLLAPSED TO J DESIGNATOR LA,S2 GA4,TT3,GA0 GET OP TNE,M GA4,19 J GMID06 OP IS OFFSET PLUS - 28400 TE,M GA4,15 J GMID08 OP IS ORDINARY - 28600 LA GA4,0,GB4 OP IS SUBSCRIPT SSL GA4,16 TEST INDIRECT BIT TZ GHJ J $+4 JB GA4,$+3 LMJ B11,BREQ1 B REQUEST AND COUNT - 29000 J $+2 LMJ B11,BREQ2 B REQUEST AND DON'T COUNT - 29300 LA GA4,GMINST+1 PUT B AND POSSIBLY AA GA4,BREG H DESIGNATION TZ GZI J GMID0B TP,XH2 0,GB4 J GMID0B AA GA4,BREGH SZ BREGH GMID0B SA GA4,GMINST+1 INTO INSTR LA,S1 GA4,TT1,GA0 CHECK FIRST OPND TE,M GA4,6 FOR TRIAD J GMID07 REF - 30000 LA,H2 GA0,TT1,GA0 - 30100 TP,XM 0,GA0 AN,M GA0,0,*0 GMID06 L,XH2 GA4,TT2,GA0 . PUT IN OFFSET AA GA4,GA1 SA,H2 GA4,GMINST LA,S6 GA4,TT3,GA0 . TRANSFER IGNORE OFSET FLAG 131K SA,S2 GA4,GMINST . TO PH6 131K GMID07 LA GA4,GMINST+1 PUT IN SYM - 30500 MLU GA4,TT1,GA0 REFERENCE - 30600 SA GA5,GMINST+1 - 30700 J GMIA - 30800 GMID077 L,M GA5,4 . ABSOLUTE INST ID S,S1 GA5,GMINST L,XH2 GA5,*GPT,GB2 . GET REGISTER NUMBER S,H2 GA5,GMINST+1 J GMIB GMID08 LA GA4,TT6,GA0 ORD OP SSL GA4,24 GA4 IS PLOC LR,M R2,1 1 TO ID(TEMP) - 31100 JNZ GA4,GMID0C LA,T3 GA4,TT6,GA0 FILM LOC AA,S3 GA4,TT6,GA0 ADD UPPER BIT LR,M R2,4 4 TO ID(ABS) - 31400 GMID0C AA GA4,GA1 SA,H2 GA4,GMINST+1 STORE ADDR SR,S1 R2,GMINST AND ID - 31600 J GMIA - 32200 GMID09 LA GA4,*GPT,GB2 LABEL OR FORMAT REF L B11,GA4 . SYM POINTER 131K DSL GA4,16 SSL GA4,8 TNZ,S6 CR131K J $+3 131K TP 1,B11 . 18 BIT PLACE TO GO 131K JB GA4,GMID10 . INDIRECT THRU NAME 131K DSL GA4,1 SSL GA5,19 SA,H2 GA5,GMINST+1 L GA0,GMINST+1 TEP,M GA0,*0 AN,M GA0,*0 L,S3 GA0,2,GA0 AND,M GA0,7 CHECK FOR LABEL TNE,M GA1,3 J GMID1J TE,M GA1,7 J GMIB L GA0,GMINST+1 L,S2 GA0,2,GA0 CHECK THAT JUMPS GO TO LABELS XOR,S1 GA0,*GPT,GB2 AND REFER TO FORMATS ONLY FROM IO L GA0,GA1 L,S6 GA1,STSUBT TNE,M GA1,16 . EVERYTHINK OK IN CALL STATEMENT J GMIB AND,14 GA0,3 JZ GA1,GMIB S GA5,GLBLTS J GMIB - 32700 . FOR ALL INDIRECT JUMPS TO CELLS IN COMMON,ARRAYS OR TO ARGUMENTS IN 131K . LARGE CORE MODE A JUMP INTO STC3 IS MADE WHERE B11 IS LOADED WITH THE 131K . ADDRESS OF THE CELL AND AN INDIRECT JUMP,B11 IS MADE 131K GMID10 SLJ CLOB2 . CLOBBER B11 131K L,H2 GA0,CNGCTR L,H2 GA4,LRSTC1,GA0 S,H2 GA0,GMINST S,H2 GA4,GMINST+1 L,M GA0,9 . SPECIAL ITEM TYPE COUNTER RELATIVE 131K S,S1 GA0,GMINST . CNTR IN WRD 1 ASSIGNMENT IN WRD 2 131K SSL GA5,20 . SEAT SYM OF CELL 131K S,H2 GA5,GMLMX+1 . IN LX,M INST 131K LMJ B11,FILE61 131K + CNGCTR 131K LMJ B11,FILE61 131K + GMLMX 131K LMJ B11,FILE61 131K + GMJMP 131K LMJ B11,FILE61 131K + RSTCTR 131K J GMIB 131K $(2) . EENT GMLMX + 0300,0 131K LX,M B11,$ 131K GMJMP + 040000,0 131K J *0,B11 131K $(1) . EENT GMID2 LA GA0,0,GB4 PROGRAM RELATIVE AND - 32800 AA GA0,GA1 SA,H2 GA0,GMINST+1 ABSOLUTE ADDRESS - 32900 J GMIB - 33000 GMID25 LX,S6 GB3,0,GB4 ANX,M GB3,8 PROGRAM RELATIVE TP GB3 SLJ ERRL LA GA0,*GPT,GB2 SA,H2 GA0,GMINST+1 J GMIB GMID5A L GA4,TT11,GA0 . J DESIGNATOR S GA4,JDESFL SSL GA4,22 GET EXTRA OFFSET AND,M GA4,017 S,S3 GA5,GMINST . SMALL OFFSETS 131K L,M GA4,*GPT,GB2 S GA4,JDSFLA SAVE LOC OF PARAMETER L GA4,*GPT,GB2 S GA4,JDSFLB SAVE REPLACED PARAMETER L,H2 GA0,TT11,GA0 ADDRESS OF EQUIVALENT L GA4,0,GA0 EQUIVALENT OPERAND S GA4,*GPT,GB2 . REPLACE TRIAD BY ITS EQUIVALENT J GMID0+2 GMID3 LA,H2 GA0,0,GB4 SELF RELATIVE ADDRESS - 33100 SSC GA0,16 - 33200 SSA GA0,20 EXTEND SIGN - 33300 SA,H2 GA0,GMINST M TO W1 OF F61 ITEM - 33400 L GA1,LCN AA GA0,LRSTC1,GA1 . ADD ACTIVE LOCATION COUNTER LR R2,(0600000) PUT H,I MLU,H2 GA0,0,GB4 SA,H2 GA1,GMINST+1 INTO INSTRUCTION - 33800 J GMIB - 33900 GMID5 LA GA5,*0,GB4 CON ADDR MODE - 34000 LA GA0,(1,1) CON TABLE SEARCH INDEX - 34100 LR,H2 R1,GCONX NUMBER OF TABLE ENTRIES - 34200 SZ,S1 GMINST 0 TO ID - 34300 SE GA5,GCON1-1,*GA0 SEARCH GCON1 FOR CONST - 034400 J GMID51 NOT FOUND - 34500 LA GA5,GCON2-2,GA0 FOUND, GCON2 HAS SYM LOC - 34600 SA,H2 GA5,GMINST+1 - 34700 J GMIA - 34800 GMID51 SA,H2 GA0,GCONX NEW NR OF ENTRIES - 34900 SLJ TSCSYM LA,H2 GA1,CRSYM NEXT SYM LOC - 35000 SA GA1,GCON2-1,GA0 TO TABLE - 35100 SA GA5,GCON1-1,GA0 CONST TO TABLE - 35200 SA GA5,0,GA1 AND SYM - 35300 L GA5,CRSTC9 . SYMBOLLIC COUNTER FOR CONSTANTS SA,H1 GA5,1,GA1 L GA5,LRSTC1+7 . RSA FOR CONSTANTS SA,H2 GA5,1,GA1 FINISHED 2ND WORD AA,M GA5,1 ADVANCE - 35800 S GA5,LRSTC1+7 . SAVE INCREMENTED RSA LA,M GA5,073 FORM - 36000 SZ 2,GA1 MODE SA,S3 GA5,2,GA1 WORD (3RD WORD) SZ 3,GA1 0 TO 4TH WORD GMID52 SA,H2 GA1,GMINST+1 AA,M GA1,4 ADVANCE NEXT - 36500 SA GA1,CRSYM SYM LOC - 36600 J GMIA - 36700 GMID6 LA GA5,*0,GB4 NAME ADDRESS MODE - 36800 SLJ GMID6A S,H2 GA5,GMINST+1 J GMIA GM6DA L GA0,(1,1) REENT LR,H2 R1,GNAMEX NUMBER OF TABLE ENTRIES - 37000 SZ,S1 GMINST 0 TO INSTR ID - 37100 SE GA5,GNAME1-1,*GA0 SEARCH NAME TABLE - 37200 J GMID61 NOT FOUND - 37300 LA GA5,GNAME2-2,GA0 FOUND, GNAME2 HAS SYM LOC - 37400 J *GMID6A GMID61 SA,H2 GA0,GNAMEX NEW NR OF ENTRIES - 37700 SLJ TSCSYM LA,H2 GA1,CRSYM NEXT SYM LOC - 37800 SA GA1,GNAME2-1,GA0 TO TABLE - 37900 LA GA3,CRLAB - 38000 SA GA5,GNAME1-1,GA0 NAME TO TABLE - 38100 SA GA5,0,GA1 AND SYM ENTRY - 38200 SZ 1,GA1 SET STC - 038300 AU GA3,CRSTC4 TO STC4+CRLAB - 038400 SA,H1 GA4,1,GA1 IN 2ND WORD - 038401 LR R2,(2,0) 3RD WORD SR R2,2,GA1 SZ 3,GA1 4TH WORD - 38600 AU,M GA3,1 ADVANCE CRLAB IN UPPER - 38700 SSC GA3,35 GET 2*CRLAB SA GA4,CRLAB STORE NEW CRLAB - 38900 S GA5,GTEMP . COMMON BLOCK NAME SZ GTEMP+1 S GA4,GTEMP+2 . COMMON BLOCK NUMBER L GA0,(-0106,-1) S GA0,MLINK L GA0,(3,GTEMP) LMJ B11,MTLT . ADD LABELLED ENTRY TO LIST SLJ ERRL5 L GA5,GA1 SAVE FOR EXIT A,M GA1,4 S GA1,CRSYM J *GMID6A GMIB LA GA0,0,GB4 GET B FLD SZ GHJ SSC GA0,22 SSL GA0,32 SA GA0,GB3 TLEM,M GB3,8 J GMIB1+1 ABS B FIELD - 39800 ANX,M GB3,8 GB3 IS PARAM NR - 39900 LA,S1 GA0,*GPT,GB2 GA0 IS PARAM ID - 40000 LA,M GA4,7 - 40100 SSL GA4,0,GA0 - 40200 LA,H2 GA1,*GPT,GB2 GA1 IS SYM REF - 40300 TP,XH2 *GPT,GB2 AN,M GA1,0,*0 JB GA4,GMIB1 J IF ITEM HAS SYM REF - 40400 TE,M GA0,6 TEST FOR TRIAD REF - 40500 J GMIB1+2 NO B DESIGNATOR - 40600 LA,M GA1,TT6-3,GA1 - 40700 NOP 0 DELAY - 40800 GMIB1 LX,T3 GB3,3,GA1 GET B NR SX,S3 GB3,GMINST+1 INTO INSTR - 41000 GMIA LA GA0,0,GB4 GET A - 41100 L,M GA1,0 FLAG FOR ABSOLUTE ASSIGNMENT SSC GA0,26 FIELD - 41200 SSL GA0,32 FROM INSTR - 41300 LX GB3,GA0 - 41400 TLEM,M GB3,8 J GMIA11 ABS A FLD ANX,M GB3,8 GB3 IS PARAM NR - 41700 LA,S1 GA0,*GPT,GB2 GA0 IS PARAM ID - 41800 LA,M GA4,7 - 41900 SSL GA4,0,GA0 - 42000 LA,H2 GA1,*GPT,GB2 - 42100 TP,XH2 *GPT,GB2 AN,M GA1,0,*0 JB GA4,GMIA1 J IF SYM REF - 42200 TE,M GA0,6 TRIAD REF TEST - 42300 J GMIOP LA,M GA1,TT6-3,GA1 - 42500 NOP 0 - 42600 GMIA1 LA,T3 GA0,3,GA1 GET A DESIG FROM FILM LOC - 042700 ANA,M GA0,64 - 042800 JP GA0,GMIA1J AA,M GA0,52 - 042802 L,S1 GA4,0,GB4 TE,M GA4,026 TEST FOR LXM TNE,M GA4,046 TEST FOR LXI J GMIA2J JP GA0,GMIA1J GMIA2J AA,M GA0,12 GMIA1J AA,S3 GA0,3,GA1 L,S1 GA4,0,GB4 TE,M GA4,026 TEST FOR LXI OR LXM TNE,M GA4,046 J $+2 J GMIA11 TG,M GA0,020 SLJ N5ERRL GMIA11 L GA4,GA0 SSC GA0,14 AND,M GA4,076 LOAD B11 WITH THE LOWERED NUMBER L B11,GA5 REGISTER PAIR AA GA0,GMINST+1 AND PUT - 42900 SA GA0,GMINST+1 INTO INSTR - 43000 GMIA12 JZ GA1,GMIOP SKIP FOR ABSOLUTE ASSIGNMENT TNZ,S3 3,GA1 J GMIOP - 43100 LA,S1 GA0,0,GB4 INSTR REFERENCES UPPER REG LA GA4,(01400000000) WILL INSTR USE 2 REGS LA GA5,(0756500600000) DSL GA4,0,GA0 JNB GA5,GMIOP NO LA,S1 GA0,0,GB4 GET OP CODE TE,M GA0,076 J $+5 LA,S2 GA0,0,GB4 GET J FACTOR SSL GA0,2 TNE,M GA0,016 TEST FOR FEL J GMIOP DON'D OUTPUT DSC SZ,S3 3,GA1 YES, CHANGE REG TO LOWER LA GA0,GMINST+1 AND GA0,(0360,0) A REGISTER FIELD ANA GA0,(020,0) SA GA0,GMINST+1 L,S1 GA4,GMINST TE,M GA4,4 J GMIA13 SSL GA1,22 TEST REGISTER FIELD AGAINST ADDRESS A,M GA1,12 TE,H2 GA1,GMINST+1 J GMIA13 L,H2 GA4,GMINST+1 AND,M GA4,07776 S,H2 GA5,GMINST+1 GMIA13 LR R2,(0777417777777) MLU GA0,GDSC+1 PUT REG NUMBER INTO SA GA1,GDSC+1 DSC INSTR LMJ B11,FILE61 OUTPUT INSTR + GDSC GMIOP LA GA0,0,*GB4 GET OP,J - 43600 SZ GHJ LR R2,(0377777777) AND PUT INTO MLU GA0,GMINST+1 INSTR - 43800 SA GA1,GMINST+1 - 43900 GMHA L GA0,GHI JNB GA0,GMHAJ L,S1 GA1,GMINST . CHECK FOR SUBEXPRESSION BEING IN FILM TNE,M GA1,4 J GMHB TNE,M GA1,1 J GMHAJ TZ JDESFL J GMHQQ GMHAJ SSC GA0,20 . ADD INCREMENTING AND INDIRECT BITS OR GA0,GMINST+1 . TO INSTRUCTION S GA1,GMINST+1 GMHAA TZ,T1 JDESFL J GMIOPA TZ JDESFL J GMIPQ TNZ GJFLAG JFLAG SET FOR SHORT CONST - 44000 J GMIF61 NO IMM ADDR - 44100 LA GA0,GMINST+1 PUT IN XM OR GA0,(07400,0) J-DESIGNATOR SA GA1,GMINST+1 - 44500 SZ GJFLAG RESET JFLAG - 44600 TNZ JDESFL J GMIF61 J GMIPQ GMHQQ L GA0,JDESFL AND GA0,(0777400,0) L GA0,GA1 OR GA0,(LR R1,0) L GA0,GMINST+1 LSSL GA0,14 SSL GA0,14 A GA1,GA0 S GA1,GMHQ1+1 L,H2 GA1,GMINST . OFFSET S,H2 GA1,GMHQ1 LMJ B11,FILE61 +GMHQ1 LMJ B11,ATEMP S,H2 BB4,GMHQ2+1 A,M BB4,*0 S,H2 BB4,GMINST+1 L,M GA0,1 SZ GMINST S,S1 GA0,GMINST L,H1 GA0,GMINST+1 AND GA0,(0777760) . REMOVE INDEX FIELD S,H1 GA1,GMINST+1 LMJ B11,FILE61 +GMHQ2 J GMIPQ $(2) . GMHQ1 +0 LR R1,0 GMHQ2 +010000,0 SR R1,0 $(1) . GMIOPA L,S1 GA1,GMINST CHECK FOR EXPRESSION IN FILM TNE,M GA1,4 J GMIPA GMIPB L GA0,JDESFL AND GA0,(0777400,0) GMIBK1 L GA0,GMINST+1 OR GA0,GA1 S GA1,GMINST+1 GMIPQ SZ JDESFL L GA0,JDSFLA LOC TO RESTORE PARAMETER TO JZ GA0,GMIF61 L GA1,JDSFLB PARAMETER TO RESTORE S GA1,0,GA0 SZ JDSFLA J GMIF61 GMIPA L,H2 A7,GMINST+1 AND,M A7,077776 TLE,M A8,12 J GMIPB AH A8,(2,-14) CORRECTO FOR CALLING SEQUENCE IN DALLA J GMHBA GMHB L,H2 A7,GMINST+1 AND,M A7,077776 TLE,M A8,017 J GMHB1 AN,M A8,12 MAKE A0=0 AH A8,(2,-2) CORRECT FOR CALLING SEQUENCE IN DALLA GMHBA L BB3,A8 L,M AA1,0 LMJ B11,DONEA DEASSIGN SINGLE REGISTER AN,M GB1,1 SX GB1,GHJ . SET FLAG FOR NO COUNING J GEN11 GMHB1 L BB3,A8 TP,T2 AREGB1-12,BB3 J GMHBA-2 A,S3 A7,GMINST SZ,S3 GMINST SSC A7,18 OR A7,GMINST+1 S A8,GMINST+1 SZ,H2 GMINST+1 J GMHAA H1 EQU 2 GMIF61 L,H1 GA0,GMOPXR SZ GMOPXR XOR,H1 GA0,GMINST+1 S,H1 GA1,GMINST+1 TNZ,S1 GMINST ONLY CHECK SYM REF MONITO TNZ,H2 N5MNL1 TEST FOR MONITOR STATEMENS MONITO J GMIF64 MONITO TZ GZI NO TRACING AFTER TEST INSTRUCTION MONITO J GMIF64 MONITO TNZ,S1 GMINST+1 MONITO J GMIF64 TEST FOR ARGUMENT MONITO L,H2 GA4,GMINST+1 SYM REF MONITO AND,M GA4,0177777 MONITO L,H2 R1,N5MNL1 NUMBER MONITORED ARRAYS MONITO L B11,(-1,0) MONITO A,H2 B11,N5MNL1 SEARCH TABLE BACKWARDS SO SIZE CAN BE REDMONITO AN,M B11,1 MONITO SE,H2 GA5,N5MNTB,*B11 MONITO J GMIF64 NO MONITOR REQUIRED MONITO S,H2 GA5,GTMNA+1 SYM REF OF MONITORED ARRAY MONITO L GA3,GA5 MONITO L,S1 GA5,1,GA3 MONITO SSL GA5,5 EXTRACT BIT WHICH RELLS IF ADDRESS IN INDEMONITO SSC GA5,10 MONITO L,S3 GA4,2,GA3 MONITO SSL GA4,3 MONITO SSC GA4,14 ALLIGN WITH A REGISTER FIELD MONITO A GA4,GA5 MONITO SSC GA4,18 MONITO S,H1 GA4,GTMNA+1 MONITO L,H1 GA4,N5MNTB+1,B11 MONITO S,H2 GA4,GTMNB+1 SYM REF OF LENGTH MONITO L B11,GTMNA+1 MONITO L GA4,0,B11 NAME OF ARRAY MONITO S GA4,GTMNC+1 MONITO L GA5,('NER18$') MONITO TZ,S2 U1110A REENTRANT LIBRARY L GA5,('TRAC7$') SLJ GMID6A GET EXTERNAL REFERENCE NUMBER MONITO S,H2 GA5,GTRCA+1 MONITO LMJ B11,FILE61 MONITO +GTRCA MONITO LMJ B11,FILE61 MONITO +GTMNA LOC OF ARRAY MONITO LMJ B11,FILE61 MONITO +GTMNB LOC OF LENGTH MONITO LMJ B11,FILE61 MONITO +GTMNC NAME OF ARRAY MONITO SZ,H2 IOFLX1 FORCE LONG IO LISTS MONITO J GMTRCB MONITO GMIF64 . MONITOR MONITO TNZ TRACFL TEST FOR TRACING STORES TRACE J GMIF63 TRACE TZ TREQFL TRACE J GMITRC ADD TRACE LINKAGE TO FILE TRACE GMIF63 . TRACE LMJ B11,FILE61 + GMINST - 44800 GMIF62 ANA,M GA2,1 DECR GEN COUNT TP GA2 SLJ N5ERRL SZ GZI . FLAG FOR INSTRUCTIONS AFTER TEST INSTRUCTIOMONITO JNZ GA2,GMIG J IF MORE TO GEN - 45100 J GEN11 - 45200 GMITRC . L,H1 GA5,GMINST+1 SSL GA5,8 TNE,M GA5,01632 TEST FOR DOUBLE STORE J $+4 L,S1 GA5,GMINST+1 TG,M GA5,6 J GMIF63 SZ TREQFL L GA4,CRTRAC GLOBAL TRACE FLAGS TRACE SSC GA4,14 ALLIGN A FIELD TRACE A GA4,(SLJ 0) TRACE S GA4,GTRCA+1 TRACE L GA5,('NER14$') TZ,S2 U1110A REENTRANT LIBRARY L GA5,('TRAC4$') SLJ GMID6A GET EXTERNAL REF NUMBER TRACE S,H2 GA5,GTRCA+1 TRACE LMJ B11,FILE61 TRACE +GTRCA TRACE L,M GB3,1 LOOK AT FIRST PARAMETER TRACE L,S3 GA5,*GPT,GB2 GET TYPE TRACE S,T1 GA5,GTRCB+1 TRACE L GA5,TRACNL LENGTH OF HOLERITH TRACE S,T2 GA5,GTRCB+1 TRACE LMJ B11,FILE61 PASS MODE AND LENGTH OF HOLERITH TRACE +GTRCB TRACE L R1,TRACNL TRACE L GA3,(1,0) TRACE GMTRCA JGD R1,$+2 TRACE J GMTRCB TRACE L GA5,TRACNM,*GA3 TRACE S GA5,GTRCC+1 TRACE LMJ B11,FILE61 TRACE +GTRCC TRACE J GMTRCA TRACE GMTRCB TNZ,H2 GENWLJ J GMTRCC MAIN PROGRAM TRACE L GA5,LINK2 TRACE S,H2 GA5,GTRCE+1 POINTER TO WALKBALK TRACE L,H1 GA5,N5ERLA SEQUENCE NUMBER TRACE TNZ CREMOT NON ZERO IS DEMAND TZ,S2 CRFLGS NON ZERO IF CTS CALLED FORTRAN LN,M GA5,0 S,H1 GA5,GTRCE+1 TRACE S B11,TRACFJ LMJ B11,FILE61 TRACE +GTRCE TRACE J GMIF63 TRACE GMTRCC L,H1 GA5,N5ERLA SET SEQUENCE NUMBER IUPPER TRACE TNZ CREMOT NON ZERO IS DEMAND TZ,S2 CRFLGS NON ZERO IF CTS CALLED FORTRAN LN,M GA5,0 S,H1 GA5,GTRCD+1 LOWER 18 IS ZERO IN MAIN PROGRAM TRACE S B11,TRACFJ . LMJ B11,FILE61 TRACE +GTRCD TRACE J GMIF63 $(2) . REENT GTRCA +0 TRACE LINKAGE FOR STORES TRACE SLJ $-$ TRACE GTRCB +040000,0 PASSES MODE AND LENGTH OF HOLERITH TRACE +0 TRACE GTRCC +0140000,0 PASS HOLERITH FOR STATEMENT ID TRACE +0 TRACE GTRCD +0130403,0 WALKBALK MAIN PROGRAM TRACE +0 TRACE GTRCE +0130003,0 WALKBACK SUBPROGRAM +0 TRACE GTMNA +0170000,0 MONITO +0 18 BIT LOCATION OF ARRAY MONITO GTMNB +0170000,0 18 BIT LOCATION OF LENGTH MONITO +0 MONITO GTMNC +0140000,0 PASS HOLERITH NAM OF ARRAY MONITO +0 MONITO $(1) . EENT . SECTION 2.3.0 . GTETG LX GB4,(1,0) TE OR TG COMMAND - 045300 SA,S1 GA0,GTETG3 STORE OP - 45400 GTETG0 LA GA0,GA2,GB4 - 45500 TLE,M GA0,8 - 45600 J GTETG2 ABSOLUTE - 45700 ANA,M GA0,8 GET PARAM NR - 45800 LX GB3,GA0 - 45900 L,M GA1,0,GA1 TG,M GA1,9 SLJ ERRL J $+1,GA1 - 046000 J GTTG05 SIGN - 046001 J GTETG4 TYPE J GTTG12 UPPER - 046003 J GTTG14 ID - 046004 J GTTG16 C - 046005 SLJ ERRL J GTT18 TRACE J GTT19 TRACE J GTT20 GET ACTUAL TYPE GTTG05 LA,H2 GA0,*GPT,GB2 - 046100 S GA1,R1 SA GA0,GA1 TP,XH2 *GPT,GB2 REMOVE REG AN,M GA1,0,*0 BIT IF PRESENT LA,S1 GA5,*GPT,GB2 TE,M GA5,6 J GTTG07 XOR,H2 GA0,TT3,GA1 GTTG04 SZ GA0 DSC GA0,53 L GA1,R1 J GTETG2 GTTG06 LA,T1 GA5,*GPT,GB2 IMM CONST TEST TNE,M GA5,0301 SZ GA0 TNE,M GA5,0302 SZ GA0 GTTG08 SSL GA0,17 J GTETG2 GTTG07 L GA1,R1 L B11,GA0 TP,XM 0,B11 AN,M B11,0,*0 TE,M GA5,5 SUBEX TEST J GTTG06 NO TZ,T1 SUBEXD,B11 SUBEX IN TEMP J GTTG08 YES LX,S3 B11,SUBEXD,B11 TLEM,M B11,12 A-REG J GTTG08 NO LA,S3 GA5,AREGB1-12,B11 YES, GET SIGN SSC GA5,24 XOR GA0,GA5 J GTTG04 GTTG12 LA,H2 GA0,*GPT,GB2 UPPER - 047402 S GA1,R2 S GA0,GA1 TP,XH2 *GPT,GB2 STRIP NEG BIT AN,M GA1,0,*0 LA,S1 GA5,*GPT,GB2 - 047403 TE,M GA5,6 TRIAD REF TEST - 047404 J $+4 L,S3 GA0,TT6,GA1 L GA1,R2 ZRLVTM J GTETG2 L,S3 GA0,3,GA1 L GA1,R2 J GTETG2 - 047411 GTTG14 LA,S1 GA0,*GPT,GB2 ID - 047412 TNE,M GA0,7 SZ GOTOFL J GTETG2 - 047413 GTTG16 LA,S2 GA0,*GPT,GB2 C - 047414 GTETG2 SA GA0,GA2,GB4 - 047500 TLEM,M GB4,1 - 47600 J GTETG0 - 47700 EX GTETG3 J GEN11 - 47900 LXM GB1,GA4 GET NEXT INSTR FROM M - 48000 J GEN11 - 48100 GTT20 L,S1 GA5,*GPT,GB2 TE,M GA5,6 J GTETG4 L GA0,*GPT,GB2 TP,XH2 *GPT,GB2 ZRLVTM AN,M GA0,0,*0 ZRLVTM TNZ TT11,GA0 TEST FOR REPLACEMENT J GTETG4 L GA0,TT11,GA0 LOCATION OF REPLACEMENT ITEM L GA0,0,GA0 J $+2 GTETG4 LA GA0,*GPT,GB2 SUBEX - 48200 SSC GA0,21 GET MODE - 48300 SSL GA0,33 DIGITS - 48400 J GTETG2 - 48500 GTT18 TE GA3,LDX LDX WAS LOADED BEFORE SCRATCH REQUEST TRACE J GEN11 NOT TRUE TRACE J GEN11 SHOULD BE J GTETG3+2 TRACE GTLOC . TRACE AN,M GA2,8 TRACE LX GB3,GA2 TRACE LA,M GA1,*GPT,GB2 TRACE LX,M GB3,6 TRACE LA,H2 GA2,GPT,GB2 TRACE AND,M GA2,0177777 TRACE A GA3,GB3 REENT S GA1,0,GA3 REENT J GEN11 TRACE GTT19 L,H2 GA0,*GPT,GB2 TRACE TP,XH2 *GPT,GB2 TRACE AN,M GA0,0,*0 TRACE L,S1 GA5,*GPT,GB2 TRACE TE,M GA5,6 TRACE J GEN11 NO EQUALITY TRACE TNZ,H2 TT11,GA0 TRACE J GEN11 NO J FACTOR TRACE LXM GB1,GA4 TRACE J GEN11 TRACE . SECTION 2.4.0 . GSW ANA,M GA4,8 SWAP PARAM A AND M - 48600 LX GB3,GA4 GB3 IS PARAM M - 48700 ANA,M GA2,8 GA2 IS PARAM A - 48800 LA GA0,*GPT,GB2 PERFORM SWAP - 48900 LX GB3,GA2 - 49000 LA GA1,*GPT,GB2 - 49100 SA GA0,*GPT,GB2 - 49200 LX GB3,GA4 - 49300 SA GA1,*GPT,GB2 - 49400 J GEN11 - 49500 . SECTION 2.5.0 . GOP72 ANX,M GB1,1 . AVOID NEG U-OP TNE,M GA1,010 J *0,GB1 . OP IS EX LA,M GA4,*0,GB1 . OP IS SLJ AX,M GB1,1 SA,H2 GA4,GPX,*GB2 M(B) TO X(J) - 49900 J GEN0 - 050100 GOP74 ANX,M GB1,1 . AVOID NEG. U-OP TE,M GA1,4 J GNOP - 50300 LXM,M GB1,*0,GB1 . OP IS J J GEN11 - 50600 GNOP LXM GB1,GPX-1,GB2 EXIT FROM SUBR AX GB1,GA2 ADD ADDR TO INSTR CTR ANX,M GB2,1 REDUCE SUBR LEVEL - 50900 J GEN11 - 51000 $(2) GTEMP RES 3 GEN11S +0 GEN* J $-$ EENT J GENS EENT GEN3 +GB3,0 GENR* J $-$ EENT J GENT EENT GMID6A J $-$ EENT J GM6DA EENT GHI +0 . SAVES INCREMENTING AND INDIRECT BITS JDSFLB +0 REPLACED PARAMETER GTETG3 TE GA2,GA3 GCG +0150000,0 +0 END