summaryrefslogtreecommitdiffstatshomepage
path: root/src/lib/formats/aquarius_caq.cpp
blob: aecb883aabf31b2fd5ef5e7c5f6c6df92ce9507a (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
// license:BSD-3-Clause
// copyright-holders:Nigel Barnes
/*********************************************************************

    formats/aquarius_caq.cpp

    Cassette code for Aquarius .CAQ files

*********************************************************************/

#include "aquarius_caq.h"

#include "coretmpl.h" // BIT

#include <cassert>


/*-------------------------------------------------
    CassetteModulation aquarius_caq_modulation
-------------------------------------------------*/

static const cassette_image::Modulation aquarius_caq_modulation =
{
	cassette_image::MODULATION_SINEWAVE,
	900.0 - 300, 900.0, 900.0 + 300,
	1800.0 - 600, 1800.0, 1800.0 + 600
	
	
};

/*-------------------------------------------------
    aquarius_caq_identify - identify cassette
-------------------------------------------------*/

static cassette_image::error aquarius_caq_identify(cassette_image *cassette, cassette_image::Options *opts)
{
	return cassette->modulation_identify(aquarius_caq_modulation, opts);
}

/*-------------------------------------------------
    aquarius_caq_load - load cassette
-------------------------------------------------*/

#define MODULATE(_value) \
	for (int i = 0; i < 2; i++) { \
		err = cassette->put_modulated_data_bit(0, time_index, _value, aquarius_caq_modulation, &time_displacement); \
		if (err != cassette_image::error::SUCCESS) return err; \
		time_index += time_displacement; \
	}

static cassette_image::error aquarius_caq_load(cassette_image *cassette)
{
	cassette_image::error err;
	uint64_t image_size = cassette->image_size();
	uint64_t image_pos = 0;
	double time_index = 0.0;
	double time_displacement;
	uint8_t data;

	/* silence */
	err = cassette->put_sample(0, time_index, 0.5, 0);
	if (err != cassette_image::error::SUCCESS) return err;
	time_index += 0.5;

	while (image_pos < image_size)
	{
		cassette->image_read(&data, image_pos, 1);

		/* start bit */
		MODULATE(0);

		/* data bits */
		for (int bit = 7; bit >= 0; bit--)
		{
			MODULATE(util::BIT(data, bit));
		}

		/* stop bits */
		MODULATE(1);
		MODULATE(1);

		image_pos++;
	}

	/* silence */
	err = cassette->put_sample(0, time_index, 0.5, 0);
	if (err != cassette_image::error::SUCCESS) return err;
	time_index += 0.5;

	return cassette_image::error::SUCCESS;
}

/*-------------------------------------------------
    CassetteFormat aquarius_caq_cassette_format
-------------------------------------------------*/

const cassette_image::Format aquarius_caq_format =
{
	"caq",
	aquarius_caq_identify,
	aquarius_caq_load,
	nullptr
};

CASSETTE_FORMATLIST_START( aquarius_cassette_formats )
	CASSETTE_FORMAT(aquarius_caq_format)
CASSETTE_FORMATLIST_END