Skip to content

GitLab

Commit 5c7ad79c authored by Steve Revill's avatar Steve Revill ⚽
Browse files

Addition of Hon and Hoff commands. 

Currently the help text is not internationalised :-(

Version 2.15. Tagged as 'Hourglass-2_15'
parent da39d172
Hide whitespace changes
Inline Side-by-side
Showing with 56 additions and 28 deletions
VersionASM
View file @ 5c7ad79c
......@@ -11,13 +11,13 @@
GBLS Module_HelpVersion
GBLS Module_ComponentName
GBLS Module_ComponentPath
Module_MajorVersion SETS "2.14"
Module_Version SETA 214
Module_MajorVersion SETS "2.15"
Module_Version SETA 215
Module_MinorVersion SETS ""
Module_Date SETS "01 Nov 2002"
Module_ApplicationDate SETS "01-Nov-02"
Module_Date SETS "28 Nov 2002"
Module_ApplicationDate SETS "28-Nov-02"
Module_ComponentName SETS "Hourglass"
Module_ComponentPath SETS "RiscOS/Sources/Video/Render/Hourglass"
Module_FullVersion SETS "2.14"
Module_HelpVersion SETS "2.14 (01 Nov 2002)"
Module_FullVersion SETS "2.15"
Module_HelpVersion SETS "2.15 (28 Nov 2002)"
END
VersionNum
View file @ 5c7ad79c
/* (2.14)
/* (2.15)
*
* This file is automatically maintained by srccommit, do not edit manually.
* Last processed by srccommit version: 1.68.
*
*/
#define Module_MajorVersion_CMHG 2.14
#define Module_MajorVersion_CMHG 2.15
#define Module_MinorVersion_CMHG
#define Module_Date_CMHG 01 Nov 2002
#define Module_Date_CMHG 28 Nov 2002
#define Module_MajorVersion "2.14"
#define Module_Version 214
#define Module_MajorVersion "2.15"
#define Module_Version 215
#define Module_MinorVersion ""
#define Module_Date "01 Nov 2002"
#define Module_Date "28 Nov 2002"
#define Module_ApplicationDate "01-Nov-02"
#define Module_ApplicationDate "28-Nov-02"
#define Module_ComponentName "Hourglass"
#define Module_ComponentPath "RiscOS/Sources/Video/Render/Hourglass"
#define Module_FullVersion "2.14"
#define Module_HelpVersion "2.14 (01 Nov 2002)"
#define Module_LibraryVersionInfo "2:14"
#define Module_FullVersion "2.15"
#define Module_HelpVersion "2.15 (28 Nov 2002)"
#define Module_LibraryVersionInfo "2:15"
s/Module
View file @ 5c7ad79c
......@@ -26,6 +26,7 @@
GET Hdr:FSNumbers
GET Hdr:NewErrors
GET Hdr:Proc
GET Hdr:Wimp
GET VersionASM
......@@ -141,20 +142,20 @@ UpdateSemaphore # 1 ; 0 => not in update cod
RAMSpaceRequired * :INDEX: @
ModuleStart
Module_BaseAddr
DCD 0 ; StartCode
DCD InitialisationCode-ModuleStart
DCD FinalisationCode-ModuleStart
DCD ServiceCall-ModuleStart
DCD TitleString-ModuleStart
DCD HelpString-ModuleStart
DCD 0 ; HelpAndCommandKeywordTable
DCD InitialisationCode-Module_BaseAddr
DCD FinalisationCode-Module_BaseAddr
DCD ServiceCall-Module_BaseAddr
DCD TitleString-Module_BaseAddr
DCD HelpString-Module_BaseAddr
DCD HelpAndCommandKeywordTable-Module_BaseAddr
DCD MySWIChunkBase
DCD SWIHandlerCode-ModuleStart
DCD SWIDecodingTable-ModuleStart
DCD SWIHandlerCode-Module_BaseAddr
DCD SWIDecodingTable-Module_BaseAddr
DCD 0 ; SWIDecodingCode
DCD 0 ; MessagesFile
DCD FlagsTable-ModuleStart
DCD FlagsTable-Module_BaseAddr
[ OldOs
......@@ -178,6 +179,33 @@ HelpString
DCB "Hourglass", 9, "$Module_HelpVersion", 0
ALIGN
HelpAndCommandKeywordTable
Command "HOn", 0, 0
Command "HOff", 0, 0
DCB 0
HOn_Help
DCB "*HOn switches the hourglass on", 13
HOn_Syntax
DCB "Syntax: *HOn", 0
HOff_Help
DCB "*HOff switches the hourglass off", 13
HOff_Syntax
DCB "Syntax: *HOff", 0
ALIGN
HOn_Code
MOV R6, LR
MOV R0, #1
MOV R1, #-1
SWI XWimp_SetPointerShape
SWIVC XHourglass_On
MOV PC, R6
HOff_Code
MOV R6, LR
SWI XHourglass_Smash
MOV PC, R6
FlagsTable
[ :LNOT: No32bitCode
DCD ModuleFlag_32bit
......@@ -252,12 +280,12 @@ FinalisationCode ROUT
ASSERT Service_Error < Service_Reset
ServiceCallTable
DCD 0
DCD ServiceCallEntry - ModuleStart
DCD ServiceCallEntry - Module_BaseAddr
DCD Service_Error
DCD Service_Reset
DCD 0
DCD ServiceCallTable - ModuleStart
DCD ServiceCallTable - Module_BaseAddr
ServiceCall ROUT
MOV r0, r0
TEQ r1, #Service_Reset
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment