*COMDECK OBJCOMM                                                         OBJCOMM
          DEF  RSIZE  #6#;                                               OBJCOMM
          DEF  RCNT   #10#;                                              OBJCOMM
          XREF                                                           OBJCOMM
              BEGIN                                                      OBJCOMM
              ARRAY  OBJTAB[1:1];                                        OBJCOMM
                  ITEM                                                   OBJCOMM
                      OBJNAM C(0, 0, 7),
                      OBJPTR U(0,42,18);                                 OBJCOMM
              ARRAY  OBJDESC [0];                                        OBJCOMM
                  ITEM                                                   OBJCOMM
                      BCALL  U(0,15, 3),                                 OBJCOMM
                      IN     U(0, 0, 5),                                 OBJCOMM
                      OUT    U(0, 5, 4),                                 OBJCOMM
                      PARAMS,                                            OBJCOMM
                      SAVE   U(0, 9, 5),                                 OBJCOMM
                      SEQT   B(0,14, 1);                                 OBJCOMM
              ARRAY  OBJLTB[1:1]; 
                  ITEM  OBJLINK;
              ITEM  NOBJRTN;
             END                                                         OBJCOMM
