forked from sadken/TZXDuino
-
Notifications
You must be signed in to change notification settings - Fork 0
/
TZXDuino.h
225 lines (198 loc) · 7.5 KB
/
TZXDuino.h
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
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
PROGMEM const byte TZXTape[7] = {'Z','X','T','a','p','e','!'};
PROGMEM const byte TAPcheck[7] = {'T','A','P','t','a','p','.'};
PROGMEM const byte ZX81Filename[9] = {'T','Z','X','D','U','I','N','O',0x9D};
PROGMEM const byte AYFile[8] = {'Z','X','A','Y','E','M','U','L'}; // added additional AY file header check
PROGMEM const byte TAPHdr[20] = {0x0,0x0,0x3,'Z','X','A','Y','F','i','l','e',' ',' ',0x1A,0xB,0x0,0xC0,0x0,0x80,0x6E}; //
//const byte TAPHdr[24] = {0x13,0x0,0x0,0x3,' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',0x1A,0xB,0x0,0xC0,0x0,0x80,0x52,0x1C,0xB,0xFF};
//TZX block list - uncomment as supported
#define ID10 0x10 //Standard speed data block
#define ID11 0x11 //Turbo speed data block
#define ID12 0x12 //Pure tone
#define ID13 0x13 //Sequence of pulses of various lengths
#define ID14 0x14 //Pure data block
#define ID15 0x15 //Direct recording block -- TBD - curious to load OTLA files using direct recording (22KHz)
//#define ID18 0x18 //CSW recording block
#define ID19 0x19 //Generalized data block
#define ID20 0x20 //Pause (silence) ot 'Stop the tape' command
#define ID21 0x21 //Group start
#define ID22 0x22 //Group end
#define ID23 0x23 //Jump to block
#define ID24 0x24 //Loop start
#define ID25 0x25 //Loop end
#define ID26 0x26 //Call sequence
#define ID27 0x27 //Return from sequence
#define ID28 0x28 //Select block
#define ID2A 0x2A //Stop the tape is in 48K mode
#define ID2B 0x2B //Set signal level
#define ID30 0x30 //Text description
#define ID31 0x31 //Message block
#define ID32 0x32 //Archive info
#define ID33 0x33 //Hardware type
#define ID35 0x35 //Custom info block
#define ID4B 0x4B //Kansas City block (MSX/BBC/Acorn/...)
#define IDPAUSE 0x59 //Custom Pause processing
#define ID5A 0x5A //Glue block (90 dec, ASCII Letter 'Z')
#define ORIC 0xFA //Oric Tap File
#define AYO 0xFB //AY file
#define ZXO 0xFC //ZX80 O file
#define ZXP 0xFD //ZX81 P File
#define TAP 0xFE //Tap File Mode
#define IDEOF 0xFF //End of file
PROGMEM const char UEFFile[9] = {'U','E','F',' ','F','i','l','e','!'};
#define UEF 0xFA //UEF file
// UEF chunks
#define ID0000 0x0000
#define ID0100 0x0100
#define ID0104 0x0104 // defined tape format data block: data bits per packet/parity/stop bits
#define ID0110 0x0110
#define ID0111 0x0111 // carrier tone (previously high tone) with dummy byte at byte
#define ID0112 0x0112
#define ID0114 0x0114 // Security Cycles replaced with carrier tone
#define ID0116 0x0116 // floating point gap: cycles = floatGap * this.baud
#define ID0117 0x0117 // data encoding format change for 300 bauds
#define IDCHUNKEOF 0xffff
//TZX File Tasks
#define GETFILEHEADER 0
#define GETID 1
#define PROCESSID 2
#define GETAYHEADER 3
#define GETUEFHEADER 4
#define GETCHUNKID 5
#define PROCESSCHUNKID 6
//TZX ID Tasks
#define READPARAM 0
#define PILOT 1
#define SYNC1 2
#define SYNC2 3
#define DATA 4
#define PAUSE 5
#define HEADER 6
#define NAME 7
#define GAP 8
#define SYNCLAST 9
#define NAMELAST 10
//Buffer size
#define buffsize 64
//Spectrum Standards
#define PILOTLENGTH 619
#define SYNCFIRST 191
#define SYNCSECOND 210
#define ZEROPULSE 244
#define ONEPULSE 489
#define PILOTNUMBERL 8063
#define PILOTNUMBERH 3223
#define PAUSELENGTH 1000
// UEF stuff
// For 1200 baud zero is 416us, one is 208us
// For 1500 baud zero is 333us, one is 166us
// For 1550 baud zero is 322us, one is 161us
// For 1600 baud zero is 313us, one is 156us
#define TURBOBAUD1500
// 1200 baud UEF
#define UEFPILOTPULSES outWord<<2;
#define UEFPILOTLENGTH 208
#define UEFZEROPULSE 416
#define UEFONEPULSE 208
#ifdef TURBOBAUD1500
#define UEFTURBOPILOTPULSES 320
#define UEFTURBOPILOTLENGTH 166
#define UEFTURBOZEROPULSE 333
#define UEFTURBOONEPULSE 166
#endif
#ifdef TURBOBAUD1550
#define UEFTURBOPILOTPULSES 320
#define UEFTURBOPILOTLENGTH 161
#define UEFTURBOZEROPULSE 322
#define UEFTURBOONEPULSE 161
#endif
#ifdef TURBOBAUD1600
#define UEFTURBOPILOTPULSES 320
#define UEFTURBOPILOTLENGTH 156
#define UEFTURBOZEROPULSE 313
#define UEFTURBOONEPULSE 156
#endif
//ZX81 Standards
#define ZX80PULSE 160
#define ZX80TURBOPULSE 120
#define ZX80BITGAP 1442
#define ZX80TURBOBITGAP 500
//ZX81 Pulse Patterns - Zero Bit - HIGH, LOW, HIGH, LOW, HIGH, LOW, HIGH, GAP
// - One Bit - HIGH, LOW, HIGH, LOW, HIGH, LOW, HIGH, LOW, HIGH, LOW, HIGH, LOW, HIGH, LOW, HIGH, LOW, HIGH, GAP
// AY Header offset start
#define HDRSTART 0
//Keep track of which ID, Task, and Block Task we're dealing with
byte currentID = 0;
byte currentTask = 0;
byte currentBlockTask = 0;
//Temporarily store for a pulse period before loading it into the buffer.
word currentPeriod=1;
//ISR Variables
volatile byte pos = 0;
volatile word wbuffer[buffsize+1][2];
volatile bool morebuff = true;
volatile byte workingBuffer=0;
volatile bool isStopped=false;
volatile byte pinState=LOW;
volatile bool isPauseBlock = false;
volatile bool wasPauseBlock = false;
//Main Variables
byte AYPASS = 0;
byte hdrptr = 0;
byte blkchksum = 0;
word ayblklen = 0;
byte btemppos = 0;
bool copybuff = false;
unsigned long bytesRead=0;
unsigned long bytesToRead=0;
byte pulsesCountByte=0;
word pilotPulses=0;
word pilotLength=0;
word sync1Length=0;
word sync2Length=0;
word zeroPulse=0;
word onePulse=0;
word TstatesperSample=0;
byte usedBitsInLastByte=8;
word loopCount=0;
byte seqPulses=0;
byte forcePause0=0;
unsigned long loopStart=0;
word pauseLength=0;
word temppause=0;
byte outByte=0;
word outWord=0;
unsigned long outLong=0;
byte count=128;
volatile byte currentBit=0;
volatile byte currentByte=0;
volatile byte currentChar=0;
byte pass=0;
unsigned long debugCount=0;
bool EndOfFile=false;
byte lastByte;
//byte firstTime=true;
signed char currpct;
signed char newpct;
unsigned long timeDiff2 = 0;
unsigned int lcdsegs;
int TSXspeedup = 1;
int BAUDRATE = 1200;
word chunkID = 0;
bool uefTurboMode = false;
float outFloat;
byte UEFPASS = 0;
byte passforZero=2;
byte passforOne=4;
bool PauseAtStart = false;
bool FlipPolarity = false;
volatile bool ID15switch = false;
byte wibble = 1;
byte parity = 0 ; //0:NoParity 1:ParityOdd 2:ParityEven (default:0)
byte bitChecksum = 0; // 0:Even 1:Odd number of one bits
// Oric parameters
#define ORICZEROPULSE 416
#define ORICZEROLOWPULSE 208
#define ORICZEROHIGHPULSE 416
#define ORICONEPULSE 208
#define ORICONELOWPULSE 208
#define ORICONEHIGHPULSE 208