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
32bcace2
Commit
32bcace2
authored
May 17, 2000
by
Kevin Bracey
Browse files
Fixed some errors in 32-bit conversion. OS_GBPB write operations in particular will now work.
Version 0.49. Tagged as 'DeviceFS-0_49'
parent
be8ad67d
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
22 additions
and
27 deletions
+22
-27
VersionASM
VersionASM
+4
-4
VersionNum
VersionNum
+7
-7
s/FSystem
s/FSystem
+11
-16
No files found.
VersionASM
View file @
32bcace2
...
...
@@ -6,9 +6,9 @@
GBLS Module_MinorVersion
GBLS Module_Date
GBLS Module_FullVersion
Module_MajorVersion SETS "0.4
8
"
Module_Version SETA 4
8
Module_MajorVersion SETS "0.4
9
"
Module_Version SETA 4
9
Module_MinorVersion SETS ""
Module_Date SETS "
24
Ma
r
2000"
Module_FullVersion SETS "0.4
8
"
Module_Date SETS "
17
Ma
y
2000"
Module_FullVersion SETS "0.4
9
"
END
VersionNum
View file @
32bcace2
/* (0.4
8
)
/* (0.4
9
)
*
* This file is automatically maintained by srccommit, do not edit manually.
*
*/
#define Module_MajorVersion_CMHG 0.4
8
#define Module_MajorVersion_CMHG 0.4
9
#define Module_MinorVersion_CMHG
#define Module_Date_CMHG
24
Ma
r
2000
#define Module_Date_CMHG
17
Ma
y
2000
#define Module_MajorVersion "0.4
8
"
#define Module_Version 4
8
#define Module_MajorVersion "0.4
9
"
#define Module_Version 4
9
#define Module_MinorVersion ""
#define Module_Date "
24
Ma
r
2000"
#define Module_Date "
17
Ma
y
2000"
#define Module_FullVersion "0.4
8
"
#define Module_FullVersion "0.4
9
"
s/FSystem
View file @
32bcace2
...
...
@@ -345,9 +345,8 @@ open_input
MOV
r1
,
pr
MOV
r0
,
#
DeviceCall_Initialise
BL
CallDevice
; attempt to call the device
BVS
%90
STR
r2
,
[
fr
,
#
file_InternalHandle
]
BL
make_buffer
; make a usable buffer (if needed)
STRVC
r2
,
[
fr
,
#
file_InternalHandle
]
BLVC
make_buffer
; make a usable buffer (if needed)
BVS
%90
; if failed then return error
MOV
r1
,
fr
; setup the new handle as required
...
...
@@ -408,9 +407,8 @@ open_output
MOV
r1
,
pr
MOV
r0
,
#
DeviceCall_Initialise
BL
CallDevice
; call the device
BVS
%90
STR
r2
,
[
fr
,
#
file_InternalHandle
]
BL
make_buffer
; make a usable buffer (if needed)
STRVC
r2
,
[
fr
,
#
file_InternalHandle
]
BLVC
make_buffer
; make a usable buffer (if needed)
BVS
%90
; if that fails then attempt to create the buffer
MOV
r1
,
fr
; setup the new handle as required
...
...
@@ -1149,10 +1147,9 @@ args_flush ENTRY "r1-r3,fr"
BL
checkeof
; CS = exit loop until EOF or Escape pressed
DebugIf
CS
,
flush
,
"Exited Flush EOF"
EXIT
CS
; normal exit eof found
EXIT
VS
BL
checkescape
; VS = exit not always enabled
EXIT
VS
BL
checkfileTXOK
; VS = exit Monitor TX for errors call 12.
BLVC
checkescape
; VS = exit not always enabled
BLVC
checkfileTXOK
; VS = exit Monitor TX for errors call 12.
DebugE
flush
,
"Exited Flush forced exit"
EXIT
VS
; return the error (if one)
...
...
@@ -1782,15 +1779,13 @@ gbpb_put ENTRY "r0-r3, fr, r9"
Debug
fs
,
"fsgbpb_put"
,
r3
BL
checkescape
DebugIf
VS
,
fs
,
"detected escape---purging output buffer"
BVS
%90
BL
purgeoutputbuffer
BLVS
purgeoutputbuffer
BVS
%90
BL
checkfileTXOK
BVC
%01
BL
purgeoutputbuffer
; if an error then purge output buffer
B
%90
01
BLVS
purgeoutputbuffer
; if an error then purge output buffer
BVS
%90
[
FastBufferMan
MOV
r0
,
#
BufferReason_InsertBlock
CallBuffMan
; r2,r3 already set up
...
...
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