*DECK OVRFLOW 
USETEXT COMCBEG 
USETEXT COMRAPL 
USETEXT COMRNDR 
USETEXT COMRQUE 
PROC OVRFLOW(CNTNUMBER);
# TITLE OVRFLOW - CREATE OVERFLOW ENTRY.  # 
  
      BEGIN  # OVRFLOW #
  
# 
**    OVRFLOW - CREATE OVERFLOW ENTRY.
* 
*     CREATE OVERFLOW ENTRY.
* 
*     PROC OVRFLOW(CNTNUMBER).
* 
*     ENTRY   - NDR$COMMUN IS BASED ARRAY CONTAINING COMMUNICATION AREA.
*               APL$HEADER IS BASED ARRAY CONTAINING APPLICATION TABLE. 
* 
*     EXIT    - OVERFLOW QUEUE ENTRY QUEUED.
* 
*     PROCESS - OBTAIN FREE QUEUE ENTRY.
*               INITIALIZE ACN, COUNTER, AND APPLICATION TABLE ADDRESS. 
*               QUEUE ON OVERFLOW QUEUE.
*               RETURN. 
# 
  
      ITEM CNTNUMBER I;              # OVERFLOW COUNTER NUMBER #
  
# 
****  PROC OVRFLOW - XREF LIST BEGIN. 
# 
      XREF
        BEGIN 
        PROC GETFREE;                # OBTAIN FREE QUEUE ENTRY #
        PROC QUEUE;                  # QUQUE #
        END 
  
# 
****  PROC OVRFLOW - XREF LIST END. 
# 
  
  
CONTROL EJECT;
  
      GETFREE;
      QU$COUNTER = CNTNUMBER; 
      QU$ACN = NDR$ACN; 
      QU$APPL = P<APL$HEADER>;
      QU$TYPE = QT$OVERFLW; 
      QUEUE(LOC(OVERFLOWQ));
      RETURN; 
      END  # OVRFLOW #
  
      TERM
