Interrupt handling tweaks.

Version 5.35, 4.79.2.7. Tagged as 'Kernel-5_35-4_79_2_7'

VersionASM

@@ -11,10 +11,10 @@
                         GBLS    Module_HelpVersion
 Module_MajorVersion     SETS    "5.35"
 Module_Version          SETA    535
-Module_MinorVersion     SETS    "4.79.2.6"
+Module_MinorVersion     SETS    "4.79.2.7"
 Module_Date             SETS    "05 Oct 2000"
 Module_ApplicationDate2 SETS    "05-Oct-00"
 Module_ApplicationDate4 SETS    "05-Oct-2000"
-Module_FullVersion      SETS    "5.35 (4.79.2.6)"
-Module_HelpVersion      SETS    "5.35 (05 Oct 2000) 4.79.2.6"
+Module_FullVersion      SETS    "5.35 (4.79.2.7)"
+Module_HelpVersion      SETS    "5.35 (05 Oct 2000) 4.79.2.7"
                         END

VersionNum

@@ -4,16 +4,16 @@
  *
  */
 #define Module_MajorVersion_CMHG        5.35
-#define Module_MinorVersion_CMHG        4.79.2.6
+#define Module_MinorVersion_CMHG        4.79.2.7
 #define Module_Date_CMHG                05 Oct 2000
 
 #define Module_MajorVersion             "5.35"
 #define Module_Version                  535
-#define Module_MinorVersion             "4.79.2.6"
+#define Module_MinorVersion             "4.79.2.7"
 #define Module_Date                     "05 Oct 2000"
 
 #define Module_ApplicationDate2         "05-Oct-00"
 #define Module_ApplicationDate4         "05-Oct-2000"
 
-#define Module_FullVersion              "5.35 (4.79.2.6)"
-#define Module_HelpVersion              "5.35 (05 Oct 2000) (4.79.2.6)"
+#define Module_FullVersion              "5.35 (4.79.2.7)"
+#define Module_HelpVersion              "5.35 (05 Oct 2000) (4.79.2.7)"

s/NewIRQs

@@ -123,6 +123,7 @@ DefaultIRQ1Vcode ROUT
         MOV     r11, r9                 ; r11 trashable - r9 needs to be preserved
         AddressHAL                      ; modifies r9
         CallHAL HAL_IRQSource
+        ADD     r0, r0, r0, LSL #1      ; multiply by 3
         MOV     r9, r11
  |
  [ IO_Type = "IOMD"
@@ -1325,8 +1326,15 @@ VsyncIRQ ROUT
 
         Push    r14
 
+    [ HAL
+        MOV     r11, r9
+        AddressHAL
+        CallHAL HAL_IRQClear
+        MOV     r9, r11
+    |
         MOV     R0, #vsync_bit
         STRB    R0, [R3, #IOCIRQCLRA]   ; Clear the vsync interrupt
+    ]
 
         LDRB    R0, CFStime             ; decrement 'CFS' timer !
         SUB     R0, R0, #1

s/PMF/osinit

@@ -143,6 +143,7 @@ BuffPtrInitLoop
  ]
 
  [ HAL
+        Push    "r9,r12"
         AddressHAL
         MOV     R0, #0
         CallHAL HAL_TimerDevice
@@ -156,6 +157,7 @@ BuffPtrInitLoop
         CallHAL HAL_IRQEnable           ; enable vsync IRQ
         MOV     R0, R4
         CallHAL HAL_IRQEnable           ; enable timer 0 IRQ
+        Pull    "r9,r12"
  |
         MOV     R1, #IOC