         DEF      THEUNCOC
         PCC      0
         SPACE    3
*  REPLACEMENT FOR COC, COCD, AND M:COC IN NON-COC SYSTEM.
         SPACE    3
         SYSTEM   UTS
         SPACE    3
         DEF      COCINIT
         DEF      COCIO
         DEF      COCOFF
         DEF      COCSENDX
         DEF      ECHOCR2
         DEF      T:COCHC
         SPACE    3
THEUNCOC EQU      %
         PAGE
COCINIT  B        *11               RETURN
T:COCHC  B        *8                RETURN
         SPACE    3
COCIO    SCREECH  X'14',1           RECOVER
COCOFF   SCREECH  X'14',2           RECOVER
COCSENDX SCREECH  X'14',3           RECOVER
ECHOCR2  SCREECH  X'14',4           RECOVER
         SPACE    3
         END

