Fixed old-style shift macro use to new "my" shift macro.

Version 1.62. Tagged as 'Podule-1_62'

VersionASM

@@ -11,13 +11,13 @@
                         GBLS    Module_HelpVersion
                         GBLS    Module_ComponentName
                         GBLS    Module_ComponentPath
-Module_MajorVersion     SETS    "1.61"
-Module_Version          SETA    161
+Module_MajorVersion     SETS    "1.62"
+Module_Version          SETA    162
 Module_MinorVersion     SETS    ""
-Module_Date             SETS    "19 Jan 2010"
-Module_ApplicationDate  SETS    "19-Jan-10"
+Module_Date             SETS    "18 Mar 2011"
+Module_ApplicationDate  SETS    "18-Mar-11"
 Module_ComponentName    SETS    "Podule"
 Module_ComponentPath    SETS    "castle/RiscOS/Sources/HWSupport/Podule"
-Module_FullVersion      SETS    "1.61"
-Module_HelpVersion      SETS    "1.61 (19 Jan 2010)"
+Module_FullVersion      SETS    "1.62"
+Module_HelpVersion      SETS    "1.62 (18 Mar 2011)"
                         END

VersionNum

-/* (1.61)
+/* (1.62)
  *
  * This file is automatically maintained by srccommit, do not edit manually.
  * Last processed by srccommit version: 1.1.
  *
  */
-#define Module_MajorVersion_CMHG        1.61
+#define Module_MajorVersion_CMHG        1.62
 #define Module_MinorVersion_CMHG        
-#define Module_Date_CMHG                19 Jan 2010
+#define Module_Date_CMHG                18 Mar 2011
 
-#define Module_MajorVersion             "1.61"
-#define Module_Version                  161
+#define Module_MajorVersion             "1.62"
+#define Module_Version                  162
 #define Module_MinorVersion             ""
-#define Module_Date                     "19 Jan 2010"
+#define Module_Date                     "18 Mar 2011"
 
-#define Module_ApplicationDate          "19-Jan-10"
+#define Module_ApplicationDate          "18-Mar-11"
 
 #define Module_ComponentName            "Podule"
 #define Module_ComponentPath            "castle/RiscOS/Sources/HWSupport/Podule"
 
-#define Module_FullVersion              "1.61"
-#define Module_HelpVersion              "1.61 (19 Jan 2010)"
-#define Module_LibraryVersionInfo       "1:61"
+#define Module_FullVersion              "1.62"
+#define Module_HelpVersion              "1.62 (18 Mar 2011)"
+#define Module_LibraryVersionInfo       "1:62"

s/Interface

@@ -1303,7 +1303,7 @@ MightBeEASI
         LDRB    r0, [ r1, #0 ]                          ; Get the current speed value
         MOV     r3, r0, ASR r2                          ; Move bit to bottom
         AND     r3, r3, #1                              ; Mask off unwanted bits
-        ASL     r3, 1                                   ; Map 0,1 to 0,2
+        myASL   r3, 1                                   ; Map 0,1 to 0,2
         ADD     r3, r3, #1                              ; Map 0,2 to 1,3
         STR     r3, [ sp, #0 ]                          ; Poke into exit frame
         MOV     r3, #1