diff options
author | 2011-05-06 19:42:26 +0000 | |
---|---|---|
committer | 2011-05-06 19:42:26 +0000 | |
commit | 62d841c2703286b34983eb8dae174ecbf2c82c5f (patch) | |
tree | d97a50172e47372637a155978f3096618da8c275 /src/lib/formats/hect_tap.c | |
parent | 987909ff31107893c4b748d86d97619db48c4b47 (diff) |
Moved format handling and all formats to separate library [Miodrag Milanovic]
Diffstat (limited to 'src/lib/formats/hect_tap.c')
-rw-r--r-- | src/lib/formats/hect_tap.c | 305 |
1 files changed, 305 insertions, 0 deletions
diff --git a/src/lib/formats/hect_tap.c b/src/lib/formats/hect_tap.c new file mode 100644 index 00000000000..5032728224f --- /dev/null +++ b/src/lib/formats/hect_tap.c @@ -0,0 +1,305 @@ +/******************************************************************** + +Support for Micronique machine .K7 and *.FOR cassette images + +Note that the usual type for hector cassette is *.K7, + the *.FOR type is only for programming screen in forth format. + +You can find some *.K7 file on serveral server in France +(Micronique is a French factory) Enjoy ! + + jj.stacino@aliceadsl.fr + +Updated 3/1/10 : use real value for timing. +********************************************************************/ +#include "hect_tap.h" + + +#define SMPLO -32768 +#define SILENCE 0 +#define SMPHI 32767 + + +static int cas_size; + + +enum +{ + Header_cycles = 77, /* Valeur Th?orique 66 = 44100 * 1.5 / 1000 // mesur? sur jeu Formule1 = 1,75ms*/ + Zero_cycles = 27, /* Valeur Th?orique 17 = 44100 * 0.4 / 1000 // mesur? sur jeu Formule1 = 0,61ms*/ + Un_cycles = 50, /* Valeur Th?orique 40 = 44100 * 0.9 / 1000 // mesur? sur jeu Formule1 = 1,13ms*/ +}; + +/* Here I prefer use the value that I read on a real tape, and not the theorical value; note that these + value work best on my HRX... Yo_fr (jj.stacino@aliceadsl.fr) */ + +/******************************************************************* + Generate one high-low cycle of sample data +********************************************************************/ +INLINE int hector_tap_cycle(INT16 *buffer, int sample_pos, int high, int low) +{ + int i = 0; + + if ( buffer ) + { + while( i < high) + { + buffer[ sample_pos + i ] = SMPHI; + i++; + } + + while( i < high + low ) + { + buffer[ sample_pos + i ] = SMPLO; + i++; + } + } + return high + low; +} + + +INLINE int hector_tap_byte(INT16 *buffer, int sample_pos, UINT8 data) +{ +/* Writing an entire byte */ + int i, samples; + + samples = 0; + for ( i = 0; i < 8; i++ ) + { + if ( data & 0x01 ) + samples += hector_tap_cycle( buffer, sample_pos + samples, Un_cycles/2, Un_cycles/2 ); + else + samples += hector_tap_cycle( buffer, sample_pos + samples, Zero_cycles/2, Zero_cycles/2 ); + + data >>= 1; + } + return samples; +} + + +INLINE int hector_tap_synchro(INT16 *buffer, int sample_pos, int nb_synchro) +{ +/* Writing an entire byte */ + int i, samples; + + samples = 0; + for ( i = 0; i < nb_synchro ; i++ ) + samples += hector_tap_cycle( buffer, sample_pos + samples, Header_cycles/2, Header_cycles/2 ); + + return samples; +} + + +static int hector_handle_tap(INT16 *buffer, const UINT8 *casdata) +{ + int data_pos, sample_count/*, block_count*/; + int previous_block=0; + + data_pos = 0; + sample_count = 0; + /*block_count = 0;*/ + previous_block = 0; + + /* First 768 cycle of synchro */ + sample_count += hector_tap_synchro( buffer, sample_count, 768-4 ); + + /* on the entire file*/ + while( data_pos < cas_size ) + { + UINT16 block_size; + + if (previous_block == 0xFE) + /* Starting a block with 150 cycle of synchro to let time to Hector to do the job ! */ + sample_count += hector_tap_synchro( buffer, sample_count, 150 ); + else + /* Starting a block with 4 cycle of synchro */ + sample_count += hector_tap_synchro( buffer, sample_count, 4 ); + + if (data_pos>1) + previous_block = casdata[data_pos-1]; + + /* Handle block lenght on tape data */ + block_size = casdata[data_pos] ; + if (block_size==0) + block_size=256; + + /*block_count++;*/ + sample_count += hector_tap_byte(buffer, sample_count, casdata[data_pos] ); + data_pos++; + + /* Data samples */ + for ( ; block_size ; data_pos++, block_size-- ) + { + /* Make sure there are enough bytes left */ + if ( data_pos > cas_size ) + return -1; + + sample_count += hector_tap_byte( buffer, sample_count, casdata[data_pos] ); + + } + } + /*Finish by a zero*/ + sample_count += hector_tap_byte( buffer, sample_count, 0 ); + + return sample_count; +} +/******************************************************************* +//// FORTH DATA CASSETTE +*******************************************************************/ + + +static int hector_handle_forth_tap(INT16 *buffer, const UINT8 *casdata) +{ + int data_pos, sample_count/*, block_count*/; + /*int previous_block=0;*/ + + data_pos = 0; + sample_count = 0; + /*block_count = 0;*/ + /*previous_block = 0;*/ + + /* Out if len of file not modulo 822 octets */ + if ( (cas_size % 822) != 0 ) + return -1; + + /* on the entire file*/ + while( data_pos < cas_size ) + { + UINT16 block_size; + + /* Starting a block with 768 cycle of synchro*/ + sample_count += hector_tap_synchro( buffer, sample_count, 768 ); + + /* Handle block lenght on tape data */ + block_size = 822 ; /* Fixed size for the forth*/ + + /*block_count=0;*/ + + /* Data samples */ + for ( ; block_size ; data_pos++, block_size-- ) + { + /* Make sure there are enough bytes left */ + if ( data_pos > cas_size ) + return -1; + + sample_count += hector_tap_byte( buffer, sample_count, casdata[data_pos] ); + + } + } + + /*Finish by a zero*/ + sample_count += hector_tap_byte( buffer, sample_count, 0 ); + + return sample_count; +} +/******************************************************************* +///// END FORTH DATA CASSETTE +*******************************************************************/ + + +/******************************************************************* + Generate samples for the tape image +********************************************************************/ +static int hector_tap_fill_wave(INT16 *buffer, int sample_count, UINT8 *bytes) +{ + return hector_handle_tap( buffer, bytes ); +} + + +/******************************************************************* + Calculate the number of samples needed for this tape image FORTH +********************************************************************/ +static int hector_tap_forth_to_wav_size(const UINT8 *casdata, int caslen) +{ + cas_size = caslen ; + + return hector_handle_forth_tap( NULL, casdata ); +} + +/******************************************************************* + Generate samples for the tape image FORTH +********************************************************************/ +static int hector_tap_forth_fill_wave(INT16 *buffer, int sample_count, UINT8 *bytes) +{ + return hector_handle_forth_tap( buffer, bytes ); //forth removed here !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +} + + +/******************************************************************* + Calculate the number of samples needed for this tape image classical +********************************************************************/ +static int hector_tap_to_wav_size(const UINT8 *casdata, int caslen) +{ + cas_size = caslen ; + + return hector_handle_tap( NULL, casdata );//forth removed here !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +} + + +static const struct CassetteLegacyWaveFiller hector_legacy_fill_wave = +{ + hector_tap_fill_wave, /* fill_wave */ + -1, /* chunk_size */ + 0, /* chunk_samples */ + hector_tap_to_wav_size, /* chunk_sample_calc */ + 44100, /* sample_frequency */ + 0, /* header_samples */ + 0 /* trailer_samples */ +}; + +static const struct CassetteLegacyWaveFiller hector_forth_legacy_fill_wave = +{ + hector_tap_forth_fill_wave, /* fill_wave */ + -1, /* chunk_size */ + 0, /* chunk_samples */ + hector_tap_forth_to_wav_size, /* chunk_sample_calc */ + 44100, /* sample_frequency */ + 0, /* header_samples */ + 0 /* trailer_samples */ +}; + + +static casserr_t hector_k7_identify(cassette_image *cassette, struct CassetteOptions *opts) +{ + return cassette_legacy_identify(cassette, opts, &hector_legacy_fill_wave); +} + + +static casserr_t hector_k7_load(cassette_image *cassette) +{ + return cassette_legacy_construct(cassette, &hector_legacy_fill_wave); +} + +static casserr_t hector_k7forth_identify(cassette_image *cassette, struct CassetteOptions *opts) +{ + return cassette_legacy_identify(cassette, opts, &hector_forth_legacy_fill_wave); +} + + +static casserr_t hector_k7forth_load(cassette_image *cassette) +{ + return cassette_legacy_construct(cassette, &hector_forth_legacy_fill_wave); +} + + +static const struct CassetteFormat hector_k7_format = +{ + "k7,cin", + hector_k7_identify, + hector_k7_load, + NULL +}; + +static const struct CassetteFormat hector_k7Forth_format = +{ + "for", + hector_k7forth_identify, + hector_k7forth_load, + NULL +}; + + +CASSETTE_FORMATLIST_START(hector_cassette_formats) + CASSETTE_FORMAT(hector_k7_format) + CASSETTE_FORMAT(hector_k7Forth_format) +CASSETTE_FORMATLIST_END |