Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Open sidebar
RiscOS
S
Sources
HWSupport
DeviceFS
Commits
000fafc5
Commit
000fafc5
authored
Mar 04, 1998
by
Owen Love
Browse files
Merged Spinner branch changes (0.36 and 0.37) into the Trunk version.
parent
682dc783
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
16 additions
and
9 deletions
+16
-9
s/DeviceFS
s/DeviceFS
+2
-0
s/FSystem
s/FSystem
+14
-9
No files found.
s/DeviceFS
View file @
000fafc5
...
...
@@ -143,6 +143,8 @@
; 29-Apr-97 0.35 JRC Fix some logic errors; add 'fs' debug flag; use local error buffer.
; (Spinner)
; 19-May-97 0.36 KJB Merge two version 0.35s.
; 25-Feb-98 0.38 AR Added checks to flush buffered output to avoid loops on blocked output (monitor TX) (from Spinner 0.36)
; 25-Feb-98 0.38 RWB,AR Fix bug introduced by previous fix for printing. (from Spinner 0.37)
;
GET
hdr:ListOpts
...
...
s/FSystem
View file @
000fafc5
...
...
@@ -25,8 +25,8 @@
; +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
flush
SETD
false
;debug for file flushing
close
SETD
false
;sets the close debug flag, somehow not visable from version
; +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
...
...
@@ -1146,20 +1146,25 @@ args_eof ENTRY "r0,r1,r3-r6, fr"
; quick exit from these operations.
;
args_flush
ENTRY
"r1-r3"
args_flush
ENTRY
"r1-r3
,fr
"
Debug
flush
,
"Entered Flush"
LDR
r0
,
[
r1
,
#
file_Flags
]
TST
r0
,
#
ff_FileForTX
; is the file an output object
EXITS
EQ
; no, so return now
MOV
fr
,
r1
10
BL
checkescape
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
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.
;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment