The-Homebrew-Cloud/fbzx-wii
2
0
Fork 0
mirror of https://github.com/Oibaf66/fbzx-wii.git synced 2024-06-11 20:28:46 +02:00
Code Issues Packages Projects Releases Wiki Activity
c74b3281a4
fbzx-wii/src/emulator.c
fabio.olimpieri c74b3281a4 Gamecube port
2015-01-31 12:26:17 +00:00

1790 lines
45 KiB
C
Raw Blame History

/*
* Copyright (C) 2012 Fabio Olimpieri
* Copyright 2003-2009 (C) Raster Software Vigo (Sergio Costas)
* This file is part of FBZX Wii
*
* FBZX Wii is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 3 of the License, or
* (at your option) any later version.
*
* FBZX Wii 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 General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*
*/
#include "z80free/Z80free.h"
#include "computer.h"
#include "emulator.h"
#include "cargador.h"
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <malloc.h>
#include "characters.h"
#include "menus.h"
#include <string.h>
#include <SDL/SDL.h>
#include <SDL/SDL_thread.h>
#include<SDL/SDL_image.h>
#include "sound.h"
#include "tape.h"
#include "microdrive.h"
#include "currah_microspeech.h"
#include "menu_sdl.h"
#include "tape_browser.h"
#include "VirtualKeyboard.h"
#include <dirent.h>
#ifdef HW_RVL
#include <gccore.h>
#include <fat.h>
#include <ogc/usbstorage.h>
#include <network.h>
#include <smb.h>
#include "tinyFTP/ftp_devoptab.h"
#endif
#ifdef HW_DOL
#include <gccore.h>
#include <fat.h>
#endif
#ifdef DEBUG
FILE *fdebug;
#define printf(...) fprintf(fdebug,__VA_ARGS__)
#else
#ifdef GEKKO
#define printf(...)
#endif
#endif
char debug_var=1;
Z80FREE procesador;
struct computer ordenador;
SDL_Surface *screen;
char salir,sound_aborted;
unsigned int *sound[NUM_SNDBUF];
char path_snaps[MAX_PATH_LENGTH];
char path_taps[MAX_PATH_LENGTH];
char path_mdrs[MAX_PATH_LENGTH];
char path_scr1[MAX_PATH_LENGTH];
char path_scr2[MAX_PATH_LENGTH];
char path_confs[MAX_PATH_LENGTH];
char path_paste[MAX_PATH_LENGTH];
char path_copy[MAX_PATH_LENGTH];
char path_delete[MAX_PATH_LENGTH];
char path_tmp[MAX_PATH_LENGTH];
char load_path_snaps[MAX_PATH_LENGTH];
char load_path_taps[MAX_PATH_LENGTH];
char load_path_scr1[MAX_PATH_LENGTH];
char load_path_poke[MAX_PATH_LENGTH];
char rom_cartridge[MAX_PATH_LENGTH];
char pasted_file[MAX_PATH_LENGTH];
unsigned int colors[80];
unsigned int curr_frames, turbo_n;
int jump_frames;
static SDL_Surface *image;
unsigned char sdismount = 0;
unsigned char usbismount = 0;
unsigned char networkisinit = 0;
unsigned char smbismount = 0;
unsigned char ftpismount = 0;
unsigned char tmpismade = 0;
extern int FULL_DISPLAY_X; //640
extern int FULL_DISPLAY_Y; //480
extern int RATIO;
#ifdef MINGW
#define mkdir(name, mode) mkdir(name)
#endif
#if defined(HW_RVL)
/****************************************************************************
* Connect FTP Server
****************************************************************************/
unsigned char ConnectFTP ()
{
if (ftpismount) return 1;
printf("FTPuser: %s\n", ordenador.FTPUser);
printf("FTPpass: %s\n", ordenador.FTPPwd);
printf("FTPpath: %s\n", ordenador.FTPPath);
printf("FTPip: %s\n", ordenador.FTPIp);
printf("FTPPort: %d\n", ordenador.FTPPort);
printf("FTPpassive: %d\n", ordenador.FTPPassive);
int a;
for (a=0;a<3;a++)
if(ftpInitDevice("ftp", ordenador.FTPUser, ordenador.FTPPwd,ordenador.FTPPath, ordenador.FTPIp, ordenador.FTPPort, ordenador.FTPPassive))
{ftpismount = 1; break;}
if(!ftpismount) printf("Failed to connect to Server %s\n", ordenador.FTPIp);
else {
printf("Established connection to Server %s\n", ordenador.FTPIp);
}
return smbismount;
}
void CloseFTP()
{
if(ftpismount) {
printf("Disconnected from FTP Server %s\n", ordenador.FTPIp);
ftpClose("ftp");
}
ftpismount = 0;
}
/****************************************************************************
* Mount SMB Share
****************************************************************************/
unsigned char ConnectShare ()
{
if(smbismount)
return 1;
printf("user: %s\n", ordenador.SmbUser);
printf("pass: %s\n", ordenador.SmbPwd);
printf("share: %s\n", ordenador.SmbShare);
printf("ip: %s\n", ordenador.SmbIp);
int a;
for (a=0;a<3;a++)
if(smbInit(ordenador.SmbUser, ordenador.SmbPwd,ordenador.SmbShare, ordenador.SmbIp))
{smbismount = 1; break;}
if(!smbismount) printf("Failed to connect to SMB share\n");
else {
printf("Established connection to SMB share\n");
}
return smbismount;
}
void CloseShare()
{
if(smbismount) {
printf("Disconnected from SMB share\n");
smbClose("smb");
}
smbismount = 0;
}
/****************************************************************************
* init and deinit USB device functions
****************************************************************************/
unsigned char InitUSB()
{
printf("Initializing USB FAT subsytem ...\n");
fatUnmount("usb:");
// This should wake up the drive
unsigned char isMounted = fatMountSimple("usb", &__io_usbstorage);
unsigned char isInserted = __io_usbstorage.isInserted();
if (!isInserted)
{
printf("USB device not found\n");
return 0;
}
// USB Drive may be "sleeeeping"
// We need to try Mounting a few times to wake it up
int retry = 10;
while (retry && !isMounted)
{
sleep(1);
isMounted = fatMountSimple("usb", &__io_usbstorage);
retry--;
}
if (isMounted)
printf("USB FAT subsytem initialized\n");
else
printf("Impossible to initialize USB FAT subsytem\n");
return isMounted;
}
void DeInitUSB()
{
fatUnmount("usb:");
__io_usbstorage.shutdown();
}
unsigned char InitNetwork()
{
char myIP[16];
memset(myIP, 0, sizeof(myIP));
printf("Getting IP address via DHCP...\n");
if (if_config(myIP, NULL, NULL, 1) < 0) {
printf("No DHCP reply\n");
return 0;
}
printf("Got an address: %s\n",myIP);
return 1;
}
#endif
int load_zxspectrum_picture()
{
char *image_path;
image_path=myfile("fbzx/ZXSpectrum48k.png");
image=IMG_Load(image_path);
free(image_path);
if (image == NULL) {printf("Impossible to load image\n"); return 0;}
SDL_BlitSurface(image, NULL, ordenador.screen, NULL);
if (ordenador.mustlock) {
SDL_UnlockSurface (ordenador.screen);
SDL_Flip (ordenador.screen);
SDL_LockSurface (ordenador.screen);
} else {
SDL_Flip (ordenador.screen);
}
return 1;
}
int remove_dir(char *dir)
{
DIR *dp;
struct dirent *ep;
struct stat st;
dp = opendir (dir);
char str[MAX_PATH_LENGTH];
if (dp != NULL)
{
while ((ep = readdir (dp)))
{
if (!strcmp(".", ep->d_name)||!strcmp("..", ep->d_name)) continue;
strcpy (str,dir);
strcat (str,"/");
strcat (str,ep->d_name);
if (stat(str, &st) < 0) continue;
if (S_ISDIR(st.st_mode)) remove_dir (str); //recursive call
else unlink (str); //remove file
}
(void) closedir(dp);
}
else
{
printf("can't access the directory\n");
}
if (rmdir(dir)) {printf("Can't remove the directory\n"); return (-1);}
return 0;
}
void SDL_Fullscreen_Switch()
{
Uint32 flags = screen->flags;
if ( flags & SDL_FULLSCREEN )
flags &= ~SDL_FULLSCREEN;
else
flags |= SDL_FULLSCREEN;
screen = SDL_SetVideoMode(screen->w, screen->h, screen->format->BitsPerPixel,flags);
}
FILE *myfopen(char *filename,char *mode) {
char path[MAX_PATH_LENGTH];
FILE *fichero;
int length;
strcpy(path,getenv("HOME"));
length=strlen(path);
if ((length>0)&&(path[length-1]!='/'))
strcat(path,"/");
strcat(path,filename);
printf("opening %s\n",path);
fichero=fopen(path,mode);
if (fichero!=NULL) {
return (fichero);
}
return (NULL);
}
char *myfile(char *filename) {
char *path;
int length;
path=(char *)malloc(MAX_PATH_LENGTH);
strcpy(path,getenv("HOME"));
length=strlen(path);
if ((length>0)&&(path[length-1]!='/'))
strcat(path,"/");
strcat(path,filename);
return (path);
}
char *load_a_rom(char **filenames) {
char **pointer;
int offset=0;
FILE *fichero;
int size;
for(pointer=filenames;*pointer!=NULL;pointer++) {
fichero=myfopen(*pointer,"rb");
if(fichero==NULL) {
return (*pointer);
}
size=fread(ordenador.memoria+offset,16384,1,fichero);
offset+=16384;
fclose(fichero);
}
return (NULL);
}
void load_rom_cartridge(void) {
FILE *fichero;
int size;
printf("Opening %s\n", rom_cartridge);
fichero=fopen(rom_cartridge,"rb");
if(fichero==NULL) {
return;
}
size=fread(ordenador.memoria,1,16384,fichero);
fclose(fichero);
}
void load_rom(char type) {
char *retval;
FILE *fichero;
int size;
char *filenames[5];
switch(type) {
case 0:
if (ordenador.se_basic) filenames[0]="spectrum-roms/opense.rom"; else filenames[0]="spectrum-roms/48.rom";
filenames[1]=NULL;
retval=load_a_rom(filenames);
if (retval) {
printf("Can't load file %s\n",retval);
exit(1);
}
if (rom_cartridge[0]) load_rom_cartridge();
break;
case 1:
if (ordenador.se_basic) filenames[0]="spectrum-roms/opense.rom"; else filenames[0]="spectrum-roms/128-0.rom";
filenames[1]="spectrum-roms/128-1.rom";
filenames[2]=NULL;
retval=load_a_rom(filenames);
if (retval) {
printf("Can't load file %s\n",retval);
exit(1);
}
break;
case 2:
if (ordenador.se_basic) filenames[0]="spectrum-roms/opense.rom"; else filenames[0]="spectrum-roms/plus2-0.rom";
filenames[1]="spectrum-roms/plus2-1.rom";
filenames[2]=NULL;
retval=load_a_rom(filenames);
if (retval) {
printf("Can't load file %s\n",retval);
exit(1);
}
break;
case 3:
// first, try last version of PLUS3 roms
if (ordenador.se_basic) filenames[0]="spectrum-roms/opense.rom"; else filenames[0]="spectrum-roms/plus3-41-0.rom";
filenames[1]="spectrum-roms/plus3-41-1.rom";
filenames[2]="spectrum-roms/plus3-41-2.rom";
filenames[3]="spectrum-roms/plus3-41-3.rom";
filenames[4]=NULL;
retval=load_a_rom(filenames);
if (retval) {
printf("Can't load the Spectrum +3 ROM version 4.1. Trying with version 4.0\n");
if (ordenador.se_basic) filenames[0]="spectrum-roms/opense.rom"; else filenames[0]="spectrum-roms/plus3-40-0.rom";
filenames[1]="spectrum-roms/plus3-40-1.rom";
filenames[2]="spectrum-roms/plus3-40-2.rom";
filenames[3]="spectrum-roms/plus3-40-3.rom";
filenames[4]=NULL;
retval=load_a_rom(filenames);
if (retval) {
printf("Can't load the Spectrum +3 ROM version 4.0. Trying with legacy filenames\n");
if (ordenador.se_basic) filenames[0]="spectrum-roms/opense.rom"; else filenames[0]="spectrum-roms/plus3-0.rom";
filenames[1]="spectrum-roms/plus3-1.rom";
filenames[2]="spectrum-roms/plus3-2.rom";
filenames[3]="spectrum-roms/plus3-3.rom";
filenames[4]=NULL;
retval=load_a_rom(filenames);
if (retval) {
printf("Can't load file %s\n",retval);
exit(1);
}
}
}
break;
case 4:
if (ordenador.se_basic) filenames[0]="spectrum-roms/opense.rom"; else filenames[0]="spectrum-roms/128-spanish-0.rom";
filenames[1]="spectrum-roms/128-spanish-1.rom";
filenames[2]=NULL;
retval=load_a_rom(filenames);
if (retval) {
printf("Can't load file %s\n",retval);
exit(1);
}
break;
}
fichero=myfopen("spectrum-roms/if1-2.rom","rb"); // load Interface1 ROM
if(fichero==NULL) {
// try legacy name
fichero=myfopen("spectrum-roms/if1-v2.rom","rb");
if(fichero==NULL) {
printf("Can't open Interface1 ROM file\n");
exit(1);
}
}
size=fread(ordenador.shadowrom,8192,1,fichero);
fclose(fichero);
fichero=myfopen("spectrum-roms/currah.rom","rb"); // load Currah ROM
if(fichero==NULL) {
printf("Can't open Currah ROM file\n");
ordenador.currah_rom_unavailable = 1;
ordenador.currah_active = 0;
}
else
{
ordenador.currah_rom_unavailable = 0;
size=fread(ordenador.currahrom,2048,1,fichero);
fclose(fichero);
}
}
int set_video_mode()
{
#ifdef GEKKO
GXRModeObj *rmode;
rmode = VIDEO_GetPreferredMode(NULL);
if (!VIDEO_HaveComponentCable()) return 1;
if ((rmode->viTVMode)!=VI_TVMODE_PAL_INT) return 2;
switch(ordenador.progressive)
{
case 0: //interlace
rmode=&TVPal576IntDfScale;
break;
case 1: //progressive
rmode=&TVPal576ProgScale;
break;
default:
rmode=&TVPal576IntDfScale;
break;
}
VIDEO_Configure(rmode);
VIDEO_Flush();
VIDEO_WaitVSync();
#endif
return 0;
}
void init_sdl()
{
int retorno, bucle;
if (sound_type==SOUND_SDL)
retorno=SDL_Init(SDL_INIT_VIDEO|SDL_INIT_AUDIO);
else
retorno=SDL_Init(SDL_INIT_VIDEO);
if(retorno!=0) {
printf("Can't initialize SDL library. Exiting\n");
exit(1);
}
if (SDL_InitSubSystem(SDL_INIT_JOYSTICK)) {
//ordenador.use_js=0;
printf("Can't initialize JoyStick subsystem\n");
} else {
printf("JoyStick subsystem initialized\n");
//ordenador.use_js=1;
if(SDL_NumJoysticks()>0){
// Open joystick
ordenador.joystick_number = SDL_NumJoysticks();
if (ordenador.joystick_number>2) ordenador.joystick_number = 2; //Open max 2 joysticks
printf("Try to open %d joysticks \n", ordenador.joystick_number);
for (bucle=0;bucle<ordenador.joystick_number;bucle++) {
ordenador.joystick_sdl [bucle] = SDL_JoystickOpen(bucle);
if (NULL==ordenador.joystick_sdl [bucle]) {
printf("Can't open joystick %d\n",bucle);
}
}
}
}
}
void init_screen(int resx,int resy,int depth,int fullscreen,int dblbuffer,int hwsurface) {
int valores;
// screen initialization
valores=SDL_HWPALETTE|SDL_ANYFORMAT;
if (fullscreen==1)
valores|=SDL_FULLSCREEN;
if (dblbuffer==1)
valores|=SDL_DOUBLEBUF;
if (hwsurface==1)
valores|=SDL_HWSURFACE;
else
valores|=SDL_SWSURFACE;
screen=SDL_SetVideoMode(resx,resy,depth,valores);
if(screen==NULL) {
printf("Can't assign SDL Surface. Exiting\n");
exit(1);
}
ordenador.bpp=screen->format->BytesPerPixel;
printf("Bytes per pixel: %d\n",ordenador.bpp);
if(SDL_MUSTLOCK(screen)) {
ordenador.mustlock=1;
SDL_LockSurface(screen);
} else
ordenador.mustlock=0;
printf("Locking screen: %d\n", ordenador.mustlock);
printf("Return screen init\n");
FULL_DISPLAY_X = resx;
FULL_DISPLAY_Y = resy;
RATIO = 640/FULL_DISPLAY_X;
}
void init_sound()
{
int bucle, bucle2,ret2;
// sound initialization
ret2=sound_init(); // check all sound systems or the selected sound
if(ret2==0) {
sound_aborted=0;
} else { // if fails, run without sound
sound_type=SOUND_NO;
sound_init();
sound_aborted=1;
}
printf("Init sound\n");
if(ordenador.format)
ordenador.increment=2*ordenador.channels;
else
ordenador.increment=ordenador.channels;
for(bucle2=0;bucle2<NUM_SNDBUF;bucle2++) {
//ASND Required alligned memory with padding
#ifdef GEKKO
sound[bucle2]=(unsigned int *)memalign(32,ordenador.buffer_len*ordenador.increment+32);
for(bucle=0;bucle<ordenador.buffer_len+8;bucle++)
sound[bucle2][bucle]=0;
#else
sound[bucle2]=(unsigned int *) calloc(ordenador.buffer_len+1,ordenador.increment);
for(bucle=0;bucle<ordenador.buffer_len;bucle++)
sound[bucle2][bucle]=0;
#endif
}
printf("Init sound 2\n");
ordenador.tst_sample=(ordenador.cpufreq + (ordenador.freq*N_SAMPLES/2))/(ordenador.freq*N_SAMPLES);
}
void end_system() {
printf("Quitting...\n");
sound_close();
if(ordenador.mustlock)
SDL_UnlockSurface(screen);
if(ordenador.tap_file!=NULL)
fclose(ordenador.tap_file);
currah_microspeech_fini();
VirtualKeyboard_fini();
menu_deinit();
font_fini();
SDL_Quit();
if (!chdir(path_tmp)) {chdir("/"); remove_dir(path_tmp);} //remove the tmp directory if it exists
#ifdef HW_RVL
if (smbismount) CloseShare();
if (ftpismount) CloseFTP();
DeInitUSB();
#endif
#ifdef GEKKO
fatUnmount(0);
#endif
free_browser();
}
void load_main_game(char *nombre) {
int longitud,retval;
char *puntero;
longitud=strlen(nombre);
if (longitud<5) {
return;
}
puntero=nombre+(longitud-4);
if ((0==strcasecmp(".z80",puntero))||(0==strcasecmp(".sna",puntero))) {
load_z80(nombre);
return;
}
if ((0==strcasecmp(".tap",puntero))||(0==strcasecmp(".tzx",puntero))) {
char char_id[10];
ordenador.tape_write = 0; // by default, can't record
ordenador.tap_file=fopen(nombre,"r+b"); // read and write
if(ordenador.tap_file==NULL)
return;
strcpy(ordenador.current_tap,nombre);
retval=fread(char_id,10,1,ordenador.tap_file); // read the (maybe) TZX header
if((!strncmp(char_id,"ZXTape!",7)) && (char_id[7]==0x1A)&&(char_id[8]==1)) {
ordenador.tape_file_type = TAP_TZX;
rewind_tape(ordenador.tap_file,1);
} else {
ordenador.tape_file_type = TAP_TAP;
rewind_tape(ordenador.tap_file,1);
}
//Emulate load ""
if (ordenador.mode128k==4) //Spanish 128k
{
ordenador.keyboard_buffer[0][9]= 0;
ordenador.keyboard_buffer[1][9]= 0;
ordenador.keyboard_buffer[0][8]= SDLK_l;
ordenador.keyboard_buffer[1][8]= 0;
ordenador.keyboard_buffer[0][7]= SDLK_o;
ordenador.keyboard_buffer[1][7]= 0;
ordenador.keyboard_buffer[0][6]= SDLK_a;
ordenador.keyboard_buffer[1][6]= 0;
ordenador.keyboard_buffer[0][5]= SDLK_d;
ordenador.keyboard_buffer[1][5]= 0;
ordenador.keyboard_buffer[0][4]= SDLK_p; //"
ordenador.keyboard_buffer[1][4]= SDLK_LCTRL;
ordenador.keyboard_buffer[0][3]= SDLK_p; //"
ordenador.keyboard_buffer[1][3]= SDLK_LCTRL;
ordenador.keyboard_buffer[0][2]= SDLK_RETURN; // Return
ordenador.keyboard_buffer[1][2]= 0;
ordenador.keyboard_buffer[0][1]= SDLK_F6; //F6 - play
ordenador.keyboard_buffer[1][1]= 0;
ordenador.kbd_buffer_pointer=100;
}
else
{
ordenador.keyboard_buffer[0][9]= 0;
ordenador.keyboard_buffer[1][9]= 0;
ordenador.keyboard_buffer[0][8]= 0;
ordenador.keyboard_buffer[1][8]= 0;
ordenador.keyboard_buffer[0][7]= 0;
ordenador.keyboard_buffer[1][7]= 0;
ordenador.keyboard_buffer[0][6]= 0;
ordenador.keyboard_buffer[1][6]= 0;
ordenador.keyboard_buffer[0][5]= SDLK_j; //Load
ordenador.keyboard_buffer[1][5]= 0;
ordenador.keyboard_buffer[0][4]= SDLK_p; //"
ordenador.keyboard_buffer[1][4]= SDLK_LCTRL;
ordenador.keyboard_buffer[0][3]= SDLK_p; //"
ordenador.keyboard_buffer[1][3]= SDLK_LCTRL;
ordenador.keyboard_buffer[0][2]= SDLK_RETURN; // Return
ordenador.keyboard_buffer[1][2]= 0;
ordenador.keyboard_buffer[0][1]= SDLK_F6; //F6
ordenador.keyboard_buffer[1][1]= 0;
ordenador.kbd_buffer_pointer=100; //Delay the insertion in the buffer
}
countdown_buffer=0;
return;
}
}
int save_config(struct computer *object, char *filename) {
unsigned char key, joy_n;
FILE *fconfig;
fconfig = fopen(filename,"wb");
if (fconfig==NULL) {
return -2; // can't create file
}
fprintf(fconfig,"mode=%c%c",48+object->mode128k,10);
fprintf(fconfig,"issue=%c%c",48+object->issue,10);
fprintf(fconfig,"ntsc=%c%c",48+object->videosystem,10);
fprintf(fconfig,"se_basic=%c%c",48+object->se_basic,10);
fprintf(fconfig,"joystick1=%c%c",48+object->joystick[0],10);
fprintf(fconfig,"joystick2=%c%c",48+object->joystick[1],10);
fprintf(fconfig,"ay_sound=%c%c",48+object->ay_emul,10);
fprintf(fconfig,"fuller_box_sound=%c%c",48+object->fuller_box_sound,10);
fprintf(fconfig,"currah_microspeech=%c%c",48+object->currah_active,10);
fprintf(fconfig,"audio_mode=%c%c",48+object->audio_mode,10);
fprintf(fconfig,"gui_volume=%c%c",48+object->gui_volume,10);
fprintf(fconfig,"interface1=%c%c",48+object->mdr_active,10);
fprintf(fconfig,"doublescan=%c%c",48+object->dblscan,10);
fprintf(fconfig,"framerate=%c%c",48+jump_frames,10);
fprintf(fconfig,"screen=%c%c",48+object->zaurus_mini,10);
fprintf(fconfig,"text=%c%c",48+object->text_mini,10);
fprintf(fconfig,"precision=%c%c",48+object->precision,10);
fprintf(fconfig,"volume=%c%c",65+(object->volume),10);
fprintf(fconfig,"microspeech_volume=%c%c",65+(object->currah_volume),10);
fprintf(fconfig,"bw=%c%c",48+object->bw,10);
fprintf(fconfig,"tap_fast=%c%c",48+object->tape_fast_load,10);
fprintf(fconfig,"pause_instant_load=%c%c",48+object->pause_instant_load,10);
fprintf(fconfig,"rewind_on_reset=%c%c",48+object->rewind_on_reset,10);
fprintf(fconfig,"joypad1=%c%c",48+object->joypad_as_joystick[0],10);
fprintf(fconfig,"joypad2=%c%c",48+object->joypad_as_joystick[1],10);
fprintf(fconfig,"rumble1=%c%c",48+object->rumble[0],10);
fprintf(fconfig,"rumble2=%c%c",48+object->rumble[1],10);
fprintf(fconfig,"port=%c%c",48+object->port,10);
fprintf(fconfig,"autoconf=%c%c",48+object->autoconf,10);
fprintf(fconfig,"ignore_z80_joy_conf=%c%c",48+object->ignore_z80_joy_conf,10);
fprintf(fconfig,"turbo=%c%c",48+object->turbo,10);
fprintf(fconfig,"vk_auto=%c%c",48+object->vk_auto,10);
fprintf(fconfig,"vk_rumble=%c%c",48+object->vk_rumble,10);
for (joy_n=0; joy_n<2; joy_n++)
for (key=0; key<22; key++)
fprintf(fconfig,"joybutton_%c_%c=%.3d%c",joy_n+48,key+97, object->joybuttonkey[joy_n][key],10);
fclose(fconfig);
return 0;
}
int save_config_game(struct computer *object, char *filename, int overwrite) {
unsigned char key, joy_n;
FILE *fconfig;
fconfig=fopen(filename,"rb");
if((fconfig!=NULL)&&(!overwrite)) {
fclose(fconfig);
return -1; // file already exists
}
fconfig = fopen(filename,"wb");
if (fconfig==NULL) {
return -2; // can't create file
}
fprintf(fconfig,"joystick1=%c%c",48+object->joystick[0],10);
fprintf(fconfig,"joystick2=%c%c",48+object->joystick[1],10);
fprintf(fconfig,"joypad1=%c%c",48+object->joypad_as_joystick[0],10);
fprintf(fconfig,"joypad2=%c%c",48+object->joypad_as_joystick[1],10);
fprintf(fconfig,"rumble1=%c%c",48+object->rumble[0],10);
fprintf(fconfig,"rumble2=%c%c",48+object->rumble[1],10);
for (joy_n=0; joy_n<2; joy_n++)
for (key=0; key<22; key++)
fprintf(fconfig,"joybutton_%c_%c=%.3d%c",joy_n+48,key+97, object->joybuttonkey[joy_n][key],10);
fclose(fconfig);
return 0;
}
void load_config_network(struct computer *object) {
char line[256],carac,done;
int pos;
FILE *fconfig;
unsigned char smb_enable=0, ftp_enable=0, FTPPassive=0;
unsigned int FTPPort=21;
fconfig = myfopen("fbzx.net","rb");
if (fconfig==NULL) {
return;
}
done=1;
pos=0;
line[0]=0;
while(!feof(fconfig)) {
if (done) {
line[0]=0;
pos=0;
done=0;
}
if (0!=fread(&carac,1,1,fconfig)) {
if ((carac!=13)&&(carac!=10)) {
line[pos]=carac;
if (pos<1023) {
pos++;
}
continue;
}
}
done=1;
line[pos]=0;
if (line[0]=='#') { // comment
continue;
}
if (!strncmp(line,"smb_enable=",11)) {
smb_enable=line[11]-'0';
continue;
}
if (!strncmp(line,"user=",5)) {
if (line[5])
strcpy (object->SmbUser,line+5);
continue;
}
if (!strncmp(line,"password=",9)) {
if (line[9])
strcpy (object->SmbPwd,line+9);
continue;
}
if (!strncmp(line,"share_name=",11)) {
if (line[11])
strcpy (object->SmbShare,line+11);
continue;
}
if (!strncmp(line,"smb_ip=",7)) {
if (line[7])
strcpy (object->SmbIp,line+7);
continue;
}
if (smb_enable<2) {
object->smb_enable=smb_enable;}
if (!strncmp(line,"ftp_enable=",11)) {
ftp_enable=line[11]-'0';
continue;
}
if (!strncmp(line,"FTPUser=",8)) {
if (line[8])
strcpy (object->FTPUser,line+8);
continue;
}
if (!strncmp(line,"FTPPassword=",12)) {
if (line[12])
strcpy (object->FTPPwd,line+12);
continue;
}
if (!strncmp(line,"FTPPath=",8)) {
if (line[8])
strcpy (object->FTPPath,line+8);
continue;
}
if (!strncmp(line,"FTPIp=",6)) {
if (line[6])
strcpy (object->FTPIp,line+6);
continue;
}
if (!strncmp(line,"FTPPassive=",10)) {
FTPPassive=line[10]-'0';
continue;
}
if (!strncmp(line,"FTPPort=",7)) {
sscanf(line, "FTPPort=%d",&FTPPort);
if ((FTPPort<1024) && (FTPPort>0))
object->FTPPort=FTPPort;
continue;
}
if (ftp_enable<2) {
object->ftp_enable=ftp_enable;}
if (FTPPassive<2) {
object->FTPPassive=FTPPassive;}
}
fclose(fconfig);
}
int load_config(struct computer *object, char *filename) {
char config_path[MAX_PATH_LENGTH];
char line[256],carac,done;
int pos, key_sdl=0;
FILE *fconfig;
unsigned char volume=255,mode128k=255,issue=255,ntsc=255, joystick1=255,joystick2=255,ay_emul=255,mdr_active=255,
dblscan=255,framerate =255, screen =255, text=255, precision=255, bw=255, tap_fast=255, audio_mode=255,
joypad1=255, joypad2=255, rumble1=255, rumble2=255, joy_n=255, key_n=255, port=255, autoconf=255, turbo=225, vk_auto=255, vk_rumble=255,
rewind_on_reset=255, pause_instant_load =255, ignore_z80_joy_conf=255, gui_volume=255, fuller_box_sound=255, currah_active = 255, se_basic =255, currah_volume = 255;
if (filename) strcpy(config_path,filename);
else return -2;
fconfig = fopen(config_path,"rb");
if (fconfig==NULL) {
return -1;
}
done=1;
pos=0;
line[0]=0;
while(!feof(fconfig)) {
if (done) {
line[0]=0;
pos=0;
done=0;
}
if (0!=fread(&carac,1,1,fconfig)) {
if ((carac!=13)&&(carac!=10)) {
line[pos]=carac;
if (pos<1023) {
pos++;
}
continue;
}
}
done=1;
line[pos]=0;
if (line[0]=='#') { // comment
continue;
}
if (!strncmp(line,"mode=",5)) {
printf("Cambio a modo %c\n",line[5]);
mode128k=line[5]-'0';
continue;
}
if (!strncmp(line,"issue=",6)) {
issue=line[6]-'0';
continue;
}
if (!strncmp(line,"ntsc=",5)) {
ntsc=line[5]-'0';
continue;
}
if (!strncmp(line,"se_basic=",9)) {
se_basic=line[9]-'0';
continue;
}
if (!strncmp(line,"joystick1=",10)) {
joystick1=line[10]-'0';
continue;
}
if (!strncmp(line,"joystick2=",10)) {
joystick2=line[10]-'0';
continue;
}
if (!strncmp(line,"ay_sound=",9)) {
ay_emul=line[9]-'0';
continue;
}
if (!strncmp(line,"fuller_box_sound=",17)) {
fuller_box_sound=line[17]-'0';
continue;
}
if (!strncmp(line,"currah_microspeech=",19)) {
currah_active=line[19]-'0';
continue;
}
if (!strncmp(line,"audio_mode=",11)) {
audio_mode=line[11]-'0';
continue;
}
if (!strncmp(line,"gui_volume=",11)) {
gui_volume=line[11]-'0';
continue;
}
if (!strncmp(line,"interface1=",11)) {
mdr_active=line[11]-'0';
continue;
}
if (!strncmp(line,"screen=",7)) {
screen=line[7]-'0';
continue;
}
if (!strncmp(line,"text=",5)) {
text=line[5]-'0';
continue;
}
if (!strncmp(line,"doublescan=",11)) {
dblscan=line[11]-'0';
continue;
}
if (!strncmp(line,"framerate=",10)) {
framerate=line[10]-'0';
continue;
}
if (!strncmp(line,"precision=",10)) {
precision=line[10]-'0';
continue;
}
if (!strncmp(line,"volume=",7)) {
volume=(line[7]-'A');
continue;
}
if (!strncmp(line,"microspeech_volume=",19)) {
currah_volume=(line[19]-'A');
continue;
}
if (!strncmp(line,"bw=",3)) {
bw=(line[3]-'0');
continue;
}
if (!strncmp(line,"tap_fast=",9)) {
tap_fast=(line[9]-'0');
continue;
}
if (!strncmp(line,"pause_instant_load=",19)) {
pause_instant_load=(line[19]-'0');
continue;
}
if (!strncmp(line,"rewind_on_reset=",16)) {
rewind_on_reset=(line[16]-'0');
continue;
}
if (!strncmp(line,"joypad1=",8)) {
joypad1=line[8]-'0';
continue;
}
if (!strncmp(line,"joypad2=",8)) {
joypad2=line[8]-'0';
continue;
}
if (!strncmp(line,"rumble1=",8)) {
rumble1=line[8]-'0';
continue;
}
if (!strncmp(line,"rumble2=",8)) {
rumble2=line[8]-'0';
continue;
}
if (!strncmp(line,"port=",5)) {
port=line[5]-'0';
continue;
}
if (!strncmp(line,"autoconf=",9)) {
autoconf=line[9]-'0';
continue;
}
if (!strncmp(line,"ignore_z80_joy_conf=",20)) {
ignore_z80_joy_conf=line[20]-'0';
continue;
}
if (!strncmp(line,"turbo=",6)) {
turbo=line[6]-'0';
continue;
}
if (!strncmp(line,"vk_auto=",8)) {
vk_auto=line[8]-'0';
continue;
}
if (!strncmp(line,"vk_rumble=",10)) {
vk_rumble=line[10]-'0';
continue;
}
if (!strncmp(line,"joybutton_",10)) {
sscanf(line, "joybutton_%c_%c=%3d",&joy_n ,&key_n, &key_sdl);
if ((joy_n<50) && (joy_n>47) && (key_n<119) && (key_n>96))
object->joybuttonkey[joy_n-48][key_n-97]=key_sdl;
continue;
}
}
if (mode128k<5) {
object->mode128k=mode128k;
}
if (issue<4) {
object->issue=issue;
}
if (ntsc<2) {
object->videosystem=ntsc;
}
if (se_basic<2) {
object->se_basic=se_basic;
}
if (joystick1<6) {
object->joystick[0]=joystick1;
}
if (joystick2<6) {
object->joystick[1]=joystick2;
}
if (ay_emul<2) {
object->ay_emul=ay_emul;
}
if (fuller_box_sound<2) {
object->fuller_box_sound=fuller_box_sound;
}
if (currah_active<2) {
object->currah_active=currah_active;
}
if (audio_mode<4) {
object->audio_mode=audio_mode;
}
if (gui_volume<6) {
object->gui_volume=gui_volume;
}
if (mdr_active<2) {
object->mdr_active=mdr_active;
}
if (dblscan<2) {
object->dblscan=dblscan;
}
if (framerate<6) {
jump_frames=framerate;
}
if (screen<4) {
object->zaurus_mini=screen;
}
if (text<2) {
object->text_mini=text;
}
if (precision<2) {
object->precision=precision;
object->precision_old=precision;
}
if (bw<3) {
object->bw=bw;
}
if (volume<17) {
object->volume=volume;
set_volume(volume);
}
if (currah_volume<9) {
object->currah_volume=currah_volume;
}
if (tap_fast<2) {
object->tape_fast_load=tap_fast;
}
if (pause_instant_load<2) {
object->pause_instant_load=pause_instant_load;
}
if (rewind_on_reset<2) {
object->rewind_on_reset=rewind_on_reset;
}
if (joypad1<2) {
object->joypad_as_joystick[0]=joypad1;
}
if (joypad2<2) {
object->joypad_as_joystick[1]=joypad2;
}
if (rumble1<2) {
object->rumble[0]=rumble1;
}
if (rumble2<2) {
object->rumble[1]=rumble2;
}
if (port<5) {
object->port=port;
}
if (autoconf<2) {
object->autoconf=autoconf;
}
if (ignore_z80_joy_conf<2) {
object->ignore_z80_joy_conf=ignore_z80_joy_conf;
}
if (turbo<2) {
object->turbo=turbo;
}
if (vk_auto<2) {
object->vk_auto=vk_auto;
}
if (vk_rumble<2) {
object->vk_rumble=vk_rumble;
}
fclose(fconfig);
return 0;
}
#ifdef MINGW
int WinMain()
{
int argc=__argc;
char **argv=__argv;
#else
int main(int argc,char *argv[])
{
#endif
int bucle,tstados,tstados_screen, argumento,fullscreen,dblbuffer,hwsurface,length;
char gamefile[MAX_PATH_LENGTH],config_path[MAX_PATH_LENGTH] ;
word PC=0;
// by default, try all sound modes
sound_type=SOUND_AUTOMATIC;
gamefile[0]=0;
ordenador.zaurus_mini=0;
ordenador.text_mini=0;
ordenador.ulaplus=0;
ordenador.ulaplus_reg=0;
fullscreen=0;
dblbuffer=0;
hwsurface=0;
argumento=0;
jump_frames=0;
curr_frames=0;
ordenador.dblscan=1;
ordenador.bw=0;
turbo_n=1;
#ifdef DEBUG
#ifdef GEKKO
fatInitDefault();
#endif
#ifdef HW_DOL
fdebug = fopen("/fbzx-gc/logfile.txt","w");
#else //HW_RVL - Win
fdebug = fopen("/fbzx-wii/logfile.txt","w");
#endif
#endif
#ifdef MINGW
char path_home[MAX_PATH_LENGTH];
int i;
strcpy(path_home,"HOME=");
getcwd(path_home+5, MAX_PATH_LENGTH-5);
for (i=4; path_home[i]!=0;i++)
if (path_home[i]=='\\') path_home[i]='/';
printf("%s\n",path_home);
putenv(path_home);
#endif
#ifdef GEKKO
dblbuffer=1;
hwsurface=1;
sound_type=SOUND_ASND; //play_click does not work with ASND double buffer
#ifdef HW_RVL
setenv("HOME", "/fbzx-wii", 1);
#else //HW_DOL
setenv("HOME", "/fbzx-gc", 1);
#endif
//initialize libfat library
if (fatInitDefault())
printf("FAT subsytem initialized\n");
else
{
printf("Couldn't initialize FAT subsytem\n");
exit(0);
}
DIR *dp;
dp = opendir ("sd:/");
if (dp) sdismount = 1; else sdismount = 0;
if (sdismount)
printf("SD FAT subsytem initialized\n");
else
printf("Couldn't initialize SD fat subsytem\n");
if (sdismount) closedir (dp);
#endif
#ifdef HW_RVL
usbismount = InitUSB();
#endif
computer_init();
printf("Computer init\n");
printf("Modo: %d\n",ordenador.mode128k);
printf("Set volume\n");
set_volume(8);
// load current config
strcpy(config_path,getenv("HOME"));
length=strlen(config_path);
if ((length>0)&&(config_path[length-1]!='/'))
strcat(config_path,"/");
strcat(config_path,"fbzx.conf");
load_config(&ordenador, config_path);
printf("Modo: %d\n",ordenador.mode128k);
while(argumento<argc) {
if ((0==strcmp(argv[argumento],"-h"))||(0==strcmp(argv[argumento],"--help"))) {
printf("\nUsage: fbzx [-nosound] ");
#ifdef D_SOUND_ALSA
printf("[-alsa] ");
#endif
#ifdef D_SOUND_OSS
printf("[-oss] ");
#endif
#ifdef D_SOUND_PULSE
printf("[-pulse] ");
#endif
printf("[-mini] [-rotate] [-fs] [-hw] [-db] [-ds] [-ss] [-jump N] [gamefile]\n");
printf("\n -nosound: don't emulate sound\n");
#ifdef D_SOUND_ALSA
printf(" -alsa: use ALSA for sound output\n");
#endif
#ifdef D_SOUND_OSS
printf(" -oss: use OSS for sound output\n");
#endif
#ifdef D_SOUND_PULSE
printf(" -pulse: use PulseAudio for sound output (default)\n");
#endif
printf(" -mini: show screen at 320x240 in a rotated 640x480 screen\n");
printf(" -rotate: rotate screen clockwise\n");
printf(" -micro: show screen at 320x240\n");
printf(" -fs: start FBZX at fullscreen\n");
printf(" -hw: use hardware buffer (best for console framebuffer)\n");
printf(" -db: use double buffer\n");
printf(" -ds: use doublescan (don't emulate TV black stripes)\n");
printf(" -ss: force singlescan (emulate TV black stripes)\n");
printf(" -bw: emulate black&white TV set\n");
printf(" -color: emulate a color TV set\n");
printf(" -jumpN: show one TV refresh and jump over N refreshes (for slow systems)\n");
printf(" -turboN: accelerate the tape loading by N (2-9)\n");
printf(" gamefile: an optional .Z80 snapshot or .TAP/.TZX tape file\n\n");
exit(0);
} else if(0==strcmp(argv[argumento],"-nosound")) {
sound_type=SOUND_NO;
argumento++;
} else if(0==strcmp(argv[argumento],"-mini")) {
ordenador.zaurus_mini=1;
argumento++;
#ifdef D_SOUND_PULSE
} else if(0==strcmp(argv[argumento],"-pulse")) {
sound_type=SOUND_PULSEAUDIO;
argumento++;
#endif
#ifdef D_SOUND_ALSA
} else if(0==strcmp(argv[argumento],"-alsa")) {
sound_type=SOUND_ALSA;
argumento++;
#endif
#ifdef D_SOUND_OSS
} else if(0==strcmp(argv[argumento],"-oss")) {
sound_type=SOUND_OSS;
argumento++;
#endif
} else if(0==strcmp(argv[argumento],"-rotate")) {
ordenador.zaurus_mini=2;
argumento++;
} else if (0==strcmp(argv[argumento],"-micro")) {
ordenador.zaurus_mini=3;
ordenador.text_mini=1;
argumento++;
}else if(0==strcmp(argv[argumento],"-fs")) {
fullscreen=1;
argumento++;
} else if(0==strcmp(argv[argumento],"-hw")) {
hwsurface=1;
argumento++;
} else if(0==strcmp(argv[argumento],"-db")) {
dblbuffer=1;
argumento++;
} else if(0==strcmp(argv[argumento],"-ds")) {
ordenador.dblscan=1;
argumento++;
} else if(0==strcmp(argv[argumento],"-bw")) {
ordenador.bw=1;
argumento++;
} else if(0==strcmp(argv[argumento],"-color")) {
ordenador.bw=0;
argumento++;
} else if(0==strcmp(argv[argumento],"-ss")) {
ordenador.dblscan=0;
argumento++;
} else if(0==strncmp(argv[argumento],"-jump",5)) {
jump_frames=(int)(argv[argumento][5]);
jump_frames-=48;
if ((jump_frames<0)||(jump_frames>9)) jump_frames = 0;
argumento++;
printf ("Jump %d\n",jump_frames);
} else if(0==strncmp(argv[argumento],"-turbo",6)) {
turbo_n=(int)(argv[argumento][6]);
turbo_n-=48;
if ((turbo_n<1)||(turbo_n>9)) turbo_n = 1;
argumento++;
printf ("turbo %d\n",turbo_n);
} else {
strcpy(gamefile,argv[argumento]);
argumento++;
}
}
atexit(end_system);
init_sdl();
switch(ordenador.zaurus_mini) {
case 0:
init_screen(640,480,0,0,dblbuffer,hwsurface);
break;
case 1:
case 2:
init_screen(480,640,0,0,dblbuffer,hwsurface);
break;
case 3:
init_screen(320,240,0,0,dblbuffer,hwsurface);
break;
}
init_sound();
printf("Modo: %d\n",ordenador.mode128k);
register_screen(screen);
printf("Screen registered\n");
printf("Modo: %d\n",ordenador.mode128k);
#ifndef GEKKO
if(fullscreen) {
SDL_Fullscreen_Switch();
}
SDL_WM_SetCaption("FBZX Wii","");
#endif
ordenador.interr=0;
ordenador.readkeyboard = 0;
ordenador.screenbuffer=ordenador.screen->pixels;
ordenador.screen_width=ordenador.screen->w;
//Init SDL Menu
font_init();
menu_init(ordenador.screen);
VirtualKeyboard_init(ordenador.screen);
//Load the splash screen
if (ordenador.zaurus_mini==0) if (load_zxspectrum_picture()) SDL_FreeSurface (image);
#ifdef HW_RVL
load_config_network(&ordenador);
if (ordenador.smb_enable||ordenador.ftp_enable) networkisinit = InitNetwork();
if (networkisinit && ordenador.smb_enable) ConnectShare();
if (networkisinit && ordenador.ftp_enable) ConnectFTP();
#endif
// assign initial values for PATH variables
strcpy(path_snaps,getenv("HOME"));
length=strlen(path_snaps);
if ((length>0)&&(path_snaps[length-1]!='/'))
strcat(path_snaps,"/");
strcpy(path_taps,path_snaps);
strcpy(path_mdrs,path_snaps);
strcpy(path_scr1,path_snaps);
strcpy(path_scr2,path_snaps);
strcpy(path_confs,path_snaps);
strcpy(load_path_poke,path_snaps);
strcpy(path_paste,path_snaps);
strcpy(path_delete,path_snaps);
strcpy(path_copy,path_snaps);
strcpy(path_tmp,path_snaps);
strcat(path_snaps,"snapshots");
strcat(path_taps,"tapes");
strcat(path_mdrs,"microdrives");
strcat(path_scr1,"scr"); //left scr for retrocompatibility
strcat(path_scr2,"scr2");
strcat(path_confs,"configurations");
strcat(load_path_poke,"poke");
strcat(path_tmp,"tmp");
strcpy(load_path_snaps,path_snaps);
strcpy(load_path_taps,path_taps);
strcpy(load_path_scr1,path_scr1);
pasted_file[0]=0;
//Remove and make tmp dir
if (!chdir(path_tmp)) {chdir("/"); remove_dir(path_tmp);} //remove the tmp directory if it exists
int write_protection=0;
#ifdef GEKKO //Work arround until the bug in makdir of libogc is solved
FILE *f;
f=fopen("/test4783.txt", "w");
if (f == NULL) write_protection=1; //Impossible to open file
if (fclose(f)==EOF) write_protection=1; //Impossible to close file
if (write_protection) {msgInfo("SD card is write protected. Can't continue",3000,NULL);exit(0);}
unlink("/test4783.txt");
#endif
if ((!write_protection)&&(!mkdir(path_tmp,0777))){printf("Making tmp directory\n"); tmpismade=1;}
else {printf("Can't make tmp directory\n"); tmpismade=0;}
#ifdef HW_RVL
switch (ordenador.port)
{
case 1: //SD
if (sdismount)
{
strcpy(load_path_snaps,"sd:/");
strcpy(load_path_taps,"sd:/");
strcpy(load_path_scr1,"sd:/");
strcpy(load_path_poke,"sd:/");
strcpy(path_paste,"sd:/");
}
else ordenador.port =0;
break;
case 2: //USB
if (usbismount)
{
strcpy(load_path_snaps,"usb:/");
strcpy(load_path_taps,"usb:/");
strcpy(load_path_scr1,"usb:/");
strcpy(load_path_poke,"usb:/");
strcpy(path_paste,"usb:/");
}
else ordenador.port =0;
break;
case 3: //SMB
if (smbismount)
{
strcpy(load_path_snaps,"smb:/");
strcpy(load_path_taps,"smb:/");
strcpy(load_path_scr1,"smb:/");
strcpy(load_path_poke,"smb:/");
strcpy(path_paste,"smb:/");
}
else ordenador.port =0;
break;
case 4: //FTP
if (ftpismount)
{
strcpy(load_path_snaps,"ftp:/");
strcpy(load_path_taps,"ftp:/");
strcpy(load_path_scr1,"ftp:/");
strcpy(load_path_poke,"ftp:/");
strcpy(path_paste,"ftp:/");
}
else ordenador.port =0;
break;
}
#endif
ordenador.current_tap[0]=0;
// assign random values to the memory before start execution
printf("Reset memory\n");
printf("Modo: %d\n",ordenador.mode128k);
for(bucle=0;bucle<196608;bucle++)
ordenador.memoria[bucle]=(unsigned char) rand();
printf("Memory resetted\n");
ordenador.tap_file=NULL;
printf("Modo: %d\n",ordenador.mode128k);
// we filter all the events, except keyboard events
SDL_EventState(SDL_ACTIVEEVENT,SDL_IGNORE);
SDL_EventState(SDL_MOUSEMOTION,SDL_IGNORE);
SDL_EventState(SDL_MOUSEBUTTONDOWN,SDL_IGNORE);
SDL_EventState(SDL_MOUSEBUTTONUP,SDL_IGNORE);
SDL_EventState(SDL_JOYAXISMOTION,SDL_IGNORE);
SDL_EventState(SDL_JOYBALLMOTION,SDL_IGNORE);
SDL_EventState(SDL_JOYHATMOTION,SDL_IGNORE);
SDL_EventState(SDL_JOYBUTTONDOWN,SDL_IGNORE);
SDL_EventState(SDL_JOYBUTTONUP,SDL_IGNORE);
SDL_EventState(SDL_QUIT,SDL_ENABLE);
SDL_EventState(SDL_SYSWMEVENT,SDL_IGNORE);
SDL_EventState(SDL_VIDEORESIZE,SDL_IGNORE);
SDL_EventState(SDL_USEREVENT,SDL_IGNORE);
#ifndef GEKKO
SDL_EventState(SDL_MOUSEBUTTONDOWN,SDL_ENABLE);
#endif
SDL_ShowCursor(SDL_DISABLE);
salir=1;
printf("Init microdrive\n");
microdrive_init();
printf("Init Currah microspeech\n");
currah_microspeech_init();
ResetComputer();
#ifndef HW_DOL
SDL_Delay(1000);
#endif
printf("Reset screen\n");
clean_screen();
if (sound_aborted==1) {
strcpy(ordenador.osd_text,"Running without sound (read the FAQ)");
ordenador.osd_time=100;
}
printf("Modo: %d\n",ordenador.mode128k);
printf("load main game\n");
load_main_game(gamefile);
printf("Modo: %d\n",ordenador.mode128k);
sprintf(ordenador.osd_text,"Press Home for menu");
ordenador.osd_time=200;
printf("BPP: %d\n",ordenador.bpp);
while(salir) {
do {
tstados=Z80free_ustep(&procesador);
if (ordenador.precision)
{
tstados_screen=tstados-ordenador.r_fetch -ordenador.wr -ordenador.io;
if(tstados_screen>0) show_screen_precision(tstados_screen);
ordenador.wr=0;
ordenador.r_fetch=0;
ordenador.io=0;
emulate(tstados+ordenador.contention); // execute the whole hardware emulation for that number of TSTATES
ordenador.contention=0;
}
else
{
ordenador.wr=0;
ordenador.r_fetch=0;
ordenador.io=0;
show_screen(tstados);
emulate(tstados+ordenador.contention);
ordenador.contention=0;
}
} while(procesador.Status!=Z80XX);
PC=procesador.PC;
/* if PC is 0x056c, a call to LD_BYTES has been made, so if
FAST_LOAD is 1, we must load the block in memory and return */
if((!ordenador.mdr_paged)&&(!ordenador.currah_paged)&&(PC==0x056c) && (ordenador.tape_fast_load==1)&&(ordenador.tape_stop_fast == 0)) {
if (ordenador.pause_fastload_countdwn==0)
{
if (ordenador.tape_file_type==TAP_TAP) fastload_block_tap(ordenador.tap_file);
else
{
ordenador.tape_start_countdwn=0; //Stop tape play countdown
if ((ordenador.turbo_state != 1)&&(ordenador.turbo==1))
{
update_frequency(0); //set machine frequency
jump_frames=0;
}
if (ordenador.tape_stop ==1) fastload_block_tzx(ordenador.tap_file);
}
}
}
/* if PC is 0x04C2, a call to SA_BYTES has been made, so if
we want to save to the TAP file, we do it */
if((!ordenador.mdr_paged)&&(!ordenador.currah_paged)&&(PC==0x04C2)&&(ordenador.tape_write==1)&&(ordenador.tape_file_type==TAP_TAP)) {
if(ordenador.tap_file!=NULL)
save_file(ordenador.tap_file);
else {
sprintf(ordenador.osd_text,"No TAP file selected");
ordenador.osd_time=50;
}
}
/* if ordenador.mdr_paged is 2, we have executed the RET at 0x0700, so
we have to return to the classic ROM */
if(ordenador.mdr_paged==2)
ordenador.mdr_paged=0;
/* if PC is 0x0008 or 0x1708, and we have a microdrive, we have to page
the Interface 1 ROM */
if(((PC==0x0008)||(PC==0x1708))&&(ordenador.mdr_active))
ordenador.mdr_paged = 1;
/* if PC is 0x0700 and we have a microdrive, we have to unpage
the Interface 1 ROM after the last instruction */
if((PC==0x0700)&&(ordenador.mdr_active))
ordenador.mdr_paged = 2;
if(ordenador.readkeyboard==1) {
read_keyboard (); // read the physical keyboard
ordenador.readkeyboard = 0;
}
if(ordenador.interr==1) {
Z80free_INT(&procesador,bus_empty());
if ((ordenador.precision==0)||(jump_frames>0)) ordenador.interr=0;
} //else if (ordenador.precision==1) Z80free_INT_reset(&procesador);
}
return 0;
}
Reference in New Issue View Git Blame Copy Permalink