Retro1.org codex

*DECK NP$RETN 
          IDENT  NP$RETN
          ENTRY  NP$RETN
          COMMENT   RETURN FILE TO SYSTEM 
*CALL NP$CRT
*IF,DEF,IMS 
*#
*1DC NP$RETN
* 
*         1. SUBROUTINE      AUTHOR              DATE 
*            NP$RETN         E. GEE              86/01/28 
* 
*         2. FUNCTIONAL DESCRIPTION.
*            RETURN FILE TO SYSTEM. 
* 
*            SYMPL CALL:  NP$RETN(FILE);
* 
*                         WHERE FILE = FIRST WORD ADDRESS OF THE FET
* 
*         3. METHOD USED. 
*            EXECUTE RETURN NOS MACRO WITH RECALL.
* 
*         4. ENTRY PARAMETERS.
*            A1              ADDRESS OF PARAMETER LIST CONTAINING 
*                            ADDRESS OF FET 
* 
*         5. EXIT PARAMETERS. 
*            NONE.
* 
*         6. COMMON DECKS CALLED. 
*            NP$CRT          CONTROL DATA COPYRIGHT 
* 
*         7. SUBROUTINES AND MACROS CALLED. 
*            RETURN          RETURN FILE TO SYSTEM
* 
*         8. DAYFILE MESSAGES.
*            NONE.
* 
*#
*ENDIF
************************************************************************
 
 NP$RETN  SUBR   =           ENTRY/EXIT 
          RETURN X1,R        RETURN FILE WITH RECALL
          EQ     NP$RETNX    RETURN 
 
          END