*COMDECK WRITEC 
          IDENT  WRITEC 
          ENTRY  WRITEC 
          SYSCOM B1 
          TITLE  WRITEC - WRITE CODED LINE IN *C* FORMAT. 
          COMMENT WRITE CODED LINE IN *C* FORMAT. 
          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
 WRITEC   SPACE  4,10 
***       WRITEC - WRITE CODED LINE IN *C* FORMAT.
* 
*         CALL WRITEC (FILE,BUF)
* 
*         TRANSFERS DATA UNTIL THE END OF LINE BYTE (0000) IS SENSED. 
* 
*         ENTRY  (FILE) = FIRST WORD OF THE FET.
*                (BUF) = FIRST WORD OF THE WORKING BUFFER.
* 
*         WRITEC(FILE,BUF);     (*SYMPL* CALL)
* 
*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
*                BUF, AN ARRAY TO BE USED AS READ BUFFER. 
* 
*         USES   X - 3. 
*                A - 3. 
*                B - 1. 
* 
*         MACROS WRITEC.
  
  
 WRITEC   SUBR               ENTRY/EXIT 
          SB1    1
          SA3    A1+B1       FWA OF WORKING BUFFER
          WRITEC X1,X3
          EQ     WRITECX
  
          END 
