32-bit compatible.

Moved to srccommit

Version 1.19. Tagged as 'Chars-1_19'

!MkClean,fd7

@@ -14,3 +14,4 @@
 |
 Dir <Obey$Dir>
 amu_machine clean
+stripdepnd Makefile

Version

-; > Version
-
-        GBLA    Version
-        GBLS    VString
-        GBLS    Date
-
-Version SETA    118
-VString SETS    "1.18"
-Date    SETS    "15 Sep 1994"
-
-        END

VersionASM

+;
+; This file is automatically maintained by srccommit, do not edit manually.
+;
+                        GBLS    Module_MajorVersion
+                        GBLA    Module_Version
+                        GBLS    Module_MinorVersion
+                        GBLS    Module_Date
+                        GBLS    Module_FullVersion
+                        GBLS    Module_ApplicationDate2
+                        GBLS    Module_ApplicationDate4
+Module_MajorVersion     SETS    "1.19"
+Module_Version          SETA    119
+Module_MinorVersion     SETS    ""
+Module_Date             SETS    "07 Jul 2000"
+Module_ApplicationDate2 SETS    "07-Jul-00"
+Module_ApplicationDate4 SETS    "07-Jul-2000"
+Module_FullVersion      SETS    "1.19"
+                        END

VersionNum

+/* (1.19)
+ *
+ * This file is automatically maintained by srccommit, do not edit manually.
+ *
+ */
+#define Module_MajorVersion_CMHG        1.19
+#define Module_MinorVersion_CMHG        
+#define Module_Date_CMHG                07 Jul 2000
+
+#define Module_MajorVersion             "1.19"
+#define Module_Version                  119
+#define Module_MinorVersion             ""
+#define Module_Date                     "07 Jul 2000"
+
+#define Module_ApplicationDate2         "07-Jul-00"
+#define Module_ApplicationDate4         "07-Jul-2000"
+
+#define Module_FullVersion              "1.19"

s/Main

@@ -35,7 +35,7 @@ Module_BaseAddr
         GET     Hdr:Services
         GET     Hdr:Proc
         GET     Hdr:ResourceFS
-        GET     Version
+        GET     VersionASM
 
         LEADR   Module_LoadAddr
 
@@ -69,7 +69,7 @@ fred    SETA    fred-8
 App_Title       DCB     "!$ApplicationName", 0
 App_HelpStr     DCB     "!$ApplicationName"
                 TabTo   16-(.-App_HelpStr)
-                DCB     "$VString ($Date)", 0
+                DCB     "$Module_MajorVersion ($Module_Date)", 0
                 ALIGN
 
 ; *****************************************************************************
@@ -81,8 +81,9 @@ App_Init ENTRY "r0"
 
         ADR     R0, resourcefsfiles
         SWI     XResourceFS_RegisterFiles   ; ignore errors (starts on Service_ResourceFSStarting)
+        CLRV
 
-        EXITS
+        EXIT
 
 ; *****************************************************************************
 ;
@@ -93,18 +94,27 @@ App_Die ENTRY "r0"
 
         ADR     R0, resourcefsfiles
         SWI     XResourceFS_DeregisterFiles
+        CLRV
 
-        EXITS                   ; ignore errors (ResourceFS might be dead)
+        EXIT                    ; ignore errors (ResourceFS might be dead)
 
 ; *****************************************************************************
 ;
 ;       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
@@ -116,7 +126,7 @@ svc_resourcefsstarting ENTRY "R0-R3"
         MOV     LR, PC                          ; get return address
         MOV     PC, R2                          ; R2 = address to call
 
-        EXITS
+        EXIT
 
 resourcefsfiles
         GET     s.ResFiles