/* 
 * 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 GEKKO
#include <gccore.h>
#include <fat.h>
#include <ogc/usbstorage.h>
#include <network.h>
#include <smb.h>
#include "tinyFTP/ftp_devoptab.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 jump_frames,curr_frames, turbo_n;

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(GEKKO)


/****************************************************************************
 * 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);
}

char *load_rom_cartridge(void) {
	
	FILE *fichero;
	int size;
	
	printf("Opening %s\n", rom_cartridge);
	fichero=fopen(rom_cartridge,"rb");
	if(fichero==NULL) {
			return (rom_cartridge);
	}
	size=fread(ordenador.memoria,1,16384,fichero);
	if (size != 16384) return (rom_cartridge);
	
	fclose(fichero);
	return (0);
}

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;
		if (rom_cartridge[0]) retval = load_rom_cartridge(); else retval=load_a_rom(filenames);
		if (retval) {
			printf("Can't load file %s\n",retval);
			exit(1);
		}
	break;
	case 1:
		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:
		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
		
		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");
			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");
				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:
		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,2024,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 GEKKO
	if (smbismount) CloseShare();
	if (ftpismount) CloseFTP();
	DeInitUSB();
	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_sound=%c%c",48+object->gui_sound,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,"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_sound=255, fuller_box_sound=255, currah_active = 255, se_basic =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_sound=",10)) {
			gui_sound=line[10]-'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,"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_sound<2) {
		object->gui_sound=gui_sound;
	}
	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 (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
	fdebug = fopen("/fbzx-wii/logfile.txt","w");
	#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
	setenv("HOME", "/fbzx-wii", 1);
	
	//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);
		
	usbismount = InitUSB();
	#endif


	computer_init();
	printf("Computer init\n");

	printf("Modo: %d\n",ordenador.mode128k);
	
	printf("Set volume\n");
	set_volume(16);
	
	// 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 GEKKO
	
	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 GEKKO
	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();

	printf("Reset computer\n");
	ResetComputer();

	SDL_Delay(1000);

	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)&&(PC==0x056c) && (ordenador.tape_fast_load==1)&&(ordenador.tape_stop_fast == 0)) {
			if (ordenador.tap_file!=NULL)
				{
				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);
						}
					}
				}
			else {
				sprintf(ordenador.osd_text,"No TAP file selected");
				ordenador.osd_time=50;
			}
		}
		
		/* 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)&&(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;
}