From 78a068e6d2243b0e405126bf23d4c93e00a69a88 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Sat, 28 Apr 2018 17:11:12 -0700
Subject: [PATCH] fix addres of int counters

---
 src/libsrc/apple/mouse.pla  | 5 +++--
 src/samplesrc/mousetest.pla | 6 +++---
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/src/libsrc/apple/mouse.pla b/src/libsrc/apple/mouse.pla
index 31e5fbc..ec023fc 100644
--- a/src/libsrc/apple/mouse.pla
+++ b/src/libsrc/apple/mouse.pla
@@ -159,6 +159,7 @@ end
 for rom = $C100 to $C700 step $0100
     if rom->5 == $38 and rom->7 == $18 and rom->11 == $01 and rom->12 == $20
         puts("Found Mouse in slot #"); putc('0' + ((rom >> 8) & $07)); putln
+        puts("Service IRQ: $"); puth(@serviceMouse); putln
         //
         // Hook mouse IRQ handler into ProDOS IRQ chain
         //
@@ -178,8 +179,8 @@ for rom = $C100 to $C700 step $0100
         //
         serviceMouse:2 = rom + rom->$13 // serveMouseFW
         serviceMouse:7 = $0778+index
-        vblEvent.1     = @vblInt
-        mouseEvent.1   = @mouInt
+        vblEvent:1     = @vblInt
+        mouseEvent:1   = @mouInt
         updateMouse.1  = slot
         updateMouse.3  = page
         updateMouse:5  = rom + rom->$14 // readMouseFW
diff --git a/src/samplesrc/mousetest.pla b/src/samplesrc/mousetest.pla
index 1a5a1b2..9a33ec9 100644
--- a/src/samplesrc/mousetest.pla
+++ b/src/samplesrc/mousetest.pla
@@ -3,9 +3,9 @@ include "inc/mouse.plh"
 
 var count
 
-mouse:setmouse(VBL_INT_ENABLE)
-while count < 100
-  count = count + mouse:chkVBL()
+Mouse:setMouse(VBL_INT_ENABLE)
+while count < 100 and ^$C000 < 128
+  count = count + Mouse:chkVBL()
   puti(count); putln
 loop
 done