BLOCK DATA 
 
      INTEGER     LDAZP, LDAABS, LDAIMM 
      INTEGER     LDAABY, LDAINY 
      INTEGER     LDYZP, LDYABS, LDYIMM 
      INTEGER     SETNLX 
      INTEGER     TS1, TS2 
      INTEGER     SOPC, SWF, SWFOPN 
      INTEGER     SETSTX, SSUBX, STBIAS 
      INTEGER     STMODE, SSUBXB, SSUBXM 
      INTEGER     SSUBOP, SWFSUB 
      INTEGER     SLEFT, SRIGHT, SCTN 
      INTEGER     ICLP12 
      LOGICAL     ZPFLAG, STLOC 
      COMMON   /SCOM/   LDAZP, LDAABS, LDAIMM 
      COMMON   /SCOM/   LDAABY, LDAINY 
      COMMON   /SCOM/   LDYZP, LDYABS, LDYIMM 
      COMMON   /SCOM/   SETNLX 
      COMMON   /SCOM/   TS1, TS2 
      COMMON   /SCOM/   SOPC, SWF, SWFOPN 
      COMMON   /SCOM/   SETSTX, SSUBX, STBIAS 
      COMMON   /SCOM/   STMODE, SSUBXB, SSUBXM 
      COMMON   /SCOM/   SSUBOP, SWFSUB 
      COMMON   /SCOM/   SLEFT, SRIGHT, SCTN 
      COMMON  /SCOM/   ICLP12 
      COMMON   /SCOM/   ZPFLAG, STLOC 
      DATA  LDAZP    /165/ 
      DATA  LDAABS   /173/ 
      DATA  LDAIMM   /169/ 
      DATA  LDAABY   /185/ 
      DATA  LDAINY   /177/ 
      DATA  LDYZP    /164/ 
      DATA  LDYABS   /172/ 
      DATA  LDYIMM   /160/ 
      DATA  SLEFT    / 19/ 
      DATA  SRIGHT   / 20/ 
      END