Updated the X utility to reset Sys$ReturnCode.

Detail:
  Failure to reset Sys$ReturnCode to zero means that amu does NOT ignore
    errors from failing commands correctly.
Admin:
  Tested.


Version 5.34. Tagged as 'Internet-5_34'

Sources/utils/s/X

@@ -12,42 +12,54 @@
 ; See the License for the specific language governing permissions and
 ; limitations under the License.
 ;
-	AREA	|ObjAsm$$Code|,CODE,READONLY
 
 XOS_CLI         * &20005
 XOS_ReadVarVal  * &20023
 XOS_SetVarVal   * &20024
 
-	ENTRY
-X
-	MOV	R0, R1
+        AREA    |X$$Code|, CODE, READONLY, PIC
+
+        MOV     R0,R1
         SWI     XOS_CLI
-	MOVVC	PC, R14
-	ADD	R11, R0, #4
-	ADR	R0, XError
-	MOV	R1, R12
-	MVN	R2, #0
-	MOV	R3, #0
-	MOV	R4, #0
+        MOVVC   PC,R14
+        ADD     R11,R0,#4
+        ADR     R0,rcsysvar
+        ADR     R1,zero
+        MOV     R2,#1
+        MOV     R3,#0
+        MOV     R4,#0
+        SWI     XOS_SetVarVal
+        ADR     R0,xsysvar
+        MOV     R1,R12
+        MVN     R2,#0
+        MOV     R3,#0
+        MOV     R4,#0
         SWI     XOS_ReadVarVal
-	TEQ	R2, #0
-	CMNNE	R2, #1
-	MOVNE	PC, R14
-	MOV	R0, R11
-	MOV	R1, R0
-XLoop
-	LDRB	R2, [R0], #1
-	TEQ	R2, #0
-	BNE	XLoop
-	SUB	R2, R0, R1
-	ADR	R0, XError
-	MOV	R3, #0
-	MOV	R4, #0
+        TEQ     R2,#0
+        CMNNE   R2,#1
+        MOVNE   PC,R14
+        MOV     R0,R11
+        MOV     R1,R0
+10
+        LDRB    R2,[R0],#1
+        TEQ     R2,#0
+        BNE     %BT10
+        SUB     R2,R0,R1
+        ADR     R0,xsysvar
+        MOV     R3,#0
+        MOV     R4,#0
         SWI     XOS_SetVarVal
-	MOV	PC, R14
-XError
-	= "X$Error", 0
+        MOV     PC,R14
+
+xsysvar
+        DCB     "X$Error", 0
+rcsysvar
+        DCB     "Sys$ReturnCode", 0
+zero
+        DCB     "0", 0
 XVersionInfo
-	= "X 1.02 (27 Apr 2000)"
+        DCB     "X 1.03 (03 Jul 2001)"
+        ALIGN
 
         END
+

VersionNum

-/* (5.33)
+/* (5.34)
  *
  * This file is automatically maintained by srccommit, do not edit manually.
  *
  */
-#define Module_MajorVersion_CMHG        5.33
+#define Module_MajorVersion_CMHG        5.34
 #define Module_MinorVersion_CMHG        
-#define Module_Date_CMHG                05 Mar 2001
+#define Module_Date_CMHG                03 Jul 2001
 
-#define Module_MajorVersion             "5.33"
-#define Module_Version                  533
+#define Module_MajorVersion             "5.34"
+#define Module_Version                  534
 #define Module_MinorVersion             ""
-#define Module_Date                     "05 Mar 2001"
+#define Module_Date                     "03 Jul 2001"
 
-#define Module_ApplicationDate2         "05-Mar-01"
-#define Module_ApplicationDate4         "05-Mar-2001"
+#define Module_ApplicationDate2         "03-Jul-01"
+#define Module_ApplicationDate4         "03-Jul-2001"
 
 #define Module_ComponentName            "Internet"
 #define Module_ComponentPath            "RiscOS/Sources/SystemRes/Internet"
 
-#define Module_FullVersion              "5.33"
-#define Module_HelpVersion              "5.33 (05 Mar 2001)"
+#define Module_FullVersion              "5.34"
+#define Module_HelpVersion              "5.34 (03 Jul 2001)"