*COMDECK EVICT
          IDENT  EVICT
          ENTRY  EVICT
          SYSCOM B1 
          TITLE  EVICT - RELEASE FILE SPACE.
          COMMENT RELEASE FILE SPACE. 
          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
 EVICT    SPACE  4,10 
***       EVICT - RELEASE FILE SPACE. 
* 
*         CALL EVICT (FILE,R) 
* 
*         ENTRY  (FILE) = FIRST WORD OF THE FET.
*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
* 
*         EVICT(FILE,R);     (*SYMPL* CALL) 
* 
*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
*                (R)=RECALL, IF .NE. 0, RECALL IS REQUESTED.
* 
*         USES   X - 2. 
*                A - 2. 
*                B - 1. 
* 
*         MACROS EVICT. 
  
  
 EVICT    SUBR               ENTRY/EXIT 
          SB1    1
          SA2    A1+B1
          SA2    X2          RECALL VALUE 
          NZ     X2,EVT1     IF RECALL ON 
          EVICT  X1 
          EQ     EVICTX 
  
 EVT1     EVICT  X1,R 
          EQ     EVICTX 
  
          END 
