Fixed some errors in 32-bit conversion. OS_GBPB write operations in particular will now work.

Version 0.49. Tagged as 'DeviceFS-0_49'

VersionASM

@@ -6,9 +6,9 @@
                         GBLS    Module_MinorVersion
                         GBLS    Module_Date
                         GBLS    Module_FullVersion
-Module_MajorVersion     SETS    "0.48"
-Module_Version          SETA    48
+Module_MajorVersion     SETS    "0.49"
+Module_Version          SETA    49
 Module_MinorVersion     SETS    ""
-Module_Date             SETS    "24 Mar 2000"
-Module_FullVersion      SETS    "0.48"
+Module_Date             SETS    "17 May 2000"
+Module_FullVersion      SETS    "0.49"
                         END

VersionNum

-/* (0.48)
+/* (0.49)
  *
  * This file is automatically maintained by srccommit, do not edit manually.
  *
  */
-#define Module_MajorVersion_CMHG        0.48
+#define Module_MajorVersion_CMHG        0.49
 #define Module_MinorVersion_CMHG        
-#define Module_Date_CMHG                24 Mar 2000
+#define Module_Date_CMHG                17 May 2000
 
-#define Module_MajorVersion             "0.48"
-#define Module_Version                  48
+#define Module_MajorVersion             "0.49"
+#define Module_Version                  49
 #define Module_MinorVersion             ""
-#define Module_Date                     "24 Mar 2000"
+#define Module_Date                     "17 May 2000"
 
-#define Module_FullVersion              "0.48"
+#define Module_FullVersion              "0.49"

s/FSystem

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