diff --git a/HelpStrs b/HelpStrs
index 04a2ade98b1f22770da2659d79a5f72155fb5f75..30587575e7d5944e6266dbdd5f4cb6da78296f5d 100644
--- a/HelpStrs
+++ b/HelpStrs
@@ -372,11 +372,7 @@ Save_Help
= " Length and addresses are in hexadecimal.",13
Save_Syntax
= "Syntax: *",TokenEscapeChar,Token0
- = " <filename> <start addr>"
- = " <end addr> [<exec addr> [<load addr>]]",13
- = 31, 31, 31, 31, " or *",TokenEscapeChar,Token0
- = " <filename> <start addr>"
- = " + <length> [<exec addr> [<load addr>]]", 0
+ = " <filename> <start addr> <+length|end addr> [<exec addr> [<load addr>]]",0
Shadow_Help
= "*",TokenEscapeChar,Token0
@@ -407,12 +403,11 @@ SpoolOn_Syntax
TV_Help
= "*",TokenEscapeChar,Token0
- = " [<vertical position> [[,] <interlace>]]"
- = " sets the position of the display on the screen.", 0
+ = " controls interlacing and sets the position of the display on the screen.", 0
TV_Syntax
= "*",TokenEscapeChar,Token0
- = " needs 0 to 2 parameters.", 0
+ = " [<vertical position> [[,] <interlace>]]", 0
Type_Help
= "*",TokenEscapeChar,Token0
diff --git a/Resources/UK/CmdHelp b/Resources/UK/CmdHelp
index dbd61b6e5ce445463e08756c9869e3f694014f66..e5b9d58642d06074d1b788d24167671ddf9eadde 100644
Binary files a/Resources/UK/CmdHelp and b/Resources/UK/CmdHelp differ
diff --git a/VersionASM b/VersionASM
index 7eb43ffcebcb6a0aa31a12432fa2f2a3ce2d5d47..ff4be55f7a2ccc6d6b15b6dc23aeb27d862a1724 100644
--- a/VersionASM
+++ b/VersionASM
@@ -13,11 +13,11 @@
GBLS Module_ComponentPath
Module_MajorVersion SETS "5.35"
Module_Version SETA 535
-Module_MinorVersion SETS "4.79.2.136"
-Module_Date SETS "18 Feb 2012"
-Module_ApplicationDate SETS "18-Feb-12"
+Module_MinorVersion SETS "4.79.2.137"
+Module_Date SETS "25 Feb 2012"
+Module_ApplicationDate SETS "25-Feb-12"
Module_ComponentName SETS "Kernel"
Module_ComponentPath SETS "castle/RiscOS/Sources/Kernel"
-Module_FullVersion SETS "5.35 (4.79.2.136)"
-Module_HelpVersion SETS "5.35 (18 Feb 2012) 4.79.2.136"
+Module_FullVersion SETS "5.35 (4.79.2.137)"
+Module_HelpVersion SETS "5.35 (25 Feb 2012) 4.79.2.137"
END
diff --git a/VersionNum b/VersionNum
index 37fc4eab6f724a6f84f978681ea2ddcf2dcd387e..677318210dc0bf82241fcaa2391a0bc726ced66d 100644
--- a/VersionNum
+++ b/VersionNum
@@ -5,19 +5,19 @@
*
*/
#define Module_MajorVersion_CMHG 5.35
-#define Module_MinorVersion_CMHG 4.79.2.136
-#define Module_Date_CMHG 18 Feb 2012
+#define Module_MinorVersion_CMHG 4.79.2.137
+#define Module_Date_CMHG 25 Feb 2012
#define Module_MajorVersion "5.35"
#define Module_Version 535
-#define Module_MinorVersion "4.79.2.136"
-#define Module_Date "18 Feb 2012"
+#define Module_MinorVersion "4.79.2.137"
+#define Module_Date "25 Feb 2012"
-#define Module_ApplicationDate "18-Feb-12"
+#define Module_ApplicationDate "25-Feb-12"
#define Module_ComponentName "Kernel"
#define Module_ComponentPath "castle/RiscOS/Sources/Kernel"
-#define Module_FullVersion "5.35 (4.79.2.136)"
-#define Module_HelpVersion "5.35 (18 Feb 2012) 4.79.2.136"
+#define Module_FullVersion "5.35 (4.79.2.137)"
+#define Module_HelpVersion "5.35 (25 Feb 2012) 4.79.2.137"
#define Module_LibraryVersionInfo "5:35"
diff --git a/s/Oscli b/s/Oscli
index 38d6d97d857636d9c2e5d66123710fa160947fba..8afaa5e3708f7c457d90aaa5e5f996eb5caadf06 100644
--- a/s/Oscli
+++ b/s/Oscli
@@ -148,14 +148,15 @@ OscliStackFull
ADR R0, ErrorBlock_StackFull
[ International
BL TranslateError
+ |
+ SETV ; In place of TranslateError
]
- [ No26bitCode
- SETV
+ [ No26bitCode
Pull "pc"
- |
+ |
Pull "lr"
ORRS PC, lr, #V_bit
- ]
+ ]
;******************************************************************************
; Main OSCLI code
@@ -1088,7 +1089,7 @@ next_parameter
SWI XMessageTrans_OpenFile
MOVVS r0, #0
33 MOV r1, r7
- MOV r7, r0
+ MOV r7, r0 ; Message file data block
MOV r2, #0
SWI XMessageTrans_Lookup
ADDVS r2, r0, #4
@@ -1099,7 +1100,7 @@ next_parameter
LDR r2, [sp, #16]
ADD r1, r5, #4
BL expandsyntaxmessage
- MOVS r0, r7
+ MOVS r0, r7 ; Close iff message file was used
SWINE XMessageTrans_CloseFile
ADD sp, sp, #16
Pull r2
@@ -1118,7 +1119,7 @@ unpleasantness_in_ModCommsLookUp
13
DCB "NumParm", 0
- ALIGN
+ ALIGN
expandsyntaxmessage
LDRB R3, [R0], #1
@@ -1132,13 +1133,13 @@ expandsyntaxmessage
esm_tok LDRB r3, [r0], #1
Push "r0, lr"
- CMP r3, #0
+ CMP r3, #Token0 ; Token0 => use R2
MOVEQ r0, r2
BEQ esm001
MOV r0, r4
esmlp SUBS r3, r3, #1
LDRNEB r14, [r0] ; ECN: Use R14 instead of R4 as using R4 corrupts
- ADDNE r0, r0, r14 ; the dictionary pointer thus disallowing recusive tokens
+ ADDNE r0, r0, r14 ; the dictionary pointer thus disallowing recursive tokens
BNE esmlp
ADD r0, r0, #1
esm001 BL expandsyntaxmessage
@@ -1408,11 +1409,7 @@ ChangeRedirection ROUT
; do input handle
CMP R0, #&100 ; if out of range then just read
- BCS %FT20
-
- STRB R0, [R12, #RedirectInHandle]
-
-20
+ STRCCB R0, [R12, #RedirectInHandle]
; do output handle