*COMDECK WRITES 
          IDENT  WRITES 
          ENTRY  WRITES 
          SYSCOM B1 
          TITLE  WRITES - WRITE CODED LINE FROM CHARACTER BUFFER. 
          COMMENT WRITE CODED LINE FROM CHARACTER BUFFER. 
          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
 WRITES   SPACE  4,10 
***       WRITES - WRITE CODED LINE FROM CHARACTER BUFFER.
* 
*         CALL WRITES (FILE,BUF,N)
* 
*         PACKS CHARACTERS FROM THE WORKING BUFFER TEN CHARACTERS/WORD. 
*         DELETES TRAILING SPACE CODES BEFORE PACKING CHARACTERS. 
* 
*         ENTRY  (FILE) = FIRST WORD OF THE FET.
*                (BUF) = FIRST WORD OF THE WORKING BUFFER.
*                (N) = WORD COUNT OF THE WORKING BUFFER.
* 
*         WRITES(FILE,BUF,N);   (*SYMPL* CALL)
* 
*         ENTRY   FILE, AN ARRAY THAT CONTAINS THE FET. 
*                 BUF, AN ARRAY TO BE USED AS READ BUFFER.
*                 N, AN ITEM THAT CONTAINS THE NUMBER OF WORD IN BUF. 
* 
*         USES   X - 3, 4.
*                A - 3, 4.
*                B - 1. 
* 
*         MACROS WRITES.
  
  
 WRITES   SUBR               ENTRY/EXIT 
          SB1    1
          SA3    A1+B1       FWA OF WORKING BUFFER
          SA4    A3+B1       ADDRESS OF WORD COUNT
          SA4    X4          WORD COUNT 
          WRITES X1,X3,X4 
          EQ     WRITESX
  
          END 
