*COMDECK RETURN 
          IDENT  RETURN 
          ENTRY  RETURN 
          ENTRY  RETERN 
          SYSCOM B1 
          TITLE  RETURN - RETURN FILE TO SYSTEM.
          COMMENT RETURN FILE TO SYSTEM.
          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
 RETURN   SPACE  4,10 
***       RETURN - RETURN FILE TO SYSTEM. 
* 
*         CALL RETURN (FILE,R)
* 
*         ENTRY  (FILE) = FIRST WORD OF THE FET.
*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
* 
*         RETERN(FILE,R);         (*SYMPL* CALL)
* 
*         NOTE    RETURN IS A RESERVED WORD IN *SYMPL*, A CALL TO 
*                 THE RETURN MACRO IN *SYMPL* MUST SPELL RETURN WITH
*                 AN *E* INSTEAD OF A *U*.
* 
*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
* 
*         USES   X - 2. 
*                A - 2. 
*                B - 1. 
* 
*         MACROS RETURN.
  
  
  
 RETERN   BSS  0             ENTRY FOR *SYMPL* ROUTINES 
 RETURN   SUBR               ENTRY/EXIT 
          SB1    1
          SA2    A1+B1       GET RECALL PARAMETER 
          SA2    X2 
          NZ     X2,RET1     IF RECALL REQUESTED
          RETURN X1 
          EQ     RETURNX
  
 RET1     RETURN X1,R 
          EQ     RETURNX
  
          END 
