*COMDECK READS
          IDENT  READS
          ENTRY  READS
          SYSCOM B1 
          TITLE  READS - READ CODED LINE TO CHARACTER BUFFER. 
          COMMENT READ CODED LINE TO CHARACTER BUFFER.
          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
 READS    SPACE  4,10 
***       READS - READ CODED LINE TO CHARACTER BUFFER.
* 
*         CALL READS (FILE,BUF,N,STATUS)
* 
*         UNPACKS WORDS AND STORES THEM IN THE WORKING BUFFER, ONE
*         CHARACTER/WORD, UNTIL THE END OF LINE BYTE (0000) IS SENSED.
*         FILLS THE WORKING BUFFER WITH SPACE CODES IF THE CODED LINE 
*         TERMINATES BEFORE *N* CHARACTERS ARE STORED.
* 
*         ENTRY  (FILE) = FIRST WORD OF THE FET.
*                (BUF) = FIRST WORD OF THE WORKING BUFFER.
*                (N) = WORD COUNT OF THE WORKING BUFFER.
* 
*         READS(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 WORD IN BUF. 
* 
*         EXIT   (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, 4, 5, 6.
*                A - 3, 4, 5, 6.
*                B - 1. 
* 
*         MACROS READS. 
  
  
 READS    SUBR               ENTRY/EXIT 
          SB1    1
          SA3    A1+B1       FWA OF WORKING BUFFER
          SA4    A3+B1       ADDRESS OF WORD COUNT
          SA5    A4+B1       (X5) = ADDRESS OF STATUS WORD
          SA4    X4          WORD COUNT 
          READS  X1,X3,X4 
          BX6    X1 
          SA6    X5 
          EQ     READSX 
  
          END 
