$(1) PREQ . . SCAN ENTER STATEMENT ENTER* SX B11,ENTF SX B11,ENTF1 SX B11,CRENT FLAG THAT ENTRY APPEARED L A3,(2,0) . 2 MEANS ENTRY S A3,ROUTW . A TEMP TZ EPPTR TEST FOR MAIN PROGRAM J SUB+3 TZ CRIFZ J SUB+3 LMJ B11,PERR IN MAIN PART OF A MAIN PROGRAM FORM6 01,196,0 J *ENTF . SCAN SUBROUTINE STATEMENT 417100 . 417200 SUB* SZ ENTF L A3,(1,0) . 1 MEANS SUBROUTINE S A3,ROUTW . A TEMP S,H2 B11,SU30 LMJ B11,PFSP 417500 J SU300F S B5,LSAB5 SAVE B5 FOR SUBARG TNZ FFS 417700 J SU401 THIS IS NOT FIRST ST 417800 SZ FFS RESET FFS 417900 L A3,GITV SUBROUTINE NAME IN GITV 418000 SLJ TSCSYM L A1,CRSYM . GET SYM LOC FOR NAME OF SUBROUTINE AU,M A1,4 S A2,CRSYM . OF NECESSITY THE SYM TABLE HAS TO BE S A3,0,A1 L,M A4,4 S,H1 A4,2,A1 S,H1 A4,3,A1 . EMPTY AT THIS POINT AS IT ONLY DONE ON THE FIRST CARD L,M A3,2 418200 S,H2 A3,CRPRO L A3,SU11 418400 S A3,STRING,*B5 F30 ITEM(BEGIN,T=2) 418500 J SU501 418600 . 418700 SU401 L A4,GITV SEARCH GLOBAL FOR ITEM 418800 TNZ ENTF1 S A4,CRIFZ LMJ B11,SLT 418900 + CRGHL 419000 J SU405 NET IN 419100 TZ CRIFZ LMJ B11,SFFIN L,H1 A2,2,A1 419200 AND,M A2,07 MODE IN A2 419300 L,M A1,0,A1 CLEAR A1(H1) 419210 J *SU21,A3 BRANCH ON CLASS 419400 . 419500 SU405 LMJ B11,SLTI 419600 L,H1 A2,2,A1 419700 LMJ B11,SFFIN INSERT NAME, SYM IN INTPRO 419750 J SU406 419800 . 419900 SU403 RES 0 SU402 LMJ B11,PERR NO-ALSO C38OTHER 420200 FORM6 012,2,GITV AND A2,(0770000) 420400 L A2,A3 420500 J SU406 420600 SU404J TZ,H2 3,A1 J SU402 PREVIOUSLY DIMENSIONED AND,M A2,070 TNZ CRIFZ JNZ A3,SU402 . 420700 SU404 AND,M A2,01000 420800 JNZ A3,SU402 420900 SZ,H2 2,A1 CLEAN UP MAGIC LIBRARY NAME SU406 OR,M A2,0701 C,D1,D2,D3=1 421000 AND A3,(0776771) D3=0 S,H1 A4,2,A1 421200 OR A1,SU12 SYM IS IN A1 421300 TZ ENTF OR A1,SU14 S A2,STRING,*B5 F30 ITEM(BEGIN,T=4,SYM) 421400 . 421500 SU501 RES 0 L,H2 A0,EPPTR S,H1 A1,0,A0 S,H1 B1,6,A0 . INTERNAL SEQ NUMBER L A3,GITV TE,H1 A0,EPPTR LMJ B11,PSTL PROCESS ST LABEL 421800 L A0,PLABL 421900 TNE A0,(' ') 422000 J SU502 422100 LMJ B11,PERR 422200 FORM6 0,89,0 422300 SU502 LMJ B11,GX 422400 J SU302 TNE,M A0,'/' REGIST SLJ N1RGSB REGIST LMJ B11,SUBARG 422800 SU300 RES 0 422900 SU301 SZ ENTF1 TNZ ENTF J *SU30 EENT L,H1 A3,CRCDP A A3,(02200000) SSC A3,21 PUT OUT COMMON DEF POINT AT ENTRY STATEMENT S A3,SLOUT,*B9 S,H1 B1,CRCDP J SU30 SU302 L A1,EPPTR L A0,ROUTW S A0,1,A1 L A0,(060000,0) SEQ NUMBER OF ARGUMENTS S A0,PRESYM+100 TZ ENTF1 S,S2 R15,PRESYM+100 S,H2 B1,PRESYM+100 L A0,(-0107,-1) S A0,MLINK L A0,(1,PRESYM+100) LMJ B11,MTLT SLJ SYMOF J SU301 SU300F SR R15,CRFL CONSIDER NO SUBROUTINE NAME FATAL J SU300 . 423800 SU21 J SU404J J SU403 1 J SU406 2 J SU402 3 424200 J SU402 4 424300 J SU402 5 424400 J SU404 6 424500 J SU402 7 424600 . 424700 N1RGSR SZ N1RGF2 EENT L FNXT,R8 DISCARD SLAHS REGIST LMJ B11,GIT REGIST J N1RG90 BAD SYNTAX REGIST L A4,GITV REGIST TNE A4,('SLJ ') REGIST J N1RG20 SET FLAG FOR SLJ REGIST TNE A4,('ER ') J N1RG21 TNE A4,('LIJ ') J NIRG70 TE A4,('LMJ ') REGIST J N1RG90 REGIST NIRGSQ L A0,GXX TE,M A0,'(' AFTER AN LMJ A REGISTER NAME IS EXPECTED REGIST J N1RG90 REGIST L FNXT,R8 DISCARD PARENTHEIES REGIST LMJ B11,GIT REGIST J N1RG90 REGIST L,H1 A4,GITV REGIST L,M R1,20 REGIST L A1,(1,0) REGIST TG A4,(0300000) AN A4,(0260000) SE,H1 A4,REGNAM,*A1 SEARCH TABLE FOR ACCEPTABLE REGISTER TREGISTON J N1RG90 REGIST L,H2 A1,REGNAM-1,A1 OCTAL EQUIVALENT OF REG REGIST S,S3 A1,N1RGF2 REGISTER NUMBER IS FLAF FOR LMJ REGIST NIRGSJ L A0,GXX TNE,M A0,',' . TST SECOND REGISTER FIELD J NIR2FL . GO PARSE SECOND REGISTER FIELF TE,M A0,')' REGIST J N1RG90 REGIST L FNXT,R8 REGIST LMJ B11,GX REGIST J N1RG90 REGIST N1RGS2 L A1,N1RGF2 REGIST AND A1,(0770077,0) REMOVE ER FLAG TNZ N1REGF TEST FOR PREVIOUS REGISTER STATEMENT REGIST J $+3 FIRST REGISTER STATEMENT THIS ROUTINE REGIST TE A2,N1REGF ALL SUBROUTINE ENTRY STATS MUST MATH J N1RG91 REGIST S A2,N1REGF N1RGS3 L A0,GXX REGIST TE,M A0,'/' REGIST J N1RG90 REGIST LR FNXT,R8 DISCARD SLASH REGIST L,H1 A1,N1RGF2 SEND TYPE OF SUBROUTINE REGIST A A1,(0120401,0) ENTRANCE TO PHASE V REGIST S A1,SLOUT,*B9 REGIST LMJ B11,GX REGIST J SU302 REGIST J *N1RGSB REGIST N1RG21 L,M A2,1 S,S2 A2,N1RGF2 FLAG FOR ER N1RG20 L,M A2,1 REGIST S,S1 A2,N1RGF2 SET FLAG FOR SLJ REGIST J N1RGS2 REGIST NIRG70 L,M A2,7 . ID FOR LIJ S,S1 A2,N1RGF2 J NIRGSQ NIR2FL L FNXT,R8 . DISCARD COMMA LMJ B11,GIT . GET SECOND REGISTER FIELD J N1RG90 . SHOULD NEVER HAPPEN L,H1 A4,GITV . REGISTER NAME L,M R1,20 L A1,(1,0) TG A4,(0300000) . CHANGE LETTER X TO LETTER B AN A4,(0260000) . SE,H1 A4,REGNAM,*A1 . SEARCH TABLE FOR ACCEPTABLE REGISTER J N1RG90 L,H2 A1,REGNAM-1,A1 . OCTAL EQUIVALENT OF REGISTER S,S2 A1,N1RGF2 J NIRGSJ N1RG90 . REGIST LMJ B11,PERR REGIST FORM6 1,264,0 TYPE OF ENTRY UNRECOGNIZED REGIST J *N1RGSB REGIST N1RG91 LMJ B11,PERR REGIST FORM6 1,265,0 INCONSISTENT ENTRY DEFINITIONS REGIST J *N1RGSB REGIST . 423100 $(2) . REENT SU30 J $-$ REENT N1RGSB* J $-$ REENT J N1RGSR REENT . SUB CONSTANTS 423300 . 423400 SU11 FORM2 ID13,020,0,0 ID=BEGIN,T=2 423500 SU12 FORM2 ID13,040,0,0 ID=BEGIN,T=4,,SYM 423600 SU14 FORM2 ID13,070,0,0 ID=BEGIN,T=7 END