*COMDECK SEQCOM 
*CALL INSTDEFS
          COMMON  SEQCOM; 
          BEGIN 
          BASED ARRAY SEQUENCE[1:1];
              BEGIN 
              CONTROL  IFEQ FULLSEQ,1;
              ITEM  CONS     DCONS; 
              ITEM  CONST    DCONST;
              ITEM  COUNT    DCOUNT;
              ITEM  INDEX    DINDEX;
              ITEM  OPCODE   DOC; 
              ITEM  OPFLAG   DOCFLAG; 
              ITEM  SY       DSY; 
              ITEM  TABLE    DTABLE;
              ITEM  TEXT     DTEXT; 
              CONTROL  ENDIF; 
              ITEM  IREG     DRI; 
              ITEM  JREG     DRJ; 
              ITEM  KREG     DRK; 
              ITEM  SEQ;
              END 
          ITEM  SEQSIZE;
          END 
