*COMDECK WRITEW 
          IDENT  WRITEW 
          ENTRY  WRITEW 
          SYSCOM B1 
          TITLE  WRITEW - WRITE DATA FROM WORKING BUFFER. 
          COMMENT WRITE DATA FROM WORKING BUFFER. 
          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
 WRITEW   SPACE  4,10 
***       WRITEW - WRITE DATA FROM WORKING BUFFER.
* 
*         CALL WRITEW (FILE,BUF,N,STATUS) 
* 
*         ENTRY  (FILE) = FIRST WORD OF THE FET.
*                (BUF) = FIRST WORD OF THE WORKING BUFFER.
*                (N) = WORD COUNT OF THE WORKING BUFFER.
*                (STATUS) = RETURN STATUS, NE. 0 INDICATES AN ERROR.
* 
*         WRITEW(FILE,BUF,N,STATUS);   (*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 WORDS IN BUF. 
*                STATUS, .NE. 0 INDICATES AN ERROR. 
* 
*         USES   X - 3, 4, 5, 6, 7. 
*                A - 3, 4, 5, 6, 7. 
*                B - 1. 
* 
*         MACROS WRITEW.
  
  
 WRITEW   SUBR               ENTRY/EXIT 
          SB1    1
          SA3    A1+B1       FWA OF WORKING BUFFER
          SA4    A3+B1       ADDRESS OF WORD COUNT
          SA5    A4+B1       STATUS RESULT ADDRESS
          SA4    X4          WORD COUNT 
          WRITEW X1,X3,X4 
          NZ     B7,WRITEW1  IF AN ERROR
          BX7    X7-X7       CLEAR ERROR STATUS 
 WRITEW1  SA7    X5          RETURN ERROR STATUS
          EQ     WRITEWX
  
          END 
