*DECK DB$RTN
          IDENT DB$RTN
*#
* *   DB$RTN -- FILE RETURN PROCESSOR            PAGE  1
* *   C O GIMBER                                 3/10/76
* 
* DC  PURPOSE 
* 
*     RETURN A FILE TO THE SYSTEM.
* 
* DC  ENTRY CONDITIONS
* 
*     PARAMETER = LFN (7 CHARACTERS) RIGHT JUSTIFIED. 
* 
* DC  CALLED ROUTINES 
* 
*     RETURN MACRO (NOS)
*#
          EJECT 
FET       FILEC  100,100     FET
  
          ENTRY  DB$RTN 
DB$RTN    EQ   *+1S17 
          SA1    X1 
          MX2    59 
          LX1    18 
          IX6    X1-X2
          SA6    FET
          RETURN FET,R
          EQ   DB$RTN 
          END 
