*COMDECK READO
          IDENT  READO
          ENTRY  READO
          SYSCOM B1 
          TITLE  READO - READ ONE WORD. 
          COMMENT READ ONE WORD.
          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
 READO    SPACE  4,10 
***       READO - READ ONE WORD.
* 
*         CALL READO (FILE,WORD,STATUS) 
* 
*         ENTRY  (FILE) = FIRST WORD OF THE FET.
* 
*         READO(FILE,WORD,STATUS);        (*SYMPL* CALL)
* 
*         ENTRY   FILE, AN ARRAY THAT CONTAINS THE FET. 
* 
*         EXIT   (WORD) = WORD READ IF (STATUS) = 0.
*                (STATUS) = 0, TRANSFER COMPLETE. 
*                         = -1, END-OF-FILE DETECTED ON FILE. 
*                         = -2, END-OF-INFORMATION DETECTED ON FILE.
*                         = LWA, END-OF-RECORD DETECTED ON FILE BEFORE
*                                TRANSFER WAS COMPLETE. 
*                     LWA = ADDRESS + 1 OF LAST WORD TRANSFERRED TO 
*                           WORKING BUFFER. 
* 
*         USES   X - 3, 5, 6, 7.
*                A - 3, 5, 6, 7.
*                B - 1. 
* 
*         MACROS READO. 
  
  
 READO    SUBR               ENTRY/EXIT 
          SB1    1
          SA3    A1+B1       ADDRESS OF WORD
          SA5    A3+B1       (X5) = ADDRESS OF STATUS WORD
          BX0    X3 
          READO  X1 
          SA6    X0          WORD READ
          BX7    X1          STATUS 
          SA7    X5 
          EQ     READOX 
  
          END 
