Added Ursula service call table.

Sources/SprExtend

@@ -466,11 +466,48 @@ $label  LDM$cc.FD R13,{$reglist}$hat
         MEND
 
 
-;;----------------------------------------------------------------------------
-;; Initialisation
-;;----------------------------------------------------------------------------
+
+
+; ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+; Initialisation
+; ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+
+; ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+; Table of service calls we want
+
+        ASSERT  Service_ModeChange > Service_Reset
+        ASSERT  Service_ResourceFSStarted > Service_ModeChange
+
+ServiceTable
+
+        DCD     0
+        DCD     ServiceUrsula - Module_BaseAddr
+        DCD     Service_Reset
+        [ multibuffer
+        DCD     Service_ModeChange
+        ]
+        DCD     Service_ResourceFSStarted
+        DCD     0
+        DCD     ServiceTable - Module_BaseAddr
+
+
+; ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+; Service call handler
 
 Service
+        MOV     r0, r0                  ; Indicates there is a service call table
+        
+        ; Fast rejection
+        TEQ     r1, #Service_ResourceFSStarted
+        [ multibuffer
+        TEQNE   r1, #Service_ModeChange
+        ]
+        TEQNE   r1, #Service_Reset
+        MOVNES  pc, lr
+
+ServiceUrsula
+
         [ multibuffer
         TEQ     r1, #Service_ModeChange
         BEQ     modechange