Mercurial > sdl-ios-xcode
annotate src/video/ataricommon/SDL_ikbdinterrupt.S @ 4157:baf615f9f2a0 SDL-1.2
Date: Thu, 16 Oct 2008 20:27:34 +0400
From: "Ilya Kasnacheev" <ilya.kasnacheev@gmail.com>
To: sdl@lists.libsdl.org
Subject: [SDL] SDL for Windows CE: a few GAPI patches
Hi *!
I've just ported a POWDER roguelike ( http://www.zincland.com/powder/ ) to
Windows CE (PDAs, Windows Mobile/Pocket PC). To do that, I had to get libsdl
working. Thanks for the awesome project files, it built without a hitch.
Nevertheless, I've found quite a few bugs in Windows CE (GAPI) SDL
implementation, which I've solved and now present as a serie of patches.
I'll try carefully annotate them. Please annotate them so I can work
toward accepting
them into the main source tree since without them SDL isn't really working on
Windows CE (I wonder why nobody fixed them before, btw: why isn't SDL popular as
a way to develop Windows CE games? Where are no ports?)
These changes can't be considered flawless, but they can be considered working
because I've yet to hear complains about things I fixed and POWDER build for
Windows CE is now considered stable.
Note: my comments start with !!, delete them before applying.
diff -bru SDL-1.2.13/src/video/gapi/SDL_gapivideo.c
SDL-1.2.13-new/src/video/gapi/SDL_gapivideo.c
--- SDL-1.2.13/src/video/gapi/SDL_gapivideo.c 2007-12-31
07:48:00.000000000 +0300
+++ SDL-1.2.13-new/src/video/gapi/SDL_gapivideo.c 2008-10-16
20:02:11.000000000 +0400
@@ -643,6 +643,7 @@
}
gapi->userOrientation = SDL_ORIENTATION_UP;
+ gapi->systemOrientation = SDL_ORIENTATION_UP;
video->flags = SDL_FULLSCREEN; /* Clear flags, GAPI supports
fullscreen only */
/* GAPI or VGA? */
@@ -661,18 +662,21 @@
}
/* detect user landscape mode */
- if( (width > height) && (GetSystemMetrics(SM_CXSCREEN) <
GetSystemMetrics(SM_CYSCREEN)))
+ if( (width > height) && (gapi->gxProperties.cxWidth <
gapi->gxProperties.cyHeight))
gapi->userOrientation = SDL_ORIENTATION_RIGHT;
+ if(GetSystemMetrics(SM_CYSCREEN) < GetSystemMetrics(SM_CXSCREEN))
+ gapi->systemOrientation = SDL_ORIENTATION_RIGHT;
+
/* shall we apply hires fix? for example when we do not use
hires resource */
gapi->hiresFix = 0;
- if( gapi->userOrientation == SDL_ORIENTATION_RIGHT )
+ if( gapi->systemOrientation == gapi->userOrientation )
{
- if( (width > GetSystemMetrics(SM_CYSCREEN)) || (height
> GetSystemMetrics(SM_CXSCREEN)))
+ if( (width > GetSystemMetrics(SM_CXSCREEN)) || (height
> GetSystemMetrics(SM_CYSCREEN)))
gapi->hiresFix = 1;
} else
- if( (width > GetSystemMetrics(SM_CXSCREEN)) || (height
> GetSystemMetrics(SM_CYSCREEN)))
- if( !((width == GetSystemMetrics(SM_CYSCREEN))
&& (height == GetSystemMetrics(SM_CXSCREEN)))) // user portrait,
device landscape
+ if( (width > GetSystemMetrics(SM_CYSCREEN)) || (height
> GetSystemMetrics(SM_CXSCREEN)))
+// if( !((width == gapi->gxProperties.cyHeight)
&& (height == gapi->gxProperties.cxWidth))) // user portrait, device
landscape
gapi->hiresFix = 1;
switch( gapi->userOrientation )
!! It used to query system metrics which return dimensions according to screen
!! orientation, which can really be portrait, left landscape or right landscape.
!! This is presumably incorrect because we couldn't care less about user mode
!! dimensions - all we want are the GAPI framebuffer dimensions, which
only match
!! user dimensions in one of possible orientations.
!! There's a fair dose of cargo cult programming involved in this fix, but it
!! used to work only in one orientation (portrait for PDAs, where frame-buffer
!! have same orientation as user screen), and now it works on all orientations.
@@ -742,21 +746,30 @@
WIN_FlushMessageQueue();
/* Open GAPI display */
- if( !gapi->useVga && this->hidden->useGXOpenDisplay )
+ if( !gapi->useVga && this->hidden->useGXOpenDisplay &&
!this->hidden->alreadyGXOpened )
+ {
+ this->hidden->alreadyGXOpened = 1;
if( !gapi->gxFunc.GXOpenDisplay(SDL_Window, GX_FULLSCREEN) )
{
SDL_SetError("Couldn't initialize GAPI");
return(NULL);
}
+ }
#if REPORT_VIDEO_INFO
printf("Video properties:\n");
printf("display bpp: %d\n", gapi->gxProperties.cBPP);
printf("display width: %d\n", gapi->gxProperties.cxWidth);
printf("display height: %d\n", gapi->gxProperties.cyHeight);
+ printf("system display width: %d\n", GetSystemMetrics(SM_CXSCREEN));
+ printf("system display height: %d\n", GetSystemMetrics(SM_CYSCREEN));
printf("x pitch: %d\n", gapi->gxProperties.cbxPitch);
printf("y pitch: %d\n", gapi->gxProperties.cbyPitch);
printf("gapi flags: 0x%x\n", gapi->gxProperties.ffFormat);
+ printf("user orientation: %d\n", gapi->userOrientation);
+ printf("system orientation: %d\n", gapi->userOrientation);
+ printf("gapi orientation: %d\n", gapi->gapiOrientation);
+
if( !gapi->useVga && this->hidden->useGXOpenDisplay && gapi->needUpdate)
{
!! Previous version used to call gapi->gxFunc.GXOpenDisplay each time the video
!! mode would be changed. You shouldn't, because this call has a
meaning "Lock the
!! GAPI framebuffer, designate it as busy", so the second call will fail (it is
!! already locked/busy).
!! Testing might not find that because most programs set up the video mode only
!! once, but POWDER does this once in a while, so it crashed when in
320x240 mode
!! (640x480 mode doesn't use that code, it worked fine).
diff -bru SDL-1.2.13/src/video/gapi/SDL_gapivideo.h
SDL-1.2.13-new/src/video/gapi/SDL_gapivideo.h
--- SDL-1.2.13/src/video/gapi/SDL_gapivideo.h 2007-12-31
07:48:00.000000000 +0300
+++ SDL-1.2.13-new/src/video/gapi/SDL_gapivideo.h 2008-10-16
20:02:11.000000000 +0400
@@ -132,12 +132,17 @@
#define NUM_MODELISTS 4 /* 8, 16, 24, and 32 bits-per-pixel */
int SDL_nummodes[NUM_MODELISTS];
SDL_Rect **SDL_modelist[NUM_MODELISTS];
+ // The orientation of the video mode user wants to get
+ // Probably restricted to UP and RIGHT
enum SDL_ScreenOrientation userOrientation;
int invert;
char hiresFix; // using hires mode without defining hires resource
// --------------
int useGXOpenDisplay; /* use GXOpenDispplay */
+ int alreadyGXOpened;
int w, h;
+ // The orientation of GAPI framebuffer.
+ // Never changes on the same device.
enum SDL_ScreenOrientation gapiOrientation;
void *buffer; // may be 8, 16, 24, 32 bpp
@@ -153,6 +158,10 @@
int startOffset; // in bytes
int useVga;
int suspended; // do not pu anything into video memory
+ // The orientation of the system, as defined by SM_CXSCREEN
and SM_CYSCREEN
+ // User can change it by using 'screen layout' in system options
+ // Restricted to UP or RIGHT
+ enum SDL_ScreenOrientation systemOrientation;
};
!! This is a flag variable, see the previous comment
!! And yet another orientation: now we have to keep three of them in mind.
diff -bru SDL-1.2.13/src/video/wincommon/SDL_sysevents.c
SDL-1.2.13-new/src/video/wincommon/SDL_sysevents.c
--- SDL-1.2.13/src/video/wincommon/SDL_sysevents.c 2007-12-31
07:48:02.000000000 +0300
+++ SDL-1.2.13-new/src/video/wincommon/SDL_sysevents.c 2008-10-16
20:02:12.000000000 +0400
@@ -160,10 +160,22 @@
#endif */
}
break;
+ // FIXME: Older version used just SDL_VideoSurface->(w, h)
+ // w and h are "clipped" while x and y are "raw", which caused
+ // x in former and y in latter case to be clipped in a
wrong direction,
+ // thus offsetting the coordinate on 2 x clip pixels
+ // (like, 128 for 640 -> 512 clipping).
+ // We will now try to extract and use raw values.
+ // The way to do that RIGHT is do
(orientation-dependent) clipping before
+ // doing this transform, but it's hardly possible.
+
+ // SEE SDL_mouse.c /ClipOffset to understand these calculations.
case SDL_ORIENTATION_RIGHT:
if (!SDL_VideoSurface)
break;
- rotatedX = SDL_VideoSurface->w - *y;
+ rotatedX = (2 *
((SDL_VideoSurface->offset%SDL_VideoSurface->pitch)/
+ SDL_VideoSurface->format->BytesPerPixel))
+ + SDL_VideoSurface->w - *y;
rotatedY = *x;
*x = rotatedX;
*y = rotatedY;
@@ -172,7 +184,8 @@
if (!SDL_VideoSurface)
break;
rotatedX = *y;
- rotatedY = SDL_VideoSurface->h - *x;
+ rotatedY = (2 *
(SDL_VideoSurface->offset/SDL_VideoSurface->pitch))
+ + SDL_VideoSurface->h - *x;
*x = rotatedX;
*y = rotatedY;
break;
!! That's the trickest part, hence the long comment.
!! GAPI would really support only 320x240 or 640x480 mode, if application
!! requested the different screen size (as POWDER did, wishing
256x192), then SDL
!! is going to grab the first mode that fits the requested, and pad the screen
!! with black bars (as they do with wide-screen films).
!! It would also get, say, 240x320 mode, and to turn it into 256x192 it would
!! need to rotate mouse clicks.
!! It worked, but one bug slipped through: it would receive mouse clicks
!! unpadded, then rotate them, and then pad the black bars. The
problem is: rotate
!! is done by GAPI driver while padding is done by SDL core. SDL core
doesn't know
!! anything about rotating, so it would pad one of dimensions incorrectly.
I understand that some of my claims (or code) might seem unbacked, but you can
always grab the POWDER binary, compile your own libsdl with one or more of
those fixes turned off, and see how weird it would misbehave. I can even supply
you with those custom builds of libsdl if you don't want to set up the build
environment for windows ce, you'll just need a PDA or a smartphone with it.
I plan to take care of SDL on Windows CE as long as I maintain the POWDER port.
POWDER is good for that because it:
Employs both padded (with centered image, black bars) and unpadded
(image occupies full screen) graphics; initializes video more than
once; uses both 320x240 and 640x480 video; uses both stylus and
buttons.
There's still a list of unresolved issues which I'm planning to fix:
1) Arrow buttons on PDA return weird scancodes compared to PC, this
caused the game to misbehave before I've fixed that. You can see it on
those diagrams:
http://wrar.name/upload/powder-htc.png
http://wrar.name/upload/powder-pda.png
2) SDL (or underlying windows) doesn't care to rotate arrow presses
when we're in a low-res GAPI mode, but it will rotate them in VGA mode
(because of different screen orientations, the same arrow buttons can
suddently mean different directions). Solution: we should stick to
GAPI user orientation (the orientation the program supposedly wants)
and rotate the keys on our own.
_______________________________________________
SDL mailing list
SDL@lists.libsdl.org
http://lists.libsdl.org/listinfo.cgi/sdl-libsdl.org
author | Sam Lantinga <slouken@libsdl.org> |
---|---|
date | Fri, 07 Nov 2008 04:15:36 +0000 |
parents | c9b51268668f |
children | 99210400e8b9 |
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 |
1312
c9b51268668f
Updated copyright information and removed rcs id lines (problematic in branch merges)
Sam Lantinga <slouken@libsdl.org>
parents:
1110
diff
changeset
|
3 Copyright (C) 1997-2006 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: |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
45 moveml d0-d1/a0-a1,sp@- |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
46 |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
47 | Disable interrupts |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
48 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
49 movew #0x2700,sr |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
50 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
51 | Save MFP registers used for keyboard |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
52 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
53 lea 0xfffffa00:w,a0 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
54 btst #6,a0@(0x09) |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
55 sne ikbd_ierb |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
56 btst #6,a0@(0x15) |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
57 sne ikbd_imrb |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
58 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
59 | Set our routine |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
60 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
61 movel 0x118:w,old_ikbd |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
62 movel #ikbd,0x118:w |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
63 bset #6,0xfffffa09:w | IERB |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
64 bset #6,0xfffffa15:w | IMRB |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
65 |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
66 | 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
|
67 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
68 moveb #8,0xfffffc02:w |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
69 |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
70 | Reenable interrupts |
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
71 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
72 movew #0x2300,sr |
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 | Interrupts done |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
75 |
305
9c6613983e85
Atari port cleanups from Patrice
Sam Lantinga <slouken@libsdl.org>
parents:
297
diff
changeset
|
76 movew #0xffff,_SDL_AtariIkbd_enabled |
9c6613983e85
Atari port cleanups from Patrice
Sam Lantinga <slouken@libsdl.org>
parents:
297
diff
changeset
|
77 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
78 moveml sp@+,d0-d1/a0-a1 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
79 rts |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
80 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
81 /*--- Uninstall our IKBD vector ---*/ |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
82 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
83 _SDL_AtariIkbdUninstall: |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
84 movel a0,sp@- |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
85 |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
86 | Disable interrupts |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
87 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
88 movew #0x2700,sr |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
89 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
90 | Restore previous MFP registers |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
91 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
92 lea 0xfffffa00:w,a0 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
93 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
94 bclr #6,a0@(0x09) |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
95 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
|
96 beqs ikbd_restoreierb |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
97 bset #6,a0@(0x09) |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
98 ikbd_restoreierb: |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
99 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
100 bclr #6,a0@(0x15) |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
101 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
|
102 beqs ikbd_restoreimrb |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
103 bset #6,a0@(0x15) |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
104 ikbd_restoreimrb: |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
105 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
106 movel old_ikbd,0x118:w |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
107 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
108 | Clear keyboard buffer |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
109 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
110 lea 0xfffffc00:w,a0 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
111 ikbd_videbuffer: |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
112 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
|
113 beqs ikbd_finbuffer |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
114 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
|
115 bras ikbd_videbuffer |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
116 ikbd_finbuffer: |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
117 |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
118 | Reenable interrupts |
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
119 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
120 movew #0x2300,sr |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
121 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
122 movel sp@+,a0 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
123 rts |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
124 |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
125 .bss |
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
126 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
127 .even |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
128 .comm ikbd_ierb,1 |
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
129 .comm ikbd_imrb,1 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
130 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
131 /*--- Our custom IKBD vector ---*/ |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
132 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
133 .text |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
134 .even |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
135 .ascii "XBRA" |
287
e4bd0cf95506
From: Patrice Mandin <pmandin@caramail.com>
Sam Lantinga <slouken@libsdl.org>
parents:
281
diff
changeset
|
136 .ascii "LSDL" |
e4bd0cf95506
From: Patrice Mandin <pmandin@caramail.com>
Sam Lantinga <slouken@libsdl.org>
parents:
281
diff
changeset
|
137 .comm old_ikbd,4*1 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
138 ikbd: |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
139 | Check if source is IKBD or MIDI |
1110
b6fdf299a2f3
Revert back to 1.6 revision
Patrice Mandin <patmandin@gmail.com>
parents:
1109
diff
changeset
|
140 btst #0,0xfffffc00.w |
b6fdf299a2f3
Revert back to 1.6 revision
Patrice Mandin <patmandin@gmail.com>
parents:
1109
diff
changeset
|
141 beqs ikbd_oldmidi |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
142 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
143 moveml d0-d1/a0,sp@- |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
144 moveb 0xfffffc02:w,d0 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
145 |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
146 | Joystick packet ? |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
147 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
148 cmpb #0xff,d0 |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
149 beqs ikbd_yes_joystick |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
150 |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
151 | Mouse packet ? |
281
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 cmpb #0xf8,d0 |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
154 bmis ikbd_no_mouse |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
155 cmpb #0xfc,d0 |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
156 bpls ikbd_no_mouse |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
157 |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
158 | 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
|
159 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
160 ikbd_yes_mouse: |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
161 andw #3,d0 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
162 movew d0,_SDL_AtariIkbd_mouseb |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
163 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
164 movel #ikbd_mousex,0x118:w |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
165 bras ikbd_endit_stack |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
166 |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
167 | 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
|
168 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
169 ikbd_yes_joystick: |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
170 movel #ikbd_joystick,0x118:w |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
171 bras ikbd_endit_stack |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
172 |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
173 | Keyboard press/release |
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
174 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
175 ikbd_no_mouse: |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
176 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
|
177 lea _SDL_AtariIkbd_keyboard,a0 |
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
178 andw #0x7f,d1 |
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
179 tas d0 |
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
180 spl a0@(0,d1:w) |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
181 |
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
182 | End of interrupt |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
183 |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
184 ikbd_endit_stack: |
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
185 moveml sp@+,d0-d1/a0 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
186 ikbd_endit: |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
187 bclr #6,0xfffffa11:w |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
188 rte |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
189 |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
190 | Call old MIDI interrupt |
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
191 |
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
192 ikbd_oldmidi: |
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
193 movel old_ikbd,sp@- |
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
194 rts |
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
195 |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
196 | 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
|
197 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
198 ikbd_mousex: |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
199 |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
200 | Check if source is IKBD or MIDI |
1110
b6fdf299a2f3
Revert back to 1.6 revision
Patrice Mandin <patmandin@gmail.com>
parents:
1109
diff
changeset
|
201 btst #0,0xfffffc00.w |
b6fdf299a2f3
Revert back to 1.6 revision
Patrice Mandin <patmandin@gmail.com>
parents:
1109
diff
changeset
|
202 beqs ikbd_oldmidi |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
203 |
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
204 movew d0,sp@- |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
205 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
206 moveb 0xfffffc02:w,d0 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
207 extw d0 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
208 addw d0,_SDL_AtariIkbd_mousex |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
209 |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
210 movew sp@+,d0 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
211 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
212 movel #ikbd_mousey,0x118:w |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
213 bras ikbd_endit |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
214 |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
215 | 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
|
216 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
217 ikbd_mousey: |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
218 |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
219 | Check if source is IKBD or MIDI |
1110
b6fdf299a2f3
Revert back to 1.6 revision
Patrice Mandin <patmandin@gmail.com>
parents:
1109
diff
changeset
|
220 btst #0,0xfffffc00.w |
b6fdf299a2f3
Revert back to 1.6 revision
Patrice Mandin <patmandin@gmail.com>
parents:
1109
diff
changeset
|
221 beqs ikbd_oldmidi |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
222 |
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
223 movew d0,sp@- |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
224 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
225 moveb 0xfffffc02:w,d0 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
226 extw d0 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
227 addw d0,_SDL_AtariIkbd_mousey |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
228 |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
229 movew sp@+,d0 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
230 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
231 movel #ikbd,0x118:w |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
232 bras ikbd_endit |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
233 |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
234 | 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
|
235 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
236 ikbd_joystick: |
1082
48436ffdf677
Avoid generating multiple key press/release messages for the same key
Patrice Mandin <patmandin@gmail.com>
parents:
1081
diff
changeset
|
237 |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
238 | Check if source is IKBD or MIDI |
1110
b6fdf299a2f3
Revert back to 1.6 revision
Patrice Mandin <patmandin@gmail.com>
parents:
1109
diff
changeset
|
239 btst #0,0xfffffc00.w |
b6fdf299a2f3
Revert back to 1.6 revision
Patrice Mandin <patmandin@gmail.com>
parents:
1109
diff
changeset
|
240 beqs ikbd_oldmidi |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
241 |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
242 moveb 0xfffffc02:w,_SDL_AtariIkbd_joystick+1 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
243 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
244 movel #ikbd,0x118:w |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
245 bras ikbd_endit |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
246 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
247 .data |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
248 |
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
249 .even |
305
9c6613983e85
Atari port cleanups from Patrice
Sam Lantinga <slouken@libsdl.org>
parents:
297
diff
changeset
|
250 _SDL_AtariIkbd_enabled: |
9c6613983e85
Atari port cleanups from Patrice
Sam Lantinga <slouken@libsdl.org>
parents:
297
diff
changeset
|
251 .word 0 |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
252 |
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
253 .bss |
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
254 |
305
9c6613983e85
Atari port cleanups from Patrice
Sam Lantinga <slouken@libsdl.org>
parents:
297
diff
changeset
|
255 .even |
281
c5010ab8ba35
Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff
changeset
|
256 .comm _SDL_AtariIkbd_keyboard,128 |
1081
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
257 .comm _SDL_AtariIkbd_mousex,2 |
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
258 .comm _SDL_AtariIkbd_mousey,2 |
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
259 .comm _SDL_AtariIkbd_mouseb,2 |
369dcdb52d70
Call old interrupt when receiving MIDI stuff
Patrice Mandin <patmandin@gmail.com>
parents:
305
diff
changeset
|
260 .comm _SDL_AtariIkbd_joystick,2 |