*DECK S$MDRD
          IDENT  S$MDRD 
          COMMENT  READ STRTBL$ FROM FILE 
  
          B1=1
  
  
**        S$MDRD READ PART OF STRTBL$ FROM FILE ZZZZZ3Z 
* 
*     CALLING SEQUENCE- 
*         S$MDRD(STRTBL$[1],LSTRTBL); 
* 
*     DOES- 
*         READ PART OF STRTBL$ FROM FILE ZZZZZ3Z FOR S$MGDSN. 
* 
  
          ENTRY  S$MDRD 
  
 S$MDRD   SUBR               ENTRY/EXIT WORD
          SB1    1           CONSTANT 1 
  
* 
* GET PARAMETERS. 
* 
                             X1 IS BUFFER ADDRESS TO READ INTO
          SA2    A1+B1       ADDR OF BUFFER LENGTH
          SA2    X2          X2=VALUE OF BUFFER LENGTH
  
* 
* SET FET OF FILE ZZZZZ3Z TO READ 
* 
          SA0    FET3Z
          SA3    X1          A3=ADDRESS OF BUFFER ADDRESS 
                             X3=BUFFER ADDRESS
          BX6    X3          X6=BUFFER ADDRESS
          SA6    A0+B1       SET FIRST POINTER
          SA6    A6+B1       SET IN POINTER 
          SA6    A6+B1       SET OUT POINTER
          IX6    X6+X2       X6=BUFFER END ADDRESS+1
          SA6    A6+B1       SET LIMIT POINTER
  
          READ   A0,RECALL
  
          EXIT
  
 FET3Z    VFD    42/7LZZZZZ3Z,18/1
          BSSZ   4
  
          END 
