$(1) PREQ DO JPL ,PITU EQU 1 DO LMSC ,PITU EQU 0 . GET FORMAT LABEL REF 140000 . 140100 FLAB* S,H2 B11,FL30 ITEM IN GITY USE A2 140200 L A4,GITV TZ MACNO LABEL IS IN A4 SLJ MCLABL TEST IF LABEL SHOULD BE RENAMED A A4,INTNU LMJ B11,SLT +CRLBHL LMJ B11,SLTI TNZ,H1 3,A1 . SKIP OF FORMAT DEFINED CTABFH SN,H1 A1,3,A1 . FLAG FOR UNDEFINED FORMAT L,H1 A2,2,A1 140500 AND,M A2,07777 140600 S A1,SYMV JZ A3,FL301 TE,M A3,0107 C=7,T=0,D=1,2 140700 TNE,M A3,0207 140800 J FL302 YES 140900 LMJ B11,PERR NO 141000 FORM6 031,39,SYMV FL301 L,H1 A2,2,A1 141200 FL302 AND A2,(0770000) 141300 A,M A3,0207 141400 S,H1 A3,2,A1 141500 J *FL30 CTABFH . 141700 . FORMAT STATEMENT SCAN (PART 2) 141900 FMF60* S,H2 B11,FT30 SAVE EXIT 142000 S A1,('FORMSY') S A10,FT11E S A1,A10 LMJ B11,PSDP S A10,A1 S B4,FT12 K 142200 S A1,STRING,B5 SYM IN A1 142600 S A11,FT11F 142602 L,M A11,13 CT/F60 ID 142603 L,M A10,15 TOTAL WDS TO GO (MOD 15) 142604 L,M A0,1 F60 ID=FORMAT 142700 S,S1 A0,STRING,*B5 ID=3 142800 L,M A0,072 . FIELDATA QUOTE TZ FDASQT . TEST ASCII STRINGS L,M A0,047 . ASCII QUOTE S,H2 A0,FTQTEX L,M A0,5 . FIELDATA BLANK TZ FDASQT L,M A0,040 . ASCII BLANK S,H1 A0,FTQTEX LMJ B11,GX 142900 J FT301 EOS 143000 SZ ('MSPRFG') CLEAR MISSING PARENTHESIS FLAG TNE,M A0,'(' 143100 J FT302 X=LEFT PAREN 143200 LMJ B11,PERR 143300 FORM6 010,121,GXX 143400 S B11,('MSPRFG') SHOW PARENTHESIS MISSING FT302 L,M A6,0 0 IN N 143500 L,M B4,5 0 IN K 143600 TZ FDASQT . TEST FOR ASCII STRINGS L,M B4,3 . CHARACTER COUNT FOR ASCII L,M A7,1 1 IN PAREN LEVEL (L) 143700 FT303 SZ A8 0 IN N 143800 SZ FT11A 0 IN A 143900 SZ FT11B 0 IN B 144000 SZ FT11C 0 IN C 144100 SZ FT11D 0 IN D 144200 SZ FT11M FT304 L,M B11,FT305 . FT900 TNZ FDASQT . TEST IF ASCII STRINGS PERMITTED J FT900F . MUST BE FIELDATA TN GXASCV . NEGATIVE IS NOP IMPLIES ASCII L,H2 A0,ASCFDASC$,A0 . CONVERT FIELDATA TO ASCII EX FT21A,B4 . STORE CHARACTER J FT900E FT900F EX FT21,B4 . STORE FIELDATA CHARACTER FT900E JGD B4,FT3055 JGD A11,FT3045 TIME FOR 03 ID 144401 S B11,B4 L A0,(1,STRING) L,M A1,15 . LENGTH OF IMAGE L,M A2,0 . NUMBER OF TRAILING CONTROL WORDS L,M A3,0 . SET TO FIELDATA LMJ B11,W60F . PLACE IMAGE IN F60 L B5,(1,0) L B11,B4 RESTORE EXIT L,M A11,1 YES, PUT IN ID 144402 S,S1 A11,STRING,*B5 ID=03 TO F60 144403 A,M A10,15 UP TOTAL CT. 144404 L,M A11,13 CT/F60 ID 144405 FT3045 A,M A6,1 INCREMENT WD CT 144407 L,M B4,5 5 IN K 144600 TZ FDASQT . TEST FOR ASCII STRINGS L,M B4,3 . ASCII COUNT PER WORD FT3055 J 0,B11 FT305 TZ ('MSPRFG') SEE IF ORIGINAL PARENTHESIS WAS MISSING J $+4 YES-BYPASS GX AND RESET 144690 LMJ B11,GX NO-CONTINUE 144700 J FT306 EOS 144800 J $+2 144830 SZ ('MSPRFG') L,S5 A1,TST3,A0 TYPE OF CHARACTER FOR TRANSFER 144900 TNZ A7 . TEST PARENTHESIS LEVEL J FT561 J *FT22,A1 BRANCH ON X 145100 . 145200 FT306 JZ A7,FT307 DOES L=0 145300 LMJ B11,PERR NO 145400 FORM6 0,61,0 TOO MANY ( 145500 L,M A0,')' 145600 J FT501 145700 FT307 L,M A0,5 145800 TNE A0,B4 DOES K=5 145810 J FT309 YES FT308 NOP 0,0 EX FT21,B4 JGD B4,FT308 A,M A6,1 J FT600 FT309 TNE,M A11,13 AN,M A10,15 J FT600 . 146200 FT301 L A0,('() ') 146300 ASCII TZ FDASQT . TEST ASCII STRINGS L A0,('() ') FIELDATA S A0,STRING,*B5 146400 L,M A6,1 J FT600 146600 . 146700 . X=NUMERIC 146800 FT530 JNZ A8,FT531 N=0 146900 SZ A9 YES -0 IN NUM 147000 SZ FT11D 0 IN D 147100 FT531 A,M A8,1 147200 SSC A9,30 147300 OR A0,A9 147400 L A9,A1 147500 J FT304 147600 . 147700 . X=DEC.PT. 147800 FT520 JNZ A8,FT521 N=0 147900 LMJ B11,PERR YES 148000 FORM6 0,83,0 148100 FT521 TZ FT11B B RESET 148200 J FT522 NO 148300 LMJ B11,PERR 148400 FORM6 0,84,0 148500 FT522 SZ FT11B RESET B 148600 S R15,FT11D SET D 148700 SZ A8 RESET N 148800 J FT304 148900 . 149000 . X=LEFT PAREN 149100 FT490 JNZ A7,FT491 L=0 149200 LMJ B11,PERR 149300 FORM6 0,94,0 149400 FT491 A,M A7,1 149500 J FT303 (TO CORRECT INVALID ERR. 95) 149600 . 149700 . X=RIGHT PAREN 149800 FT500 JNZ A7,FT501 L=0 149900 LMJ B11,PERR NO - ERROR 150000 FORM6 0,60,0 150100 J FT540 150200 FT501 AN,M A7,1 L - 1 IN L 150300 J FT540 150400 FT502 LMJ B11,PERR FORM6 0,215,0 MISSING WIDTH SPECIFICATION J FT303 . 150500 . X=COMMA,SLASH 150600 FT540 TNZ FT11C C AND D RESET 150700 TZ FT11D 150800 J FT541 NO 150900 TZ FT11A JZ A8,FT502 FT542 JZ A8,FT303 N=0 151000 TZ FT11A A RESET 151100 J FT303 NO 151200 LMJ B11,PERR 151300 FORM6 0,95,0 151400 J FT303 151500 FT541 LMJ B11,PERR 151600 FORM6 0,96,0 151700 J FT542 151800 . 151900 . X=I,O,A 152000 FT410 TNZ FT11A A RESET 152100 J FT411 YES 152200 LMJ B11,PERR NO 152300 FORM6 0,97,0 152400 FT411 TNZ FT11C C RESET 152500 J FT412 YES 152600 LMJ B11,PERR 152700 FORM6 0,98,0 152800 FT412 SZ A8 0 IN N 152900 TNE,M A0,'M' TEST FOR M FORMATTING TYPE S A0,FT11M S R15,FT11A SET A 153000 J FT304 153100 . 153200 . X=E OR F 153300 FT440 TNZ FT11A A RESET 153400 J FT441 YES 153500 LMJ B11,PERR 153600 FORM6 0,97,0 153700 FT441 SZ A8 0 IN N 153800 SZ FT11C RESET C 153900 S R15,FT11A SET A 154000 S R15,FT11B SET B 154100 J FT304 154200 . 154300 . X=P 154400 FT460 TNZ FT11A A RESET 154500 J FT461 YES 154600 LMJ B11,PERR FORM6 0,98,0 154700 FT461 TNZ FT11C C RESET 154800 J FT462 YES 154900 LMJ B11,PERR 155000 FORM6 0,98,0 155100 FT462 SZ A8 0 IN N 155200 S R15,FT11C SET C 155300 J FT304 155400 . 155500 . X=OTHER 155600 FT550 LMJ B11,PERR 155700 FORM6 010,9,GXX 155800 J FT562 155900 . 156000 . X=H 156100 FT480 L A0,A8 N IN A0 156200 L A3,GXX TZ FDASQT . CHANGE TO ASCII H IF REQUIRED L,H2 A3,ASCFDASC$,A3 S A3,GXX JGD A0,FT481 156300 L,M A3,1 156400 J FT482 156500 FT481 SZ A3 156600 S A9,FT17 156700 FT483 MSI,M A3,10 156800 EX FT23,A0 156900 AN,M A3,48 REMOVE FIELD DATA 156950 JGD A0,FT483 157000 FT482 L A0,GXX H IN A0 157100 GXRTRN ' ',';','@' L A4,A3 JGD A4,FT484 . N-1 TO N J FT471R N=0 ERROR FT484 LMJ B11,FT900 FT4855 LMJ B11,GX J FT470 EOS (ERROR) 157900 JGD A4,FT484 TZ FDASQT L,H1 A0,ASCFDASC$,A0 . CONVERT ASCII TO FIELDATA FT470 GXABSB ' ',';','@' FT4700 TNZ FT11A JNZ A8,FT474 YES 158500 FT471 LMJ B11,PERR 158600 FORM6 0,99,0 158700 FT474 SZ A8 158800 J FT540 158900 FT471R GXABSB ' ',';','@' J FT471 FT700 L,M A0,072 PUT LEADING QUOTE IN STRING LMJ B11,FT900 FT985 RES 0 GXRTRN ' ',';','@' FT9855 LMJ B11,GX J FT9846 TNE,H2 A0,FTQTEX J FT985K FT985J LMJ B11,FT900 J FT985 FT9846 RES 0 L,H2 A0,FTQTEX . ASCII OR FIELDATA QUOTE CHARACTER LMJ B11,FT900 L A1,GXX TNE,H1 A1,FTQTEX . ASCII OR FIELDATA BLANK L FNXT,R8 J FT305 FT985K LMJ B11,GX J FT9846 EOS OK TE,H2 A0,FTQTEX . ASCII OR FIELDATA QUOTE J FT470K LMJ B11,FT900 L A0,GXX . RESTORE CHARACTER IN CASE OF CARD WRIT J FT985J FT470K SZ FNXT FT470J L,H2 A0,FTQTEX . ASCII OR FIELDATA QUOTE L A1,GXX TNE,H1 A1,FTQTEX . ASCII OR FIELDATA BLANK L FNXT,R8 L A8,A0 SZ FT11A TNZ FDASQT J FT470 L,H1 A1,ASCFDASC$,A1 . CONVERT ASCII TO FIELDATA TP GXASCV . NEGATIVE IMPLIES ASCII S A1,GXX . SAVE AS NEXT CHARACTER WILL BE READ AS L,H1 A0,ASCFDASC$,A0 . CONVERT ASCII TO FIELDATA J FT470 . 159000 FT560 TNZ FT11M TNZ FT11A TZ FT11C YES-IS C RESET J FT561 NO-ERROR TNZ A8 IS N RESET TZ FT11D YES-IS D RESET J FT561 NO-ERROR J FT304 YES-GET NXT CHAR FT561 LMJ B11,PERR FORM6 010,9,GXX FT562 LMJ B11,GX GET A CHAR. J FT306 E.O.S. TNE,M A0,',' X=COMMA J FT303 YES-RESET FLAGS TNE,M A0,'/' X=/ J FT303 YES-RESET FLAGS TE,M A0,')' X=) J FT562 NO-GET NXT CHAR. SZ FT11C RESET C SZ FT11D RESET D SZ A8 RESET N J FT500 . OUTPUT TO F60 159100 FT600 L A0,(1,STRING) . TEST TO SEE IF FORMAT PRECISELY FILLED OUT A F60 RECORD TE,M A11,13 J $+4 L,M A5,0,B4 TNE,M A5,5 J FT600J L,M A1,15 . LENGTH L,M A2,0 . SHOW NO TRAILING CONTROL WORDS L,M A3,0 . FORCE TO FIELDATA LMJ B11,W60F FT600J DO PITU , TZ,S1 FTQF2 DO PITU , SLJ FTQIO L A10,FT11E 159570 L A11,FT11F 159580 . XX NO. OF WDS. IS IN A1 -- ID IS IN FWA -- 159510 L B5,(1,0) L A2,A6 CTABFH L A1,('FORMSY') L B4,FT12 159700 J *FT30 CTABFH . 160300 FT21 S,S6 A0,STRING,*B5 161900 S,S5 A0,STRING,B5 162000 S,S4 A0,STRING,B5 162100 S,S3 A0,STRING,B5 162200 S,S2 A0,STRING,B5 162300 S,S1 A0,STRING,B5 162400 . FOLLOWING AN EXECUTE VECTOR TO STORE ASCII FT21A S,Q4 A0,STRING,*B5 S,Q3 A0,STRING,B5 S,Q2 A0,STRING,B5 S,Q1 A0,STRING,B5 . 162500 FT22 J FT410 X= I,O,A 162600 J FT440 E,F 162700 J FT460 P 162800 J FT4700 X J FT480 H 163000 J FT490 ( 163100 J FT500 ) 163200 J FT520 . 163300 J FT530 NUMERIC 163400 J FT540 /, COMMA 163500 J FT550 OTHER 163600 J FT560 MINUS 163650 J FT700 .QUOTE DO 1-PITU , J FT550 DO 1-PITU , PROC J FTQ00 PROCESS Q FORMAT PICTUR FTQ00 . PROCESS A PSUEDO PICTURE FORMAT PICTUR LMJ B11,FT900 PUT Q IN OUTPUT PICTUR LMJ B11,GX PICTUR J FT306 PREMATURE E O S PICTUR TE,M A0,'(' PICTUR J FTQE1 NO PARENTHESIS WHERE EXPECTED PICTUR SZ FTQF1 CLEAR FLAGS PICTUR S,S1 A0,FTQF2 SHOW Q IN FORMAT PICTUR FTQA LMJ B11,FT900 ADD LAST CHARACTER TO OUTPUT PICTUR LMJ B11,GX PICTUR J FT306 PICTUR TNE,M A0,')' PICTUR J FTQE+1 END OF PICTURE PICTUR TNZ,S2 TST3,A0 PICTUR J FTQE2 CHARACTER DOES NOT BELONG IN PICTURE PICTUR L,S1 A1,TST3,A0 CLASS OF PICTURE CHARACTER PICTUR J $,A1 BRANCH ON CLASS OF PICTURE CHARACTER PICTUR J FTQ01 $,S,+,- FLOATING CHARACTER PICTUR J FTQ02 B , / . PICTUR J FTQ03 T I R 9 PICTUR J FTQ04 CR OR DB PICTUR J FTQ05 Z OR * PICTUR J FTQ06 Y CONVERT 0 TO BLANK PICTUR J FTQ07 V OR K PICTUR J FTQ08 E EXPONENT POSISTION PICTUR J FTQ09 F SCALE FACTOR PICTUR FTQ01 TE,M A0,'$' PICTUR S,S5 A0,FTQF1 TNZ,S1 FTQF1 PICTUR J FTQ1A FIRST CASE OF FLOATING CHARACTER CTABFH TNZ,S2 FTQF1 PICTUR J FTQ1B NOT SECOND FLOATING CHARACTER CTABFH TE,S2 A0,FTQF1 PICTUR J FTQE3 MORE THAN ONE FLOATING CHARACTER PICTUR TZ,S3 FTQF1 PICTUR J FTQE4 FLOATING CHARACTER AFTER DIGIT PICTUR J FTQA PICTUR FTQ1A S,S1 A0,FTQF1 PICTUR J FTQA PICTUR FTQ1B S,S2 A0,FTQF1 PICTUR TNZ,S3 FTQF1 PICTUR J FTQA PICTUR J FTQE4 PICTUR FTQ02 J FTQA PICTUR FTQ03 S,S3 A0,FTQF1 SHOW PRESENCE OF NUMBER PICTUR TNE,M A0,'9' PICTUR J FTQA PICTUR TZ,S5 FTQF1 PICTUR J FTQE5 DUPLICATE SIGN POSISTIONS PICTUR S,S5 A0,FTQF1 SHOW SIGN ADDRESS PICTUR J FTQA PICTUR FTQ04 LMJ B11,FT900 PICTUR L A2,A0 PICTUR LMJ B11,GX PICTUR J FT306 PICTUR LMJ B11,FT900 PICTUR TE,M A2,'C' PICTUR J FTQ41 PICTUR TE,M A0,'R' PICTUR J FTQE2 PICTUR FTQ43 LMJ B11,GX PICTUR J FT306 PICTUR FTQE LMJ B11,FT900 PICTUR TE,M A0,')' PICTUR J FTQE6 CR OR DB DO NOT TERMINATE PICTURE PICTUR J FT304 END OF PICTURE SCAN PICTUR FTQ41 TE,M A0,'B' PICTUR J FTQE2 PICTUR J FTQ43 PICTUR FTQ05 TZ,S3 FTQF1 PICTUR J FTQE7 ZERO SUPPRESSION AFTER NUMBER PICTUR J FTQA PICTUR FTQ06 J FTQA Y REPLACE ZERO WITH BLANK PICTUR FTQ07 J FTQA PICTUR FTQ08 J FTQA PICTUR FTQ09 J FTQA PICTUR FTQE1 LMJ B11,PERR PICTUR FORM6 0,146,0 NO PARENTHESIS WHERE EXPECTED PICTUR J FTQA PICTUR FTQE2 S A0,R1 PICTUR LMJ B11,PERR BAD CHARACTER IN PICTURE PICTUR FORM6 11,147,R1 PICTUR J FTQA PICTUR FTQE3 LMJ B11,PERR PICTUR FORM6 0,148,0 MORE THAN ONE DRIFTING STRING PICTUR J FTQA PICTUR FTQE4 LMJ B11,PERR PICTUR FORM6 0,149,0 DRIFTING STRING AFTER DIGIT PICTUR J FTQA PICTUR FTQE5 LMJ B11,PERR PICTUR FORM6 0,216,0 DUPLICATE SIGN EDITING PICTUR J FTQA PICTUR FTQE6 LMJ B11,PERR CR OR DB DO NOT TERMINATE PICTURE PICTUR FORM6 0,217,0 PICTUR J FTQA PICTUR FTQE7 LMJ B11,PERR PICTUR FORM6 0,218,0 ZERO SUPRESSION AFTER DIGIT PICTUR J FTQA PICTUR DO PITU , PROC END . 163700 FT23 A,S6 A3,FT17 163800 A,S5 A3,FT17 163900 A,S4 A3,FT17 164000 A,S3 A3,FT17 164100 A,S2 A3,FT17 164200 A,S1 A3,FT17 164300 . 164400 . GET FORMAT REFERENCE 164600 . 164700 FNO* S,H2 B11,FN30 164800 SZ LISTST . CLEAR LIST OPTION ON FORMAT SEARCH S A12,('SVA12') S A6,('SVA6') L A0,(1,0) . INITALIZE PRESYM INDEX MTFSYM L A1,(-0102,-1) . AREF LINK FLAG MTFSYM S A1,MLINK MTFSYM S A0,SAVEX . TEMP FOR PRE SYM INDEX MTFSYM SZ A6 CONTINGENCY COUNT AND DUPLICATE FLAG FNJ01 LMJ B11,SGX3 SAVE FOR RESCAN S B5,STNGPT LMJ B11,GIT J FN300 165000 FN301 TNE,M A0,'=' J FN700 TE,M A2,11 . ALLOW ASTERISK ALSO TNE,M A2,12 IMFORM J FNSL TEST FOR SLASH IMFORM TNZ FEOS TNE,M A0,')' ONLY VALID SEPARATORS J FN301J TE,M A0,',' J FNEXA GO SCAN EXPRESSION FN301J TNE,M A2,3 J FN40 ITEM,VAR NAME 165200 TNE,M A2,4 165300 J FN50 ITEM = INTER SONSTANT 165400 LMJ B11,ERR3 165500 J FN600 ERROR 165600 J FN301 165700 FN50 JZ A13,$+4 A13 NON-ZERO FOR READ( AND WRITE( JNB A13,FN712 IF A13=2 FORMAT NO. APEARED TWICE JNZ A6,FN712 NON-ZERO,FORMAT CAME AFTER I/O CONTINGENCY A,M A13,1 A13=2 L A3,GITV TLE A3,(100000) J FN501 LMJ B11,PERR 166100 FORM6 021,33,GITV AND A3,(000000777777) . 8/29/63 FOR PH1-2B S A4,GITV . 8/29/63 FOR PH1-2C FN501 LMJ B11,FLAB GET JOURNAL LABELREF 166400 OR A1,FN11 SYM IN A1 166500 S A2,STRING,*B5 F30 ITEM (ST REF,T=0) 166600 J FN600 166800 FNSL L A1,FRSLSH SYM REF OF IMPLIED FORMAT IF SET IMFORM JZ A13,$+4 JNB A13,FN712 JNZ A6,FN712 A,M A13,1 SHOW PRENSENCE OF FORMAT IMFORM JNZ A1,FN406 IMFORM L A4,('FR/FL ') S A4,GITV IMFORM LMJ B11,FLAB ENTER INTO SYM TABLE IMFORM S A1,FRSLSH IMFORM L A0,(010001,0) IMFORM A,H2 A0,FRSLSH IMFORM S A0,HOLOUT IMFORM L A0,('(") ') IMFORM TZ CRLBCM L A0,('( ) ') ASCII TZ FDASQT . TEST FOR ASCII STRINGS L A0,('( ) ') FIELDATA S A0,HOLOUT+1 IMFORM L A0,(1,HOLOUT) IMFORM L,M A1,15 . LENGTH L,M A2,0 . SHOW NO TRAILING CONTROL WORDS L,M A3,0 . FORCE TO FIELDATA LMJ B11,W60F . PLACE IMAGE IN F60 L,M A0,1 . LENGTH = 1 CTABFH L A1,FRSLSH . SYM PTR CTABFH S,H1 A0,3,A1 . STORE LENGTH IN THIRD WORD (IN SYM) CTABFH J FN406 IMFORM . 166900 FN40 JZ A13,$+4 NOT READ( OR WRITE( JNB A13,FN712 TWO FORMAT NOS. JNZ A6,FN712 FORMAT NO. MISPLACED A,M A13,1 A13=2 LMJ B11,GLG J FN80 L,H1 A2,2,A1 GET MADE 167200 AND,M A2,070 167300 JZ A3,FN402 T=0 167400 TE,M A3,060 TNE,M A3,070 J FN403 T=6=7 167700 FN404 AND,M A2,7 T=1=2=3=4=5 167800 TNE,M A3,1 . TEST FOR DEFINE FUNCTION J FNEXAD JZ A3,FN405 C,0 167900 TNE,M A3,5 168000 J FN405 C=5 168100 TE,M A3,7 J FN4033 AND A2,(0777070) SAVE TYPE AND SET C=0 S,H1 A3,2,A1 J FN406 FN403 AND,M A2,077 TNE,M A3,077 J FN90 FN4033 TNE,M A3,6 J FN4034 INTRINSIC FUNCTION LMJ B11,PERR FORM6 031,2,SYMV 168300 J FN406 FN4034 SLJ DEINTX J FN80 FN402 LMJ B11,DTYPE T=0 168800 OR A2,A0 T IS IN A0 168900 S,H1 A3,2,A1 169000 J FN404 169100 FN405 L,XH2 A3,2,A1 (C=0,5),(T=1,2,3,4,5) 169200 JP A3,FN406 169300 LMJ B11,PERR 169400 FORM6 031,34,SYMV FN406 OR A1,FN12 169600 S A2,STRING,*B5 F30 ITEM (NON-IND VAR) 169700 FN600* . ENTRY POINT USED BY CDC ENCODE JNZ A13,FN707 IF READ( OR WRITE( SCAN FOR I/O CONTINGENCIES FN601 RES 0 L,H2 A0,SAVEX . PRESYM INDEX MTFSYM TNZ A0 . ANY AREF ENTRIES J FN602 . NO MTFSYM LSSL A0,18 . MOVE LENGTH TO H1 MTFSYM LXM,M A0,PRESYM . LOC OF TABLE MTFSYM LMJ B11,MTLT . MOVE TO LINKED TABLE MTFSYM SLJ SYMOF . ERROR SYM OVERFLOW MTFSYM FN602 L A0,GXX MTFSYM SZ A3 L A6,('SVA6') L A12,('SVA12') J *FN30 CTABFH . SCAN GENERALIZED EXPRESSION TO BE USED AS FORMAT FNEXAD AN,M A13,1 . DO NOT COUNT FORMAT TWICE FNEXA L A0,ST TNE,M A0,25 PRINT J FNEXAB TE,M A0,26 PUNCH TNE,M A0,31 READ FNEXAB LMJ B11,PSDP OUTPUT LABEL IF ANY LMJ B11,RGX3 S R15,UNTFMT FLAG N1SCR - SCANNING A FORMAT L A0,(070000,077) 77 IS CODE ITEM FOR FORMAT S,H2 A0,ENDEX DO NOT IFIX FORMAT S A0,FRMFLG SHOW SCAN WITHIN FORMAT LMJ B11,SCIOX SCAN GENERALIZED FORMAT EXPRESSION SZ ENDEX SZ FRMFLG JZ A13,$+4 NOT READ OR WRITE JNB A13,FN712 TWO FORMAT NOS JNZ A6,FN712 A,M A13,1 JZ A13,FN600 L FNXT,R8 J FN707J FN300 LMJ B11,PERR 170100 FORM6 0,4,0 170200 J FN601 . 170400 FN700 JZ A13,FN706 ERR,CONTINGENCY IN WRONG I/O STMT L A4,GITV L FNXT,R8 DO 1-PITU , PROC TZ CRLBCM J $+5 TNE A4,('LENGTH') LENGTH PROSCESSED SEPARATELY J FN708 TNE A4,('BUFF ') BUFF '' '' J FN715 DO PITU , PROC END L R4,A4 SAVE GITV LMJ B11,GIT J FN300 EOS TNE,M A2,3 VARIABLE J FN703 TNE,M A2,4 INTEGER J FN702 FN701 LMJ B11,PERR INTEGER OR VARIABLE EXPECTED FORM6 0,187,0 J FN706A FN702 LMJ B11,GETL PROCESS LABEL J FN704-1 FN703 LMJ B11,GLG1 GET SYM OF NAME J FN714 NOT IN L,H1 A2,2,A1 AND,M A2,01007 TNE,M A3,01005 EXTERNAL DUMMY NAME J FN704-3 AND,M A2,7 TNE,M A3,2 CLASS OF EXTERNAL REFERENCE J FN704-3 FN714 L,M A2,3 LMJ B11,GSWV TREAT AS ASSIGNED LABEL L A2,SAVEX . PRESYM INDEX MTFSYM L A3,PL . PLATEAU MTFSYM S A3,PRESYM,A2 . PUT IN PRESYM MTFSYM S,H1 A1,PRESYM,*A2 . PUT IN PRESYM MTFSYM S A2,SAVEX . SAVE INDEX MTFSYM L,M A0,020 FLAG FOR INDIRECT JUMP ON ARG J FN704 S A1,A12 LMJ B11,GENDP2 DEF PT FOR EXTERNAL NAME SZ A0 NO INDIRECT JUMP FN704 L A2,R4 OLD GITV TE A2,('LIST ') J $+4 L,M A2,6 . SUBTYPE FOR LIST S,S5 A2,CRJOPT . FLAG FOR LIST OPTION J FN711 TE A2,('END ') J $+3 L,M A2,2 END IS STMT REF TYPE 2 J FN711 TE A2,('ERR ') DO 1-PITU , J FN712 DO PITU , J $+3 L,M A2,3 ERR IS TYPE 3 DO 1-PITU , PROC J FN711 TZ CRLBCM J FN712 TE A2,('SENT ') J FN712 UNRECOGNIZED CONTINGENCY L,M A2,4 SENT TYPE IS 4 J FN711 FN705 L A4,3,A1 GET PARAMETER VALUE J FN709 FN715 S A4,FN13+6 FN708 LMJ B11,GIT J FN300 EOS TNE,M A2,3 VARIABLE J FN710 TE,M A2,4 INTEGER J FN701 INTEGER OR VARIABLE EXPECTED L A4,GITV FN709 LMJ B11,SLT ENTER INTEGER + CRIHL LMJ B11,SLTI L,M A2,013 S,S3 A2,2,A1 J $+3 FN710 LMJ B11,GINTV GET INTEGER VARIABLE J FN705 PARAMETER EXIT L,M A2,5 LENGTH IS TYPE 5 TZ FN13+6 L,M A2,1 BUFF IS TYPE 1 SZ FN13+6 SZ A0 NO INDIRECT JUMP DO PITU , PROC END FN711 TEP A6,FN13,A2 TEST FOR DUPLICATE J FN713 A A6,FN13,A2 SET FLAG A,M A6,1 INC CONTINGENCY COUNT A A1,FN13 S A1,STRING,B5 STMT REF ITEM TO STRING OR A2,A0 ADD FLAG S,S2 A3,STRING,*B5 AND IDENTIFIER TO ITEM J FN707 FN712 LMJ B11,PERR UNRECOGNIZED CONTINGENCY FORM6 0,182,0 J FN706A FN713 LMJ B11,PERR DUPLICATE CONTINGENCY FORM6 0,230,0 J FN706A FN706 LMJ B11,PERR XXX= INSTEAD OF FORMAT NO. FORM6 010,168,GITV FN706A LMJ B11,GX FIND NEXT COMMA OR ) J FN300 EOS TNE,M A0,',' J FNJ01 TE,M A0,')' J FN706A J FN707K FN706D LMJ B11,PERR FORM6 011,9,GXX . $ IS IMPROPER PUNCTUATION J FN706A FN707 SZ FNXT LMJ B11,GX FIND NEXT SEPARATOR J FN300 FN707J TNE,M A0,',' COMMA CONTINUE J FNJ01 MTFSYM TE,M A0,')' CLOSE PAREN FIN J FN706D FN707K L A0,ST GET STATEMENT TYPE TNE,M A13,1 CHANGE STMT TYPE IF UNFORMATED A,M A0,2 S A0,ST A A13,A6 SUM OF COUNTS FOR STMT TYPE ITEM J FN601 FN90 A A1,FN11 NAMELIST SYM REF S A1,STRING,*B5 OUTPUT REF AS FORMAT STMT NO L,H1 A2,2,A1 AND,M A2,0700 D FIELD TNE,M A3,0700 INVOKED, BUT NOT SEEN J FN81 L A2,ST STATEMENT TYPE TNE,M A2,034 J FN901 READ TNE,M A2,040 J FN904 WRITE FN907 LMJ B11,PERR FORM6 031,176,SYMV J FN600 GET OUT FN901 L,M A2,047 READ(U,X) S A2,ST S,S5 R15,CRREFL MAKE EXTERNAL REF TO NLR$, REENTRANT LIB SZ A2 LXM,H2 A2,3,A1 L,T3 A3,2,A1 AN,M A3,1 FN902 L A12,0,A2 SSA A12,18 . SIMULATE L,XH1 TE A12,(-0101) J FN902A LXM,H2 A2,0,A2 J FN902 FN902A AN,M A2,1 LMJ B11,GENDP2 GENERATE DEFINITION POINTS JGD A3,FN902 L A1,SYMV NAMELIST FN903 L,M A0,06 S,S2 A0,2,A1 MARK INVOKED J FN600 FN80 A A1,FN11 S A1,STRING,*B5 L,M A2,077 S,S3 A2,2,A1 L,M A2,07 S,S2 A2,2,A1 SZ 3,A1 L,M A2,1 S,H1 A2,3,A1 FOR BLAST L A2,(0450000,0) S A2,SLOUT,*B9 L,H2 A1,FLF . LOGICAL IF NESTING LEVEL L,M A2,1 OR,S3 A2,LGIEXT,A1 .SET FLAG FOR LABELS S,S3 A3,LGIEXT,A1 . WITH LABELS WITHIN LOOP JGD A1,$-2 FN81 L A2,ST NAMELIST INVOKED, BUT NOT SEEN TNE,M A2,034 J FN811 TE,M A2,040 J FN907 L,M A2,050 S,S6 R15,CRREFL MAKE EXTERNAL REF TO NLW$, REENT. LIB. FN812 S A2,ST J FN600 FN811 L,M A2,047 S,S5 R15,CRREFL J FN812 FN904 L,M A2,050 WRITE S A2,ST S,S6 R15,CRREFL J FN903 . FORMAT STATEMENT SCAN (PART 1) 170600 . 170700 FORM* S,H2 B11,FM30 170800 L A4,PLABL =PRESENT LABEL 170900 TE A4,(' ') 171000 J FM301 171100 LMJ B11,PERR NO LABEL 171200 FORM6 0,24,0 171300 J *FM30 FM301 S A4,GITV 171500 LMJ B11,FLAB GET LAB REF 171600 LMJ B11,FMF60 SYM IN A1, CTABX IN B7, 171700 S,H1 A2,3,A1 . STORE LENGTH IN THIRD WORD (IN SYM) CTABFH FM31 RES 0 172200 J *FM30 CTABFH DO 1-PITU , PROC FTQIOR S A0,('SVA0IO') CTABFH L A4,('FVQIO$') PICTUR LMJ B11,SLT PICTUR +CRGHL PICTUR J $+2 PICTUR J FTQIOX FTQIO$ ALREADY INITIALIZED PICTUR LMJ B11,SLTI PICTUR L,M A2,2 PICTUR S,S3 A2,2,A1 MARK AS EXTERNAL FUNCTION PICTUR S,H1 A2,3,A1 DEFINE SO STORAGE WILL BE ASSINGED PICTUR S,H2 A1,FTQIO8+10 LOC OF FTQIO$ PICTUR L A1,('NERR0$') PICTUR S A1,GITV PICTUR SLJ CM305S . AMKE ENTRY FOR COMMON BLOCK PICTUR S A2,R4 PICTUR L B10,(1,0) SLJ CM401S MAKE ENTRY FOR VARIABLE NAME PICTUR S,H2 A1,FTQIO8+1 VARIABLE IN PSUEDO DATA STATEMENT PICTUR L A0,(1,FTQIO8) PICTUR L,M A1,15 . LENGTH OF IMAGE L,M A2,0 . NO TRAILING CONTROL WORDS L,M A3,0 . FORCE TO FIELDATA LMJ B11,W60F . PLACE IMAGE IN F60 L A0,(-0105,-1) S A0,MLINK L,M A0,PRESYM+10 LXI,M A0,0,B10 LMJ B11,MTLT SLJ SYMOF FTQIOX L A0,('SVA0IO') PICTUR J *FTQIO PICTUR $(2) . CTABFH FTQIO8 . START OF ITEMS FOR PSUEDO DATA STATEMENT PICTUR +030000,0 PICTUR +020040,0 . NERR0$ REF PICTUR +040100,23 . NQLOC IS 24TH VARIABLE IN BLOCK +0101740,0 PICTUR +070100,0 PICTUR +01001,0,0 EQUALS OPERATOR PICTUR +0124300,0 PICTUR +0330000,0 END OF LIST PICTUR +0470000,0 END OF VARIABLE PICTUR +0 TEXT WORD TO RELOCATE PICTUR +0400044,0 PICTUR +0570000,0 PICTUR +0330000,0 PICTUR +0570000,0 PICTUR +0600000,0 PICTUR FTQF1 +0 FTQF2 +0 FTQIO J $-$ J FTQIOR DO PITU , PROC END $(2) . . 172400 FTQTEX +072 . INITIALIZED WITH FIELDATAQUOTE . FMF60 CONSTANTS 160500 . 160600 FT12 RES 1 B4 (K) 160800 FT17 RES 1 161300 FT11A RES 1 A 161400 FT11B RES 1 B 161500 FT11C RES 1 C 161600 FT11D RES 1 D 161700 FT11E RES 1 FT11F RES 1 FT11M +0 FRSLSH +0 SYM REF OF IMPLIED FORMAT IMFORM FL30 J $-$ SAVES EXIT CTABFH FT30 J $-$ CTABFH FN30* J $-$ FM30 J $-$ CTABFH . 161800 . FNO CONSTANTS 170420 . 170430 FN11 FORM2 016,0,0,0 ID=FRMT REF 170440 FN12 FORM2 ID6,0,0,0 ID=NON-IND VAR 170450 FN13 FORM2 015,0,0,0 STMT REF ITEM + 0100 MASKS FOR DUPLICA3E CHECKING + 0200 + 0400 +04000 . LIST DO 1-PITU , PROC + 01000 + 02000 + 0 DO PITU , PROC END . 170460 END