*DECK FFSUWIO 
USETEXT TEXTFFS 
      PROC FFSUWIO; 
*CALL COPYRITE
# TITLE FFSUWIO - WAIT FOR I/O COMPLETION.                             #
  
      BEGIN                            # FFSUWIO                       #
# 
**    FFSUWIO  WAIT FOR I/O COMPLETION. 
* 
*     A. LIM                           88/04/05 
* 
*     THIS PROCEDURE WAITS FOR THE COMPLETION OF I/O IF THERE IS
*     ANY I/O OUTSTANDING.
* 
*     PROC FFSUWIO
* 
*     ENTRY    MBT = CONTAINS THE FET OF THE CURRENT I/O. 
* 
*     EXIT     CURRENT I/O (IF ANY) COMPLETED.
* 
*     METHOD   IF I/O OUTSTANDING:  
*                RECALL.
# 
  
# 
****  PROC FFSUWIO - XREF LIST
# 
      XREF
        BEGIN 
        PROC RECALL;     # WAIT FOR COMPLETION BIT TO BE SET           #
        END 
# 
****
# 
  
      CONTROL EJECT;
# 
*     START MAIN PROCEDURE
# 
      IF NOT MBT$COMPB[0] 
      THEN
        BEGIN                          # I/O OUTSTANDING               #
        RECALL(MBT[0]);                # WAIT FOR COMPLETION           #
        END 
  
      RETURN; 
  
      END                              # FFSUWIO                       #
  
      TERM
