          EJECT
*         CTEXT  CTP$DFT CLEAR PACKETS I4.
*
*         COPYRIGHT CONTROL DATA SYSTEMS INC. 1992
*
*         THIS DECK CONTAINS ROUTINES TO INITIALIZE FOR PACKET
*         PROCESSING.
 ICP      SPACE  4,10
**        ICP - ISSUE CLEAR PACKETS REQUEST.
*
*         CALLS  SCF.


 ICP      SUBR               ENTRY/EXIT
          LDML   PKFLG
          ZJN    ICPX        IF PACKETS ARE NOT SUPPORTED
          LDN    MX          INTERLOCK CHANNEL 15
          RJM    SCF
          FNC    MXPT,MX     SELECT PORT 0
          AJM    *,MX
          FNC    MXCP,MX     CLEAR PACKETS
          AJM    *,MX
          FNC    MXDM,MX     DESELECT PORT
          AJM    *,MX
          CCF    *,MX        RELEASE CHANNEL 15
          UJN    ICPX        RETURN

*         END    CTP$DFT CLEAR PACKETS I4.

