git.sur5r.net Git - cc65/blob - libsrc/geos-cbm/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 .code
  26
  27 ; --------------------------------------------------------------------------
  28 ; Hide the mouse pointer. Always called with interrupts disabled.
  29
  30 hide := MouseOff
  31
  32 ; --------------------------------------------------------------------------
  33 ; Show the mouse pointer. Always called with interrupts disabled.
  34
  35 show := MouseUp
  36
  37 ; --------------------------------------------------------------------------
  38 ; Move the mouse pointer X position to the value in .XA. Always called with
  39 ; interrupts disabled.
  40
  41 .proc   movex
  42
  43         rts
  44
  45 .endproc
  46
  47 ; --------------------------------------------------------------------------
  48 ; Move the mouse pointer Y position to the value in .XA. Always called with
  49 ; interrupts disabled.
  50
  51 .proc   movey
  52
  53         rts
  54
  55 .endproc
  56
  57 ; --------------------------------------------------------------------------
  58 ; Callback structure
  59
  60 .rodata
  61
  62 _mouse_def_callbacks:
  63         .addr   hide
  64         .addr   show
  65         .addr   movex
  66         .addr   movey
  67
  68