update to Ursula service format

4c973bba · Mike Stephens · 4280e4fd · 4c973bba · 4c973bba
Commit 4c973bba authored Apr 15, 1998 by Mike Stephens
Hide whitespace changes
Inline Side-by-side

Showing with 12 additions and 3 deletions

Version Version +2 -2

s/Percussion s/Percussion +10 -1

No files found.
--- a/Version
+++ b/Version
                SUBT    > <wini>arm.Percussion.Version

                GBLS    Version
-Version         SETS    "1.10"
+Version         SETS    "1.11"

                GBLS    CurrentDate
-CurrentDate     SETS    "23 Mar 1992"
+CurrentDate     SETS    "15 Apr 1998"

                END
--- a/s/Percussion
+++ b/s/Percussion
@@ -199,10 +199,19 @@ Finalise_Module ROUT
 ; OSS Update local voice names whenever new files are registered with
 ; ResourceFS.

+;Ursula format
+;
+UServTab
+        DCD     0
+        DCD     UService - Module_Base
+        DCD     Service_ResourceFSStarted
+        DCD     0
+        DCD     UServTab - Module_Base
 Intercept_Services
+        MOV     r0, r0
        TEQ     r1, #Service_ResourceFSStarted
        MOVNES  pc, r14
-
+UService
 change_names ENTRY "r0-r3, r11", 16     ; MessageTrans file block on
        MOV     r11, sp                 ; stack held in r11.
        BL      open_message_file_r11