BLOCK DATA 
 
      INTEGER     STK (20, 13) 
      INTEGER     NAMEX (40) 
      INTEGER     OPX,    STKSIZ, OCBIT,  FUNBIT, SBIAS 
      INTEGER ICLP14 
      COMMON      /SDEFS/ STK,    OPX,    STKSIZ, OCBIT,  FUNBIT, SBIAS 
      COMMON      /SDEFS/ ICLP14 
      EQUIVALENCE (STK (1, 1), NAMEX (1)) 
 
      INTEGER     MODE (40),   SUBX (20),   SUBXM (20),  BIAS (40) 
      EQUIVALENCE (STK (1, 3), MODE  (1)) 
      EQUIVALENCE (STK (1, 2), SUBX  (1)) 
      EQUIVALENCE (STK (1, 4), SUBXM (1)) 
      EQUIVALENCE (STK (1, 5), BIAS  (1)) 
 
      INTEGER     LOCFLG (20) 
      EQUIVALENCE (STK (1, 7), LOCFLG (1)) 
 
      INTEGER     OSTACK (20) 
      EQUIVALENCE (STK (1, 8), OSTACK (1)) 
 
      INTEGER     OPCODE (20) 
      EQUIVALENCE (STK (1, 9), OPCODE (1)) 
 
      INTEGER     SUBXB (20),  WFOP (20),   WFOPND (20) 
      INTEGER     SUBOP (20),  WFSOP (20) 
      EQUIVALENCE (STK (1,  6), SUBXB  (1)) 
      EQUIVALENCE (STK (1, 10), WFOP   (1)) 
      EQUIVALENCE (STK (1, 11), WFOPND (1)) 
      EQUIVALENCE (STK (1, 12), SUBOP  (1)) 
      EQUIVALENCE (STK (1, 13), WFSOP  (1)) 
      DATA     OCBIT    /256/ 
      DATA     FUNBIT   / 64/ 
      DATA     STKSIZ   / 20/ 
      END