32-bit compatible.

Version 0.11. Tagged as 'Super-0_11'

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
-Module_MajorVersion	SETS    "0.10"
-Module_Version          SETA    10
-Module_MinorVersion	SETS	""
-Module_Date		SETS    "02 Nov 1999"
-Module_FullVersion      SETS    "0.10"
+                        GBLS    Module_MajorVersion
+                        GBLA    Module_Version
+                        GBLS    Module_MinorVersion
+                        GBLS    Module_Date
+                        GBLS    Module_FullVersion
+Module_MajorVersion     SETS    "0.11"
+Module_Version          SETA    11
+Module_MinorVersion     SETS    ""
+Module_Date             SETS    "05 Jun 2000"
+Module_FullVersion      SETS    "0.11"
                         END

VersionNum

-/* (0.10)
+/* (0.11)
  *
  * This file is automatically maintained by srccommit, do not edit manually.
  *
  */
-#define Module_MajorVersion_CMHG     	0.10
-#define Module_MinorVersion_CMHG	
-#define Module_Date_CMHG      		02 Nov 1999
+#define Module_MajorVersion_CMHG        0.11
+#define Module_MinorVersion_CMHG        
+#define Module_Date_CMHG                05 Jun 2000
 
-#define Module_MajorVersion     	"0.10"
-#define Module_Version                  10
-#define Module_MinorVersion		""
-#define Module_Date      		"02 Nov 1999"
+#define Module_MajorVersion             "0.11"
+#define Module_Version                  11
+#define Module_MinorVersion             ""
+#define Module_Date                     "05 Jun 2000"
 
-#define Module_FullVersion              "0.10"
+#define Module_FullVersion              "0.11"

s/Super

@@ -65,7 +65,6 @@ Module_BaseAddr
         GET     Hdr:ModHand
         GET     Hdr:FSNumbers
         GET     Hdr:NewErrors
-;        GET     Hdr:Draw
         GET     Hdr:NDRDebug
         GET     Hdr:MsgTrans
 
@@ -91,20 +90,25 @@ MySWIBase * SuperSamplerSWI_Base
         DCD     MySWIDecode  - Module_BaseAddr
         DCD     MySWINames   - Module_BaseAddr
         DCD     0
+    [ :LNOT: No32bitCode
         DCD     0
+        DCD     MyFlags      - Module_BaseAddr
+    ]
 
 Title   =       "SuperSample",0
 Helpstr =       "SuperSample",9,"$Module_MajorVersion $Module_MinorVersion ($Module_Date)",0
         ALIGN
 
+    [ :LNOT: No32bitCode
+MyFlags DCD     ModuleFlag_32bit
+    ]
 
 ;;----------------------------------------------------------------------------
 ;; SWI decoding
 ;;----------------------------------------------------------------------------
 
 MySWIDecode
-        TEQP    PC,#SVC_mode            ; re-enable interrupts!!!
-;
+        CLRPSR  I_bit+F_bit,R0          ; re-enable interrupts!!!
         LDR     R12,[R12]               ; R12 --> workspace
         CMP     R11,#maxSWI
         ASSERT  (MySWITable-. = 8)      ; table must follow