$(1) LIT PREQ . COMMON STATEMENT 062400 . 062500 CMN* S,H2 B11,CM30 R4=CBI 062600 L B10,(1,0) LMJ B11,GX 062700 J CM301 EOS 062800 L,S2 A1,FLD2,A0 BRANCH ON X 062900 JZ A1,CM302 X = ALPHA 063000 TNE,M A0,'/' 063100 J CM303 X = SLASH 063200 LMJ B11,PERR X = OTHER 063300 FORM6 011,9,GXX 063400 J CM303 063500 . X=ALPHA 063510 CM302 SZ FNXT SET NEXT CM304 SZ R4 BLANK COMMON 063700 J CM400 063800 CM301 LMJ B11,PERR 063900 FORM6 00,4,0 064000 J CM700 . X=SLASH 064110 CM303 LMJ B11,GX 064200 J CM301 EOS 064300 L,S2 A1,FLD2,A0 064400 JZ A1,CM305 X = ALPHA 064500 TNE,M A0,'/' 064600 J CM304 X = SLASH 064700 LMJ B11,PERR 064800 FORM6 011,9,GXX 064900 J CM304 065000 CM305 SZ FNXT SET NEXT LMJ B11,GIT GET COMMON BLOCK NAME 065200 J CM301 TE,M A2,3 065400 J CM301 SLJ CM305S J CM305T CM35SR L,H1 A2,CRLNLB . LINK TO LABELLED COMMON L A1,GITV CM35SQ JZ A2,CM306 AN,M A2,3 TE A1,3,A2 J $+3 . BLOCK NUMBER L,H2 A2,1,A2 J CM35SJ+1 L,H2 A2,0,A2 TN,XM 0,A2 J CM35SQ CM306 L,H2 A0,CRC A,M A0,1 S,H2 A0,CRC S A0,PRESYM+2 . WILL ACCUMULATE BLOCK LENGTH L,M A0,2 S,S4 A0,PRESYM+2 . GROUP NUMBER SZ PRESYM+1 S A1,PRESYM . NAME OF BLOCK L A0,(-0106,-1) . LINK WORD FOR COMMON BLOCKS S A0,MLINK L A0,(3,PRESYM) LMJ B11,MTLT SLJ SYMOF CM35SJ L A2,CRC L A0,GXX J *CM305S CM305T . CM307 S A2,R4 066600 TNE,M A0,'/' X IS IN A0 066700 J CM308 X = SLASH 066800 LMJ B11,PERR 066900 FORM6 011,9,GXX 067000 CM308 L FNXT,R8 RESET NEXT CM400 L,M A0,0,B10 TLE,M A0,75 J CM400J L A0,(-0105,-1) S A0,MLINK L,M A0,PRESYM+10 LXI,M A0,0,B10 LMJ B11,MTLT SLJ SYMOF L B10,(1,0) CM400J LMJ B11,GIT J CM700 TNE,M A2,3 067400 J CM401 ITEM = VAR NAME 067500 TE,M A2,12 IS IT A SLASH J $+4 LMJ B11,PERR FORM6 0,137,0 UNNECESSARY PUNCTUATION J CM303 ASSUME IT WAS LABELED COMMON NAME TE,M A2,14 IS IT A COMMA J $+4 LMJ B11,PERR FORM6 0,137,0 UNNECESSARY PUNCTUATION J CM400 DUPLICATE COMMAS TLE,M A2,9 J $+3 L A0,OPERR-9,A2 S A0,GITV LMJ B11,PERR 067600 FORM6 011,1,GITV 067700 J CM601 067800 CM401 SLJ CM401S J CM401T CM41SR LMJ B11,GLS J CM405 NOT IN LOCAL - 0 IN MODE ALREADY 068000 L,H1 A2,2,A1 GET MODE 068100 AND,M A2,02000 DOES CM = 0 068200 JZ A3,CM411 YES 068300 LMJ B11,PERR NO-APPEAR IN COMMON MORE THAN ONCE 068400 FORM6 031,67,SYMV 068500 CM411 AND,M A2,7 GET CLASS 068600 TNZ,H1 3,A1 DOES DP1=0 068700 CM412 J CM21,A3 YES - BRANCH ON CLASS TNE,M A3,6 IS THIS AN INTRINSIC FUNCTION J CM403 -YES LMJ B11,PERR NO - ERROR 068900 FORM6 031,92,SYMV 069000 J CM412 069100 . 069200 CM404 LMJ B11,PERR (C = OTHER) 069300 FORM6 031,2,SYMV 069400 CM415 SZ,S2 2,A1 069500 SZ,S3 2,A1 069600 CM405 L,H1 A2,2,A1 069700 J CM450 069800 . 069900 CM403 SZ 3,A1 C=6 (SET W4=0) 070000 SZ,H2 2,A1 (SET W3(H2)) 070010 AND,M A2,01000 GET F 070020 JZ A3,CM415 F = 0 070100 J CM404 070200 . 070300 CM402 AND,M A2,04000 C = 0,5 070400 JZ A3,CM450 070500 S R15,FEQ ITEM ALSO APPEARED IN EQUIV AT 070600 CM450 OR,M A2,02000 SET COMMON BIT 070700 S,H1 A3,2,A1 STORE MODE 070800 S,H2 A1,PRESYM+10,B10 S,H1 R4,PRESYM+10,*B10 CM450J L A0,GXX S A1,SYMVG J *CM401S CM401T . L,S3 A2,FLD5,A0 071300 TZ FEOS EOS 071310 J CM700 L FNXT,R8 RESET NEXT J *CM22,A2 BRANCH ON X 071500 . 071600 CM501 LMJ B11,DIMT (X = LEFT PAREN) CHECK MODE 071700 LMJ B11,GLD GET LIMITS-MAKE TAB ENTRIES 071800 J CM700 LMJ B11,GX 072000 J CM700 L,S3 A2,FLD5,A0 072200 NOP 0,0 072300 J *CM23,A2 BRANCH ON X 072400 . 072500 CM502 LMJ B11,PERR X = ALPHA 072600 FORM6 030,31,SYMVG COMMA MISSING 072700 CM503 SZ FNXT SET NEXT J CM400 072900 . 073000 CM600 LMJ B11,PERR 073100 FORM6 011,9,GXX CM601 LMJ B11,GX 073300 J CM30 EOS 073400 L,S3 A2,FLD5,A0 073500 TNE,M A0,'/' 073600 J CM303 X = SLASH 073700 JZ A2,CM503 X = ALPHA 073800 J CM601 073900 CM700 . PUT COMMON ENTRIES DYNAMIC STORAGE L A0,(-0105,-1) S A0,MLINK L,M A0,PRESYM+10 LXI,M A0,0,B10 LMJ B11,MTLT SLJ SYMOF J *CM30 . 074000 . 074300 CM21 J CM402 C=0 074400 J CM404 1 074500 J CM404 2 074600 J CM404 3 074700 J CM404 4 074800 J CM404A J CM403 6 075000 AND A2,(0777070) 7 S,H1 A3,2,A1 L A2,A3 J CM402 . 075200 CM22 J CM600 X=ALPHA 075300 J CM400 COMMA 075400 J CM501 LEFT PAREN 075500 J CM303 SLASH 075600 J CM600 OTHER 075700 . 075800 CM23 J CM502 X=ALPHA 075900 J CM400 COMMA 076000 J CM600 LEFT PAREN 076100 J CM303 SLASH 076200 J CM600 OTHER 076300 CM404A LMJ B11,PERR FORM6 030,17,SYMV . DUMMY HAS NO EFFECT ON COMMON J CM402 $(2) CM401S* J $-$ J CM41SR CM305S* J $-$ J CM35SR CM30 J $-$ . 076400 END