*DECK DATAWDS 
USETEXT COMCBEG 
USETEXT COMADEF 
USETEXT COMAFET 
    FUNC DATAWDS I; 
# TITLE DATAWDS - DETERMINE NUMBER OF DATA WORDS IN INPUT BUFFER. # 
  
      BEGIN  # DATAWDS #
  
# 
**    DATAWDS - DETERMINE NUMBER OF DATA WORDS IN INPUT BUFFER. 
* 
*     DATAWDS IS A FUNCTION WHICH RETURNS THE NUMBER OF DATA WORDS
*     IN THE INPUT FET BUFFER.
* 
*     FUNC DATAWDS I
* 
*     ENTRY 
* 
* 
*     EXIT
* 
* 
* 
* 
*     PROCESS    IF IN GE OUT 
*                THEN 
*                  DATAWDS = IN - OUT 
*                ELSE 
*                  DATAWDS = LIMIT - OUT + IN - FIRST 
*                RETURN 
* 
# 
  
  
      ITEM WDS        I;
CONTROL EJECT;
  
      WDS = GFETIN - GFETOUT; 
  
      IF WDS LT 0 
      THEN
        BEGIN 
        DATAWDS = WDS + INBUFSIZE;
        END 
  
      ELSE
        BEGIN 
        DATAWDS = WDS;
        END 
  
      RETURN; 
  
      END  # DATAWDS #
  
    TERM
