diff options
Diffstat (limited to 'distrib/sdl-1.2.12/src/video/ataricommon/SDL_ikbdinterrupt.S')
| -rw-r--r-- | distrib/sdl-1.2.12/src/video/ataricommon/SDL_ikbdinterrupt.S | 260 |
1 files changed, 0 insertions, 260 deletions
diff --git a/distrib/sdl-1.2.12/src/video/ataricommon/SDL_ikbdinterrupt.S b/distrib/sdl-1.2.12/src/video/ataricommon/SDL_ikbdinterrupt.S deleted file mode 100644 index 9cbf593..0000000 --- a/distrib/sdl-1.2.12/src/video/ataricommon/SDL_ikbdinterrupt.S +++ /dev/null @@ -1,260 +0,0 @@ -/* - 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 |