Added purging of output buffer if checkfileTXOK returns an error to get round...

Added purging of output buffer if checkfileTXOK returns an error to get round the problems of paper out on lexmark printers.

Version 0.45. Tagged as 'DeviceFS-0_45'

VersionASM

@@ -5,8 +5,8 @@
 			GBLA    Module_Version
 			GBLS	Module_MinorVersion
 			GBLS	Module_Date
-Module_MajorVersion	SETS    "0.44"
-Module_Version          SETA    44
+Module_MajorVersion	SETS    "0.45"
+Module_Version          SETA    45
 Module_MinorVersion	SETS	""
-Module_Date		SETS    "19 Oct 1998"
+Module_Date		SETS    "14 Jan 1999"
 		        END

VersionNum

-/* (0.44)
+/* (0.45)
  *
  * This file is automatically maintained by srccommit, do not edit manually.
  *
  */
-#define Module_MajorVersion_CMHG     	0.44
+#define Module_MajorVersion_CMHG     	0.45
 #define Module_MinorVersion_CMHG	
-#define Module_Date_CMHG      		19 Oct 1998
+#define Module_Date_CMHG      		14 Jan 1999
 
-#define Module_MajorVersion     	"0.44"
-#define Module_Version                  44
+#define Module_MajorVersion     	"0.45"
+#define Module_Version                  45
 #define Module_MinorVersion		""
-#define Module_Date      		"19 Oct 1998"
+#define Module_Date      		"14 Jan 1999"
 

s/DeviceFS

@@ -324,6 +324,8 @@ debug_file	SETS		"<DevFSDebug>"
 
 		GBLL		debugfs
 debugfs		SETL		false
+		GBLL		debuggbpb
+debuggbpb	SETL		false
 
 ; +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 ;

s/FSystem

@@ -859,6 +859,7 @@ fs_put		ENTRY	"r0-r2, fr, r9"
 		BVS	%99
 
 		BL	checkfileTXOK
+		BLVS	purgeoutputbuffer			; if an error then purge output buffer
 		BVS	%99
 
  [ FastBufferMan
@@ -1790,6 +1791,7 @@ gbpb_put        ENTRY   "r0-r3, fr, r9"
 		BVS	%90
 
                 BL      checkfileTXOK
+		BLVS	purgeoutputbuffer			; if an error then purge output buffer
                 BVS     %90
 
  [ FastBufferMan