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
|