$(1) PREQ . EXTERNAL STATEMENT 135810 ABN* L A0,(040,01100) J EXT+1 EXT* L A0,(020,01000) S A0,EXTC L,M A0,1 S,S1 A0,TFDA$ S,H2 B11,EX30 EX400 LMJ B11,GIT J EX300 E.O.S. 136000 TNE,M A2,3 136010 J EX301 IDENT=VAR NAME 136100 LMJ B11,ERR4 ERROR 136110 J EX300 136200 EX301 LMJ B11,GLS GET SYM ENTRY (LOCAL) 136210 J EX600 NOT IN 136300 L,H1 A2,2,A1 GET MODE 136310 AND,M A2,7 GET CLASS 136400 J *EX21,A3 BRANCH ON CLASS 136500 . C=0,1 VAR,INT FUNCTION 136510 EX51A L,S3 A3,EXTC TEP,M A3,040 . SIMULATE TP,T2 EXTC J EX507 ABNORMAL STATEMENT EX501 LMJ B11,PERR ERROR- 136600 FORM6 031,2,SYMV 136610 J EX505 136700 . C=3,4 CONST,PARAMETER 136810 . C=5 DUMMY ARG. 136910 EX503 TNZ,S6 2,A1 J $+3 OR,S6 A2,2,A1 S,H1 A3,2,A1 AND,M A2,01000 JNZ A3,EX602 NO 137010 AND,M A2,06700 YES-DOES EQ,CM,D=0 137100 JNZ A3,EX501 NO-ERROR 137110 TNZ,H1 3,A1 YES-DOES DP1=0 137200 J EX602 YES 137210 J EX501 NO-ERROR 137300 . C=6 INTRINSIC FUNCTION 137310 EX504 AND,M A2,01000 DOES F=0 137400 JNZ A3,EX501 NO-ERROR 137410 EX505 SZ 3,A1 RESET SYM ENTRY 137500 L,S1 A2,2,A1 137510 SZ 2,A1 137520 S,S1 A2,2,A1 137530 L,H1 A2,2,A1 PICK UP MODE 137540 J EX601 137550 . C=7 UNASSIGNED 137600 EX506 AND,M A2,0700 DOES D=4 137610 TE,M A3,0400 SLJ BUG NO-ERROR 137710 AND A2,(0770070) YES-SAVE T 137800 L A2,A3 137810 J EX601 137900 . C=2 137910 EX507 L,S4 A3,2,A1 138000 JZ A3,EX501 138010 AND,S3 A3,EXTC JZ A4,EX602 138110 TZ EXTDUP J EX602 LMJ B11,PERR 138200 FORM6 030,2,SYMV TOO MANY OCCURRENCES IN EXT. ST. 138210 J EX602 138300 . FIRST OCCURRENCE OF IDENTIFIER 138310 EX600 L,H1 A2,2,A1 GET MODE 138400 EX601 A,M A2,2 SET C=2 138410 EX602 OR,H2 A2,EXTC L,S3 A5,EXTC TOP,M A5,040 . SIMULATE TN,T2 EXTC OR A3,FNA . FOR EXTERNAL STATEMENTS TEP,M A5,040 . SIMULATE TP,T2 EXTC OR,M A3,0100 ALWAYS SET IN ABNORMAL S,H1 A4,2,A1 SET MOVE IN SYM 138600 L,S4 A2,2,A1 GET I FIELD 138610 OR,S3 A2,EXTC S,S4 A3,2,A1 SET I5=1 138710 L,H2 A2,2,A1 OR A2,EXTC1 LOCATION OF ANY OF ARGUMENT STRING S,H2 A3,2,A1 . 138800 TZ FEOS IS THIS END OF ST. 138810 J EX300 YES 138900 L FNXT,R8 RESET NEXT LA A0,GXX LAST CHARACTER 138920 TE,M A0,')' INPUT FROM COMPILER STATEMENT TNE,M A0,'(' INPUT FROM ARGUMENT STATEMENT J EX30A TE,M A0,',' DOES X=COMMA 139000 LMJ B11,ERR2 NO-ERROR 139010 J EX400 YES-GO BACK FOR NEXT 139100 . 139110 EX300 TP,T2 EXTC SZ FNA EX30A TZ LIJNAM . TEST IF SECOND PASS NECESSARY J EX305 TNZ LIJSYM . TEST FOR INSERTING POINTER J EX309 L,H2 A0,LIJSYM . LOCATION IN SYMBOL TABLE S A1,0,A0 . TO STORE POINTER TO BANK NAME S,H1 A1,3,A1 . MARK AS IF DEFINED SZ LIJSYM TNZ LIBNAM J EX310 L A0,LIBNAM S A0,GITV SZ LIBNAM S A0,EXTDUP . SAME BANK OR BIAS IN MANY ARG STS J EX301 EX305 L A0,LIJNAM . IMMEDIATE BANK NAME S A0,GITV SZ LIJNAM S A0,EXTDUP . SAME BANK OR BIAS IN MANY ARG STS J EX301 EX309 TNZ LIBSYM J EX310 L,H2 A0,LIBSYM . LOCATION IN SYMBOL TABLE S A1,0,A0 . TO STORE POINTER TO BIAS NAME S,H1 A1,3,A1 . MARK AS DEFINED SZ LIBSYM EX310 SZ EXTDUP J *EX30 . 139300 . EXT CONSTANTS 139400 . 139410 EX21 J EX501 C=0 139500 J EX51A J EX507 =2 139600 SLJ BUG J EX501 =4 J EX503 =5 139710 J EX504 =6 139800 J EX506 =7 139810 . 139820 $(2) EX30 J $-$ SAVE EXIT EXTC +0 END