Modify behaviour of pointer on Wimp errors for NCs.

Version 4.02. Tagged as 'Wimp-4_02'

VersionASM

@@ -5,8 +5,8 @@
 			GBLA    Module_Version
 			GBLS	Module_MinorVersion
 			GBLS	Module_Date
-Module_MajorVersion	SETS    "4.01"
-Module_Version          SETA    401
+Module_MajorVersion	SETS    "4.02"
+Module_Version          SETA    402
 Module_MinorVersion	SETS	""
-Module_Date		SETS    "01 Oct 1998"
+Module_Date		SETS    "07 Oct 1998"
 		        END

VersionNum

-/* (4.01)
+/* (4.02)
  *
  * This file is automatically maintained by srccommit, do not edit manually.
  *
  */
-#define Module_MajorVersion_CMHG     	4.01
+#define Module_MajorVersion_CMHG     	4.02
 #define Module_MinorVersion_CMHG	
-#define Module_Date_CMHG      		01 Oct 1998
+#define Module_Date_CMHG      		07 Oct 1998
 
-#define Module_MajorVersion     	"4.01"
-#define Module_Version                  401
+#define Module_MajorVersion     	"4.02"
+#define Module_Version                  402
 #define Module_MinorVersion		""
-#define Module_Date      		"01 Oct 1998"
+#define Module_Date      		"07 Oct 1998"
 

s/Wimp07

@@ -2860,11 +2860,10 @@ donegetr
 	ADRL	R14, ptrshlflag
 	LDR	R1, [R14]		; Get current pointer state.
 	TST	R1, #&07		; If pointer was off then
-	Push	R1
         MOVEQ   R0, #2                  ; turn on IconHigh, use single-tasking mode
         SWIEQ   XIconHigh_Start
-        Pull	R1
-        MOV	R0, #106		; Put pointer back to its stored state
+        MOV	R0, #106		; Enable pointer
+        MOV     R1, #1
         SWI	XOS_Byte
       |
         MOV     R0, #2                  ; turn on IconHigh, use single-tasking mode