Ursula service call table added

d21dfda9 · Kevin Bracey · 55ad3204 · d21dfda9
Commit d21dfda9 authored Apr 16, 1998 by Kevin Bracey
Hide whitespace changes
Inline Side-by-side

Showing with 17 additions and 0 deletions

s/Module s/Module +17 -0

No files found.
--- a/s/Module
+++ b/s/Module
@@ -223,7 +223,23 @@ ExitInitialisation
        STRVS   r0, [ sp ]
        Pull    "r0-r4, pc"

+ServiceTable
+        DCD     0
+        DCD     ServiceMain - Origin
+
+        DCD     Service_UKCommand               ; Don't forget - ascending order required
+        DCD     Service_Reset
+        DCD     Service_FSRedeclare
+        DCD     Service_EconetDying
+        [       :LNOT: OldOs
+        DCD     Service_TerritoryStarted
+        DCD     Service_Portable
+        ]
+        DCD     0
+
+        DCD     ServiceTable - Origin
 Service ROUT
+        MOV     r0, r0
        TEQ     r1, #Service_FSRedeclare
        TEQNE   r1, #Service_UKCommand
        TEQNE   r1, #Service_EconetDying
@@ -233,6 +249,7 @@ Service ROUT
        TEQNE   r1, #Service_TerritoryStarted
        ]
        MOVNE   pc, lr
+ServiceMain
        TEQ     r1, #Service_FSRedeclare
        BEQ     RedeclareFilingSystem
        LDR     wp, [ r12 ]