diff --git a/VersionASM b/VersionASM index dac7aaf74aa7ab74661c5406f712e09f7b12c0f8..d904cc73bea28c5f1f9c0e89fc7ac7aaaf4fe134 100644 --- a/VersionASM +++ b/VersionASM @@ -6,9 +6,9 @@ GBLS Module_MinorVersion GBLS Module_Date GBLS Module_FullVersion -Module_MajorVersion SETS "5.04" -Module_Version SETA 504 +Module_MajorVersion SETS "5.05" +Module_Version SETA 505 Module_MinorVersion SETS "" -Module_Date SETS "10 Apr 2000" -Module_FullVersion SETS "5.04" +Module_Date SETS "28 Apr 2000" +Module_FullVersion SETS "5.05" END diff --git a/VersionNum b/VersionNum index 91bcdaf2e8b3baacf48e317435d3a1355024867c..e9833ee510f3d2e0899d60c2e008c768f4465ffc 100644 --- a/VersionNum +++ b/VersionNum @@ -1,15 +1,15 @@ -/* (5.04) +/* (5.05) * * This file is automatically maintained by srccommit, do not edit manually. * */ -#define Module_MajorVersion_CMHG 5.04 +#define Module_MajorVersion_CMHG 5.05 #define Module_MinorVersion_CMHG -#define Module_Date_CMHG 10 Apr 2000 +#define Module_Date_CMHG 28 Apr 2000 -#define Module_MajorVersion "5.04" -#define Module_Version 504 +#define Module_MajorVersion "5.05" +#define Module_Version 505 #define Module_MinorVersion "" -#define Module_Date "10 Apr 2000" +#define Module_Date "28 Apr 2000" -#define Module_FullVersion "5.04" +#define Module_FullVersion "5.05" diff --git a/s/modulewrap b/s/modulewrap index a2a69088e6b66eebe842830a43ca538535f4ebb7..26863ccd8d3aa79649f1f1b8ac3d29a93a80a96e 100644 --- a/s/modulewrap +++ b/s/modulewrap @@ -19,6 +19,8 @@ ; Changes: PJC: 15-Aug-91: Fixed Application_Code so that if an error occurs when ; Filer_Action executes the wimpslot command, R0 isn't corrupted ; Also added "GET Hdr:Variables" +; ADH: 28-Apr-2000: UsePathForHelpMessages switch added - makes RAM modules work; +; exports private word pointer as 'module_private_word_ptr'. GET s.AppName ; defines the name of this module @@ -116,7 +118,11 @@ Application_Help ] | [ International_Help <> 0 + [ :DEF: UsePathForHelpMessages +Message_FileName DCB ApplicationName,":Messages",0 + | Message_FileName DCB "Resources:Resources.",ApplicationName,".Messages",0 + ] Application_Syntax DCB ApplicationName,"Syntax",0 Application_Help DCB ApplicationName,"Help",0 | @@ -453,6 +459,12 @@ ModuleWrap_Start ROUT MOV r12, r1 + ; put a copy of the private word into the data for the + ; app to get hold of if necessary + LDR lr, module_private_word_ptr_adcon + LDR r0, [sl, #-536] + STR r12, [lr, r0] + ; call the application BL |_clib_entermodule| @@ -757,4 +769,10 @@ $GetRoundObjAsm DCD 0 ; provide terminator automatically ] + AREA ModuleWrapData,DATA + + EXPORT module_private_word_ptr +module_private_word_ptr + DCD 0 + END