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