*COMDECK  FDBGCOM 
  
  
  
  
C         ***   FORTRAN DEBUG COMMON DECLARATIONS.
  
  
      IMPLICIT INTEGER (A - Z)
  
C 
C     THE FOLLOWING SYMBOLS ARE SET UP BY FTNX DEBUG ROUTINES TO BE USED
C     BY THE STATEMENT PROCESSORS DURING PHASE 2. 
C 
      COMMON /DBGBLK1/
     ,ALLARR, ALLCALL, ALLFUNC, GO TOS FL, NOGOFLG, TRACEL, 
     ,ALLROU, SPIDER
      COMMON /DBGBLK2/
C 
C     THE FOLLOWING SYMBOLS ARE USED AS LIST POINTERS IN BOTH FTNX AND
C     COMPASS DEBUG MODIFICATIONS.
C 
     ,SDRL, EDRL, SDVL, EDVL, SAREA, AREAEND, DFOPL, SSYMTAB, ESYMTAB,
     ,SAASI, REFMAP, ELIST, LELIST, ELAST, DFNESTW, FIDIT, EFIDIT,
     ,DFCON1, DFCONL, NAASI, SDBGIND, CONSTOR, DFSCON1, DOLAST, 
C 
C     THE FOLLOWING SYMBOLS ARE USED AS FLAGS FOR BOTH FTNX AND COMPASS 
C     DEBUG MODIFICATIONS.
C 
     ,DFNOGO, DFPACK, POW, DFOPFLG, DFON, NUM ERR, P ADD, 
     ,  FEFLAG, OPENFL, DBGPROG, LDEBUG, RECORD, DISPOW, SUCCESS, 
     ,  LTFLAG, LFLAG, NOPROG,
C 
C     THE FOLLOWING SYMBOLS ARE USED TO PASS INFORMATION BETWEEN FTNX 
C     AND COMPASS DEBUG ROUTINES. 
C 
     ,CUR UP DT(2), DUKE1, CLABEL, DFTYPE, DFNEST, LNGIND, NO ACT,
     ,    AREA FLG, D LNG DRL, D LNG DVL, CFPACK, 
     ,    UP DT TBL(20), COUNTUP, SCNUPDT,
     ,    INDEX NO, PHSFLAG 
C 
C     *DEBUG* IS DEFINED AS AN ARRAY BASED AT THE BEGINNING OF BLANK
C     COMMON.  IT ENABLES FTNX DEBUG ROUTINES TO REFERENCE ANY PROGRAM
C     LOCATIONS WITHIN THE PROGRAM FIELD LENGTH.
C 
      COMMON // DEBUG(1)
C 
C     THE FOLLOWING SYMBOLS ARE USED BY FTNX DEBUG ROUTINES 
C 
      COMMON /DBGBLK3/
     ,NEXT, TO FM, ITEM, BD ADD, MINZERO, MULT, OH, AASI, SYMTAB, 
     ,FM LIST, N FIELD, ASHIFT, DFOPL1, DFOPL2, TEMP, SASI, NXT STR,
     ,    POINT, TEMP1, ELIST1, SAV UP DT (2),
     ,TRCADD, ERR NUM, DLINE, DTYPE, ERR MSG(5,5), NDRL, DRL, 
     ,OPREC, M, SPIDIS, DUNIT, OPDRL, STOSWAP, TRACEON, MISFLAG,
     ,CUR OP BD, CUR ROUT, COW, FM BOUND, TO BOUND, BLNG, 
     ,    DVL, REL OP, NOCONST, LEVEL, NO OF WDS, NXT ADD, ALNG,
     ,NXT ADD1, LSHIFT, NXT STR1, LEVSHFT, TAASI, TRACED, NO LIN, 
     ,    AASIADD, RTAB(9), NXT ITEM, TO LIST, DBGPIC(9), PREDBG(2),
     ,STAR1, STAR2, SAMLINE, FSTLINE, LSTLINE, STAR, COMMA, RPAREN, 
     ,    LPAREN, SLASH, BOUND WD, OP WORD, TLNG, BASE ADD, 
     ,    FT ADD, BDS ADD, TOT LNG, UP NO, UP DIS, SYMTAB B, SAVE OH, 
     ,    OVRFLOW, DLFLG, DFSAVE, DFSAVE1,
     ,     RELFLAG, ROU NAME, TO SHIFT, VALUE, INDEF, RANGE 
      COMMON /OUTPUT/ DBGOUT
      LOGICAL LTFLAG, LFLAG 
      LOGICAL BITON,BITOFF
      ADDRESS(X) = X.AND.777777B
      EFORM(X) = SHIFT(X,12).AND.77B
      DRLELT(X) = X.AND..NOT.777777B
      LENGTH(X) = ADDRESS(SHIFT(X, -24))
      TLENGTH(X) = ADDRESS(SHIFT(X, 18))
      PLUS(X)=21B 
      MINUS(X)=20B
      INC FCNT(X) = SHIFT(MASK(1), 1 + DTOFLD(X)) 
C 
C     THE FOLLOWIING ASF"S REFERENCE BITS IN THE SYMBOL TABLE,
      COMBIT(X)           =          14 
      EQUBIT(X)           =          12 
      DIMBIT(X)           =          13 
      FUNCBIT(X)          =          15 
      DTO FLD(X)          =          19 
      LASTBIT(X)          =          27 
      NOTBIT(X)           =          31 
      IFBIT(X)            =          32 
      SFBIT(X)            =          33 
      ACBIT(X)            =          34 
      VARBIT(X)           =          43 
      EXTBIT(X)           =          54 
      ASFBIT(X)           =          55 
C 
C 
C                              AND  BITS IN THE OPTIONS LIST. 
C 
      LST S BIT(X)        =          26 
      DBGTYPE(X) = 17B
      CONTYPE(X) = 5
      TYPE(X) = SHIFT(X,4) .AND. TYPE FLD(1)
      TYPE FLD(X) = 17B 
      NOT DBG(X) = 77777777417777777777B
      FCNT FLD(X) = X .AND. FCNT BTS(1) 
      FCNT BTS(X) = 1776000000B 
      PLACE(X) = SHIFT(MASK(1),X+1) 
      BITON(I,J) = SHIFT(I,59-J) .LT. 0 
      BITOFF(I,J) = SHIFT(I,59-J) .GE. 0
  
  
C         ***   END OF FDBGCOM. 
  
  
  
  
