*COMDECK SEGPTR 
          CONTROL NOLIST;    #SEGPTR# 
 # * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * #
 # THE SEGPTR TABLE CONTAINS INFORMATION RELATING EACH SEGMENT DECLARED#
 # AND ITS CORRESPONDING GTEXT ATOM POINTER.  IT IS DEFINED AND SORTED #
 # IN PROCTAB AND USED IN CGEN                                         #
 # * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * #
  
          COMMON SEGPTRCOMM;
          BASED ARRAY SEGPTR [0:0] S(1);
          BEGIN 
              ITEM  SEGPTRWORD   I; 
              ITEM  SEGPTRSEGNO  U(0,2,7);
              ITEM  SEGPTRGTEXT  U(0,43,17);
          END 
          CONTROL LIST;      #SEGPTR# 
