. . NAMELIST STATEMENT. INITIALIZE $(1) PREQ NMELT* S,H2 B11,NAMEX S B7,('SVB7') S B9,('SVB9') S B10,('SVB10') L,M A9,1 FOR CTAB DIM ID TEST L B7,(1,0) . INITALIZE PRESYM INDEX MTFSYM L A0,(-0101,-1) . NAMELIST LINK FLAG MTFSYM S A0,MLINK MTFSYM . . GET AND PROCESS NAMELIST NAME. FIRST INITIALIZE . STRING GOES TO FILE 30. . . NAM20 SZ A8 SWITCH,NZ ON F30 REQUIRED SZ A6 ELEMENT COUNTER SZ TBNAME L,M A11,1 LMJ B11,GIT GET NAMELIST NAME J NAM991 TNE,M A2,12 J NAM20 INITIAL SLASH TE,M A2,3 NAME NOT A NAME J NAM992 TE,M A0,'/' J NAM992 DELIMETER MUST BE SLASH LMJ B11,GLS J $+2 NAME NOT THERE J NAM201 ALREADY THERE NAM203 L,H1 A2,2,A1 AND A2,(0770000) L A2,A3 OR,M A2,0577 S,H1 A3,2,A1 NAM202 S,H2 A1,NAM888 SAVE POINTER TO SYM(NAM) L,M A2,3,A1 . LOC OF PTR TO NAMELIST INFO MTFSYM S,H1 A2,NAM887 . INDIRECT PTR TO NAMELIST INFO MTFSYM S,H2 A1,NAM887 A A1,(070000,0) TZ FDASQT A A1,(0100,0) . MARK TABLE AS ASCII S A1,HOLOUT ALWAYS FILE 60 S,H2 A2,HOLOUT+1 . INDIRECT PTR TO NAMELIST INFO MTFSYM L A0,(1,HOLOUT) L,M A1,15 . LENGTH L,M A2,0 . NO TRAILING CONTROL WORDS L,M A3,0 . FORCE TO FIELDATA LMJ B11,W60F L A1,SYMV . . GET VARIABLE ELEMENT FROM LIST . NAM30 L FNXT,R8 L,M A0,0,B7 TLE,M A0,75 J NAM30J L,M A0,PRESYM L,M A2,0,B7 LXI A0,A2 LMJ B11,MTLT SLJ SYMOF L B7,(1,0) TNZ TBNAME S A0,TBNAME NAM30J . LMJ B11,GIT J NAM40 EOS, OUTPUT FILE 60 TE,M A2,3 ITEM A VARIABLE J NAM301 NO LMJ B11,GLG1 IN SYMBOL TABLE J NAM31 NO, GO PUT IT IN L,H1 A2,2,A1 GET MODE AND,M A2,070 LOOK AT TYPE TNE,M A3,060 . TEST FOR CHARACTER VARIABLE J NAMCR . IT WAS CHARACTER JNZ A3,NAM32 ALREADY TYPED NAM36 LMJ B11,DTYPE NO, TYPE IT A A2,A0 S,H1 A2,2,A1 TNE,M A0,060 . TEST FOR CHARACTER VARIABLE J NAMCR . IT WAS CHARACTER NAM32 AND,M A2,7 GET CLASS JNZ A3,NAM33 NOT A VARIABLE, CHECK FURTHER NAM322 TZ,H2 3,A1 J NAM34 DIMENSIONED SZ,H2 PRESYM,B7 MTFSYM NAM323 S,H1 A1,PRESYM,*B7 MTFSYM A,M A6,1 INCREMENT TOF 1, ELT CNTR TG,M A6,04000 J NAM777 L A0,GXX NEXT CHARACTER TNE,M A0,',' J NAM30 GET NEXT ELEMENT TNE,M A0,'/' J NAM40 CLEAN UP LIST TZ FEOS J NAM40 LMJ B11,ERR2 J NAM30 . NAM31 LMJ B11,SLTI ENTER IN SYMBOL TABLE L,M A1,0,A1 S A1,SYMV L,H1 A2,2,A1 GET MODE J NAM36 GO TYPE ETC . NAM33 TE,M A3,5 J NAM331 NOT DUMMY VBL NAM33J TNE,M A11,9 J NAM33A JNZ A8,NAM332 J NAM334 NAM33A L A0,(0125100,0) A,M A0,0,B1 . ADD SEQUENCE NUMBER S A0,STRING,*B5 S,S3 A11,STRING-1,B5 L,M A11,1 NAM334 RES 0 L A8,R8 L A0,NAM887 F30 DOT ZERO ITEM S A0,STRING,*B5 NAM332 A A1,(01000000) DOT 1 F30 ITEM S A1,STRING,B5 S,S2 A6,STRING,B5 SSC A6,6 S,S1 A6,STRING,*B5 LSSC A6,6 . SIMULATE S,T1 A,M A11,1 TNZ,S1 NAMCHF TEST ACTIVE CHARACTER J NAM322 L,H2 A0,3,A1 LXI,M A0,1 J NAM37 . NAM34 L A0,GXX DIMENSIONED VARIABLE TNE,M A0,'(' J NAM35 EXPLICIT EXPONENT L,H2 A0,3,A1 . PICK UP POINTER TO DIMS CTABD A A0,(01,0) L,S2 A2,2,A1 NO. DIMENSIONS AND,M A2,7 AN,M A3,1 DIM-1 JNZ A3,NAM37 MORE THAN ONE TE,S1 A9,0,A0 CTABD J NAM38 DIM IS VARIABLE L,H2 A3,0,A0 CTABD TZ,S2 0,A0 . IS DIM A PARAM? CTABD L,H2 A3,0,A3 . YES USE CURRENT VALUE NAM341 A A3,(0,0400000) SET P FOR ONE DIM IN VL S,H2 A3,PRESYM,B7 MTFSYM J NAM323 NAM38 TNE,M A11,9 J NAM38P JNZ A8,NAM38A J NAM38Q NAM38P L A4,(0125100,0) A,M A4,0,B1 . ADD SEQUENCE NUMBER S A4,STRING,*B5 S,S3 A11,STRING-1,B5 L,M A11,1 NAM38Q RES 0 L A4,NAM887 S A4,STRING,*B5 L A8,R8 NAM38A L,H2 A4,0,A0 CTABD A A4,(02,0) S A4,STRING,B5 S,S2 A6,STRING,B5 SSC A6,6 S,S1 A6,STRING,*B5 LSSC A6,6 . SIMULATE S,T1 A,M A11,1 SZ A3 J NAM341 . . THE NEXT SECTION PROCESSES CHARACTER VARIABLES . THE STARTING OFFSET AND THE LENGTH ARE PROCESSED . AS IF THEY WERE TWO EXTRA DIMENSIONS NAMCR L,S3 A4,2,A1 . TYPE AND MODE FIELD AND,M A4,7 TNE,M A5,5 . TEST FOR DUMMY ARGUMENT J NAMCRA TZ A5 . TEST FOR VARIABLE J NAM333 . SOMETHING WE DO NOT UNDERSTAND NAMCRA L,M A4,2 . NUMBER TABLE WORDS REQUIRED BY CHAR SZ NAMCHF S,S1 A4,NAMCHF . ALSO USED AS CHARACTER FLAG S,S3 A4,NAMCHF . FLAG FOR HOLERITH SECTION L,H2 A0,3,A1 . POINTER TO DIMENSIONS A A0,(1,0) L,S2 A2,2,A1 . COMPUTE NUMBER OF AND,M A2,7 . DIMENSIONS LESS ONE AN,M A3,1 TE,M A5,5 . TEST FOR DUMMY ARGUMENT J NAM37 . RETURN TO COMMON FLOW J NAM33J . NAM37 L B9,(1,HOLOUT) INITIALIZE OUTPUT TO F60 SLJ TSCSYM L A2,CRSYM CURRENT SYM LOCATION S A2,PRESYM,B7 MTFSYM AU,M A3,1 NO DIMS BACK IN A4 A,S1 A4,NAMCHF . WORDS REQUIRED FOR CHARACTER SZ,H2 HOLOUT+1 . INITIALIZE FOR CHARACTER S,H1 A4,HOLOUT+1 NNN FOR OBJECT TIME A,M A4,3 SSL A4,1 S,S6 A4,2,A2 . STORE WD CNT IN 3RD WORD OF SYM SSC A4,6 . SIMULATE S,T3 S,S5 A4,2,A2 SSC A4,12 S,H2 A2,NAMCHF . SAVE FOR POSSIBLE ADDITION OF CHARACTE A,M A4,0,A2 A A4,(020000,0) . F60 HOLL ID CTABFH S A4,HOLOUT F60 HOLLERITH ITEM L,M A4,0367 MTFSYM S,H1 A4,2,A2 MTFSYM S R15,0,A2 NON-ZERO CONSTANT SZ 1,A2 SZ 3,A2 L,M A4,4 MTFSYM S,S1 A4,2,*A2 . CD=4 MTFSYM S A2,CRSYM UPDATE SYMBOL POINTER SZ A5 JN A3,NAMCRB . ONLY SCALAR CHARACTERS L,H2 A4,0,A0 CTABD TE,S1 A9,0,*A0 CTABD J NAM391 AN,M A0,1 TZ,S2 0,A0 CTABD L,H2 A4,*0,A0 . USE CURRENT PARAM VALUE CTABD A,M A0,1 S,H1 A4,2,B9 S,S2 A9,NAMCHF . SHOW FIRST POSISITION TAKEN J NAM371 NAM372 L,H2 A4,0,A0 CTABD TE,S1 A9,0,*A0 CTABD J NAM391 VARIABLE DIMENSION AN,M A0,1 TZ,S2 0,A0 CTABD L,H2 A4,*0,A0 . USE CURRENT PARAM VALUE CTABD A,M A0,1 NAM377 S,H1 A4,2,B9 S,S2 A9,NAMCHF . SHOW FIRST POSISITION TAKEN MSI,H2 A4,HOLOUT+1 NAM371 S,H2 A4,HOLOUT+1 A,M A5,1 TOF, IE POINTER FOR PROLOGUE TG,M A5,04000 J NAM777 JGD A3,NAM373 MORE TZ,S1 NAMCHF . TEST FOR CHARACTER VARIABLE J NAMCRG SZ,H2 2,*B9 NO, ZERO RIGHT HALF J NAM379 NAM373 L,H2 A4,0,A0 CTABD TE,S1 A9,0,*A0 CTABD J NAM392 VARIABLE AN,M A0,1 CTABD TZ,S2 0,A0 CTABD L,H2 A4,*0,A0 A,M A0,1 NAM378 S,H2 A4,2,*B9 SZ,S2 NAMCHF . SHOW LAST POSISITION TAKEN MSI,H2 A4,HOLOUT+1 S,H2 A4,HOLOUT+1 A,M A5,1 TG,M A5,04000 J NAM777 JGD A3,NAM372 NAM379 TZ,S1 NAMCHF . TEST FOR INSERTING CHARACTER INFO J NAMCRB NM379 L A0,(1,HOLOUT) TZ,S3 NAMCHF . IF CHARACTER TEST PARENTHESIS J NAM394J NAM394Q L,M A1,15 . LENGTH L,M A2,0 . NO TRAILING CONTROL WORDS L,M A3,0 . FORCE TO FIELDATA LMJ B11,W60F . INSERT ITEM IN F60 L A1,SYMV J NAM323 NAM394J L A4,GXX . TERMINATING CHARACTER TE,M A4,'(' . TEST SUBSCRIPT OR SUBSTRING J NAM394Q L,S2 A4,2,A1 . TEST FOR DIMENSIONS AND,M A4,7 L,M A9,0 . IF SUBSTRING OFFSET IS 0 JNZ A5,NAM35 . GO PARSE SUBSCRIPT LMJ B11,SGX . SAVE CHARACTER POINTER J NAM39Z . GO PARSE HOLERITH STRING . NAM333 LMJ B11,PERR ELT NOT AVBL OR DUMMY ARGUMENT FORM6 031,73,SYMV J NAM30 NAM331 TE,M A3,7 CLASS UNASSIGNED J NAM339 AND A2,077 TNE,M A3,077 NAMELIST J NAM333 YES AND A2,(0777070) S,H1 A3,2,A1 J NAM322 . NAM339 TE,M A3,6 INTRINSIC FUNCTION J NAM333 NO SLJ DEINTX AND,M A2,01000 JNZ A3,NAM333 J NAM36 . NAM391 LMJ B11,NM390 . SET ITEM FOR F30 J NAM377 NAM392 LMJ B11,NM390 J NAM378 NM390 TNE,M A11,9 . TEST FOR SPACE IN RECORD J NM39P . ADD CONTROL AT END OF RECORD JNZ A8,NM39A . TEST EMPTY RECORD J NM39Q . NO NEW CONTROL NEEDED NM39P L A8,(0125100,0) . STSTEMENT TYPE FOR NAMELIST A,M A8,0,B1 . ADD SEQUENCE NUMBER S A8,STRING,*B5 S,S3 A11,STRING-1,B5 . ITEM NUMBER L,M A11,1 . INITIALIZE ITEM COUNT NM39Q L A8,R8 . SHOW RECORD INITIALIZED L A8,NAM887 . SYM PNTR TO NAMELIST S A8,STRING,*B5 . F30 DOT 0 NM39A LSSL A4,18 . EXTRACT INDIRECT NAMELIST PRT SSL A4,18 A A4,(03000000) . SUB ID S A4,STRING,B5 S,S2 A5,STRING,B5 SSC A5,6 S,S1 A5,STRING,*B5 LSSC A5,6 . SIMULATE S,T1 A,M A11,1 . INCREASE ITEM COUNT SZ A4 J 0,B11 . EXIT FROM SUBROUTINE NAMCRG S,S2 R15,NAMCHF . MARK FIRST HALF FULL NAMCRB L,H2 A4,0,A0 . HOPFULLY STARTING OFFSET OF CHARACTER TNZ,S2 NAMCHF . TEST FOR FIRST OR SECOND S,H1 A4,2,B9 . TREAT AS DIMENSION N+1 TZ,S2 NAMCHF S,H2 A4,2,*B9 . TREAT AS DIMENSION N+1 L,S1 A4,1,A0 . ID OF LENGTH TE,M A4,3 . TEST FOR CONSTANT J NAMCRC L,H2 A4,1,A0 . VALUE OF LENGTH NAMCRD TZ,S2 NAMCHF . TEST FIRST OR SECOND S,H1 A4,2,*B9 . TREAT AS DIMENSION N+2 TNZ,S2 NAMCHF S,H2 A4,2,*B9 . TREAT AS DIMENSION N+2 SZ,S1 NAMCHF J NM379 NAMCRC L,H2 A4,1,A0 . SYM PNTR TO LENGTH J NAMCRD . EXPLICIT EXPONENT. COMPUTE OFSET, OUTPUT TO F60 . NAM35 S B5,NAM360 SAVE STRING INDEX GENSUB S A1,('SVSYMV') LMJ B11,SGX S A1,R16 SAVE FOR DIAGNOSTIC GENSUB S R15,EQTFLG GENSUB S R15,GEICFL GENSUB S R15,FEB GENSUB S R15,PARFLG GENSUB LMJ B11,SCAR SCAN SUBSCRIPT GENSUB SZ FEB GENSUB SZ EQTFLG GENSUB SZ GEICFL GENSUB SZ PARFLG L FNXT,R8 GENSUB L A0,B5 GENSUB AN A0,NAM360 GET NUMBER OF POLISH ITMES GENSUB TNE,M A0,3 GENSUB J NAM35A GENSUB NAM399 LMJ B11,PERR INVALID SUBSCRIPT GENSUB FORM6 031,170,R16 GENSUB L,M A9,0 GENSUB J NAM35B GENSUB NAM35A L A0,STRING-2,B5 OFFSET IS IN STRING GENSUB TNZ,S2 STRING-2,B5 GENSUB LXM A0,0,A0 OFFSET WAS IN SYMBOL TABLE GENSUB AND A0,(4,0) GENSUB JNZ A1,NAM399 NEGATIVE SUBSCRIPT NOT ALLOWED GENSUB L,M A9,0,A0 VALUE OF OFFSET GENSUB NAM35B . GENSUB L B5,NAM360 GENSUB . . NOW OFFSET IS IN A9 NAM388 SZ A5 NAM39 LMJ B11,RGX FIND NO. OF WORDS FOR PSEUDO- NAM39Z LMJ B11,GX HOLLERITH CONSTANT J NAM394 EOS A,M A5,1 TE,M A0,')' J NAM39Z TNZ,S3 NAMCHF . CHARACTER MAY HAVE TWO PARENTHESIS SET J NAM394 LMJ B11,SGX1 . SAVE CURRENT CHARACTER POINTERS LMJ B11,GX . GET NEXT CHARACTER NOP . EOS CAN BE IGNORED TNE,M A0,'(' J NAM39Z . HOPEFULLY ONLY TWO GROUPS OF PARENTHES LMJ B11,RGX1 . REST CHARACTER POINTERS NAM394 A,M A5,5 CHARACTERS, NOW GET WORDS L,M A4,0 DI,M A4,6 TZ,S3 NAMCHF J NAM394K SLJ TSCSYM L A2,CRSYM . NEXT SYM LOC CTABFH S,S6 A4,2,A2 . STORE WORD COUNT IN 3RD WORD DSC A4,6 . SIMULATE STORE INTO T3 S,S5 A4,2,A2 DSC A4,12 S A2,PRESYM,B7 MTFSYM A,M A5,0,A2 MAKE HOLLERITH CTAB A A5,(020000,0) . HOLL F60 ID CTABFH S R15,0,A2 NON-ZERO S,H1 A9,0,A2 OFFSET L,M A9,1 RESTORE L,M A4,0367 CTABFH S,H1 A4,2,A2 INSERT TYPE FOR HOLERITH CONSTANT CTABFH L,M A4,1 CTABFH S,S1 A4,2,*A2 . CD=1 CTABFH S,H2 A2,CRSYM RESTOR SYMBOL TBL POINTER LMJ B11,RGX RESTORE GX AGAIN . . NOW, AT LAST, MOVE SUBSCRIPT TO FILE 60 L B9,(1,HOLOUT+1) NAM383 S A5,HOLOUT HOLLERITH ID L,M A4,13 NAM382 L,M A3,5 NAM381 LMJ B11,GX J NAM395 TNZ,S2 P1TAB1,A0 ALPHA J NAM361 MUST BE PARAMETER EX NAM396,A3 TE,M A0,')' J NAM389 TNZ,S3 NAMCHF . TEST FOR CHARACTER J NAM395 . IT WAS NOT CHARACTER LMJ B11,SGX . SAVE CHARACTER POINTER LMJ B11,GX . GET NEXT CHARACTER NOP . EOS IS OF NO CONCERN TE,M A0,'(' . TEST START OF SUBSTRING J NAM389J LMJ B11,RGX . RESTORE CHARACTER POINTERS J NAM389 NAM389J LMJ B11,RGX . RESTORE CHARACTER POINTERS J NAM395 NAM389 JGD A3,NAM381 JGD A4,NAM382 L A0,(1,HOLOUT) NOW OUTPUT L,M A1,15 . LENGTH L,M A2,0 . NO TRAILING CONTROL WORDS L,M A3,0 . FORCE TO FIELDATA LMJ B11,W60F L A5,(020000,0) J NAM383 NAM394K AU,H1 A4,HOLOUT . ADD CHARACTER STRING TO DIMENSIONS S,H1 A5,HOLOUT L,H2 A2,NAMCHF . SYM POINTER TO HOLERITH CONSTANT AU,H2 A4,2,A2 . INCREASE BY LENGTH OF STRING S,H2 A5,2,A2 S,S4 A4,2,A2 .X LENGTH OF STRING S,H2 A9,HOLOUT+1 . REPLACE ARRAY COUNT WITH OFFSET SZ,H1 0,A2 L,M A9,1 . RESTORE L,M A4,13 . WORDS AVAILABLE IN CARD IMAGE A,M A4,HOLOUT A,M B9,2 . CORRECT FOR CHANGE IN OFFSET AN,M A4,0,B9 . WORDS USED FOR DIMENSION S,S1 A4,HOLOUT+1 . FLAG THAT DIMENSIONS AND SOURCE STRING LMJ B11,RGX J NAM382 . NAM361 SZ FNXT S A3,('A3') SAVE REGS S A4,('A4') LMJ B11,GIT GET NAME SLJ BUG MUST BE THERE TE,M A2,3 SLJ BUG MUST BE NAME LMJ B11,GLG1 GET SYM SLJ BUG MUST BE IN L A0,3,A1 L,M A3,5 LENGTH EXEC8 LMJ B11,MACEBD CONVERT TO CHARACTERS EXEC8 L A1,A2 PUT VALUE IN A2 EXEC8 L A3,('A3') RESTORE REGS L A4,('A4') J NAM364 NAM363 L,M A3,5 NAM364 SZ A0 LDSC A0,6 GET SIGNIFACATE CHAR TNE,M A0,05 J NAM364 JZ A0,NAM365 DONE EX NAM396,A3 MOVE CHAR TO STRING JGD A3,NAM364 JGD A4,NAM363 L A0,(1,HOLOUT) OUTPUT S A1,('A1') L,M A1,15 . LENGTH L,M A2,0 . NO TRAILING CONTROL WORDS L,M A3,0 . FORCE TO FIELDATA LMJ B11,W60F L A1,('A1') L A5,(020000,0) S A5,HOLOUT L,M A4,13 J NAM363 NAM365 L B11,('SVSYMV') S B11,SYMV J NAM381 NAM395 L,M A0,' ' JGD A3,NAM385 J NAM384 NAM385 NOP 0,0 EX NAM396,A3 JGD A3,NAM385 NAM384 L A0,(1,HOLOUT) WRITE LAST L,M A1,15 . LENGTH L,M A2,0 . NO TRAILING CONTROL WORDS L,M A3,0 . FORCE TO FIELDATA LMJ B11,W60F . INSERT ITEM IN F60 L FNXT,R8 LMJ B11,GX GET BY ) NOP . L A1,SYMV J NAM323 NAM396 S,S6 A0,0,*B9 S,S5 A0,0,B9 S,S4 A0,0,B9 S,S3 A0,0,B9 S,S2 A0,0,B9 S,S1 A0,0,B9 . NAM201 L,H1 A2,2,A1 NAME IN LOCAL SYMBOL TABLE AND,M A2,077 TE,M A3,077 IS IT NAMELIST NAME J NM993 AND,M A2,0700 TE,M A3,0700 J NAM994 DUPLICATE NAMES L,M A2,6 INVOKED S,S2 A2,2,A1 SET D TO INVOKED AND NAMED J NAM202 NAM40 L A0,NAM888 L FNXT,R8 S,S6 A6,2,A0 . NUM OF ELT IN NAMELIST SSC A6,6 . SIMULATE S,T3 S,S5 A6,2,A0 LSSC A6,6 MSI,M A6,3 A,M A6,2 . LENGTH=3(N+2) CTABFH S,H1 A6,3,A0 . STORE LENGTH IN 4TH WORD (IN SYM) CTABFH L A1,A0 . A1=SYM PTR FOR NAMELIST MTFSYM L,M A0,PRESYM . LOC OF TABLE MTFSYM L,M A2,0,B7 LXI A0,A2 NEGATIVE LENGTH MTFSYM LMJ B11,MTLT . MOVE TO LINKED TABLE MTFSYM SLJ SYMOF . ERROR SYM OVERFLOW MTFSYM NAM45 L B7,(1,0) . INITIALIZE PRESYM INDEX MTFSYM TZ TBNAME L A0,TBNAME S,H2 A0,3,A1 . PTR TO NAMELIST INFO IN W4 IN SYM MTFSYM JZ A8,NAM20 L A0,SEQL A A0,(0125100,0) S A0,STRING,*B5 S,S3 A11,STRING-1,B5 J NAM20 NAM992 TNE,M A0,',' J NAM20 LMJ B11,PERR BAD, NO SLASH AFTER NAME FORM6 031,171,SYMV NAM982 LMJ B11,GX J NAM991 EOS TE,M A0,'/' J NAM982 J NAM20 NAM301 TNE,M A2,14 A COMMA J NAM30+1 TNE,M A2,12 A SLASH J NAM40 L A0,OPERR-9,A2 S A0,GITV LMJ B11,PERR FORM6 010,77,GITV . $ IS PRECEDED BY A , OR ( J NAM30+1 NM993 AND,M A2,7 TE,M A3,6 TEST FOR INTRINSIC FUNCTION J NAM993 SLJ DEINTX AND,M A2,01000 HAS IT BEEN USED AS AN INTRINSIC FUNCTION JNZ A3,NAM993 J NAM203 CHANGE IT TO NAME OF NAMELIST . NAM993 LMJ B11,PERR NAMELIST NAME $ USED EARLIER FORM6 031,172,SYMV AS VARIABLE J NAM203 NAM994 LMJ B11,PERR NAMELIST NAME DUPLICATED FORM6 031,173,SYMV J NAM203 NAM777 LMJ B11,PERR FORM6 030,189,0 NAM991. . EXIT MTFSYM L B7,('SVB7') L B9,('SVB9') L B10,('SVB10') J *NAMEX REENT $(2) . REENT NAM360 +0 REENT NAMEX J $ NAMCHF +0 . FLAGS FOR CHARACTER VARIABLES NAM887 +0 NAM888 +0 TBNAME +0 END