*DECK MODOUT
USETEXT COMCBEG 
USETEXT COMADEF 
USETEXT COMAFET 
    FUNC MODOUT (OFFSET) I; 
# TITLE MODOUT - MODULO OUTPUT BUFFER POINTER. #
  
      BEGIN  # MODOUT # 
  
# 
**    MODOUT - MODULO OUTPUT BUFFER POINTER.
* 
*     MODOUT IS A FUNCTION WHICH RETURNS A NEW VALUE FOR THE OUTPUT FET 
*     IN POINTER GIVEN AN OFFSET (OR INCREMENT) TO THE CURRENT VALUE. 
* 
*     FUNC MODOUT(OFFSET) I 
* 
*     ENTRY 
* 
* 
*     EXIT
* 
* 
* 
* 
*     PROCESS    MODOUT = FIRST 
*                  + MOD((IN-FIRST + OFFSET), (LIMIT-FIRST))
* 
* 
# 
  
  
      ITEM OFFSET  I;                # IN POINTER INCREMENT # 
  
  
CONTROL EJECT;
  
      IF (PFETIN + OFFSET) GE PFETLIM 
      THEN
        BEGIN 
        MODOUT = PFETIN + OFFSET - OTBUFSIZE; 
        END 
  
      ELSE
        BEGIN 
        MODOUT = PFETIN + OFFSET; 
        END 
  
      RETURN; 
  
      END  # MODOUT # 
  
    TERM
