update to Ursula service format

af7b8c04 · Mike Stephens · 0620c8cd · af7b8c04 · af7b8c04
Commit af7b8c04 authored Apr 15, 1998 by Mike Stephens
Hide whitespace changes
Inline Side-by-side

Showing with 16 additions and 3 deletions

Version Version +3 -3

s/ResourceFS s/ResourceFS +13 -0

No files found.
--- a/Version
+++ b/Version
@@ -4,8 +4,8 @@
        GBLS    VString
        GBLS    Date

-Version SETA    016
-VString SETS    "0.16"
-Date    SETS    "16 Aug 1995"
+Version SETA    017
+VString SETS    "0.17"
+Date    SETS    "15 Apr 1998"

        END
--- a/s/ResourceFS
+++ b/s/ResourceFS
@@ -817,7 +817,20 @@ ResourceFS_Code ENTRY
 ;       R3-R5 = ???
 ;

+;Ursula format
+;
+        ASSERT  Service_FSRedeclare < Service_TerritoryStarted
+;
+ROMFS_UServTab
+        DCD     0
+        DCD     ROMFS_UService - Module_BaseAddr
+        DCD     Service_FSRedeclare
+        DCD     Service_TerritoryStarted
+        DCD     0
+        DCD     ROMFS_UServTab - Module_BaseAddr
 ROMFS_Service ROUT
+        MOV     r0, r0
+ROMFS_UService
        TEQ     R1, #Service_TerritoryStarted
        BEQ     SVC_ReadUpperCaseTable
        TEQ     R1, #Service_FSRedeclare        ; has someone reinited Stu ?