Commit ee3ce6c9 authored by Simon Proven's avatar Simon Proven
Browse files

Altered s.Identify; wasn't correctly returning a string describing the disc format for F+ discs.

Altered s.Commands; *map now correctly reports big directories and a big
free space map.
parent 3744db9f
No preview for this file type
;>Version Version file for FileCore
GBLS version
version SETS "3.14"
version SETS "3.15"
GBLA Version
Version SETA 314
Version SETA 315
GBLS date
date SETS "06 May 1998"
date SETS "08 May 1998"
GBLL test_version
......
......@@ -3448,6 +3448,9 @@ MC0 DCB "MC0",0
MC1 DCB "MC1",0
MC2 DCB "MC2",0
MC3 DCB "MC3",0
MC4 DCB "MC4",0
MC5 DCB "MC5",0
MC6 DCB "MC6",0
ALIGN
DoMap ROUT
......@@ -3472,6 +3475,28 @@ DoMap ROUT
BVS %FT95
]
BL DiscAddToRec ;(R3->LR)
[ BigDir
LDR r2, [LR, #DiscVersion]
TEQS r2, #0
MOVEQ r0, #0
MOVNE r0, #1 ; bit 0 is big dirs flag
LDRB r2, [LR, #LinkBits]
CMPS r2, #15
ORRHI r0, r0, #2
; r0 = 0 - not a new filecore disc
; r0 = 1 - big dirs, small map
; r0 = 2 - big map, small dirs, this case is only valid for IdLen=16
; r0 = 3 - bit map, big dirs
TEQS r0, #1
baddr r0, MC4, EQ ;( start, length) new map, big directories
BEQ %FT07
TEQS r0, #2
baddr r0, MC5, EQ ;( start, length) big map, new directories
BEQ %FT07
TEQS r0, #3
baddr r0, MC6, EQ ;( start, length) big map, big directories
BEQ %FT07
]
LDRB r2, [LR, #DiscFlags]
TSTS r2, #OldMapFlag
BNE %FT06
......
......@@ -104,8 +104,8 @@ Debug2D switch F ;DiscOp SWI call processing
Debug3 switch F ;disc accesses
Debug3L switch F ;low level discops into parent
Debug4 switch F ;disc and drive record operations
Debug5 switch T ;old free space map operations
Debug6 switch F ;pathname and directory operations
Debug5 switch F ;old free space map operations
Debug6 switch T ;pathname and directory operations
Debug6f switch F ; FindDiscByName
Debug7 switch F ;OsFile operations
Debug8 switch F ;File Level Disc Ops
......@@ -121,9 +121,9 @@ DebugBs switch F ;Open file new map allocated size
DebugBt switch F ;Random access file I/O terse
DebugC switch F ;Directory cache
DebugD switch F ;Scatter buffer
DebugE switch T ;new free space map
DebugE switch F ;new free space map
DebugEa switch F ;new free space map random extension
DebugEx switch T ; verbose new free space map
DebugEx switch F ; verbose new free space map
DebugEs switch F ; debugging of SortDir use in NewClaimFree
DebugF switch F ;new free space map auto compact
DebugFx switch F ;new free space map: check for this bug
......
......@@ -431,7 +431,16 @@ IdentifyFileCoreHardDisc ROUT
]
BL SanityCheckEFormat
LDRVC r2, [sp, #1*4]
[ BigDir
BVS %FT01
LDR lr, [r5, #DiscVersion]
TEQS lr, #0
baddr r1, FFormat_DescribeTag, EQ
baddr r1, FXFormat_DescribeTag, NE
01
|
baddr r1, FFormat_DescribeTag, VC
]
BLVC CopyFormatName
LDRVC r2, =FileType_FileCoreHardDisc
BVC %FT90
......
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