*COMDECK LISTOBJ
          COMMON  OBJLIST;
          BASED  ARRAY   LISTOBJ[0:0];  #OBJECT CODE LIST TABLE        #
              BEGIN 
              ITEM  OBJLISTFLAG  B(0, 0, 1);
              ITEM  OBJLISTLINE   (0,42,18);
              END 
