*COMDECK READN
          IDENT  READN
          ENTRY  READN
          TITLE  READN - READ FILE NON-STOP FOR TAPES.
          COMMENT READ FILE NON-STOP FOR TAPES. 
          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
 READN    SPACE  4,10 
***       READN - READ FILE NON-STOP FOR TAPES. 
*         MAGNETIC TAPES IN S OR L FORMAT ONLY. 
* 
*         CALL READN (FILE,R) 
* 
*         ENTRY  (FILE) = FIRST WORD OF THE FET.
* 
*         READN(FILE,R);           (*SYMPL* CALL) 
* 
*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
* 
*         USES   X - 2. 
*                A - 2. 
*                B - 1. 
* 
*         MACROS READN. 
  
  
 READN    SUBR               ENTRY/EXIT 
          SB1    1
          SA2    A1+B1       GET RECALL PARAMETER 
          SA2    X2 
          NZ     X2,RED1     IF RECALL REQUESTED
          READN  X1 
          EQ     READNX 
  
 RED1     READN  X1,R 
          EQ     READNX 
  
          END 
