*COMDECK WRITEO 
          IDENT  WRITEO 
          ENTRY  WRITEO 
          SYSCOM B1 
          TITLE  WRITEO - WRITE ONE WORD. 
          COMMENT WRITE ONE WORD. 
          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
 WRITEO   SPACE  4,10 
***       WRITEO - WRITE ONE WORD.
* 
*         CALL WRITEO (FILE,WORD) 
* 
*         ENTRY  (FILE) = FIRST WORD OF THE FET.
*                (WORD) = WORD TO BE TRANSFERRED. 
* 
*         WRITEO(FILE,WORD);    (*SYMPL* CALL)
* 
*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
*                WORD, ITEM TO BE TRANSFERRED.
* 
*         USES   X - 3, 6.
*                A - 3. 
*                B - 1. 
* 
*         MACROS WRITEO.
  
  
 WRITEO   SUBR               ENTRY/EXIT 
          SB1    1
          SA3    A1+B1       ADDRESS OF WORD
          SA3    X3          WORD 
          BX6    X3 
          WRITEO X1 
          EQ     WRITEOX
  
          END 
