*DECK PUTDS 
          IDENT     PUT$S 
          LIST      C,F,X 
          TITLE     IDENT    PUT$S
          COMMENT   CRM PUT/PUTP RT=S BUFFERED
          SST 
          B1=1
* CALL /PUTDS/               /PUTDS/  *COMDECK /PUTDS/
*CALL /PUTDS/ 
 FLSH$S   EJECT     FLUSH I/O BUFFER
*#
*0        *FLSH$S* IS ANALOGOUS TO FLSH$SQ AND FLSH$WA.  IT ENSURES THAT
*         THE CIO BUFFER IS EMPTY PRIOR TO CLOSE, WEOX, ETC.
*0        ONLY S/L TAPE FILES HAVE THE PROBLEM OF BUFFER FLUSHING,
*         ALL PRU FILES HAVE BEEN WRITTEN WITH *WRITER*, AND
*         SO MUST BE EMPTY WHEN COMPLETE. 
*0        REGISTERS  -  B6 = RETURN 
*#
          ENTRY     FLSH$S
 FLSH$S   BSS       0 
          SX6       144B+1S17      ERROR - UNTERMINATED PUTP (FATAL)
          EQ.RM     FP,0,=XERR$RM 
* 
          SAVE
          RCL.RM    A0,AUTO        WAIT FOR ANY I/O TO STOP 
          SB6       FL1 
          EQ        ERRCHK         CHECK FOR ERRORS 
FL1       BSS       0 
          F.RM      IN,1
          F.RM      OUT,2 
          IX1       X1-X2 
          ZR        X1,FLX         BUFFER EMPTY 
          SYSY      264B,R         RESTART S/L I/O, AND WAIT
          SB6       FLX 
          EQ        ERRCHK
* 
 FLX      BSS       0 
          RESTORE 
          JP        B6             RETURN 
          SPACE     4 
          END 
