          EJECT
*         CTEXT  CTP$DFT CHECK PKTS FOR S0.
*
*         COPYRIGHT CONTROL DATA SYSTEMS INC. 1992
*
*         THIS DECK CONTAINS ROUTINES TO CHECK ON THE STATUS OF PACKET
*         REQUESTS ON THE S0.
 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    MXPS+0,MX   READ PORT 0 STATUS
          ACN    MX
          IAN    MX
          DCN    MX+40
          CCF    *,MX        RELEASE CHANNEL 15
          LPN    1           EXTRACT PACKET AVAILABLE BIT
          UJN    CRSX        RETURN

*         END    CTP$DFT_CHECK_PKTS_FOR_S0.
