          EJECT
*         CTEXT  CTP$DFT NO CLEAR PACKETS.
*
*         COPYRIGHT CONTROL DATA SYSTEMS INC. 1992
*
*         THIS DECK CONTAINS PRESET CODE FOR PACKET PROCESSING.
 ICP      SPACE  4,10
**        ICP - ISSUE CLEAR PACKETS REQUEST.
*
*         NOTE   THIS ROUTINE IS INOPERATIVE.


 ICP      SUBR               ENTRY/EXIT
          UJN    ICPX        RETURN

*         ENDX   CTP$DFT NO CLEAR PACKETS.
