Fixes for pre AMBControl versions

Wimp03.s: check that pollword was in application space was corrupting R3 leading to an address exception (!) on pre Medusa targets
Wimp08.s: compare had erroneously been change to equality check, leading to screwy memory allocation and much instability on 3.50 and 3.60 especially when applications quit

Version 5.23. Not tagged

VersionASM

@@ -14,10 +14,10 @@
 Module_MajorVersion     SETS    "5.23"
 Module_Version          SETA    523
 Module_MinorVersion     SETS    ""
-Module_Date             SETS    "27 Apr 2013"
-Module_ApplicationDate  SETS    "27-Apr-13"
+Module_Date             SETS    "03 May 2013"
+Module_ApplicationDate  SETS    "03-May-13"
 Module_ComponentName    SETS    "Wimp"
 Module_ComponentPath    SETS    "castle/RiscOS/Sources/Desktop/Wimp"
 Module_FullVersion      SETS    "5.23"
-Module_HelpVersion      SETS    "5.23 (27 Apr 2013)"
+Module_HelpVersion      SETS    "5.23 (03 May 2013)"
                         END

VersionNum

@@ -6,18 +6,18 @@
  */
 #define Module_MajorVersion_CMHG        5.23
 #define Module_MinorVersion_CMHG        
-#define Module_Date_CMHG                27 Apr 2013
+#define Module_Date_CMHG                03 May 2013
 
 #define Module_MajorVersion             "5.23"
 #define Module_Version                  523
 #define Module_MinorVersion             ""
-#define Module_Date                     "27 Apr 2013"
+#define Module_Date                     "03 May 2013"
 
-#define Module_ApplicationDate          "27-Apr-13"
+#define Module_ApplicationDate          "03-May-13"
 
 #define Module_ComponentName            "Wimp"
 #define Module_ComponentPath            "castle/RiscOS/Sources/Desktop/Wimp"
 
 #define Module_FullVersion              "5.23"
-#define Module_HelpVersion              "5.23 (27 Apr 2013)"
+#define Module_HelpVersion              "5.23 (03 May 2013)"
 #define Module_LibraryVersionInfo       "5:23"

s/Wimp03

@@ -375,7 +375,7 @@ SWIWimp_Poll
         LDRHS   R14,orig_applicationspacesize
         CMPHS   R14,R3
         |
-        RSBHSS  R3,R3,#&1000000		; APPSPACE
+        RSBHSS  R14,R3,#&1000000        ; APPSPACE
         ]
         BHS     err_badR3
 

s/Wimp08

@@ -288,7 +288,7 @@ shrinkapp
 ;
         LDR     R14,[R5,#task_slotptr]
         CMP     R2,R14
-        BEQ     %FT01
+        BHS     %FT01
 ;
         MOV     R2,R14                  ; if null block, delete it!
         MOV     R0,#ModHandReason_Free