+1,1
* 03/23/77 -- 16:00
+31
         REF      S04XFIL1,ZRORTNST
+59,59
         DATA     X'032377'         DATE
+321,321                            *** 08/10/76 ***
         LW,BUF3  FLNSTART          GET START OF LINE
+461                                *** 03/03/77 ***
         CI,SR3   X'57'             IS STORAGE EXHAUSTED
         BNEZ     RTNPRNT           NO
         LI,AC1   80                SET UP 'FILE OUT SPACE EXHAUSTED' MSG
         BAL,SRTN S29STD            GO WRITE MESSAGE
         LI,AC1   #REL              SET UP TO RELEASE OUTPUT FILE
         BAL,SRTN S04XFIL1          GO EXIT FILE OUTPUT MODE
         B        ZRORTNST          CONTINUE
+574                                *** 08/10/76 ***
         CI,SR3   7                 DATA LOST
         BNE      RDLN27            NO
         AI,AC1   -1                YES, DECR SIZE FOR POSSIBLE X'BE'
         LI,SR3   0
         STW,SR3  NXTBUFSZ          FORCE NO BUFFER SPACE LEFT
         B        RDLN27
+583,591                            *** 08/10/76 ***
         BNE      RDBUFLP           NO, GET NEXT BUFFER
+END
