*         CTEXT  CTP$DFT_CHECK_TPM_PKT_RESPONSE
*
 CRS      SPACE  4,10
**        CRS - CHECK RESPONSE STATUS.
*
*         EXIT   (A) = 0, IF NO RESPONSE PACKET AVAILABLE.
*                    = 1, IF RESPONSE PACKET IS AVAILABLE.
*
*         CALLS  SCF.


 CRS      SUBR               ENTRY/EXIT
          LDN    MX          INTERLOCK CHANNEL 15
          RJM    SCF
          FNC    MXPT,MX     SELECT PORT 0
          AJM    *,MX
          FNC    MXKS,MX     READ PORT 0 STATUS
          AJM    *,MX
          ACN    MX
          IAN    MX
          AJM    *,MX
          FNC    MXDM,MX     DESELECT PORT
          AJM    *,MX
          CCF    *,MX        RELEASE CHANNEL 15
          LPN    1           EXTRACT PACKET AVAILABLE BIT
          UJN    CRSX        RETURN

*         END CTP$DFT_CHECK_TPM_PKT_RESPONSE
