*DECK DB$RDWW 
          IDENT  DB$RDWW
          TITLE  DB$RDWW -- READ WORDS INTO WORKING BUFFER
          COMMENT  READ WORDS TO WORKING BUFFER 
          DATA   10L  DB$RDWW 
*#
* *   DB$RDWW - READ WORDS TO WORKING BUFFER     PAGE  1
* *   BOB MCALLESTER                             DATE  02/13/81 
* 
* DC  PURPOSE 
* 
*     COPY -LEN- WORDS FROM THE INPUT BUFFER TO THE BUFFER AT -WSA-.
*     READ MORE DATA INTO THE INPUT BUFFER IF REQUIRED. 
* 
* DC  ENTRY CONDITIONS
* 
* D   PARAMETERS
* 
*     -FET-                  LOCATION OF THE FILE FET 
*     -WSA-                  LOCATION OF THE WORKING STORAGE AREA 
*     -LEN-                  NUMBER OF WORDS TO BE TRANSFERRED
* 
* D   ASSUMPTIONS 
* 
*     AN INITIAL READ HAS BEEN DONE ON THE FET. 
* 
* DC  EXIT CONDITIONS 
* 
*     A FUNCTION VALUE IS RETURNED. 
*       0 FOR TRANSFER COMPLETE.
*       -1 FOR EOF DETECTED ON FILE.
*       -2 FOR EOI DETECTED ON FILE.
* 
* DC  CALLING ROUTINES
* 
*     DB$RDLG                READ LOG RECORDS 
* 
* DC  CALLED ROUTINES 
* 
*     CIO=                   CALL CIO 
*     RCL=                   RECALL 
* 
* DC  DESCRIPTION 
* 
*     THE COMMON DECK COMCRDW PROVIDES THE BASIC LOGIC OF DB$RDWW.
*     DB$RDWW PROVIDES THE SYMPL CALLING SEQUENCE INTERFACE.
*#
          SST 
          ENTRY  DB$RDWW
          LIST   F
          LIST   X
          B1=1
QUAL$     EQU    1
  
  
DB$RDWW   EQ   *+1S17 
          SB1    1
          SA2    X1          (X2) = LOCATION OF THE FET 
          SA5    A1+B1       (X5) = POINTER TO -WSA-
          SA3    A5+B1       (X3) = POINTER TO -LEN-
          SA1    X5          (X1) = -WSA- 
          SA3    X3          (X3) = -LEN- 
          SB6    X1          (B6) = -WSA- 
          SB7    X3          (B7) = -LEN- 
  
*         RDW=   INPUT PARAMETERS 
* 
*         (B1) = 1
*         (X2) = ADDRESS OF THE FET 
*         (B6) = FWA OF WORKING BUFFER
*         (B7) = WORD COUNT OF REQUESTED TRANSFER 
  
          RJ   RDW=          READ WORDS TO BUFFER 
  
          BX6    X1          RETURN END-OF-DATA STATUS
          EQ   DB$RDWW
          SPACE  3,42 
*CALL IOLIST
*CALL COMCRDW 
          END 
