Commit 32bcace2 authored by Kevin Bracey's avatar Kevin Bracey
Browse files

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

Version 0.49. Tagged as 'DeviceFS-0_49'
parent be8ad67d
......@@ -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
/* (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"
......@@ -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
......
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