- always use page 6 for P/M mouse cursor

- make cursor character of text mode callback configurable - change default cursor character of text mode callback from 'plus' to 'diamond' - set P/M callback as default
2026-04-26 13:18:31 +00:00 · 2014-04-11 23:46:53 +02:00
parent 661203a89a
commit 526b440b24
5 changed files with 257 additions and 220 deletions
@@ -1,126 +1,8 @@
 ;
-; Default mouse callbacks for the Ataris
-;
-; Christian Groessler, 03.01.2014
-;
-; derived from Apple2 version by
-; Oliver Schmidt, 22.09.2005
-;
-; All functions in this module should be interrupt safe, because they may
-; be called from an interrupt handler
+; This file defines the default mouse callback
 ;

-        .export         _mouse_def_callbacks
-        .importzp       tmp4
-        .import         mul40,loc_tmp
+.import _mouse_pm_callbacks
+.export _mouse_def_callbacks

-        .include        "atari.inc"
-
-; ------------------------------------------------------------------------
-
-        .bss
-
-backup: .res    1
-visible:.res    1
-
-; ------------------------------------------------------------------------
-
-        .segment        "EXTZP" : zeropage
-scrptr: .res    2
-
-; ------------------------------------------------------------------------
-
-
-        .rodata
-
-        ; Callback structure
-_mouse_def_callbacks:
-        .addr   hide
-        .addr   show
-        .addr   prep
-        .addr   draw
-        .addr   movex
-        .addr   movey
-
-; ------------------------------------------------------------------------
-
-        .data
-
-cursor = 11                     ; '+' screen code'
-
-; setcursor
-
-getcursor:
-column: ldy     #$00            ; Patched at runtime
-        lda     (scrptr),y
-        rts
-
-setcursor:
-column2:ldy     #$00            ; Patched at runtime
-        sta     (scrptr),y
-        rts
-
-; ------------------------------------------------------------------------
-
-        .code
-
-done:
-        rts
-
-; Hide the mouse cursor.
-hide:
-        dec     visible
-
-prep:
-        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:
-        inc     visible
-
-draw:
-        lda     visible
-        beq     done
-        jsr     getcursor       ; Cursor visible at current position?
-        sta     backup          ; Save character at cursor position
-        lda     #cursor
-        jmp     setcursor       ; Draw cursor
-
-
-; Move the mouse cursor x position to the value in A/X.
-movex:
-        cpx     #1
-        ror     a
-        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.
-movey:
-        tax
-        ldy     tmp4            ; mul40 uses tmp4
-        lda     loc_tmp         ; and this local variable
-        pha
-        txa                     ; get parameter back
-        lsr     a               ; convert y position to character line
-        lsr     a
-        lsr     a
-        jsr     mul40
-        clc
-        adc     SAVMSC
-        sta     scrptr
-        txa
-        adc     SAVMSC+1
-        sta     scrptr+1
-        pla
-        sta     loc_tmp
-        sty     tmp4
-        rts
+_mouse_def_callbacks := _mouse_pm_callbacks