BLOCK DATA 
 
      INTEGER     OP, LEFT, RIGHT, LSTKX, RSTKX 
      INTEGER     TS, LOAD, BASE 
      INTEGER     THIS, OTHER, SIDE, HI, LOW 
      INTEGER     INTBR, ROW, COL, INREG, OUTREG 
      INTEGER     BCC, BNE 
      INTEGER     CLC, JMP, LDAABS, LDAI, LDAZP 
      INTEGER     SBCI, SEC, STAZP, TAX, TXA 
      LOGICAL     COMZER, EZSTA, MORE 
      COMMON      /GCOM/   OP, LEFT, RIGHT, LSTKX, RSTKX 
      COMMON      /GCOM/   TS, LOAD, BASE 
      COMMON      /GCOM/   THIS, OTHER, SIDE, HI, LOW 
      COMMON      /GCOM/   INTBR, ROW, COL, INREG, OUTREG 
      COMMON      /GCOM/   BCC, BNE 
      COMMON      /GCOM/   CLC, JMP, LDAABS, LDAI, LDAZP 
      COMMON      /GCOM/   SBCI, SEC, STAZP, TAX, TXA 
      COMMON      /GCOM/   COMZER, EZSTA, MORE 
      DATA  BCC   / 144/ 
      DATA  BNE   / 208/ 
      DATA  CLC   /  24/ 
      DATA  JMP   /  76/ 
      DATA  LDAABS/ 173/ 
      DATA  LDAI  / 169/ 
      DATA  LDAZP / 165/ 
      DATA  SBCI  / 233/ 
      DATA  SEC   /  56/ 
      DATA  STAZP / 133/ 
      DATA  TAX   / 170/ 
      DATA  TXA   / 138/ 
      DATA  LOW   / 1/ 
      DATA  HI    / 2/ 
      DATA  INTBR / 0/ 
      DATA  LSTKX / 0/ 
      DATA  RSTKX / 0/ 
      END