*DECK FULLOUT 
USETEXT COMCBEG 
USETEXT COMADEF 
USETEXT COMACBX 
USETEXT COMAFET 
    PROC FULLOUT; 
# TITLE FULLOUT - TERMINATE FULL OUTPUT EXTENT.  #
  
      BEGIN  # FULLOUT #
  
# 
**    FULLOUT - TERMINATE FULL OUTPUT EXTENT. 
* 
*     FULLOUT TERMINATES A FULL OUTPUT EXTENT.
* 
*     PROC FULLOUT
* 
*     ENTRY 
* 
* 
*     EXIT
* 
* 
* 
* 
* 
*     PROCESS    IF OUTPUT CONTROL WORDS REQUIRED 
*                THEN 
*                  CREATE OUTPUT CONTROL WORDS. 
*                UPDATE PUT FET POINTER.
*                CALCULATE BITS OUTPUT. 
*                SET NON-EXISTENT EXTENT. 
*                ISSUE OUTPUT REQUEST.
* 
****  PROC FULLOUT - XREF LIST BEGIN. 
# 
  
      XREF
        BEGIN 
        FUNC MODOUT I;               # MODULO OUTPUT BUFFER POINTER # 
        PROC OUTREQ;               # ISSUE OUTPUT REQUEST # 
        END 
  
# 
****  PROC FULLOUT - XREF LIST END. 
# 
  
CONTROL EJECT;
  
      IF OTCWS
      THEN
        BEGIN 
        P<CW> = PFETIN; 
        CWWORD = OTFULLCW;
        CONTROL IFEQ OS$NOS;
        P<LVLCW> = MODOUT(65);
        LVLCWLVL = 0; 
        CONTROL ENDIF;
        END 
  
      PFETIN = MODOUT(OTWDSIZE);
      OTTOTBITS = OTTOTBITS + OTBLKBITS;
      OTDATSTATE = DSNULL;
      OTWRAP = FALSE; 
      OUTREQ; 
  
      RETURN; 
  
      END  # FULLOUT #
  
    TERM
