Prepare for event manager

src/libsrc/apple/mouse.pla

@@ -18,7 +18,7 @@ const MOVE_INT_ENABLE  = $02
 // Mouse driver
 //
 word rom
-byte slot, index, page, vblInt, mouInt
+byte slot, index, page, vblDiv, vblInt, mouInt
 byte params[]
 word setMouseFW, serveMouseFW, readMouseFW, clearMouseFW, posMouseFW, clampMouseFW, homeMouseFW, initMouseFW
 word minClamp, maxClamp, xMouse, yMouse, statMouse, modeMouse
@@ -93,9 +93,25 @@ asm chkEvt(addr)
         STA     ESTKH,X
         RTS
 end
+//
+// Convert VBL interrupts into millisecond timer increment
+//
 def chkTimer
-    return chkEvt(@vblInt)
+    byte count
+    word msec
+    
+    msec  = 0
+    count = chkEvt(@vblInt)
+    while count
+        msec   = msec + (vblDiv & 2 ?? 16 :: 17)
+        vblDiv = (vblDiv + 1) % 3
+        count--
+    loop
+    return msec
 end
+//
+// Check for mouse interrupt events
+//
 def chkMouse
     return chkEvt(@mouInt)
 end

src/libsrc/apple/uthernet2.pla

@@ -791,11 +791,11 @@ def wizServiceIP
             fin
             wiz = wiz + t_channel
         next
-    if ir & $80
+        if ir & $80
             //
-        // IP conflict
-        //
-        pokereg(WIZ_IR, $80)
+            // IP conflict
+            //
+            pokereg(WIZ_IR, $80)
         fin
         if ir & $40
             //