Mercurial > sdl-ios-xcode
annotate src/video/ataricommon/SDL_ikbdinterrupt.S @ 4427:eada7e321df6 SDL-1.2
Fixed bug #943
Ozkan Sezer 2010-02-06 12:31:06 PST
Hi:
Here are some small fixes for compiling SDL against mingw-w64.
(see http://mingw-w64.sourceforge.net/ . Despite the name, it
supports both win32 and win64.) Two patches, one for SDL-1.2
and one for SDL-1.3 attached.
src/audio/windx5/directx.h and src/video/windx5/directx.h (both
SDL-1.2 and SDL-1.3.) I get compilation errors about some union
not having a member named u1 and alike, because of other system
headers being included before this one and them already defining
DUMMYUNIONNAME and stuff. This header probably assumes that those
stuff are defined in windef.h, but mingw-w64 headers define them
in _mingw.h. Easily fixed by moving NONAMELESSUNION definition to
the top of the file. SDL_dx5yuv.c (SDL-1.2-only) also needs to
include the header before SDL_video.h to avoid the same problem.
src/thread/win32/SDL_systhread.c (both SDL-1.2 and SDL-1.3.) :
The __GNUC__ case for pfnSDL_CurrentBeginThread is 32-bit centric
because _beginthreadex returns uintptr_t, not unsigned long which
is 32 bits in win64. Changing the return type to uintptr_t fixes
it.
Hope these are useful. Thanks.
author | Sam Lantinga <slouken@libsdl.org> |
---|---|
date | Wed, 10 Mar 2010 15:04:13 +0000 |
parents | dae8891fae2d |
children |
rev | line source |
---|---|
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
1 /* |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
2 SDL - Simple DirectMedia Layer |
4159 | 3 Copyright (C) 1997-2009 Sam Lantinga |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
4 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
5 This library is free software; you can redistribute it and/or |
1312
c9b51268668f
Updated copyright information and removed rcs id lines (problematic in branch merges)
Sam Lantinga <slouken@libsdl.org>
parents:
1110
diff
changeset
|
6 modify it under the terms of the GNU Lesser General Public |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
7 License as published by the Free Software Foundation; either |
1312
c9b51268668f
Updated copyright information and removed rcs id lines (problematic in branch merges)
Sam Lantinga <slouken@libsdl.org>
parents:
1110
diff
changeset
|
8 version 2.1 of the License, or (at your option) any later version. |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
9 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
10 This library is distributed in the hope that it will be useful, |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
11 but WITHOUT ANY WARRANTY; without even the implied warranty of |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
1312
c9b51268668f
Updated copyright information and removed rcs id lines (problematic in branch merges)
Sam Lantinga <slouken@libsdl.org>
parents:
1110
diff
changeset
|
13 Lesser General Public License for more details. |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
14 |
1312
c9b51268668f
Updated copyright information and removed rcs id lines (problematic in branch merges)
Sam Lantinga <slouken@libsdl.org>
parents:
1110
diff
changeset
|
15 You should have received a copy of the GNU Lesser General Public |
c9b51268668f
Updated copyright information and removed rcs id lines (problematic in branch merges)
Sam Lantinga <slouken@libsdl.org>
parents:
1110
diff
changeset
|
16 License along with this library; if not, write to the Free Software |
c9b51268668f
Updated copyright information and removed rcs id lines (problematic in branch merges)
Sam Lantinga <slouken@libsdl.org>
parents:
1110
diff
changeset
|
17 Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
18 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
19 Sam Lantinga |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
20 slouken@libsdl.org |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
21 */ |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
22 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
23 /* |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
24 * IKBD 6301 interrupt routine |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
25 * |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
26 * Patrice Mandin |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
27 */ |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
28 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
29 .text |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
30 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
31 .globl _SDL_AtariIkbdInstall |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
32 .globl _SDL_AtariIkbdUninstall |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
33 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
34 .globl _SDL_AtariIkbd_keyboard |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
35 .globl _SDL_AtariIkbd_mouseb |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
36 .globl _SDL_AtariIkbd_mousex |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
37 .globl _SDL_AtariIkbd_mousey |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
38 .globl _SDL_AtariIkbd_joystick |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
39 |
305
9c6613983e85
Atari port cleanups from Patrice
Sam Lantinga <slouken@libsdl.org>
parents:
297
diff
changeset
|
40 .globl _SDL_AtariIkbd_enabled |
9c6613983e85
Atari port cleanups from Patrice
Sam Lantinga <slouken@libsdl.org>
parents:
297
diff
changeset
|
41 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
42 /*--- Install our IKBD vector ---*/ |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
43 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
44 _SDL_AtariIkbdInstall: |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
45 #if defined(__mcoldfire__) |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
46 lea sp@(-16),sp |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
47 moveml d0-d1/a0-a1,sp@ |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
48 #else |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
49 moveml d0-d1/a0-a1,sp@- |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
50 #endif |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
51 |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
52 | Disable interrupts |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
53 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
54 movew #0x2700,sr |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
55 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
56 | Save MFP registers used for keyboard |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
57 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
58 lea 0xfffffa00:w,a0 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
59 btst #6,a0@(0x09) |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
60 #if defined(__mcoldfire__) |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
61 sne d0 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
62 move.b d0,ikbd_ierb |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
63 #else |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
64 sne ikbd_ierb |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
65 #endif |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
66 btst #6,a0@(0x15) |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
67 #if defined(__mcoldfire__) |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
68 sne d0 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
69 move.b d0,ikbd_imrb |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
70 #else |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
71 sne ikbd_imrb |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
72 #endif |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
73 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
74 | Set our routine |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
75 |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
76 #if defined(__mcoldfire__) |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
77 movel 0x118:w,d0 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
78 movel d0,old_ikbd |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
79 lea ikbd,a0 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
80 movel a0,0x118:w |
4377
c92927bd421a
Oops. Forgot a change for Coldfire.
Patrice Mandin <patmandin@gmail.com>
parents:
4376
diff
changeset
|
81 moveql #6,d0 |
c92927bd421a
Oops. Forgot a change for Coldfire.
Patrice Mandin <patmandin@gmail.com>
parents:
4376
diff
changeset
|
82 bset d0,0xfffffa09:w | IERB |
c92927bd421a
Oops. Forgot a change for Coldfire.
Patrice Mandin <patmandin@gmail.com>
parents:
4376
diff
changeset
|
83 bset d0,0xfffffa15:w | IMRB |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
84 #else |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
85 movel 0x118:w,old_ikbd |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
86 movel #ikbd,0x118:w |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
87 bset #6,0xfffffa09:w | IERB |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
88 bset #6,0xfffffa15:w | IMRB |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
89 #endif |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
90 |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
91 | Set mouse relative mode |
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
92 |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
93 #if defined(__mcoldfire__) |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
94 moveql #8,d0 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
95 moveb d0,0xfffffc02:w |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
96 #else |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
97 moveb #8,0xfffffc02:w |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
98 #endif |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
99 |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
100 | Reenable interrupts |
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
101 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
102 movew #0x2300,sr |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
103 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
104 | Interrupts done |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
105 |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
106 #if defined(__mcoldfire__) |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
107 movel #0xffff,d0 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
108 movew d0,_SDL_AtariIkbd_enabled |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
109 |
4377
c92927bd421a
Oops. Forgot a change for Coldfire.
Patrice Mandin <patmandin@gmail.com>
parents:
4376
diff
changeset
|
110 moveml sp@,d0-d1/a0-a1 |
c92927bd421a
Oops. Forgot a change for Coldfire.
Patrice Mandin <patmandin@gmail.com>
parents:
4376
diff
changeset
|
111 lea sp@(16),sp |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
112 #else |
305
9c6613983e85
Atari port cleanups from Patrice
Sam Lantinga <slouken@libsdl.org>
parents:
297
diff
changeset
|
113 movew #0xffff,_SDL_AtariIkbd_enabled |
9c6613983e85
Atari port cleanups from Patrice
Sam Lantinga <slouken@libsdl.org>
parents:
297
diff
changeset
|
114 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
115 moveml sp@+,d0-d1/a0-a1 |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
116 #endif |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
117 rts |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
118 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
119 /*--- Uninstall our IKBD vector ---*/ |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
120 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
121 _SDL_AtariIkbdUninstall: |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
122 movel a0,sp@- |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
123 |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
124 | Disable interrupts |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
125 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
126 movew #0x2700,sr |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
127 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
128 | Restore previous MFP registers |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
129 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
130 lea 0xfffffa00:w,a0 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
131 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
132 bclr #6,a0@(0x09) |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
133 tstb ikbd_ierb |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
134 beqs ikbd_restoreierb |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
135 bset #6,a0@(0x09) |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
136 ikbd_restoreierb: |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
137 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
138 bclr #6,a0@(0x15) |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
139 tstb ikbd_imrb |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
140 beqs ikbd_restoreimrb |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
141 bset #6,a0@(0x15) |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
142 ikbd_restoreimrb: |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
143 |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
144 #if defined(__mcoldfire__) |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
145 movel old_ikbd,a0 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
146 movel a0,0x118:w |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
147 #else |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
148 movel old_ikbd,0x118:w |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
149 #endif |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
150 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
151 | Clear keyboard buffer |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
152 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
153 lea 0xfffffc00:w,a0 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
154 ikbd_videbuffer: |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
155 btst #0,a0@ |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
156 beqs ikbd_finbuffer |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
157 tstb a0@(0x02) |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
158 bras ikbd_videbuffer |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
159 ikbd_finbuffer: |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
160 |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
161 | Reenable interrupts |
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
162 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
163 movew #0x2300,sr |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
164 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
165 movel sp@+,a0 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
166 rts |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
167 |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
168 .bss |
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
169 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
170 .even |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
171 .comm ikbd_ierb,1 |
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
172 .comm ikbd_imrb,1 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
173 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
174 /*--- Our custom IKBD vector ---*/ |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
175 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
176 .text |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
177 .even |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
178 .ascii "XBRA" |
287
e4bd0cf95506
From: Patrice Mandin <pmandin@caramail.com>
Sam Lantinga <slouken@libsdl.org>
parents:
281
diff
changeset
|
179 .ascii "LSDL" |
e4bd0cf95506
From: Patrice Mandin <pmandin@caramail.com>
Sam Lantinga <slouken@libsdl.org>
parents:
281
diff
changeset
|
180 .comm old_ikbd,4*1 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
181 ikbd: |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
182 #if defined(__mcoldfire__) |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
183 lea sp@(-12),sp |
4378
dae8891fae2d
Damn. Need to be more careful with stack stuff.
Patrice Mandin <patmandin@gmail.com>
parents:
4377
diff
changeset
|
184 moveml d0-d1/a0,sp@ |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
185 #else |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
186 moveml d0-d1/a0,sp@- |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
187 #endif |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
188 |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
189 | Check if source is IKBD or MIDI |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
190 #if defined(__mcoldfire__) |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
191 moveql #0,d0 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
192 btst d0,0xfffffc00.w |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
193 #else |
1110
b6fdf299a2f3
Revert back to 1.6 revision
Patrice Mandin <patmandin@gmail.com>
parents:
1109
diff
changeset
|
194 btst #0,0xfffffc00.w |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
195 #endif |
1110
b6fdf299a2f3
Revert back to 1.6 revision
Patrice Mandin <patmandin@gmail.com>
parents:
1109
diff
changeset
|
196 beqs ikbd_oldmidi |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
197 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
198 moveb 0xfffffc02:w,d0 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
199 |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
200 | Joystick packet ? |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
201 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
202 cmpb #0xff,d0 |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
203 beqs ikbd_yes_joystick |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
204 |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
205 | Mouse packet ? |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
206 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
207 cmpb #0xf8,d0 |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
208 bmis ikbd_no_mouse |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
209 cmpb #0xfc,d0 |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
210 bpls ikbd_no_mouse |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
211 |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
212 | Mouse packet, byte #1 |
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
213 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
214 ikbd_yes_mouse: |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
215 #if defined(__mcoldfire__) |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
216 andl #3,d0 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
217 #else |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
218 andw #3,d0 |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
219 #endif |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
220 movew d0,_SDL_AtariIkbd_mouseb |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
221 |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
222 #if defined(__mcoldfire__) |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
223 movel #ikbd_mousex,d0 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
224 movel d0,0x118:w |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
225 #else |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
226 movel #ikbd_mousex,0x118:w |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
227 #endif |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
228 bras ikbd_endit_stack |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
229 |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
230 | Joystick packet, byte #1 |
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
231 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
232 ikbd_yes_joystick: |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
233 #if defined(__mcoldfire__) |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
234 movel #ikbd_joystick,d0 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
235 movel d0,0x118:w |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
236 #else |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
237 movel #ikbd_joystick,0x118:w |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
238 #endif |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
239 bras ikbd_endit_stack |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
240 |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
241 | Keyboard press/release |
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
242 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
243 ikbd_no_mouse: |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
244 moveb d0,d1 |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
245 lea _SDL_AtariIkbd_keyboard,a0 |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
246 #if defined(__mcoldfire__) |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
247 andl #0x7f,d1 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
248 btst #7,d0 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
249 spl d0 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
250 moveb d0,a0@(0,d1:l) |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
251 #else |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
252 andw #0x7f,d1 |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
253 tas d0 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
254 spl a0@(0,d1:w) |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
255 #endif |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
256 |
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
257 | End of interrupt |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
258 |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
259 ikbd_endit_stack: |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
260 #if defined(__mcoldfire__) |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
261 moveql #6,d0 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
262 bclr d0,0xfffffa11:w |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
263 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
264 moveml sp@,d0-d1/a0 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
265 lea sp@(12),sp |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
266 #else |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
267 moveml sp@+,d0-d1/a0 |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
268 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
269 bclr #6,0xfffffa11:w |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
270 #endif |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
271 rte |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
272 |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
273 | Call old MIDI interrupt |
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
274 |
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
275 ikbd_oldmidi: |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
276 #if defined(__mcoldfire__) |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
277 moveml sp@,d0-d1/a0 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
278 lea sp@(12),sp |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
279 #else |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
280 moveml sp@+,d0-d1/a0 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
281 #endif |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
282 |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
283 movel old_ikbd,sp@- |
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
284 rts |
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
285 |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
286 | Mouse packet, byte #2 |
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
287 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
288 ikbd_mousex: |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
289 #if defined(__mcoldfire__) |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
290 lea sp@(-12),sp |
4378
dae8891fae2d
Damn. Need to be more careful with stack stuff.
Patrice Mandin <patmandin@gmail.com>
parents:
4377
diff
changeset
|
291 moveml d0-d1/a0,sp@ |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
292 #else |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
293 moveml d0-d1/a0,sp@- |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
294 #endif |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
295 |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
296 | Check if source is IKBD or MIDI |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
297 #if defined(__mcoldfire__) |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
298 moveql #0,d0 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
299 btst d0,0xfffffc00.w |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
300 #else |
1110
b6fdf299a2f3
Revert back to 1.6 revision
Patrice Mandin <patmandin@gmail.com>
parents:
1109
diff
changeset
|
301 btst #0,0xfffffc00.w |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
302 #endif |
1110
b6fdf299a2f3
Revert back to 1.6 revision
Patrice Mandin <patmandin@gmail.com>
parents:
1109
diff
changeset
|
303 beqs ikbd_oldmidi |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
304 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
305 moveb 0xfffffc02:w,d0 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
306 extw d0 |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
307 #if defined(__mcoldfire__) |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
308 movew _SDL_AtariIkbd_mousex,d1 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
309 addl d1,d0 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
310 movew d0,_SDL_AtariIkbd_mousex |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
311 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
312 movel #ikbd_mousey,d0 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
313 movel d0,0x118:w |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
314 #else |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
315 addw d0,_SDL_AtariIkbd_mousex |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
316 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
317 movel #ikbd_mousey,0x118:w |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
318 #endif |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
319 bras ikbd_endit_stack |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
320 |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
321 | Mouse packet, byte #3 |
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
322 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
323 ikbd_mousey: |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
324 #if defined(__mcoldfire__) |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
325 lea sp@(-12),sp |
4378
dae8891fae2d
Damn. Need to be more careful with stack stuff.
Patrice Mandin <patmandin@gmail.com>
parents:
4377
diff
changeset
|
326 moveml d0-d1/a0,sp@ |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
327 #else |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
328 moveml d0-d1/a0,sp@- |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
329 #endif |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
330 |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
331 | Check if source is IKBD or MIDI |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
332 #if defined(__mcoldfire__) |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
333 moveql #0,d0 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
334 btst d0,0xfffffc00.w |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
335 #else |
1110
b6fdf299a2f3
Revert back to 1.6 revision
Patrice Mandin <patmandin@gmail.com>
parents:
1109
diff
changeset
|
336 btst #0,0xfffffc00.w |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
337 #endif |
1110
b6fdf299a2f3
Revert back to 1.6 revision
Patrice Mandin <patmandin@gmail.com>
parents:
1109
diff
changeset
|
338 beqs ikbd_oldmidi |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
339 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
340 moveb 0xfffffc02:w,d0 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
341 extw d0 |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
342 #if defined(__mcoldfire__) |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
343 movew _SDL_AtariIkbd_mousey,d1 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
344 addl d1,d0 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
345 movew d0,_SDL_AtariIkbd_mousey |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
346 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
347 movel #ikbd,d0 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
348 movel d0,0x118:w |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
349 #else |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
350 addw d0,_SDL_AtariIkbd_mousey |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
351 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
352 movel #ikbd,0x118:w |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
353 #endif |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
354 bras ikbd_endit_stack |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
355 |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
356 | Joystick packet, byte #2 |
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
357 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
358 ikbd_joystick: |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
359 #if defined(__mcoldfire__) |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
360 lea sp@(-12),sp |
4378
dae8891fae2d
Damn. Need to be more careful with stack stuff.
Patrice Mandin <patmandin@gmail.com>
parents:
4377
diff
changeset
|
361 moveml d0-d1/a0,sp@ |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
362 #else |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
363 moveml d0-d1/a0,sp@- |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
364 #endif |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
365 |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
366 | Check if source is IKBD or MIDI |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
367 #if defined(__mcoldfire__) |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
368 moveql #0,d0 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
369 btst d0,0xfffffc00.w |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
370 #else |
1110
b6fdf299a2f3
Revert back to 1.6 revision
Patrice Mandin <patmandin@gmail.com>
parents:
1109
diff
changeset
|
371 btst #0,0xfffffc00.w |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
372 #endif |
1110
b6fdf299a2f3
Revert back to 1.6 revision
Patrice Mandin <patmandin@gmail.com>
parents:
1109
diff
changeset
|
373 beqs ikbd_oldmidi |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
374 |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
375 #if defined(__mcoldfire__) |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
376 moveb 0xfffffc02:w,d0 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
377 moveb d0,_SDL_AtariIkbd_joystick+1 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
378 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
379 movel #ikbd,d0 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
380 movel d0,0x118:w |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
381 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
382 bra ikbd_endit_stack |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
383 #else |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
384 moveb 0xfffffc02:w,_SDL_AtariIkbd_joystick+1 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
385 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
386 movel #ikbd,0x118:w |
4376
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
387 |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
388 bras ikbd_endit_stack |
40e4536ad0c3
Adapt IKBD asm routine for Coldfire
Patrice Mandin <patmandin@gmail.com>
parents:
4159
diff
changeset
|
389 #endif |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
390 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
391 .data |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
392 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
393 .even |
305
9c6613983e85
Atari port cleanups from Patrice
Sam Lantinga <slouken@libsdl.org>
parents:
297
diff
changeset
|
394 _SDL_AtariIkbd_enabled: |
9c6613983e85
Atari port cleanups from Patrice
Sam Lantinga <slouken@libsdl.org>
parents:
297
diff
changeset
|
395 .word 0 |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
396 |
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
397 .bss |
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
398 |
305
9c6613983e85
Atari port cleanups from Patrice
Sam Lantinga <slouken@libsdl.org>
parents:
297
diff
changeset
|
399 .even |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
400 .comm _SDL_AtariIkbd_keyboard,128 |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
401 .comm _SDL_AtariIkbd_mousex,2 |
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
402 .comm _SDL_AtariIkbd_mousey,2 |
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
403 .comm _SDL_AtariIkbd_mouseb,2 |
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
404 .comm _SDL_AtariIkbd_joystick,2 |