;
; Mouse callbacks for GEOS.
;
; GEOS has a built-in mouse architecture.  Half of this file does nothing
; -- it exists merely to allow portable programs to link and run.
;
; 2.7.2001, Maciej 'YTM/Elysium' Witkowiak
; 2004-03-20, Ullrich von Bassewitz
; 2004-09-24, Greg King
;

;       .constructor    init_pointer
        .export         _mouse_def_callbacks

;       .include        "mouse-kernel.inc"
;       .include        "const.inc"
;       .include        "geossym.inc"
        .include        "jumptab.inc"

;       .macpack        generic

; The functions below must be interrupt-safe,
; because they might be called from an interrupt-handler.

; --------------------------------------------------------------------------
; Hide the mouse pointer. Always called with interrupts disabled.

hide := MouseOff

; --------------------------------------------------------------------------
; Show the mouse pointer. Always called with interrupts disabled.

show := MouseUp

; --------------------------------------------------------------------------
; Move the mouse pointer X position to the value in .XA. Always called with
; interrupts disabled.

.proc   movex

        rts

.endproc

; --------------------------------------------------------------------------
; Move the mouse pointer Y position to the value in .XA. Always called with
; interrupts disabled.

.proc   movey

        rts

.endproc

; --------------------------------------------------------------------------
; Callback structure

.rodata

_mouse_def_callbacks:
        .addr   hide
        .addr   show
        .addr   movex
        .addr   movey