git.sur5r.net Git - cc65/blob - libsrc/geos-common/drivers/mcbdefault.s

   1 ;
   2 ; Mouse callbacks for GEOS.
   3 ;
   4 ; GEOS has a built-in mouse architecture.  Half of this file does nothing
   5 ; -- it exists merely to allow portable programs to link and run.
   6 ;
   7 ; 2.7.2001, Maciej 'YTM/Elysium' Witkowiak
   8 ; 2004-03-20, Ullrich von Bassewitz
   9 ; 2004-09-24, Greg King
  10 ;
  11
  12 ;       .constructor    init_pointer
  13         .export         _mouse_def_callbacks
  14
  15 ;       .include        "mouse-kernel.inc"
  16 ;       .include        "const.inc"
  17 ;       .include        "geossym.inc"
  18         .include        "jumptab.inc"
  19
  20 ;       .macpack        generic
  21
  22 ; The functions below must be interrupt-safe,
  23 ; because they might be called from an interrupt-handler.
  24
  25 ; --------------------------------------------------------------------------
  26 ; Hide the mouse pointer. Always called with interrupts disabled.
  27
  28 hide := MouseOff
  29
  30 ; --------------------------------------------------------------------------
  31 ; Show the mouse pointer. Always called with interrupts disabled.
  32
  33 show := MouseUp
  34
  35 ; --------------------------------------------------------------------------
  36 ; Move the mouse pointer X position to the value in .XA. Always called with
  37 ; interrupts disabled.
  38
  39 .proc   movex
  40
  41         rts
  42
  43 .endproc
  44
  45 ; --------------------------------------------------------------------------
  46 ; Move the mouse pointer Y position to the value in .XA. Always called with
  47 ; interrupts disabled.
  48
  49 .proc   movey
  50
  51         rts
  52
  53 .endproc
  54
  55 ; --------------------------------------------------------------------------
  56 ; Callback structure
  57
  58 .rodata
  59
  60 _mouse_def_callbacks:
  61         .addr   hide
  62         .addr   show
  63         .addr   movex
  64         .addr   movey
  65
  66