From 81e40c4c7f62ff61fae136fdca7c1560995d675b Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Mon, 7 May 2018 10:23:31 -0700
Subject: [PATCH] Fix unhandled IRQ on IIGS

---
 src/libsrc/apple/mouse.pla | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/src/libsrc/apple/mouse.pla b/src/libsrc/apple/mouse.pla
index 27a8d87..6d5193d 100644
--- a/src/libsrc/apple/mouse.pla
+++ b/src/libsrc/apple/mouse.pla
@@ -50,6 +50,10 @@ asm updateMouse
         LDY     #$40
         JMP     $C400           ; IIGS REQUIRES THIS HAPPEN IN IRQ
 end
+asm serviceCYA#0
+        CLC
+        RTS
+end
 //
 // Check for VBL (timer) and Mouse events (atomic read and reset)
 //
@@ -175,6 +179,13 @@ for rom = $C100 to $C700 step $0100
         params:2 = @serviceMouse
         syscall($40, @params)
         //
+        // Hook CYA IRQ handler into ProDOS IRQ chain
+        //
+        params.0 = 2
+        params.1 = 3
+        params:2 = @serviceCYA
+        syscall($40, @params)
+        //
         // Set values
         //
         slot           = rom >> 8