improved instant load, tzx instant load, tzx text on screen, shorten 128k load command, increased tape speed

src/characters.c

@@ -62,7 +62,7 @@ void printchar(unsigned char *memo, unsigned char carac, int x, int y, unsigned
 
 void print_string(unsigned char *memo, char *cadena, int x, int y, unsigned char color, unsigned char back, int width) {
 
-	int length, ncarac, bucle, xx;
+	int length, ncarac, bucle, xx,yy, nr;
 	int xxx, yyy;
 	int w,h;
 	unsigned char *str2;
@@ -79,12 +79,12 @@ void print_string(unsigned char *memo, char *cadena, int x, int y, unsigned char
 	}
 
 	for (ncarac=0,str2=cadena;*str2;str2++) {
-		if ((*str2)>=' ') {
+		if (((*str2)>=' ')||(*str2==13)) {
 			ncarac++;
 		}
 	}
 	length=w * ncarac;
-
+	
 	if (length > width) {
 		if (x>=0)
 			xx=x;
@@ -96,9 +96,14 @@ void print_string(unsigned char *memo, char *cadena, int x, int y, unsigned char
 		else
 			xx=x;
 	}
-
+	
+	nr=length/width;
+	yy=y-h*nr;
+	
+	if (yy<0) yy=0;
+	
 	xxx=xx;
-	yyy=y;
+	yyy=yy;
 	str2=cadena;
 	for (bucle=0;bucle<ncarac;bucle++) {
 		while ((*str2)<' ') {
@@ -112,7 +117,12 @@ void print_string(unsigned char *memo, char *cadena, int x, int y, unsigned char
 				str2+=2;
 				continue;
 			}
-			printf("Error de cadena %d %s\n",*str2,cadena);
+			if (*str2==13) {
+				*(str2)=' ';
+				str2++;
+				continue;
+			}
+			//printf("Error de cadena %d %s\n",*str2,cadena);
 			str2++;
 		}
 		if ((*str2)<=127) {

src/computer.c

@@ -130,7 +130,7 @@ void computer_init () { //Called only on start-up
 	ordenador.s8 = ordenador.s9 = ordenador.s10 = ordenador.s11 =
 	ordenador.s12 = ordenador.s13 = ordenador.s14 =
 	ordenador.s15 = 0xFF;
-	ordenador.tab_extended=0;
+	//ordenador.tab_extended=0;
 	ordenador.esc_again=0;
 
 	ordenador.js = 0x00;
@@ -647,19 +647,23 @@ inline void show_screen (int tstados) {
 			if (ordenador.osd_time) {
 				ordenador.osd_time--;
 				if (ordenador.osd_time==0) {
-					ordenador.tab_extended=0;
+					//ordenador.tab_extended=0;
 					ordenador.esc_again=0;
 				}
 					
 				if (ordenador.osd_time)
 					print_string (ordenador.screenbuffer,ordenador.osd_text, -1,450, 12, 0,ordenador.screen_width);
-				else {
+				/*else {
 					if (ordenador.zaurus_mini==0)
 						print_string (ordenador.screenbuffer,"                                      ",-1, 450, 12, 0,ordenador.screen_width);
 					else
 						print_string (ordenador.screenbuffer,"                            ",-1, 450, 12, 0,ordenador.screen_width);
-				}
+				}*/
 			}
+			
+			if (ordenador.tape_start_countdwn==1) ordenador.pause=0; //Autoplay
+			
+			if (ordenador.tape_start_countdwn>0) ordenador.tape_start_countdwn--;
 				
 			if (ordenador.mustlock) {
 				SDL_UnlockSurface (ordenador.screen);
@@ -886,19 +890,23 @@ inline void show_screen_precision (int tstados) {
 			if (ordenador.osd_time) {
 				ordenador.osd_time--;
 				if (ordenador.osd_time==0) {
-					ordenador.tab_extended=0;
+					//ordenador.tab_extended=0;
 					ordenador.esc_again=0;
 				}
 					
 				if (ordenador.osd_time)
 					print_string (ordenador.screenbuffer,ordenador.osd_text, -1,450, 12, 0,ordenador.screen_width);
-				else {
+				/*else {
 					if (ordenador.zaurus_mini==0)
 						print_string (ordenador.screenbuffer,"                                      ",-1, 450, 12, 0,ordenador.screen_width);
 					else
 						print_string (ordenador.screenbuffer,"                            ",-1, 450, 12, 0,ordenador.screen_width);
-				}
+				}*/
 			}
+			
+			if (ordenador.tape_start_countdwn==1) ordenador.pause=0; //Autoplay
+			
+			if (ordenador.tape_start_countdwn>0) ordenador.tape_start_countdwn--;
 				
 			if (ordenador.mustlock) {
 				SDL_UnlockSurface (ordenador.screen);
@@ -1224,12 +1232,12 @@ inline void read_keyboard () {
 			break;
 
 		case SDLK_F5:   // STOP tape
-			if ((ordenador.tape_fast_load == 0) || (ordenador.tape_file_type==TAP_TZX))
+			//if ((ordenador.tape_fast_load == 0))
 				ordenador.pause = 1;
 			break;
 
 		case SDLK_F6:	// PLAY tape
-			if ((ordenador.tape_fast_load == 0) || (ordenador.tape_file_type==TAP_TZX))
+			//if (ordenador.tape_fast_load == 0)
 				ordenador.pause = 0;
 			break;		
 
@@ -1501,7 +1509,7 @@ inline void read_keyboard () {
 		ordenador.s15 = (ordenador.s15 & 0xE0)| (ordenador.k15 ^ 0x1F);
 		ordenador.js = ordenador.jk;
 	
-	if (joybutton_matrix[0][SDLK_F6] && ((ordenador.tape_fast_load == 0) || (ordenador.tape_file_type==TAP_TZX)))
+	if (joybutton_matrix[0][SDLK_F6] && (ordenador.tape_fast_load == 0))
 				ordenador.pause = 0; //Play the tape
 				
 	//Virtual Keyboard
@@ -1664,6 +1672,7 @@ void ResetComputer () {
 			}
 	}		
 	ordenador.precision=ordenador.precision_old; //in case the machine is reset during loading
+	ordenador.tape_start_countdwn=0;
 }
 
 // check if there's contention and waits the right number of tstates

src/computer.h

@@ -100,7 +100,7 @@ struct computer {
 	unsigned char s8,s9,s10,s11,s12,s13,s14,s15;
 	unsigned char k8,k9,k10,k11,k12,k13,k14,k15;
 	unsigned char readed;
-	unsigned char tab_extended;
+	//unsigned char tab_extended;
 	unsigned char esc_again;
 
 	// kempston joystick private global variables
@@ -187,6 +187,7 @@ struct computer {
 	unsigned int tape_bit1_level;
 	unsigned char tape_bits_at_end;
 	unsigned int tape_loop_counter;
+	unsigned int tape_start_countdwn;
 	long tape_loop_pos;
 
 	unsigned char tape_write; // 0 can't write; 1 can write

src/emulator.c

@@ -1530,9 +1530,12 @@ int main(int argc,char *argv[]) {
 		/* if PC is 0x0556, 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==0x0556) && (ordenador.tape_fast_load==1)&&(ordenador.tape_file_type==TAP_TAP)) {
+		if((!ordenador.mdr_paged)&&(PC==0x056c) && (ordenador.tape_fast_load==1)) {
 			if(ordenador.tap_file!=NULL)
-				fastload_block(ordenador.tap_file);
+				{
+				if (ordenador.tape_file_type==TAP_TAP) fastload_block_tap(ordenador.tap_file);
+				else fastload_block_tzx(ordenador.tap_file);
+				}
 			else {
 				sprintf(ordenador.osd_text,"No TAP file selected");
 				ordenador.osd_time=50;

src/gui_sdl.c

@@ -80,7 +80,7 @@ static const char *emulation_messages[] = {
 		/*01*/		"^|48k_2|48K_3|128k|+2|+2A/+3|128K_Sp|NTSC",
 		/*02*/		"Frame rate",
 		/*03*/		"^|100%|50%|33%|25%|20%",
-		/*04*/		"Tap instant load",
+		/*04*/		"Tape instant load",
 		/*05*/		"^|on|off",
 		/*06*/		"Turbo mode",
 		/*07*/		"^|off|auto|fast|ultrafast",
@@ -369,8 +369,9 @@ static int manage_tape(int which)
 		break;
 	case 1: //Emulate load ""
 		countdown_buffer=8;
-		if (ordenador.mode128k==4) //Spanish 128k
+		switch (ordenador.mode128k)
-			{
+		{
+		case 4://Spanish 128k
 			ordenador.keyboard_buffer[0][8]= SDLK_l;		
 			ordenador.keyboard_buffer[1][8]= 0;
 			ordenador.keyboard_buffer[0][7]= SDLK_o;		
@@ -388,9 +389,18 @@ static int manage_tape(int which)
 			ordenador.keyboard_buffer[0][1]= SDLK_F6;		//F6 - play
 			ordenador.keyboard_buffer[1][1]= 0;
 			ordenador.kbd_buffer_pointer=8;
-			}
+			break;
-			else
+		case 3: //+3
-			{
+		case 2: //+2
+		case 1: //128k
+			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=2;
+			break;
+		case 0: //48k
+		default:
 			ordenador.keyboard_buffer[0][5]= SDLK_j;		//Load
 			ordenador.keyboard_buffer[1][5]= 0;
 			ordenador.keyboard_buffer[0][4]= SDLK_p;		//"
@@ -402,16 +412,17 @@ static int manage_tape(int which)
 			ordenador.keyboard_buffer[0][1]= SDLK_F6;		//F6
 			ordenador.keyboard_buffer[1][1]= 0;
 			ordenador.kbd_buffer_pointer=5;
-			}
+			break;
+		}
 		retorno=-1;
-		break;
+		break;	
 	case 2: //Play
-		if ((ordenador.tape_fast_load == 0) || (ordenador.tape_file_type==TAP_TZX))
+		//if (ordenador.tape_fast_load == 0)
 				ordenador.pause = 0;
 		retorno=-1;
 		break;
 	case 3: //Stop
-		if ((ordenador.tape_fast_load == 0) || (ordenador.tape_file_type==TAP_TZX))
+		//if (ordenador.tape_fast_load == 0)
 				ordenador.pause = 1;
 		retorno=-1;		
 		break;
@@ -1088,7 +1099,7 @@ static int save_scr(int i)
 
 	switch(retorno) {
 	case 0:
-		if (i==1) msgInfo("SCR1 saved",3000,NULL); else msgInfo("SCR2 saved",3000,NULL);
+		if (i==1) msgInfo("Screen 1 saved",3000,NULL); else msgInfo("Screen 2 saved",3000,NULL);
 		retorno2=-2; //come back to emulator
 		break;
 	case -1:

src/tape.c

@@ -24,6 +24,15 @@
 #include "menus.h"
 #include "tape.h"
 
+#ifdef DEBUG
+extern FILE *fdebug;
+#define printf(...) fprintf(fdebug,__VA_ARGS__)
+#else
+ #ifdef GEKKO
+ #define printf(...)
+ #endif
+#endif
+
 int elcontador=0;
 int eltstado=0;
 char elbit=0;
@@ -47,7 +56,8 @@ inline void tape_read(FILE *fichero, int tstados) {
 	//Auto ultra fast mode
 	if ((ordenador.turbo_state != 4)&&(ordenador.turbo==1))
 	{
-		update_frequency(11000000);
+		if (ordenador.tape_file_type==TAP_TAP) update_frequency(13000000);
+		else update_frequency(11000000);
 		jump_frames=7;
 		ordenador.precision_old=ordenador.precision;
 		ordenador.precision =0;
@@ -82,6 +92,7 @@ inline void tape_read_tap (FILE * fichero, int tstados) {
 			}
 			ordenador.tape_byte_counter = ((unsigned int) value) + 256 * ((unsigned int) value2);
 			retval=fread (&(ordenador.tape_byte), 1, 1, fichero);
+			printf("TAP: Flag_byte_norm: %X en %ld\n",ordenador.tape_byte,ftell(fichero));
 			ordenador.tape_bit = 0x80;
 			ordenador.tape_current_mode = TAP_GUIDE;
 			ordenador.tape_counter0 = 2168;
@@ -139,8 +150,8 @@ inline void tape_read_tap (FILE * fichero, int tstados) {
 				ordenador.tape_counter0 = 1710 - tstados;
 				ordenador.tape_counter1 = 1710;
 			} else {
-				ordenador.tape_counter0 = 851 - tstados;
+				ordenador.tape_counter0 = 855 - tstados;
-				ordenador.tape_counter1 = 852;
+				ordenador.tape_counter1 = 855;
 			}
 			ordenador.tape_bit = ((ordenador.tape_bit >> 1) & 0x7F);	// from bit0 to bit7
 			if (!ordenador.tape_bit) {
@@ -195,7 +206,7 @@ inline void tape_read_tzx (FILE * fichero, int tstados) {
 		done = 0;
 		do {
 			retval=fread(&value,1,1,fichero); // read block ID
-			//printf("ID: %X en %d\n",value,ftell(fichero));
+			printf("TZX:ID_normal: %X en %ld\n",value,ftell(fichero));
 			if(feof(fichero))
 				done = 1;
 			else
@@ -204,7 +215,7 @@ inline void tape_read_tzx (FILE * fichero, int tstados) {
 					done = 1;
 					bucle = 0;
 					ordenador.tape_current_bit = 0;
-					ordenador.tape_bit0_level = 852;
+					ordenador.tape_bit0_level = 855;
 					ordenador.tape_bit1_level = 1710;
 					ordenador.tape_bits_at_end = 8;
 					ordenador.tape_block_level = 2168;
@@ -431,9 +442,14 @@ inline void tape_read_tzx (FILE * fichero, int tstados) {
 					
 				case 0x31: // show text
 					retval=fread(&value2,1,1,fichero);
+					if (value2 < 11) ordenador.osd_time=value2*50; else ordenador.osd_time=500; //max 10 sec	
 					retval=fread(&value2,1,1,fichero); // length
 					for(bucle=0;bucle<((unsigned int)value2);bucle++)
-						retval=fread(&value3,1,1,fichero);
+					{
+					retval=fread(&value3,1,1,fichero);
+					if (bucle<199) ordenador.osd_text[bucle] = value3;
+					}
+					if (bucle>199) ordenador.osd_text[199]=0; else ordenador.osd_text[bucle]=0;
 					break;
 					
 				case 0x32: // archive info
@@ -704,21 +720,40 @@ void save_file(FILE *fichero) {
 	return;
 }
 
-void fastload_block (FILE * fichero) {
+void fastload_block_tap (FILE * fichero) {
 
-	unsigned int longitud;
+	/*Frome Fuse On exit:
-	unsigned char value[65536], salir,empty,flag_found;	
+   *  A = calculated parity byte if parity checked, else 0 (CHECKME)
-	unsigned int veces;
+   *  F : if parity checked, all flags are modified
+   *      else carry only is modified (FIXME)
+   *  B = 0xB0 (success) or 0x00 (failure)
+   *  C = 0x01 (confirmed), 0x21, 0xFE or 0xDE (CHECKME)
+   * DE : decremented by number of bytes loaded or verified
+   *  H = calculated parity byte or undefined
+   *  L = last byte read, or 1 if none
+   * IX : incremented by number of bytes loaded or verified
+   * A' = unchanged on error + no flag byte, else 0x01
+   * F' = 0x01      on error + no flag byte, else 0x45
+   *  R = no point in altering it :-)
+   * Other registers unchanged.
+   */
+   
+	unsigned int longitud, bucle, number_bytes;
+	unsigned char value[65536], empty, parity;	
 	int retval;
 
-	ordenador.other_ret = 1;	// next instruction must be RET
+	//ordenador.other_ret = 1;	// next instruction must be RET
+	procesador.PC=0x5e2;
 
-	if (!(procesador.Rm.br.F & F_C)) { // if Carry=0, is VERIFY, so return OK
+	if (!(procesador.Ra.br.F & F_C)) { // if Carry=0, is VERIFY, so return OK
 		procesador.Rm.br.F |= F_C;	 // verify OK
 		procesador.Rm.wr.IX += procesador.Rm.wr.DE;
 		procesador.Rm.wr.DE = 0;
 		return;
 	}
+	
+	procesador.Rm.br.B=0;
+	procesador.Rm.br.L=0x01;
 
 	empty=file_empty(fichero);
 
@@ -735,65 +770,394 @@ void fastload_block (FILE * fichero) {
 		return;
 	}
 
-	veces=0;
+	retval=fread (value, 1, 2, fichero);	// read length of current block
-
-	flag_found=0;
-	do {
-		retval=fread (value, 2, 1, fichero);	// read length of current block
 		if (feof (fichero))	{			// end of file?
-			veces++; // one more time rewinded
+			sprintf (ordenador.osd_text, "Rewind tape");			
-			sprintf (ordenador.osd_text, "Tape rewind");			
 			ordenador.osd_time = 100;
-			rewind (fichero);	// again
+			rewind_tape(fichero, 1);
-			retval=fread (value, 2, 1, fichero);	// read length of current block
+			return;
-		}
-		longitud = ((unsigned int) value[0]) + 256 * ((unsigned int) value[1]);
-		retval=fread (value, 1, 1, fichero);	// read flag byte
-		longitud--;
-		if (value[0] != procesador.Rm.br.A) { // different flag
-			retval=fread (value, longitud, 1, fichero);	// jump to the next block
-			if (veces==3) { // tape rewinded three times? Block with that flag not found.
-				sprintf(ordenador.osd_text,"Block with right flag not found");
-				ordenador.osd_time = 100;
-				procesador.Rm.br.F &= (~F_C);	// Load error
-				return;
 			}
-		} else
+			
-			flag_found = 1;
+	longitud = ((unsigned int) value[0]) + 256 * ((unsigned int) value[1]);
-	} while(flag_found == 0);
+		
+	retval=fread (value, 1,1, fichero); //Flag Byte
+	if (retval!=1)
+		{
+		procesador.Rm.br.F &= (~F_C);	// Load error
+		procesador.Rm.wr.IX += procesador.Rm.wr.DE;
+		procesador.Rm.wr.DE = 0;
+		printf("TAP: Read file error\n");
+		return;
+		}
 
-	salir = 0;
+	longitud--;
-	do {
+	printf("TAP: Flag_byte_fast: %X en %ld\n",value[0],ftell(fichero));
-		if (longitud == 0)
+	
-			salir = 1;
+	if (value[0] != procesador.Ra.br.A) // different flag
-		if (procesador.Rm.wr.DE == 0)
+		{
-			salir = 2;
+		procesador.Rm.br.F &= (~F_C);	// Load error
-		if (!salir) {
+		procesador.Rm.wr.IX += procesador.Rm.wr.DE;
-			retval=fread (value, 1, 1, fichero);	// read byte
+		procesador.Rm.wr.DE = 0;
-			Z80free_Wr_fake (procesador.Rm.wr.IX, (byte) value[0]);	// store the byte
+		retval=fread (value, 1,longitud, fichero); //read the remaining bytes
+		printf("TAP: Flag byte error, expected %X\n", procesador.Ra.br.A);
+		return;
+		}
+			
+	parity=(byte) value[0];	
+		
+	if ((longitud-1)!=procesador.Rm.wr.DE) 
+		{
+		printf("TAP: length block error\n");
+		printf("TAP: expected by system %d\n", procesador.Rm.wr.DE);
+		printf("TAP: expected by file %d\n", longitud-1);
+		}
+	
+	if (procesador.Rm.wr.DE>(longitud-1))
+		{
+		procesador.Rm.br.F &= (~F_C);	// Load error
+		procesador.Rm.wr.IX += procesador.Rm.wr.DE;
+		procesador.Rm.wr.DE = 0;
+        retval=fread (value, 1,longitud, fichero); //read the remaining bytes
+		return;
+		}
+	
+	retval=fread (value, 1,longitud, fichero);
+	if (retval!=longitud)
+		{
+		procesador.Rm.br.F &= (~F_C);	// Load error
+		procesador.Rm.wr.IX += procesador.Rm.wr.DE;
+		procesador.Rm.wr.DE = 0;
+		printf("TAP: Read file error\n");
+		return;
+		}
+	
+	number_bytes=procesador.Rm.wr.DE;
+
+	for(bucle=0;bucle<number_bytes; bucle++) 
+		{	
+			Z80free_Wr_fake (procesador.Rm.wr.IX, (byte) value[bucle]);	// store the byte
 			procesador.Rm.wr.IX++;
 			procesador.Rm.wr.DE--;
-			longitud--;
+			parity^=(byte) value[bucle];
 		}
-	}
-	while (!salir);
 
-	clean_screen ();
+	//clean_screen ();
 
-	if (salir == 1) { // system wants to load more bytes that the existent
+	parity^=value[number_bytes]; // checksum
-		procesador.Rm.br.F &= (~F_C);	// Load error
+	
-		return;
+	if (parity) printf("TAP: Parity error\n");
-	}
+	
-
+	procesador.Rm.br.A=parity;
-	if ((salir == 2) && (longitud != 1)) { // there are more bytes to load
+	//CP 01
-		procesador.Rm.br.F &= (~F_C);	// Load error
+	Z80free_doArithmetic(&procesador,procesador.Rm.br.A,0x01,0,1);
-		if (longitud > 1)
+	Z80free_adjustFlags(&procesador,0x01);
-			retval=fread (value, longitud, 1, fichero);	// jump to the next block
+	
-		return;
+	procesador.Rm.br.B=0xB0;
-	}
+	procesador.Rm.br.C=0x01;
-
+	procesador.Rm.br.H=parity;
-	retval=fread (value, 1, 1, fichero);	// jump over the checksum
+	procesador.Rm.br.L=value[longitud-1];
+	procesador.Ra.br.A=0x01;
+	procesador.Ra.br.F=0x45;
 	procesador.Rm.br.F |= F_C;	// Load OK
+	
+	//if (longitud==6913) sleep(2); //Screen
+	return;
+}
+
+void fastload_block_tzx (FILE * fichero) {
+
+	/* From Fuse - On exit:
+   *  A = calculated parity byte if parity checked, else 0 (CHECKME)
+   *  F : if parity checked, all flags are modified
+   *      else carry only is modified (FIXME)
+   *  B = 0xB0 (success) or 0x00 (failure)
+   *  C = 0x01 (confirmed), 0x21, 0xFE or 0xDE (CHECKME)
+   * DE : decremented by number of bytes loaded or verified
+   *  H = calculated parity byte or undefined
+   *  L = last byte read, or 1 if none
+   * IX : incremented by number of bytes loaded or verified
+   * A' = unchanged on error + no flag byte, else 0x01
+   * F' = 0x01      on error + no flag byte, else 0x45
+   *  R = no point in altering it :-)
+   * Other registers unchanged.
+   */
+   
+	unsigned int longitud, len, bucle, number_bytes, byte_position;
+	unsigned char value[65536], empty, blockid, parity;	
+	int retval;
+	fpos_t *file_pos;
+	
+	
+	//ordenador.other_ret = 1;	// next instruction must be RET
+	procesador.PC=0x5e2;
+	longitud =0;
+
+	if (!(procesador.Ra.br.F & F_C)) { // if Carry=0, is VERIFY, so return OK
+		procesador.Rm.br.F |= F_C;	 // verify OK
+		procesador.Rm.wr.IX += procesador.Rm.wr.DE;
+		procesador.Rm.wr.DE = 0;
+		return;
+	}
+	
+	procesador.Rm.br.B=0;
+	procesador.Rm.br.L=0x01;
+
+	empty=file_empty(fichero);
+
+	
+	if ((fichero == NULL)||(empty)) {
+		procesador.Rm.br.F &= (~F_C);	// Load error
+		procesador.Rm.wr.IX += procesador.Rm.wr.DE;
+		procesador.Rm.wr.DE = 0;
+		if(empty)
+			sprintf (ordenador.osd_text, "Tape file empty");
+		else
+			sprintf (ordenador.osd_text, "No tape selected");
+		ordenador.osd_time = 100;
+		return;
+	}
+		
+	do	{
+		retval=fread (&blockid, 1, 1, fichero); //Read id block
+		if (feof (fichero)) // end of file?
+			{			
+			sprintf (ordenador.osd_text, "Rewind tape");			
+			ordenador.osd_time = 100;
+			rewind_tape(fichero, 1);
+			return;
+			}
+		printf("TZX: ID_fast: %X en %ld\n",blockid,ftell(fichero));
+		switch(blockid) {
+				case 0x10: // classic tape block
+				retval=fread (value, 1, 2, fichero); //pause lenght
+				retval=fread (value, 1, 2, fichero);	// read length of current block
+				if (retval!=2)
+					{			
+					procesador.Rm.br.F &= (~F_C);	// Load error
+					procesador.Rm.wr.IX += procesador.Rm.wr.DE;
+					procesador.Rm.wr.DE = 0;
+					printf("TZX: Read file error\n");
+					return;
+					}
+				longitud = ((unsigned int) value[0]) + 256 * ((unsigned int) value[1]);
+					break;
+					
+					case 0x11: // turbo 
+					retval=fread(value,1,0x0F, fichero);
+					retval=fread (value, 1,3 ,fichero);	// read length of current block
+					if (retval!=3) {procesador.Rm.br.F &= (~F_C);return;}
+					longitud = ((unsigned int) value[0]) + 256 * ((unsigned int) value[1])+ 65536 * ((unsigned int) value[2]);
+					for(bucle=0;bucle<longitud;bucle++)
+						retval=fread(value,1,1, fichero);
+					break;
+					
+				case 0x12: // pure tone
+					retval=fread(value,1,4,fichero);
+					break;
+
+				case 0x13: // multiple pulses
+					retval=fread(value,1,1,fichero); // number of pulses
+					if (retval!=1) {procesador.Rm.br.F &= (~F_C);return;} 
+					if(value[0] != 0)
+						{
+						retval=fread(&value,1,2,fichero); // length of pulse in T-states
+						}
+					break;
+				
+				case 0x14: // turbo tape block					
+					retval=fread(value,1,0x07, fichero);
+					retval=fread (value, 1, 3, fichero);	// read length of current block
+					if (retval!=3) {procesador.Rm.br.F &= (~F_C);return;} 
+					longitud = ((unsigned int) value[0]) + 256 * ((unsigned int) value[1])+ 65536 * ((unsigned int) value[2]);
+					for(bucle=0;bucle<longitud;bucle++)
+						retval=fread(value,1,1, fichero);
+					break;
+
+				case 0x20: // pause
+					retval=fread(value,1,2,fichero);
+					if (retval!=2) {procesador.Rm.br.F &= (~F_C);return;} 
+					if (!value[0]&&!value[1]) {procesador.Rm.br.F &= (~F_C);return;} //stop the tape
+					break;
+					
+				case 0x21: // group start
+					retval=fread(value,1,1,fichero);
+					if (retval!=1) {procesador.Rm.br.F &= (~F_C);return;} 
+					len = (unsigned int) value[0];
+					retval=fread(value,1,len,fichero);
+					break;
+					
+				case 0x22: // group end
+					break;
+				
+				case 0x24: // loop start
+					retval=fread(value,1,2, fichero);
+					break;
+				
+				case 0x25: // loop end
+					break;
+				
+				case 0x28: // select block
+					retval=fread(value,1,2,fichero);
+					if (retval!=2) {procesador.Rm.br.F &= (~F_C);return;} 
+					len = ((unsigned int) value[0]) + 256 * ((unsigned int) value[1]);
+					retval=fread(value,1,len,fichero);
+					break;
+				
+				case 0x2A: // pause if 48K
+					retval=fread(value,1,4,fichero); 
+					break;
+					
+				case 0x30: // text description
+					retval=fread(value,1,1,fichero); // length
+					if (retval!=1) {procesador.Rm.br.F &= (~F_C);return;} 
+					len = (unsigned int) value[0] ;
+					retval=fread(value,1,len,fichero);
+					break;
+					
+				case 0x31: // show text
+					retval=fread(value,1,1,fichero);
+					if (retval!=1) {procesador.Rm.br.F &= (~F_C);return;} 
+					if (value[0] < 11) ordenador.osd_time=value[0]*50; else ordenador.osd_time=500;//max 10 sec	
+					retval=fread(value,1,1,fichero); // length
+					if (retval!=1) {procesador.Rm.br.F &= (~F_C);return;} 
+					len = (unsigned int) value[0];
+					for(bucle=0;bucle<len;bucle++)
+					{
+					retval=fread(value,1,1,fichero);
+					if (retval!=1) {procesador.Rm.br.F &= (~F_C);return;} 
+					if (bucle<199) ordenador.osd_text[bucle] = value[0];
+					}
+					if (bucle>199) ordenador.osd_text[199]=0; else ordenador.osd_text[bucle]=0;
+					break;
+					
+				case 0x32: // archive info
+					retval=fread(value,1,2,fichero); // length
+					if (retval!=2) {procesador.Rm.br.F &= (~F_C);return;} 
+					len = ((unsigned int) value[0]) + 256 * ((unsigned int) value[1]);
+					retval=fread(value,1,len,fichero);
+					break;
+				
+				case 0x33: // hardware info
+					retval=fread(value,1,1,fichero);
+					if (retval!=1) {procesador.Rm.br.F &= (~F_C);return;} 
+					len = (unsigned int) value[0] *3;
+					retval=fread(value,1,len,fichero);
+					break;
+					
+				case 0x34: // emulation info					
+					retval=fread(value,1,8,fichero);
+					break;
+					
+				case 0x35: // custom info					
+					retval=fread(value,1,16,fichero);
+					retval=fread(value,1,4,fichero);
+					if (retval!=4) {procesador.Rm.br.F &= (~F_C);return;} 
+					len = ((unsigned int) value[0]) + 256 * ((unsigned int) value[1]) + 65536*((unsigned int) value[2]);// + 16777216*((unsigned int) value[3]);
+					retval=fread(value,1,len,fichero);
+					break;
+					
+				default: // not supported
+					procesador.Rm.br.F &= (~F_C);return; //Tape error				
+					break;
+			}
+		} while ((blockid!=0x10)&&(!feof(fichero)));
+
+		if (feof(fichero)) {procesador.Rm.br.F &= (~F_C);return;}
+		
+		//Fast load routine
+		
+	retval=fread (value, 1,1, fichero); //Flag Byte
+	if (retval!=1)
+		{
+		procesador.Rm.br.F &= (~F_C);	// Load error
+		procesador.Rm.wr.IX += procesador.Rm.wr.DE;
+		procesador.Rm.wr.DE = 0;
+		printf("TZX: Read file error\n");
+		return;
+		}
+
+	longitud--;
+	printf("TZX: Flag_byte_fast: %X en %ld\n",value[0],ftell(fichero));
+	
+	if (value[0] != procesador.Ra.br.A) // different flag
+		{
+		procesador.Rm.br.F &= (~F_C);	// Load error
+		procesador.Rm.wr.IX += procesador.Rm.wr.DE;
+		procesador.Rm.wr.DE = 0;
+		retval=fread (value, 1,longitud, fichero); //read the remaining bytes
+		printf("TZX Flag byte error, expected %X\n", procesador.Ra.br.A);
+		return;
+		}
+			
+	parity=(byte) value[0];	
+		
+	if ((longitud-1)!=procesador.Rm.wr.DE) 
+		{
+		printf("TZX: length block error\n");
+		printf("TZX: expected by system %d\n", procesador.Rm.wr.DE);
+		printf("TZX: expected by file %d\n", longitud-1);
+		}
+	
+	if (procesador.Rm.wr.DE>(longitud-1))
+		{
+		procesador.Rm.br.F &= (~F_C);	// Load error
+		procesador.Rm.wr.IX += procesador.Rm.wr.DE;
+		procesador.Rm.wr.DE = 0;
+        retval=fread (value, 1,longitud, fichero); //read the remaining bytes
+		return;
+		}
+	
+	retval=fread (value, 1,longitud, fichero);
+	if (retval!=longitud)
+		{
+		procesador.Rm.br.F &= (~F_C);	// Load error
+		procesador.Rm.wr.IX += procesador.Rm.wr.DE;
+		procesador.Rm.wr.DE = 0;
+		printf("TZX: Read file error\n");
+		return;
+		}
+	
+	number_bytes=procesador.Rm.wr.DE;
+
+	for(bucle=0;bucle<number_bytes; bucle++) 
+		{	
+			Z80free_Wr_fake (procesador.Rm.wr.IX, (byte) value[bucle]);	// store the byte
+			procesador.Rm.wr.IX++;
+			procesador.Rm.wr.DE--;
+			parity^=(byte) value[bucle];
+		}
+
+	//clean_screen ();
+
+	parity^=value[number_bytes]; // checksum
+	
+	if (parity) printf("TZX: Parity error\n");
+	
+	procesador.Rm.br.A=parity;
+	//CP 01
+	Z80free_doArithmetic(&procesador,procesador.Rm.br.A,0x01,0,1);
+	Z80free_adjustFlags(&procesador,0x01);
+	
+	procesador.Rm.br.B=0xB0;
+	procesador.Rm.br.C=0x01;
+	procesador.Rm.br.H=parity;
+	procesador.Rm.br.L=value[longitud-1];
+	procesador.Ra.br.A=0x01;
+	procesador.Ra.br.F=0x45;
+	procesador.Rm.br.F |= F_C;	// Load OK
+	
+	//if (longitud==6913) sleep(2); //Screen
+	
+	byte_position=ftell(fichero);
+	
+	retval=fread (&blockid, 1, 1, fichero); //Read next id block
+	
+	if (!feof(fichero)) 
+	{
+		if ((blockid==0x11)||(blockid==0x12)||(blockid==0x13)||(blockid==0x14)||(blockid==0x21)||(blockid==0x24)) ordenador.tape_start_countdwn=80; //autoplay countdown
+		fseek(fichero, byte_position, SEEK_SET);
+		
+	}
 	return;
 
-}
+}

src/tape.h

@@ -26,7 +26,8 @@ inline void tape_read_tap(FILE *, int);
 inline void tape_read_tzx(FILE *, int);
 void rewind_tape(FILE *,unsigned char);
 unsigned char file_empty(FILE *);
-void fastload_block (FILE *);
+void fastload_block_tap (FILE *);
+void fastload_block_tzx (FILE *);
 void save_file(FILE *);
 
 #endif