mirror of
https://github.com/Pecusx/libretro-atari800.git
synced 2026-05-20 22:33:22 +02:00
Pecusx
560 lines
13 KiB
C
560 lines
13 KiB
C
#include "libretro.h"
|
|
#include "libretro-core.h"
|
|
#include "retroscreen.h"
|
|
#include "platform.h"
|
|
#include "vkbd.h"
|
|
//CORE VAR
|
|
#ifdef _WIN32
|
|
char slash = '\\';
|
|
#else
|
|
char slash = '/';
|
|
#endif
|
|
extern const char *retro_save_directory;
|
|
extern const char *retro_system_directory;
|
|
extern const char *retro_content_directory;
|
|
char RETRO_DIR[512];
|
|
|
|
char DISKA_NAME[512]="\0";
|
|
char DISKB_NAME[512]="\0";
|
|
char TAPE_NAME[512]="\0";
|
|
|
|
extern void Screen_SetFullUpdate(int scr);
|
|
|
|
long frame=0;
|
|
unsigned long Ktime=0 , LastFPSTime=0;
|
|
|
|
//VIDEO
|
|
#ifdef RENDER16B
|
|
uint16_t Retro_Screen[400*300];
|
|
#else
|
|
unsigned int Retro_Screen[400*300];
|
|
#endif
|
|
|
|
//SOUND
|
|
short signed int SNDBUF[1024*2];
|
|
int snd_sampler_pal = 44100 / 50;
|
|
int snd_sampler_ntsc = 44100 / 60;
|
|
|
|
//PATH
|
|
char RPATH[512];
|
|
|
|
//EMU FLAGS
|
|
int NPAGE=-1, KCOL=1, BKGCOLOR=0;
|
|
int SHOWKEY=-1;
|
|
int VKBD_OPACITY=-1;
|
|
|
|
#if defined(ANDROID) || defined(__ANDROID__)
|
|
int MOUSE_EMULATED=1;
|
|
#else
|
|
int MOUSE_EMULATED=-1;
|
|
#endif
|
|
int SHIFTON=-1,MOUSEMODE=-1,PAS=4;
|
|
int SND=1; //SOUND ON/OFF
|
|
int pauseg=0; //enter_gui
|
|
int touch=-1; // gui mouse btn
|
|
//JOY
|
|
int al[2][2];//left analog1
|
|
int ar[2][2];//right analog1
|
|
unsigned char MXjoy[4]; // joy
|
|
int16_t joypad_bits[4];
|
|
|
|
#define JOYRANGE_UP_VALUE -16384 /* Joystick ranges in XY */
|
|
#define JOYRANGE_DOWN_VALUE 16383
|
|
#define JOYRANGE_LEFT_VALUE -16384
|
|
#define JOYRANGE_RIGHT_VALUE 16383
|
|
|
|
extern int a5200_joyhack;
|
|
|
|
extern int keyboard_type;
|
|
|
|
//MOUSE
|
|
extern int pushi; // gui mouse btn
|
|
int gmx,gmy; //gui mouse
|
|
int mouse_wu=0,mouse_wd=0;
|
|
//KEYBOARD
|
|
char Key_Sate[512];
|
|
char Key_Sate2[512];
|
|
static char old_Key_Sate[512];
|
|
|
|
int mbt[16]={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};
|
|
|
|
//STATS GUI
|
|
int BOXDEC= 32+2;
|
|
int STAT_BASEY;
|
|
|
|
/*static*/ retro_input_state_t input_state_cb;
|
|
static retro_input_poll_t input_poll_cb;
|
|
extern void retro_audio_cb( short l, short r);
|
|
|
|
extern bool libretro_supports_bitmasks;
|
|
|
|
void retro_set_input_state(retro_input_state_t cb)
|
|
{
|
|
input_state_cb = cb;
|
|
}
|
|
|
|
void retro_set_input_poll(retro_input_poll_t cb)
|
|
{
|
|
input_poll_cb = cb;
|
|
}
|
|
|
|
int slowdown=0;
|
|
|
|
#if defined(ANDROID) || defined(__ANDROID__)
|
|
#define DEFAULT_PATH "/mnt/sdcard/"
|
|
#else
|
|
|
|
#ifdef PS3PORT
|
|
#define DEFAULT_PATH "/dev_hdd0/HOMEBREW/"
|
|
#else
|
|
#define DEFAULT_PATH "/"
|
|
#endif
|
|
|
|
#endif
|
|
|
|
#define RETRO_DEVICE_ATARI_KEYBOARD RETRO_DEVICE_SUBCLASS(RETRO_DEVICE_KEYBOARD, 0)
|
|
#define RETRO_DEVICE_ATARI_JOYSTICK RETRO_DEVICE_SUBCLASS(RETRO_DEVICE_JOYPAD, 1)
|
|
|
|
void texture_uninit(void) { }
|
|
|
|
void texture_init(void)
|
|
{
|
|
memset(Retro_Screen, 0, sizeof(Retro_Screen));
|
|
memset(old_Key_Sate ,0, sizeof(old_Key_Sate));
|
|
|
|
gmx=(retrow/2)-1;
|
|
gmy=(retroh/2)-1;
|
|
}
|
|
|
|
int pushi=0; //mouse button
|
|
int keydown=0,keyup=0;
|
|
int KBMOD=-1;
|
|
int RSTOPON=-1;
|
|
int CTRLON=-1;
|
|
|
|
extern unsigned short int bmp[400*300];
|
|
extern unsigned atari_devices[ 4 ];
|
|
|
|
extern int UI_is_active;
|
|
extern int CURRENT_TV;
|
|
|
|
void retro_sound_update(void)
|
|
{
|
|
int x,stop=CURRENT_TV==312?885:742;//FIXME: 882/735?
|
|
|
|
if (! UI_is_active)
|
|
{
|
|
Sound_Callback(SNDBUF, 1024*2*2);
|
|
for(x=0;x<stop*2;x+=2)
|
|
retro_audio_cb(SNDBUF[x],SNDBUF[x+2]);
|
|
|
|
}
|
|
}
|
|
|
|
extern void vkbd_key(int key,int pressed);
|
|
|
|
void vkbd_key(int key,int pressed)
|
|
{
|
|
if(pressed)
|
|
{
|
|
if(SHIFTON==1)
|
|
;
|
|
Key_Sate[key]=1;
|
|
// key is being held down
|
|
}
|
|
else
|
|
{
|
|
if(SHIFTON==1)
|
|
;
|
|
Key_Sate[key]=0;
|
|
// key is being RELEASE
|
|
}
|
|
}
|
|
|
|
void retro_virtualkb(void)
|
|
{
|
|
// VKBD
|
|
int i;
|
|
// RETRO B Y SLT STA UP DWN LEFT RGT A X L R L2 R2 L3 R3
|
|
// INDEX 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
|
|
static int oldi=-1;
|
|
static int vkx=0,vky=0;
|
|
|
|
if(oldi!=-1)
|
|
{
|
|
vkbd_key(oldi,0);
|
|
oldi=-1;
|
|
}
|
|
|
|
if(SHOWKEY==1)
|
|
{
|
|
static int vkflag[5]={0,0,0,0,0};
|
|
|
|
if ( (joypad_bits[0] & (1 << RETRO_DEVICE_ID_JOYPAD_UP)) && vkflag[0]==0 )
|
|
vkflag[0]=1;
|
|
else if (vkflag[0]==1 && !(joypad_bits[0] & (1 << RETRO_DEVICE_ID_JOYPAD_UP)) )
|
|
{
|
|
vkflag[0]=0;
|
|
vky -= 1;
|
|
}
|
|
|
|
if ( (joypad_bits[0] & (1 << RETRO_DEVICE_ID_JOYPAD_DOWN)) && vkflag[1]==0 )
|
|
vkflag[1]=1;
|
|
else if (vkflag[1]==1 && !(joypad_bits[0] & (1 << RETRO_DEVICE_ID_JOYPAD_DOWN)) )
|
|
{
|
|
vkflag[1]=0;
|
|
vky += 1;
|
|
}
|
|
|
|
if ( (joypad_bits[0] & (1 << RETRO_DEVICE_ID_JOYPAD_LEFT)) && vkflag[2]==0 )
|
|
vkflag[2]=1;
|
|
else if (vkflag[2]==1 && !(joypad_bits[0] & (1 << RETRO_DEVICE_ID_JOYPAD_LEFT)) )
|
|
{
|
|
vkflag[2]=0;
|
|
vkx -= 1;
|
|
}
|
|
|
|
if ( (joypad_bits[0] & (1 << RETRO_DEVICE_ID_JOYPAD_RIGHT)) && vkflag[3]==0 )
|
|
vkflag[3]=1;
|
|
else if (vkflag[3]==1 && !(joypad_bits[0] & (1 << RETRO_DEVICE_ID_JOYPAD_RIGHT)) )
|
|
{
|
|
vkflag[3]=0;
|
|
vkx += 1;
|
|
}
|
|
|
|
if(vkx<0)vkx=NPLGN-1;
|
|
if(vkx>NPLGN-1)vkx=0;
|
|
if(vky<0)vky=NLIGN-1;
|
|
if(vky>NLIGN-1)vky=0;
|
|
|
|
virtual_kdb(( char *)Retro_Screen,vkx,vky);
|
|
|
|
i=8;
|
|
if( (joypad_bits[0] & (1 << i)) && vkflag[4]==0 )
|
|
vkflag[4]=1;
|
|
else if( !(joypad_bits[0] & (1 << i)) && vkflag[4]==1 )
|
|
{
|
|
vkflag[4]=0;
|
|
i=check_vkey2(vkx,vky);
|
|
|
|
if(i==-1)
|
|
oldi=-1;
|
|
if(i==-2)
|
|
{
|
|
NPAGE=-NPAGE;
|
|
oldi=-1;
|
|
}
|
|
else if(i==-3)
|
|
{
|
|
//KDB bgcolor
|
|
KCOL=-KCOL;
|
|
oldi=-1;
|
|
}
|
|
else if(i==-4)
|
|
{
|
|
//VKbd show/hide
|
|
oldi=-1;
|
|
Screen_SetFullUpdate(0);
|
|
SHOWKEY=-SHOWKEY;
|
|
}
|
|
else if(i==-5)
|
|
{
|
|
//VKbd opacitu on/off
|
|
VKBD_OPACITY=-VKBD_OPACITY;
|
|
oldi=-1;
|
|
}
|
|
else if(i==-6)
|
|
oldi=-1;
|
|
else if(i==-7)
|
|
oldi=-1;
|
|
else if(i==-8)
|
|
oldi=-1;
|
|
else
|
|
{
|
|
if(i==RETROK_LSHIFT) //SHIFT
|
|
{
|
|
SHIFTON=-SHIFTON;
|
|
|
|
oldi=-1;
|
|
}
|
|
else if(i==RETROK_LCTRL) //CTRL
|
|
{
|
|
CTRLON=-CTRLON;
|
|
|
|
oldi=-1;
|
|
}
|
|
else if(i==-12) //RSTOP
|
|
{
|
|
//(RETROK_ESCAPE);
|
|
RSTOPON=-RSTOPON;
|
|
|
|
oldi=-1;
|
|
}
|
|
else if(i==-13) //GUI
|
|
{
|
|
SHOWKEY=-SHOWKEY;
|
|
oldi=-1;
|
|
}
|
|
else if(i==-14) //JOY PORT TOGGLE
|
|
{
|
|
SHOWKEY=-SHOWKEY;
|
|
oldi=-1;
|
|
}
|
|
else
|
|
{
|
|
oldi=i;
|
|
vkbd_key(oldi,1);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
void Screen_SetFullUpdate(int scr)
|
|
{
|
|
if(scr==0 ||scr>1)
|
|
memset(Retro_Screen, 0, sizeof(Retro_Screen));
|
|
}
|
|
|
|
void Process_key(void)
|
|
{
|
|
int i;
|
|
|
|
if(keyboard_type==1)
|
|
return;
|
|
|
|
for(i=0;i<320;i++)
|
|
Key_Sate[i]=input_state_cb(0, RETRO_DEVICE_KEYBOARD, 0,i) ? 0x80: 0;
|
|
|
|
if(memcmp( Key_Sate,old_Key_Sate , sizeof(Key_Sate) ) )
|
|
{
|
|
for(i=0;i<320;i++)
|
|
{
|
|
if(Key_Sate[i] && Key_Sate[i]!=old_Key_Sate[i] )
|
|
{
|
|
if(i==RETROK_RCTRL)
|
|
{
|
|
CTRLON=-CTRLON;
|
|
continue;
|
|
}
|
|
if(i==RETROK_RSHIFT)
|
|
{
|
|
SHIFTON=-SHIFTON;
|
|
continue;
|
|
}
|
|
|
|
if(i==RETROK_LALT)
|
|
{
|
|
KBMOD=-KBMOD;
|
|
continue;
|
|
}
|
|
//printf("press: %d \n",i);
|
|
//retro_key_down(i);
|
|
|
|
}
|
|
else if ( !Key_Sate[i] && Key_Sate[i]!=old_Key_Sate[i] )
|
|
{
|
|
if(i==RETROK_RCTRL)
|
|
{
|
|
CTRLON=-CTRLON;
|
|
continue;
|
|
}
|
|
if(i==RETROK_RSHIFT)
|
|
{
|
|
SHIFTON=-SHIFTON;
|
|
continue;
|
|
}
|
|
|
|
if(i==RETROK_LALT)
|
|
{
|
|
KBMOD=-KBMOD;
|
|
continue;
|
|
}
|
|
|
|
//printf("release: %d \n",i);
|
|
//retro_key_up(i);
|
|
|
|
}
|
|
}
|
|
}
|
|
|
|
memcpy(old_Key_Sate,Key_Sate , sizeof(Key_Sate) );
|
|
}
|
|
|
|
int Retro_PollEvent()
|
|
{
|
|
// RETRO B Y SLT STA UP DWN LEFT RGT A X L R L2 R2 L3 R3
|
|
// INDEX 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
|
|
|
|
int SAVPAS=PAS;
|
|
int i,j;
|
|
static int vbt[4][16]={
|
|
{0x0,0x0,0x0,0x0,0x01,0x02,0x04,0x08,0x80,0x40,0x0,0x0,0x0,0x0,0x0,0x0},
|
|
{0x0,0x0,0x0,0x0,0x01,0x02,0x04,0x08,0x80,0x40,0x0,0x0,0x0,0x0,0x0,0x0},
|
|
{0x0,0x0,0x0,0x0,0x01,0x02,0x04,0x08,0x80,0x40,0x0,0x0,0x0,0x0,0x0,0x0},
|
|
{0x0,0x0,0x0,0x0,0x01,0x02,0x04,0x08,0x80,0x40,0x0,0x0,0x0,0x0,0x0,0x0},
|
|
};
|
|
|
|
input_poll_cb();
|
|
|
|
for (j = 0; j < 4; j++)
|
|
{
|
|
if (libretro_supports_bitmasks)
|
|
joypad_bits[j] = input_state_cb(j, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_MASK);
|
|
else
|
|
{
|
|
joypad_bits[j] = 0;
|
|
for (i = 0; i < (RETRO_DEVICE_ID_JOYPAD_R3+1); i++)
|
|
joypad_bits[j] |= input_state_cb(j, RETRO_DEVICE_JOYPAD, 0, i) ? (1 << i) : 0;
|
|
}
|
|
}
|
|
|
|
int mouse_l;
|
|
int mouse_r;
|
|
int16_t mouse_x,mouse_y;
|
|
mouse_x=mouse_y=0;
|
|
|
|
if(SHOWKEY==-1 && pauseg==0)Process_key();
|
|
|
|
//Joy mode
|
|
for(j=0;j<4;j++)
|
|
{
|
|
for(i=4;i<10;i++)
|
|
{
|
|
if(joypad_bits[j] & (1 << i))
|
|
MXjoy[j] |= vbt[j][i]; // Joy press
|
|
else if( MXjoy[j] & vbt[j][i])
|
|
MXjoy[j] &= ~vbt[j][i]; // Joy press
|
|
}
|
|
}
|
|
|
|
if(a5200_joyhack) //hack for robotron right analog act as Joy1
|
|
{
|
|
#if 0
|
|
int x,y;
|
|
#endif
|
|
|
|
//emulate Joy1 with joy analog right
|
|
ar[0][0] = (input_state_cb(0, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_RIGHT, RETRO_DEVICE_ID_ANALOG_X));
|
|
ar[0][1] = (input_state_cb(0, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_RIGHT, RETRO_DEVICE_ID_ANALOG_Y));
|
|
|
|
#if 0
|
|
x=ar[0][0];
|
|
y=ar[0][1];
|
|
#endif
|
|
|
|
/* Directions */
|
|
|
|
if (ar[0][1] <= JOYRANGE_UP_VALUE)
|
|
MXjoy[1] |= 0x01;
|
|
else if (ar[0][1] >= JOYRANGE_DOWN_VALUE)
|
|
MXjoy[1] |= 0x02;
|
|
|
|
if (ar[0][0] <= JOYRANGE_LEFT_VALUE)
|
|
MXjoy[1] |= 0x04;
|
|
else if (ar[0][0] >= JOYRANGE_RIGHT_VALUE)
|
|
MXjoy[1] |= 0x08;
|
|
}
|
|
|
|
|
|
if(atari_devices[0]==RETRO_DEVICE_ATARI_JOYSTICK)
|
|
{
|
|
//shortcut for joy mode only
|
|
|
|
//Button B Y SLT STA
|
|
// 0 1 2 3
|
|
for(i=0;i<4;i++)
|
|
{
|
|
if ( (joypad_bits[0] & (1 << i)) && mbt[i]==0 )
|
|
mbt[i]=1;
|
|
else if (mbt[i]==1 && !(joypad_bits[0] & (1 << i)) )
|
|
{
|
|
mbt[i]=0;
|
|
if(i==2)
|
|
MOUSE_EMULATED = -MOUSE_EMULATED;
|
|
}
|
|
}
|
|
//Button L R L2 R2 L3 R3
|
|
// 10 11 12 13 14 15
|
|
for(i=10;i<16;i++)
|
|
{
|
|
if ( (joypad_bits[0] & (1 << i)) && mbt[i]==0 )
|
|
mbt[i]=1;
|
|
else if ( mbt[i]==1 && !(joypad_bits[0] & (1 << i)) )
|
|
{
|
|
mbt[i]=0;
|
|
if(i==14)
|
|
SHOWKEY = -SHOWKEY;
|
|
}
|
|
}
|
|
}//if atari_devices=joy
|
|
|
|
|
|
if(MOUSE_EMULATED==1)
|
|
{
|
|
if(slowdown>0)
|
|
return 1;
|
|
|
|
if (joypad_bits[0] & (1 << RETRO_DEVICE_ID_JOYPAD_RIGHT))
|
|
mouse_x += PAS;
|
|
if (joypad_bits[0] & (1 << RETRO_DEVICE_ID_JOYPAD_LEFT))
|
|
mouse_x -= PAS;
|
|
if (joypad_bits[0] & (1 << RETRO_DEVICE_ID_JOYPAD_DOWN))
|
|
mouse_y += PAS;
|
|
if (joypad_bits[0] & (1 << RETRO_DEVICE_ID_JOYPAD_UP))
|
|
mouse_y -= PAS;
|
|
mouse_l = (joypad_bits[0] & (1 << RETRO_DEVICE_ID_JOYPAD_A)) ? 1 : 0;
|
|
mouse_r = (joypad_bits[0] & (1 << RETRO_DEVICE_ID_JOYPAD_B)) ? 1 : 0;
|
|
|
|
PAS=SAVPAS;
|
|
|
|
slowdown=1;
|
|
}
|
|
else
|
|
{
|
|
mouse_wu = input_state_cb(0, RETRO_DEVICE_MOUSE, 0, RETRO_DEVICE_ID_MOUSE_WHEELUP);
|
|
mouse_wd = input_state_cb(0, RETRO_DEVICE_MOUSE, 0, RETRO_DEVICE_ID_MOUSE_WHEELDOWN);
|
|
mouse_x = input_state_cb(0, RETRO_DEVICE_MOUSE, 0, RETRO_DEVICE_ID_MOUSE_X);
|
|
mouse_y = input_state_cb(0, RETRO_DEVICE_MOUSE, 0, RETRO_DEVICE_ID_MOUSE_Y);
|
|
mouse_l = input_state_cb(0, RETRO_DEVICE_MOUSE, 0, RETRO_DEVICE_ID_MOUSE_LEFT);
|
|
mouse_r = input_state_cb(0, RETRO_DEVICE_MOUSE, 0, RETRO_DEVICE_ID_MOUSE_RIGHT);
|
|
}
|
|
|
|
static int mmbL=0,mmbR=0;
|
|
|
|
if(mmbL==0 && mouse_l)
|
|
{
|
|
mmbL=1;
|
|
pushi=1;
|
|
touch=1;
|
|
}
|
|
else if(mmbL==1 && !mouse_l)
|
|
{
|
|
mmbL=0;
|
|
pushi=0;
|
|
touch=-1;
|
|
}
|
|
|
|
if(mmbR==0 && mouse_r)
|
|
mmbR=1;
|
|
else if(mmbR==1 && !mouse_r)
|
|
mmbR=0;
|
|
|
|
gmx += mouse_x;
|
|
gmy += mouse_y;
|
|
if(gmx<0)
|
|
gmx = 0;
|
|
if(gmx>retrow-1)
|
|
gmx = retrow-1;
|
|
if(gmy<0)
|
|
gmy = 0;
|
|
if(gmy>retroh-1)
|
|
gmy = retroh-1;
|
|
|
|
if(SHOWKEY==1 && pauseg==0)
|
|
retro_virtualkb();
|
|
|
|
return 1;
|
|
}
|
|
|