*DECK FREEWDS 
USETEXT COMCBEG 
USETEXT COMADEF 
USETEXT COMAFET 
    FUNC FREEWDS I; 
# TITLE FREEWDS - DETERMINE NUMBER OF FREE WORDS IN OUTPUT BUFFER. #
  
      BEGIN  # FREEWDS #
  
# 
**    FREEWDS - DETERMINE NUMBER OF FREE WORDS IN OUTPUT BUFFER.
* 
*     FREEWDS IS A FUNCTION WHICH RETURNS THE NUMBER OF FREE WORDS
*     IN THE OUTPUT FET BUFFER. 
* 
*     FUNC FREEWDS I
* 
*     ENTRY 
* 
* 
*     EXIT
* 
* 
* 
* 
*     PROCESS    IF OUT EQ IN 
*                THEN 
*                  FREEWDS = 0
*                ELSE 
*                  IF OUT GT IN 
*                  THEN 
*                    FREEWDS = OUT - IN - 1 
*                  ELSE 
*                    FREEWDS = LIMIT - IN + OUT - FIRST - 1 
*                RETURN 
* 
# 
  
  
      ITEM WDS        I;
CONTROL EJECT;
  
      WDS = PFETOUT - PFETIN; 
  
      IF WDS GT 0 
      THEN
        BEGIN 
        FREEWDS = WDS - 1;
        END 
  
      ELSE
        BEGIN 
        FREEWDS = WDS + OTBUFSIZE - 1;
        END 
  
      RETURN; 
  
      END  # FREEWDS #
  
    TERM
