changed the order of checking in the args_flush routine when checking for out ofpaper.

Version

@@ -4,9 +4,9 @@
                 GBLS    VString
                 GBLS    Date
 
-Version         SETA    038
-VString         SETS    "0.38"
-Date            SETS    "31 Jul 1997"
+Version         SETA    039
+VString         SETS    "0.39"
+Date            SETS    "1 Oct 1997"
 
 
 ; controlling how and if debugging is allowed.

s/FSystem

@@ -1092,16 +1092,17 @@ args_flush      ENTRY   "r1-r3,fr"
                 EXITS   EQ                                      ; no, so return now
                 MOV     fr, r1
 10
-                BL      checkescape
-                BLVC	checkfileTXOK				;Monitor TX for errors call 12.
-                BLVC    checkeof                                ; loop until EOF or Escape pressed
-                PullEnv VS
-                ORRVSS  pc, lr, #V_bit                          ; return the error (if one)
-                BCC     %BT10                                   ; if C clear then still no end of data
-		Debug	flush, "Exited  Flush"
+                BL      checkeof                                ; CS = exit loop until EOF or Escape pressed
+		DebugIf CS, flush, "Exited  Flush EOF"
+                EXITS	CS					; normal exit eof found
 
-                EXITS                                           ; and then restore flags
+                BLVC    checkescape				; VS = exit not always enabled
+                BLVC	checkfileTXOK				; VS = exit Monitor TX for errors call 12.
 
+		DebugE  flush, "Exited  Flush forced exit"
+                PullEnv VS
+                ORRVSS  pc, lr, #V_bit                          ; return the error (if one)
+                B       %BT10                                   ; if C clear then still no end of data
 
 ; get load and exec address of a stream and return them back to the caller.
 ;