          EJECT
*         CTEXT CTP$DFT CHECK PKT STATUS NON S0.
*
*         COPYRIGHT CONTROL DATA SYSTEMS INC. 1992
*
*         THIS DECK DEFINES CODE WHICH PROCESSES THE VARIOUS
*         PHASES OF PACKET COMMUNICATION.  THIS DECK SHOULD BE CALLED
*         IN THE MAIN NON RESIDENT OVERLAY OF DFT.
*         RECEIVE RESPONSE PACKET.

          ROUTINE RRP        ENTRY/EXIT

          LDM    PKTCW       CLEAR RESPONSE PENDING
          STM    PKTCW
          LDN    40          REQUEST = RECEIVE PACKET
          STM    CALB+0
          LDC    TOIP        BUFFER ADDRESS = *2AP* BUFFER (AT 2000)
          STML   CALB+2
          LDN    MX          GET CHANNEL 15 INTERLOCK
          RJM    SCF
          FNC    MXPT,MX     SELECT PORT
          AJM    *,MX
          CALL   PFC         CALL *2AP*
          FNC    MXDM,MX     DESELECT MUX
          AJM    *,MX
          CCF    *,MX        RELEASE CHANNEL 15 INTERLOCK
          CALL   CER         CHECK ERROR RESPONSE
          LDN    0           CLEAR PACKET TIMING CONTROL
          STML   PKTIM
          LJM    RRPX        RETURN

*         END    CTP$DFT CHECK PKT STATUS NON S0.

