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
Desktop
Free
Commits
749b896c
Commit
749b896c
authored
Nov 05, 1996
by
Neil Turton
Browse files
Import from cleaned 370 CD
parent
ad049d99
Changes
5
Hide whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
146 additions
and
4 deletions
+146
-4
Version
Version
+3
-3
s/Free
s/Free
+1
-0
s/ModHead
s/ModHead
+3
-0
s/NFS
s/NFS
+1
-1
s/PCCardFS
s/PCCardFS
+138
-0
No files found.
Version
View file @
749b896c
...
...
@@ -5,8 +5,8 @@
GBLS VString
GBLS Date
Version SETA 03
0
; 00
1
VString SETS "0.3
0
" ; "0.0
1
"
Date SETS "
2
6 J
a
n 1995" ; "
09 Sep
199
0
"
Version SETA 03
1
; 0
3
0
VString SETS "0.3
1
" ; "0.
3
0"
Date SETS "
0
6 J
u
n 1995" ; "
26 Jan
199
5
"
END
s/Free
View file @
749b896c
...
...
@@ -77,6 +77,7 @@ Module_BaseAddr
GET
Hdr:RamFS
GET
Hdr:SCSIFS
GET
Hdr:Econet
GET
Hdr:PCCardFS ;PCMCIA Support
GET
Hdr:UpCall
GET
Hdr:HostFS
GET
Hdr:NdrDebug
...
...
s/ModHead
View file @
749b896c
...
...
@@ -260,6 +260,9 @@ Init Entry
ADRL
r0
,
NFS_entry
; NFS
MOV
r1
,#
33
BL
AddEntry
ADRL
r0
,
PCCardFS_entry
; PCCardFS Support
MOV
r1
,#
89
BL
AddEntry
; initialise Free$Path if not already done
...
...
s/NFS
View file @
749b896c
...
...
@@ -112,4 +112,4 @@ NFS_ComparePath
Pull
"r0-r9,PC"
LNK
s.
SWIs
LNK
s.
PCCardFS
s/PCCardFS
0 → 100644
View file @
749b896c
; Copyright 1996 Acorn Computers Ltd
;
; Licensed under the Apache License, Version 2.0 (the "License");
; you may not use this file except in compliance with the License.
; You may obtain a copy of the License at
;
; http://www.apache.org/licenses/LICENSE-2.0
;
; Unless required by applicable law or agreed to in writing, software
; distributed under the License is distributed on an "AS IS" BASIS,
; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
; See the License for the specific language governing permissions and
; limitations under the License.
;
;-------------------------------------------------------------------------
;
; PCCardFS_entry
;
; Entry point for PCMCIA cards.
PCCardFS_entry
TEQ
r0
,#
FreeReason_GetName
BEQ
PCCardFS_GetName
TEQ
r0
,#
FreeReason_GetSpace
BEQ
PCCardFS_GetSpace
TEQ
r0
,#
FreeReason_ComparePath
BEQ
PCCardFS_ComparePath
Pull
"PC"
;-----------------------------------------------------------------------
; PCCardFS_GetName
;
; Put the name of the drive specified in r3 into the buffer at r2
;
PCCardFS_GetName
Push
"r1-r3"
Debug
xx
,
"Get name"
MOV
r0
,
r3
ADR
r1
,
disc_desc
SWI
XPCCardFS_DescribeDisc
Pull
"r1-r3,PC"
,
VS
Debug
xx
,
"Get name- SWI OK"
ADD
r4
,
r1
,#
22
[
Version
>=
4
; Cope with unnamed discs
LDRB
r14
,[
r4
]
CMP
r14
,#
" "
MOVLE
r14
,#
":"
STRLEB
r14
,[
r2
],#
1
MOVLE
r4
,
r3
]
MOV
r0
,
r2
[
Version
>=
4
MOV
r3
,#
10
; Max length
BL
copy_r0r4r3_space
; Copy name to buffer
|
BL
copy_r0r4_null
; Copy name to buffer
]
MOV
r0
,#
11
; Name is 10 chars + terminator.
Debug
xx
,
"r0 set "
,
r0
Pull
"r1-r3,PC"
;-----------------------------------------------------------------------
; PCCardFS_GetSpace
;
; Put the free space on the drive specified in r3 into the buffer at r2
;
PCCardFS_GetSpace
Push
"r1-r3"
Debug
xx
,
"Get space"
MOV
r0
,
r3
ADR
r1
,
disc_desc
SWI
XPCCardFS_DescribeDisc
Pull
"r1-r3,PC"
,
VS
LDR
r0
,[
r1
,#
16
]
; Store disc size in buffer.
STR
r0
,[
r2
]
MOV
r0
,
r3
SWI
XPCCardFS_FreeSpace
Pull
"r1-r3,PC"
,
VS
STR
r0
,[
r2
,#
4
]
; Free space
LDR
r1
,[
r2
]
SUB
r1
,
r1
,
r0
STR
r1
,[
r2
,#
8
]
; used space
Pull
"r1-r3,PC"
;-------------------------------------------------------------------------
; PCCardFS_ComparePath
;
;
PCCardFS_ComparePath
Push
"r0-r9"
Debug
xx
,
"PCCardFS compare path"
ADR
r1
,
dataarea
01
LDRB
r0
,[
r2
],#
1
CMP
r0
,#
"."
Debug
xx
,
"Copy "
,
r0
MOVEQ
r0
,#
0
STRB
r0
,[
r1
],#
1
CMP
r0
,#
0
BNE
%BT01
; Copy to first "."
ADR
r3
,
dataarea
MOV
r2
,
r3
Push
"PC"
B
PCCardFS_GetName
MOV
r0
,
r0
Debug
xx
,
"Got name "
,
r0
ADR
r2
,
dataarea
LDR
r3
,[
sp
,#
3
*
4
]
CMPSTR
r2
,
r3
Pull
"r0-r9,PC"
LNK
s.SWIs
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