/*

SDL - Simple DirectMedia Layer

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

modify it under the terms of the GNU Library General Public

License as published by the Free Software Foundation; either

version 2 of the License, or (at your option) any later version.

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

Library General Public License for more details.

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

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

Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

Sam Lantinga

slouken@libsdl.org

*/

#ifdef SAVE_RCSID

static char rcsid =

"@(#) $Id$";

#endif

/*

* IKBD 6301 interrupt routine

*

* Patrice Mandin

*/

.text

.globl _SDL_AtariIkbdInstall

.globl _SDL_AtariIkbdUninstall

.globl _SDL_AtariIkbd_keyboard

.globl _SDL_AtariIkbd_mouseb

.globl _SDL_AtariIkbd_mousex

.globl _SDL_AtariIkbd_mousey

.globl _SDL_AtariIkbd_joystick

.globl _SDL_AtariIkbd_enabled

/*--- Install our IKBD vector ---*/

_SDL_AtariIkbdInstall:

moveml d0-d1/a0-a1,sp@-

movew #0x2700,sr

| Save MFP registers used for keyboard

lea 0xfffffa00:w,a0

btst #6,a0@(0x09)

| Set our routine

movel 0x118:w,old_ikbd

movel #ikbd,0x118:w

bset #6,0xfffffa09:w | IERB

bset #6,0xfffffa15:w | IMRB

| Set mouse relative mode

moveb #8,0xfffffc02:w

| Reenable interrupts

movew #0x2300,sr

| Interrupts done

movew #0xffff,_SDL_AtariIkbd_enabled

moveml sp@+,d0-d1/a0-a1

rts

/*--- Uninstall our IKBD vector ---*/

_SDL_AtariIkbdUninstall:

movel a0,sp@-

movew #0x2700,sr

| Restore previous MFP registers

lea 0xfffffa00:w,a0

bclr #6,a0@(0x09)

tstb ikbd_ierb

bset #6,a0@(0x09)

ikbd_restoreierb:

bclr #6,a0@(0x15)

tstb ikbd_imrb

bset #6,a0@(0x15)

ikbd_restoreimrb:

movel old_ikbd,0x118:w

| Clear keyboard buffer

lea 0xfffffc00:w,a0

ikbd_videbuffer:

btst #0,a0@

ikbd_finbuffer:

| Reenable interrupts

movew #0x2300,sr

movel sp@+,a0

rts

.bss

.comm ikbd_ierb,1

.comm ikbd_imrb,1

/*--- Our custom IKBD vector ---*/

.text

.even

.ascii "XBRA"

.ascii "LSDL"

.comm old_ikbd,4*1

moveml d0-d1/a0,sp@-

moveb 0xfffffc02:w,d0

cmpb #0xff,d0

cmpb #0xf8,d0

| Mouse packet, byte #1

ikbd_yes_mouse:

andw #3,d0

movew d0,_SDL_AtariIkbd_mouseb

movel #ikbd_mousex,0x118:w

| Joystick packet, byte #1

ikbd_yes_joystick:

movel #ikbd_joystick,0x118:w

| Keyboard press/release

ikbd_no_mouse:

moveb d0,d1

lea _SDL_AtariIkbd_keyboard,a0

andw #0x7f,d1

tas d0

spl a0@(0,d1:w)

bclr #6,0xfffffa11:w

rte

| Call old MIDI interrupt

ikbd_oldmidi:

movel old_ikbd,sp@-

rts

| Mouse packet, byte #2

movew d0,sp@-

moveb 0xfffffc02:w,d0

extw d0

addw d0,_SDL_AtariIkbd_mousex

movel #ikbd_mousey,0x118:w

| Mouse packet, byte #3

movew d0,sp@-

moveb 0xfffffc02:w,d0

extw d0

addw d0,_SDL_AtariIkbd_mousey

movel #ikbd,0x118:w

| Joystick packet, byte #2

moveb 0xfffffc02:w,_SDL_AtariIkbd_joystick+1

movel #ikbd,0x118:w

.data

.even

_SDL_AtariIkbd_enabled:

.word 0

.bss

.comm _SDL_AtariIkbd_mousex,2

.comm _SDL_AtariIkbd_mousey,2

.comm _SDL_AtariIkbd_mouseb,2

.comm _SDL_AtariIkbd_joystick,2