C C C G E T O P C C C CHECK FOR OPCODE C C GETOPC SEARCHES THE OPCODE TABLE FOR A GIVEN SYMBOL . IF THE SYMBOL C IS FOUND THE INDEX INTO THE OPCODE TABLE WHERE A MATCH WAS FOUND IS C RETURNED. IF A MATCH WAS NOT FOUND AN INDEX OF -1 IS RETURNED.THE C SYMBOL TO BE SEARCHED FOR IS ASSUMED TO BE IN PROGRAM LABELED COMMON C BLOCK SRCLIN IN THE 6 BYTE INTEGER ARRAY OPDATA. THE INDEX INTO THE C TABLE WHERE THE MATCH WAS FOUND IS ALSO STORED IN THE LABELED COMMON C BLOCK OUTLIN IN THE INTEGER VARIABLE OPINDX.THE CALLING SEQUENCE IS C C CALL GETOPC ( INDEX , IFLAG ) C C WHERE: C INDEX- INTEGER VARIABLE WHICH RETURNS THE INDEX INTO THE TABLE C OPCODE WHERE A MATCH WAS FOUND . IF THE SYMBOL WAS NOT C FOUND THE INDEX IS SET TO -1 C IFLAG- INTEGER VARIABLE WHICH IS SET TO 0 IF THE SYMBOL WAS IN C THE OPCODE TABLE OR -1 IF NOT C SUBROUTINE GETOPC ( INDEX , IFLAG ) INCLUDE 'OUTLIN.CMN' INCLUDE 'PRMSYM.CMN' INCLUDE 'SRCLIN.CMN' INTEGER INDEX , IFLAG D WRITE (4,1) OPCNUM,OPDATA D 1 FORMAT (' GETOPC, BEFORE CALL TO BSERCH, OPCNUM = ',I5, D $ ' OPDATA = ',3A2) CALL BSERCH ( OPCODE , OPCNUM , OPDATA , 6 , OPINDX ) INDEX = OPINDX IFLAG = 0 IF ( OPINDX .LT. 0 ) IFLAG = -1 RETURN END