From: Christian Groessler <chris@groessler.org>
Date: Wed, 23 Apr 2014 22:27:06 +0000 (+0200)
Subject: Make the hooking and unhooking of the interrupt interrupt safe.
X-Git-Tag: V2.15~69^2~2
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=4406307c2fee0e3e2369d03e38bf8c118c2393ac;p=cc65

Make the hooking and unhooking of the interrupt interrupt safe.
---

diff --git a/libsrc/c128/mou/c128-joy.s b/libsrc/c128/mou/c128-joy.s
index fb087c8fc..339fdc836 100644
--- a/libsrc/c128/mou/c128-joy.s
+++ b/libsrc/c128/mou/c128-joy.s
@@ -160,7 +160,6 @@ INSTALL:
         lda     YPos
         ldx     YPos+1
         jsr     CMOVEY
-        cli
 
 ; Initialize our IRQ magic
 
@@ -190,6 +189,7 @@ INSTALL:
         iny
         lda     #>(chainIRQ-1)
         sta     (ptr3),y
+        cli
 
 ; Done, return zero (= MOUSE_ERR_OK)
 
@@ -202,11 +202,12 @@ INSTALL:
 ; No return code required (the driver is removed from memory on return).
 
 UNINSTALL:
-
         lda     chainIRQ+1
+        sei
         sta     IRQInd+1
         lda     chainIRQ+2
         sta     IRQInd+2
+        cli
 
         jsr     HIDE                    ; Hide cursor on exit
         lda     INIT_save