update to Ursula format for service call handler

f2347158 · Mike Stephens · aded59f3 · f2347158
Commit f2347158 authored Apr 14, 1998 by Mike Stephens
Hide whitespace changes
Inline Side-by-side

Showing with 9 additions and 1 deletion

s/Main s/Main +9 -1

No files found.
--- a/s/Main
+++ b/s/Main
@@ -101,10 +101,18 @@ App_Die ENTRY "r0"
 ;       App_Service - Main entry point for services
 ;

+;Ursula format
+App_ServTab
+        DCD     0                                   ;flags
+        DCD     App_UService - Module_BaseAddr      ;handler
+        DCD     Service_ResourceFSStarting
+        DCD     0                                   ;terminator
+        DCD     App_ServTab - Module_BaseAddr       ;anchor
 App_Service ROUT
-
+        MOV     r0,r0                               ;magic instruction
        TEQ     R1, #Service_ResourceFSStarting
        MOVNE   PC, LR
+App_UService

 ; In    R2 -> address inside ResourceFS module to call
 ;       R3 = workspace pointer for module