Added initial support for Atari (thanks Patrice!)
--HG-- extra : convert_revision : svn%3Ac70aab31-4412-0410-b14c-859654838e24/trunk%40282
This commit is contained in:
Sam Lantinga
parent
3b2774da46
commit
ea01f53e50
49 changed files with 5991 additions and 5 deletions
|
|
@ -8,13 +8,18 @@ ARCH_SUBDIRS = $(srcdir)/amigaos \
|
|||
$(srcdir)/epoc \
|
||||
$(srcdir)/linux \
|
||||
$(srcdir)/macos \
|
||||
$(srcdir)/mint \
|
||||
$(srcdir)/win32
|
||||
|
||||
# Include the architecture-independent sources
|
||||
COMMON_SRCS = SDL_timer.c SDL_timer_c.h SDL_systimer.h
|
||||
|
||||
# Include the architecture-specific sources
|
||||
if TARGET_MINT
|
||||
ARCH_SRCS = SDL_systimer.c SDL_vbltimer.S SDL_vbltimer_s.h
|
||||
else
|
||||
ARCH_SRCS = SDL_systimer.c
|
||||
endif
|
||||
|
||||
libtimer_la_SOURCES = $(COMMON_SRCS) $(ARCH_SRCS)
|
||||
|
||||
|
|
|
|||
149
src/timer/mint/SDL_systimer.c
Normal file
149
src/timer/mint/SDL_systimer.c
Normal file
|
|
@ -0,0 +1,149 @@
|
|||
/*
|
||||
SDL - Simple DirectMedia Layer
|
||||
Copyright (C) 1997, 1998, 1999, 2000, 2001 Sam Lantinga
|
||||
|
||||
This library is free software; you can redistribute it and/or
|
||||
modify it under the terms of the GNU Library General Public
|
||||
License as published by the Free Software Foundation; either
|
||||
version 2 of the License, or (at your option) any later version.
|
||||
|
||||
This library is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||||
Library General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU Library General Public
|
||||
License along with this library; if not, write to the Free
|
||||
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
||||
|
||||
Sam Lantinga
|
||||
slouken@libsdl.org
|
||||
*/
|
||||
|
||||
#ifdef SAVE_RCSID
|
||||
static char rcsid =
|
||||
"@(#) $Id$";
|
||||
#endif
|
||||
|
||||
/*
|
||||
* TOS/MiNT timer driver
|
||||
* based on vbl vector
|
||||
*
|
||||
* Patrice Mandin
|
||||
*/
|
||||
|
||||
#include <stdio.h>
|
||||
#include <sys/time.h>
|
||||
#include <signal.h>
|
||||
#include <unistd.h>
|
||||
#include <string.h>
|
||||
#include <errno.h>
|
||||
|
||||
#include <mint/osbind.h>
|
||||
#include <sysvars.h>
|
||||
|
||||
#include "SDL_error.h"
|
||||
#include "SDL_timer.h"
|
||||
#include "SDL_timer_c.h"
|
||||
#include "SDL_thread.h"
|
||||
|
||||
#include "SDL_vbltimer_s.h"
|
||||
|
||||
/* The first ticks value of the application */
|
||||
static Uint32 start;
|
||||
static SDL_bool supervisor;
|
||||
|
||||
void SDL_StartTicks(void)
|
||||
{
|
||||
void *oldpile;
|
||||
|
||||
/* Set first ticks value */
|
||||
oldpile=(void *)Super(0);
|
||||
start=*((volatile long *)_hz_200);
|
||||
Super(oldpile);
|
||||
|
||||
start *= 5; /* One _hz_200 tic is 5ms */
|
||||
}
|
||||
|
||||
Uint32 SDL_GetTicks (void)
|
||||
{
|
||||
Uint32 now;
|
||||
void *oldpile;
|
||||
|
||||
/* Check if we are in supervisor mode
|
||||
(this is the case when called from SDL_ThreadedTimerCheck,
|
||||
which is called from RunTimer, running in the vbl vector)
|
||||
*/
|
||||
if (!supervisor) {
|
||||
oldpile=(void *)Super(0);
|
||||
}
|
||||
|
||||
now=*((volatile long *)_hz_200);
|
||||
|
||||
if (!supervisor) {
|
||||
Super(oldpile);
|
||||
}
|
||||
|
||||
return((now*5)-start);
|
||||
}
|
||||
|
||||
void SDL_Delay (Uint32 ms)
|
||||
{
|
||||
Uint32 now;
|
||||
|
||||
now = SDL_GetTicks();
|
||||
while ((SDL_GetTicks()-now)<ms){
|
||||
}
|
||||
}
|
||||
|
||||
/* Data to handle a single periodic alarm */
|
||||
static SDL_bool timer_installed=SDL_FALSE;
|
||||
|
||||
static void RunTimer(void)
|
||||
{
|
||||
supervisor=SDL_TRUE;
|
||||
SDL_ThreadedTimerCheck();
|
||||
supervisor=SDL_FALSE;
|
||||
}
|
||||
|
||||
/* This is only called if the event thread is not running */
|
||||
int SDL_SYS_TimerInit(void)
|
||||
{
|
||||
void *oldpile;
|
||||
|
||||
supervisor=SDL_FALSE;
|
||||
|
||||
/* Install RunTimer in vbl vector */
|
||||
oldpile=(void *)Super(0);
|
||||
timer_installed = !SDL_AtariVblInstall(RunTimer);
|
||||
Super(oldpile);
|
||||
|
||||
if (!timer_installed) {
|
||||
return(-1);
|
||||
}
|
||||
return(SDL_SetTimerThreaded(0));
|
||||
}
|
||||
|
||||
void SDL_SYS_TimerQuit(void)
|
||||
{
|
||||
void *oldpile;
|
||||
|
||||
if (timer_installed) {
|
||||
/* Uninstall RunTimer vbl vector */
|
||||
oldpile=(void *)Super(0);
|
||||
SDL_AtariVblUninstall(RunTimer);
|
||||
Super(oldpile);
|
||||
timer_installed = SDL_FALSE;
|
||||
}
|
||||
}
|
||||
|
||||
int SDL_SYS_StartTimer(void)
|
||||
{
|
||||
SDL_SetError("Internal logic error: MiNT uses vbl timer");
|
||||
return(-1);
|
||||
}
|
||||
|
||||
void SDL_SYS_StopTimer(void)
|
||||
{
|
||||
return;
|
||||
}
|
||||
137
src/timer/mint/SDL_vbltimer.S
Normal file
137
src/timer/mint/SDL_vbltimer.S
Normal file
|
|
@ -0,0 +1,137 @@
|
|||
/*
|
||||
SDL - Simple DirectMedia Layer
|
||||
Copyright (C) 1997, 1998, 1999, 2000, 2001 Sam Lantinga
|
||||
|
||||
This library is free software; you can redistribute it and/or
|
||||
modify it under the terms of the GNU Library General Public
|
||||
License as published by the Free Software Foundation; either
|
||||
version 2 of the License, or (at your option) any later version.
|
||||
|
||||
This library is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||||
Library General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU Library General Public
|
||||
License along with this library; if not, write to the Free
|
||||
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
||||
|
||||
Sam Lantinga
|
||||
slouken@libsdl.org
|
||||
*/
|
||||
|
||||
#ifdef SAVE_RCSID
|
||||
static char rcsid =
|
||||
"@(#) $Id$";
|
||||
#endif
|
||||
|
||||
/*
|
||||
* VBL queue routine
|
||||
*
|
||||
* Patrice Mandin
|
||||
*/
|
||||
|
||||
#define _vbl_queue 0x456
|
||||
|
||||
.text
|
||||
|
||||
.globl _SDL_AtariVblInstall
|
||||
.globl _SDL_AtariVblUninstall
|
||||
|
||||
/*--- Vector installer ---*/
|
||||
|
||||
_SDL_AtariVblInstall:
|
||||
movel sp@(4),my_vector
|
||||
lea _my_vbl,a0
|
||||
|
||||
clrw vbl_mutex
|
||||
|
||||
/* Stop interrupts */
|
||||
|
||||
movew #0x2700,sr
|
||||
|
||||
/* Read vbl_queue pointer */
|
||||
movel _vbl_queue.w,a1
|
||||
|
||||
/* Search a free place */
|
||||
moveq #7,d0
|
||||
bcl_search_place:
|
||||
movel (a1),d1
|
||||
beqs place_found
|
||||
addql #4,a1
|
||||
dbra d0,bcl_search_place
|
||||
|
||||
/* Not found */
|
||||
moveq #1,d0
|
||||
bras exit_vbl_queue
|
||||
|
||||
/* Then install ourselves */
|
||||
place_found:
|
||||
movel a0,(a1)
|
||||
moveq #0,d0
|
||||
|
||||
exit_vbl_queue:
|
||||
/* Restart interrupts */
|
||||
movew #0x2300,sr
|
||||
|
||||
rts
|
||||
|
||||
/*--- Vector uninstaller ---*/
|
||||
|
||||
_SDL_AtariVblUninstall:
|
||||
movel sp@(4),d0
|
||||
cmpl my_vector,d0
|
||||
bnes badvector
|
||||
|
||||
movel #_my_vbl,d0
|
||||
|
||||
/* Stop interrupts */
|
||||
|
||||
movew #0x2700,sr
|
||||
|
||||
/* Read vbl_queue pointer */
|
||||
movel _vbl_queue.w,a1
|
||||
|
||||
/* Search where we are */
|
||||
moveq #7,d1
|
||||
bcl2_search_place:
|
||||
cmpl (a1),d0
|
||||
bnes next_place
|
||||
clrl (a1)
|
||||
moveq #0,d1
|
||||
next_place:
|
||||
addql #4,a1
|
||||
dbra d1,bcl2_search_place
|
||||
|
||||
/* Restart interrupts */
|
||||
movew #0x2300,sr
|
||||
badvector:
|
||||
rts
|
||||
|
||||
/*--- Our vbl ---*/
|
||||
|
||||
.text
|
||||
.even
|
||||
.ascii "XBRA"
|
||||
.ascii "_SDL"
|
||||
_my_vbl:
|
||||
/* Verify if this is not already running */
|
||||
|
||||
tstw vbl_mutex
|
||||
bnes vbl_end
|
||||
notw vbl_mutex
|
||||
|
||||
moveml d0-d7/a0-a6,sp@-
|
||||
movel my_vector,a0
|
||||
jsr a0@
|
||||
moveml sp@+,d0-d7/a0-a6
|
||||
|
||||
clrw vbl_mutex
|
||||
vbl_end:
|
||||
rts
|
||||
|
||||
.data
|
||||
.even
|
||||
.comm vbl_mutex,2*1
|
||||
.even
|
||||
.comm my_vector,4*1
|
||||
37
src/timer/mint/SDL_vbltimer_s.h
Normal file
37
src/timer/mint/SDL_vbltimer_s.h
Normal file
|
|
@ -0,0 +1,37 @@
|
|||
/*
|
||||
SDL - Simple DirectMedia Layer
|
||||
Copyright (C) 1997, 1998, 1999, 2000, 2001 Sam Lantinga
|
||||
|
||||
This library is free software; you can redistribute it and/or
|
||||
modify it under the terms of the GNU Library General Public
|
||||
License as published by the Free Software Foundation; either
|
||||
version 2 of the License, or (at your option) any later version.
|
||||
|
||||
This library is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||||
Library General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU Library General Public
|
||||
License along with this library; if not, write to the Free
|
||||
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
||||
|
||||
Sam Lantinga
|
||||
slouken@libsdl.org
|
||||
*/
|
||||
|
||||
#ifdef SAVE_RCSID
|
||||
static char rcsid =
|
||||
"@(#) $Id$";
|
||||
#endif
|
||||
|
||||
/*
|
||||
* TOS/MiNT timer driver
|
||||
* based on vbl vector
|
||||
*
|
||||
* Patrice Mandin
|
||||
*/
|
||||
|
||||
/* Functions prototypes */
|
||||
extern int SDL_AtariVblInstall(void *newvector);
|
||||
extern void SDL_AtariVblUninstall(void *newvector);
|
||||
Loading…
Add table
Add a link
Reference in a new issue