*COMDECK REWRITR
          IDENT  REWRITR
          ENTRY  REWRITR
          SYSCOM B1 
          TITLE  REWRITR - REWRITE END OF RECORD. 
          COMMENT REWRITE END OF RECORD.
          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
 REWRITR  SPACE  4,10 
***       REWRITR - REWRITE END OF RECORD.
*         MASS STORAGE FILES ONLY.
* 
*         CALL REWRITR (FILE,R) 
* 
*         ENTRY  (FILE) = FIRST WORD OF THE FET.
*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
* 
*         REWRITR(FILE,R);           (*SYMPL* CALL) 
* 
*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
* 
*         USES   X - 2. 
*                A - 2. 
*                B - 1. 
* 
*         MACROS REWRITER.
  
  
 REWRITR  SUBR               ENTRY/EXIT 
          SB1    1
          SA2    A1+B1       GET ADDRESS OF RECALL PARAMETER
          SA2    X2 
          NZ     X2,REW1     IF RECALL PARAMETER REQUESTED
          REWRITER  X1
          EQ     REWRITRX 
  
 REW1     REWRITER  X1,R
          EQ     REWRITRX 
  
          END 
