Commit a78ff36e authored by Alistair Rodger's avatar Alistair Rodger
Browse files

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

parent 639b2423
......@@ -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.
......
......@@ -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.
;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment