***********************************************************************
*   CSECT-NAME:  BPXTWAIT
*
*   DESCRIPTIVE-NAME:  Wait for an ECB in a list to be posted
*
*   NOTES:  This routine can be called from a PFS initialization
*           routine.  It will not run in cross memory mode.
*
*   Input: R1 - Address of ECBLIST passed in R1
***********************************************************************

BPXTWAIT CSECT
BPXTWAIT AMODE ANY
BPXTWAIT RMODE ANY
         ENTRY BPXTWAIT
         EDCPRLG
         LR    R4,R1             get pointer to ecb vector
         WAIT  1,ECBLIST=(R4),LINKAGE=SYSTEM,EUT=SAVE
         EDCEPIL
*