Internationalised

For completeness mainly, though it was not true that the error number 0 english message has hidden - RMREINIT of the module would have revealed the text too.
Note, as this module also appears in !System for 3.70 the message includes both token and default text (as HWDep isn't in the global messages in 3.70).

Version 0.10. Tagged as 'UnSqzAIF-0_10'

VersionASM

@@ -11,13 +11,13 @@
                         GBLS    Module_HelpVersion
                         GBLS    Module_ComponentName
                         GBLS    Module_ComponentPath
-Module_MajorVersion     SETS    "0.09"
-Module_Version          SETA    9
+Module_MajorVersion     SETS    "0.10"
+Module_Version          SETA    10
 Module_MinorVersion     SETS    ""
-Module_Date             SETS    "28 Apr 2012"
-Module_ApplicationDate  SETS    "28-Apr-12"
+Module_Date             SETS    "18 Nov 2013"
+Module_ApplicationDate  SETS    "18-Nov-13"
 Module_ComponentName    SETS    "UnSqzAIF"
 Module_ComponentPath    SETS    "castle/RiscOS/Sources/HWSupport/UnSqzAIF"
-Module_FullVersion      SETS    "0.09"
-Module_HelpVersion      SETS    "0.09 (28 Apr 2012)"
+Module_FullVersion      SETS    "0.10"
+Module_HelpVersion      SETS    "0.10 (18 Nov 2013)"
                         END

VersionNum

-/* (0.09)
+/* (0.10)
  *
  * This file is automatically maintained by srccommit, do not edit manually.
  * Last processed by srccommit version: 1.1.
  *
  */
-#define Module_MajorVersion_CMHG        0.09
+#define Module_MajorVersion_CMHG        0.10
 #define Module_MinorVersion_CMHG        
-#define Module_Date_CMHG                28 Apr 2012
+#define Module_Date_CMHG                18 Nov 2013
 
-#define Module_MajorVersion             "0.09"
-#define Module_Version                  9
+#define Module_MajorVersion             "0.10"
+#define Module_Version                  10
 #define Module_MinorVersion             ""
-#define Module_Date                     "28 Apr 2012"
+#define Module_Date                     "18 Nov 2013"
 
-#define Module_ApplicationDate          "28-Apr-12"
+#define Module_ApplicationDate          "18-Nov-13"
 
 #define Module_ComponentName            "UnSqzAIF"
 #define Module_ComponentPath            "castle/RiscOS/Sources/HWSupport/UnSqzAIF"
 
-#define Module_FullVersion              "0.09"
-#define Module_HelpVersion              "0.09 (28 Apr 2012)"
-#define Module_LibraryVersionInfo       "0:9"
+#define Module_FullVersion              "0.10"
+#define Module_HelpVersion              "0.10 (18 Nov 2013)"
+#define Module_LibraryVersionInfo       "0:10"

s/ModHead

@@ -24,6 +24,8 @@
         GET     Hdr:Services
         GET     Hdr:ModHand
         GET     Hdr:MsgTrans
+        GET     Hdr:FSNumbers
+        GET     Hdr:NewErrors
         GET     Hdr:NdrDebug
         GET     Hdr:Proc
 
@@ -31,9 +33,9 @@
 
         GBLL    hostvdu
         GBLL    debugwt
-debug    SETL   false
-debugwt  SETL   false
-hostvdu  SETL   false
+debug    SETL   {FALSE}
+debugwt  SETL   {FALSE}
+hostvdu  SETL   {FALSE}
 
 ; ----------------------------------------------------------------------------------------------------------------------
 
@@ -67,7 +69,7 @@ Helpstr DCB     "UnSqueezeAIF",9,"$Module_MajorVersion ($Module_Date)"
 
   [ :LNOT: No32bitCode
 ModuleFlags
-        DCD     1       ; Module is 32-bit safe
+        DCD     ModuleFlag_32bit
   ]
 
 ; ---------------------------------------------------------------------------------------------------
@@ -99,7 +101,7 @@ ForROM      SETL {TRUE}
 
 
 Initialise
-        Push    "R0,R1,LR"
+        Push    "LR"
         MOV     R0,#0
         SWI     XOS_PlatformFeatures
         MOVVS   R0,#0
@@ -107,21 +109,18 @@ Initialise
   [ ForROM
         ORRNE   R0,R0,#&100               ;bit 8 set to show we have initialised
         STRNE   R0,[R12]                  ;store flags word as workspace word
-        ADREQ   R0,notneedederror
-        STREQ   R0,[SP]
-        SETV EQ
+        ADREQ   R0,ErrorBlock_HardwareDepends
+        MOVEQ   R1,#0
+        MOVEQ   R2,#0                     ;lookup in global messages to internal buffer
+        SWIEQ   XMessageTrans_ErrorLookup ;returns V set
   |
         ORR     R0,R0,#&100               ;bit 8 set to show we have initialised
         STR     R0,[R12]                  ;store flags word as workspace word
   ]
-        Pull    "R0,R1,PC"
+        Pull    "PC"
 
   [ ForROM
-;sod internationalisation - this message is hidden if in ROM
-notneedederror
-        DCD     0
-        DCB     "UnSqueezeAIF not needed on this platform",0
-        ALIGN
+        MakeErrorBlock HardwareDepends
   ]
 
 ServiceTable