/*

SDL - Simple DirectMedia Layer

Copyright (C) 1997-2006 Sam Lantinga

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

modify it under the terms of the GNU Lesser General Public

License as published by the Free Software Foundation; either

version 2.1 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

Lesser General Public License for more details.

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

*/

/*

* 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@-

| Disable interrupts

movew #0x2700,sr

| Save MFP registers used for keyboard

lea 0xfffffa00:w,a0

btst #6,a0@(0x09)

sne ikbd_ierb

btst #6,a0@(0x15)

sne ikbd_imrb

| 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@-

| Disable interrupts

movew #0x2700,sr

| Restore previous MFP registers

lea 0xfffffa00:w,a0

bclr #6,a0@(0x09)

tstb ikbd_ierb

beqs ikbd_restoreierb

bset #6,a0@(0x09)

ikbd_restoreierb:

bclr #6,a0@(0x15)

tstb ikbd_imrb

beqs ikbd_restoreimrb

bset #6,a0@(0x15)

ikbd_restoreimrb:

movel old_ikbd,0x118:w

| Clear keyboard buffer

lea 0xfffffc00:w,a0

ikbd_videbuffer:

btst #0,a0@

beqs ikbd_finbuffer

tstb a0@(0x02)

bras ikbd_videbuffer

ikbd_finbuffer:

| Reenable interrupts

movew #0x2300,sr

movel sp@+,a0

rts

.bss

.even

.comm ikbd_ierb,1

.comm ikbd_imrb,1

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

.text

.even

.ascii "XBRA"

.ascii "LSDL"

.comm old_ikbd,4*1

ikbd:

| Check if source is IKBD or MIDI

btst #0,0xfffffc00.w

beqs ikbd_oldmidi

moveml d0-d1/a0,sp@-

moveb 0xfffffc02:w,d0

| Joystick packet ?

cmpb #0xff,d0

beqs ikbd_yes_joystick

| Mouse packet ?

cmpb #0xf8,d0

bmis ikbd_no_mouse

cmpb #0xfc,d0

bpls ikbd_no_mouse

| Mouse packet, byte #1

ikbd_yes_mouse:

andw #3,d0

movew d0,_SDL_AtariIkbd_mouseb

movel #ikbd_mousex,0x118:w

bras ikbd_endit_stack

| Joystick packet, byte #1

ikbd_yes_joystick:

movel #ikbd_joystick,0x118:w

bras ikbd_endit_stack

| Keyboard press/release

ikbd_no_mouse:

moveb d0,d1

lea _SDL_AtariIkbd_keyboard,a0

andw #0x7f,d1

tas d0

spl a0@(0,d1:w)

| End of interrupt

ikbd_endit_stack:

moveml sp@+,d0-d1/a0

ikbd_endit:

bclr #6,0xfffffa11:w

rte

| Call old MIDI interrupt

ikbd_oldmidi:

movel old_ikbd,sp@-

rts

| Mouse packet, byte #2

ikbd_mousex:

| Check if source is IKBD or MIDI

btst #0,0xfffffc00.w

beqs ikbd_oldmidi

movew d0,sp@-

moveb 0xfffffc02:w,d0

extw d0

addw d0,_SDL_AtariIkbd_mousex

movew sp@+,d0

movel #ikbd_mousey,0x118:w

bras ikbd_endit

| Mouse packet, byte #3

ikbd_mousey:

| Check if source is IKBD or MIDI

btst #0,0xfffffc00.w

beqs ikbd_oldmidi

movew d0,sp@-

moveb 0xfffffc02:w,d0

extw d0

addw d0,_SDL_AtariIkbd_mousey

movew sp@+,d0

movel #ikbd,0x118:w

bras ikbd_endit

| Joystick packet, byte #2

ikbd_joystick:

| Check if source is IKBD or MIDI

btst #0,0xfffffc00.w

beqs ikbd_oldmidi

moveb 0xfffffc02:w,_SDL_AtariIkbd_joystick+1

movel #ikbd,0x118:w

bras ikbd_endit

.data

.even

_SDL_AtariIkbd_enabled:

.word 0

.bss

.even

.comm _SDL_AtariIkbd_keyboard,128

.comm _SDL_AtariIkbd_mousex,2

.comm _SDL_AtariIkbd_mousey,2

.comm _SDL_AtariIkbd_mouseb,2

.comm _SDL_AtariIkbd_joystick,2