/*

SDL - Simple DirectMedia Layer

This library is free software; you can redistribute it and/or

This library is distributed in the hope that it will be useful,

but WITHOUT ANY WARRANTY; without even the implied warranty of

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU

You should have received a copy of the GNU Lesser General Public

License along with this library; if not, write to the Free Software

Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA

Sam Lantinga

slouken@libsdl.org

*/

/*

*

* Patrice Mandin

*/

.text

.globl _SDL_AtariXbios_MouseVector

.globl _SDL_AtariXbios_JoystickVector

.globl _SDL_AtariXbios_mouseb

.globl _SDL_AtariXbios_mousex

.globl _SDL_AtariXbios_mousey

/*--- Vector installer ---*/

movel sp@(4),a0

/* Stop interrupts */

movew #0x2700,sr

movel sp@(8),d0

beqs no_new_mouse_vector

#if defined(__mcoldfire__)

movel a0@(16),d1

movel d1,oldmousevector

#else

movel d0,a0@(16)

no_new_mouse_vector:

movel sp@(12),d0

beqs no_new_joystick_vector

#if defined(__mcoldfire__)

movel a0@(24),d1

movel d1,oldjoystickvector

#else

movel d0,a0@(24)

no_new_joystick_vector:

/* Restart interrupts */

movew #0x2300,sr

rts

/*--- Vector restorer ---*/

_SDL_AtariXbios_Restore:

movel sp@(4),a0

/* Stop interrupts */

movew #0x2700,sr

/* Restore mouse vector */

movel oldmousevector,d0

beqs no_restore_mouse

movel d0,a0@(16)

no_restore_mouse:

/* Restore joystick vector */

movel oldjoystickvector,d0

beqs no_restore_joystick

movel d0,a0@(24)

no_restore_joystick:

/* Restart interrupts */

movew #0x2300,sr

rts

/*--- Our mouse vector ---*/

.text

.even

.ascii "XBRA"

.comm oldmousevector,4*1

_SDL_AtariXbios_MouseVector:

#if defined(__mcoldfire__)

lea sp@(-8),sp

moveml d0-d1,sp@

#else

/* Mouse buttons */

moveb (a0),d0

#if defined(__mcoldfire__)

andl #3,d0

#else

movew d0,_SDL_AtariXbios_mouseb

/* X movement */

moveb a0@(1),d0

extw d0

#if defined(__mcoldfire__)

movew _SDL_AtariXbios_mousex,d1

addl d1,d0

movew d0,_SDL_AtariXbios_mousex

#else

/* Y movement */

moveb a0@(2),d0

extw d0

#if defined(__mcoldfire__)

movew _SDL_AtariXbios_mousey,d1

addl d1,d0

movew d0,_SDL_AtariXbios_mousey

#else

/* Lock mouse position ? */

tstw _SDL_AtariXbios_mouselock

beq.s no_mouse_lock

clrb a0@(1)

clrb a0@(2)

no_mouse_lock:

#if defined(__mcoldfire__)

moveml sp@,d0-d1

lea sp@(8),sp

#else

rts

.data

.even

.comm _SDL_AtariXbios_mousex,2*1

.comm _SDL_AtariXbios_mousey,2*1

.comm _SDL_AtariXbios_mouseb,2*1

/*--- Our joystick vector ---*/

.text

.even

.ascii "XBRA"

.ascii "LSDL"

.comm oldjoystickvector,4*1

_SDL_AtariXbios_JoystickVector:

/* New joystick state */

#if defined(__mcoldfire__)

andl #0x8f,d0

#else

movew d0,_SDL_AtariXbios_joystick

/* Jump through old vector */

rts

.data

.even

.comm _SDL_AtariXbios_joystick,2*1