Fix stack imbalance when PCI floppy init fails

Version 3.55. Tagged as 'ADFS-3_55'

VersionASM

 ;
 ; This file is automatically maintained by srccommit, do not edit manually.
-; Last processed by srccommit version: 1.1.
 ;
                         GBLS    Module_MajorVersion
                         GBLA    Module_Version
@@ -10,14 +9,12 @@
                         GBLS    Module_ApplicationDate
                         GBLS    Module_HelpVersion
                         GBLS    Module_ComponentName
-                        GBLS    Module_ComponentPath
-Module_MajorVersion     SETS    "3.54"
-Module_Version          SETA    354
+Module_MajorVersion     SETS    "3.55"
+Module_Version          SETA    355
 Module_MinorVersion     SETS    ""
-Module_Date             SETS    "18 Nov 2017"
-Module_ApplicationDate  SETS    "18-Nov-17"
+Module_Date             SETS    "26 Feb 2020"
+Module_ApplicationDate  SETS    "26-Feb-20"
 Module_ComponentName    SETS    "ADFS"
-Module_ComponentPath    SETS    "castle/RiscOS/Sources/FileSys/ADFS/ADFS"
-Module_FullVersion      SETS    "3.54"
-Module_HelpVersion      SETS    "3.54 (18 Nov 2017)"
+Module_FullVersion      SETS    "3.55"
+Module_HelpVersion      SETS    "3.55 (26 Feb 2020)"
                         END

VersionNum

-/* (3.54)
+/* (3.55)
  *
  * This file is automatically maintained by srccommit, do not edit manually.
- * Last processed by srccommit version: 1.1.
  *
  */
-#define Module_MajorVersion_CMHG        3.54
+#define Module_MajorVersion_CMHG        3.55
 #define Module_MinorVersion_CMHG        
-#define Module_Date_CMHG                18 Nov 2017
+#define Module_Date_CMHG                26 Feb 2020
 
-#define Module_MajorVersion             "3.54"
-#define Module_Version                  354
+#define Module_MajorVersion             "3.55"
+#define Module_Version                  355
 #define Module_MinorVersion             ""
-#define Module_Date                     "18 Nov 2017"
+#define Module_Date                     "26 Feb 2020"
 
-#define Module_ApplicationDate          "18-Nov-17"
+#define Module_ApplicationDate          "26-Feb-20"
 
 #define Module_ComponentName            "ADFS"
-#define Module_ComponentPath            "castle/RiscOS/Sources/FileSys/ADFS/ADFS"
 
-#define Module_FullVersion              "3.54"
-#define Module_HelpVersion              "3.54 (18 Nov 2017)"
-#define Module_LibraryVersionInfo       "3:54"
+#define Module_FullVersion              "3.55"
+#define Module_HelpVersion              "3.55 (26 Feb 2020)"
+#define Module_LibraryVersionInfo       "3:55"

s/Adfs19

@@ -165,12 +165,12 @@ FlpInit ROUT
         MOV     R1, #&3F0
         MOV     R2, #8
         SWI     XPCI_LogicalAddress
+        MOVVC   R0, R4
+        STRVC   R4, FlpBase
+        Pull    "R4"
         MOVVS   R0, #MachHasNoFDC
         STRVS   R0, MachineID
         BVS     %BT02
-        MOV     R0, R4
-        STR     R4, FlpBase
-        Pull    "R4"
         MOV     LR, #-1
         STR     LR, FlpDMAHandle
         BL      Configure37C665