RGDFS . BUILD OBJECT TIME NAME LIST TABLE . NUMBER 1 $(1) NMLST* . LA A0,VI05 L,H1 A1,2,A0 AND,M A1,7 TNE,M A2,1 . TEST FOR NAMELIST ALTERED TO NAMELIST J VI400 . SKIP TO NEXT F60 STATEMENT AND,M A1,0770 TNE,M A2,0570 J VI400 L,H2 A1,3,A0 GET LOC OF SYM TABLE CTABH LX,H2 B4,2,A0 VLN L,M B5,0 SA,H2 A1,SYMVL LA,H2 A1,1,A0 RSA1 AU,M A1,2 RSA+2 AA,H2 A2,2,A0 RSA+2+VLN LA A3,('$$$ ') TZ,S2 VI05 . TEST FOR ASCII FLAG L A3,('$&$ ') . MARK AS ASCII TABLE SA A3,TXT LA,H2 A3,2,A0 AA,M A3,1 AA A3,A1 SA,H2 A3,TXT '$$$', VLN+1 L A3,CRSTC9 SLJ RS4 OUTPUT WALTS POINTER LA A3,0,A0 SA A3,TXT SLJ RS1 OUTPUT JGD B4,BUD KICK B4 DOWN ONE J VI400 NO VARIABLES IN THIS NAMELIST BUD SZ TXT2 Z=0 L A3,*SYMVL . SIMULATE L,XH1 SSA A3,18 TNE A3,(-0101) TEST NAMELIST LINK FLAG J BUDJ LA A4,0,A3 SA A4,TXT VSUBL NAME SLJ RS1 LA A4,1,A3 SA,H2 A4,TXT1 RSA OF VSUBL LA,S3 A4,2,A3 AND,M A4,7 SSL A4,3 TE,M A4,6 SZ A5 TNE,M A4,6 . IF TYPE 6 FOR CHARACTER L,M A4,010 . CHANGE TYPE TO 010 FOR BOOLEAN TNE,M A5,5 L,M A4,011 . NAMELIST TYPE FOR DUMMY SA,S2 A4,TXT1 TYPE T L,H1 A3,1,A3 . GET STC FROM SYM(V) AND,M A3,07777 . ISOLATE STORAGE CLASS S A4,NLSTC . SAVE STC FOR CURRENT VARIABLE TZ,H2 *SYMVL TEST P+CC=0 J BUD1 SZ,S1 TXT1 CD=0 SZ,H2 TXT2 H=0 BUD3 LA A4,TXT1 SA A4,TXT SLJ RS2 LA A4,TXT2 SA A4,TXT SLJ RS3 BUD2 AN,M B5,1 JGD B4,BUD J VI400 EXIT BUD1 LA,XH2 A3,*SYMVL GET PANDCC TN A3 J BUD4 P NOT SET AND,M A3,0177777 CD IS 5 SA,H2 A4,TXT2 VECTOR LENGTH L TO TEXT WORD LA,M A4,5 SA,S1 A4,TXT1 SET CD=5 J BUD3 BUD4 LA,H2 A0,*SYMVL LA A4,1,A0 BAS E ADDRESS OF DIMENSION OR SA,H2 A4,TXT2 SUBSCRIPT INFO TO H L,S1 A4,2,A0 GET CD=1 OR CD=4 CTABH SA,S1 A4,TXT1 TE,M A4,1 J BUD5 CD=4 LA,H1 A4,0,A0 GET OFFSET FROM SYM(HOL) SA,H1 A4,TXT2 TO Z FOR CD=1 BUD5 LA A4,TXT1 SA A4,TXT SLJ RS2 L A4,CRSTC9 . SYMBOLLIC COUNTER FOR CONSTANTS S A4,NLSTC LA A4,TXT2 SA A4,TXT SLJ RS2 J BUD2 BUD6 L A3,NLSTC . CURRENT VARIABLE STC TNE A3,CRSTC1 . EXCEPT FOR STC1 131K L A3,CRSTC2 . CLASS IS COUNTER 131K BUD7 S,S6 A3,NL4 . SET BOP PARAMETERS SSL A3,6 S,S5 A3,NL4 . SIMULATE S,T3 L,M A3,4 . NUMBER OF WORDS FOR BOP S,S1 A3,NL1 . SET BOP PARAMETERS J RS . RS4R L A4,RS4 CTABH SA,H2 A4,RSEX S A1,NL3 131K AA,M A1,1 J BUD6+1 131K RS1R L A4,RS1 REENT SA,H2 A4,RSEX S A1,NL3 131K AA,M A1,1 J RS RS2R L A4,RS2 REENT SA,H2 A4,RSEX S A2,NL3 131K AA,M A2,1 J BUD6 . NO BUILD SPECIAL RELOCATION ITEM RS3R L A4,RS3 REENT SA,H2 A4,RSEX S A2,NL3 131K AA,M A2,1 RS LA A4,TXT SA A4,NL2 L A4,CRSTC9 S,H1 A4,NL3 131K SX B4,SV SA A0,SV+1 SA A1,SV+2 SA A2,SV+3 SA A3,SV+4 L,M A0,NL1 LMJ B11,MV6Q RELOCATABLE OUTPUT LMJ B11,EMROR SZ NLSTC . INITILIZE FOR NEXT VARIABLE L,M A0,3 . 3 WORD PARAMETER LIST FOR BOP S,S1 A0,NL1 . LX B4,SV LA A0,SV+1 LA A1,SV+2 LA A2,SV+3 LA A3,SV+4 J *RSEX REENT BUDJ L,H2 A3,*SYMVL S,H2 A3,SYMVL SZ B5 J BUD CONTINUE WITH NEXT NAME $(2) . SYMVL J SYMVL,B5 RS4 J $-$ REENT J RS4R REENT RS1 J $-$ REENT J RS1R REENT RS2 J $-$ REENT J RS2R REENT RS3 J $-$ REENT J RS3R REENT RSEX J $-$ REENT NL1 + 030000,0 NL2 + 0 NL3 + 0 NL4* +011117000000 TXT + 0 TXT1 + 0 TXT2 + 0 NLSTC + 0 . STORAGE CLASS SV RES 5 END