From: Christian Groessler <chris@groessler.org>
Date: Tue, 14 Jan 2014 13:00:17 +0000 (+0100)
Subject: Change display logic of mouse cursor (hide and show functions).
X-Git-Tag: V2.15~196^2~3
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=ff2c44f565d85a89863da916f8bb29a67947abd3;p=cc65

Change display logic of mouse cursor (hide and show functions).
---

diff --git a/libsrc/atari/mcbdefault.s b/libsrc/atari/mcbdefault.s
index e1b78f033..11b7e07be 100644
--- a/libsrc/atari/mcbdefault.s
+++ b/libsrc/atari/mcbdefault.s
@@ -49,13 +49,12 @@ cursor = 11                     ; '+' screen code'
 
 getcursor:
 column: ldy     #$00            ; Patched at runtime
-        lda     (scrptr),y      ; Patched at runtime
-        cmp     #cursor
+        lda     (scrptr),y
         rts
 
 setcursor:
-        lda     #cursor
-setscr: sta     (scrptr),y      ; Patched at runtime
+column2:ldy     #$00            ; Patched at runtime
+        sta     (scrptr),y
         rts
 
 ; ------------------------------------------------------------------------
@@ -67,16 +66,19 @@ done:
 
 ; Hide the mouse cursor.
 hide:
-        jsr     getcursor       ; Cursor visible at current position?
-        bne     done            ; No, we're done
-        lda     backup          ; Get character at cursor position
-        jmp     setscr          ; Draw character
+        jsr     getcursor       ; Get character at cursor position
+        cmp     #cursor         ; "mouse" character
+        bne     overwr          ; no, probably program has overwritten it
+        lda     backup          ; 
+        jmp     setcursor       ; Draw character
+overwr: sta     backup
+        rts
 
 ; Show the mouse cursor.
 show:
         jsr     getcursor       ; Cursor visible at current position?
-        beq     done            ; Yes, we're done
         sta     backup          ; Save character at cursor position
+        lda     #cursor
         jmp     setcursor       ; Draw cursor
 
 
@@ -87,6 +89,7 @@ movex:
         lsr     a               ; convert to character position
         lsr     a
         sta     column+1
+        sta     column2+1
         rts
 
 ; Move the mouse cursor y position to the value in A/X.