*DECK UCPQUE
USETEXT COMCBEG 
USETEXT COMRQUE 
USETEXT COMRSSC 
PROC UCPQUE;
# TITLE UCPQUE - CREATE UCP REQUEST QUEUE ENTRY. #
  
      BEGIN  # UCPQUE # 
  
# 
**    UCPQUE - CREATE UCP REQUEST QUEUE ENTRY.
* 
*     CREATE UCP REQUEST QUEUE ENTRY. 
* 
*     PROC UCPQUE.
* 
*     ENTRY   - UCP REQUEST IN REQ$BLOCK ARRAY
* 
*     EXIT    - QU$ADDRESS IS BASED ARRAY CONTAINING UCP REQUEST. 
* 
*     PROCESS - OBTAIN FREE QUEUE ENTRY.
*               MOVE UCP REQUEST INTO QUEUE ENTRY.
*               RETURN. 
# 
  
# 
****  PROC UCPQUE - XREF LIST BEGIN.
# 
      XREF
        BEGIN 
        PROC GETFREE;                # GET FREE QUEUE ENTRY # 
        END 
  
# 
****  PROC UCPQUE - XREF LIST END.
# 
  
  
CONTROL EJECT;
  
      GETFREE;
      QU$TYPE = QT$UCPREQ;
      QU$WD1 = REQ$WD1; 
      QU$CHARGE = 0;
      QU$WD2 = REQ$WD2; 
      QU$WD3 = REQ$WD3; 
      QU$WD4 = REQ$WD4; 
      QU$WD5 = REQ$WD5; 
      RETURN; 
      END  # UCPQUE # 
  
      TERM
