mirror of
https://github.com/cc65/cc65.git
synced 2024-11-04 17:04:58 +00:00
69 lines
1.5 KiB
ArmAsm
69 lines
1.5 KiB
ArmAsm
;
|
|
; 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.
|
|
|
|
.code
|
|
|
|
; --------------------------------------------------------------------------
|
|
; 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
|
|
|
|
|