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.

Version

 ;>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
 

s/Commands

@@ -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

s/DebugOpts

@@ -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

s/Identify

@@ -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