Tape device re-write and TAP format reading done. Loading state is now fully serializable
This commit is contained in:
Asnivor
parent
f9e93cfa2a
commit
42b5f5dc5d
|
|
@ -258,6 +258,7 @@
|
|||
<Compile Include="Computers\Commodore64\User\UserPortDevice.cs" />
|
||||
<Compile Include="Computers\SinclairSpectrum\Hardware\AY38912.cs" />
|
||||
<Compile Include="Computers\SinclairSpectrum\Hardware\Buzzer.cs" />
|
||||
<Compile Include="Computers\SinclairSpectrum\Hardware\Datacorder\DatacorderDevice.cs" />
|
||||
<Compile Include="Computers\SinclairSpectrum\Hardware\DefaultTapeProvider.cs" />
|
||||
<Compile Include="Computers\SinclairSpectrum\Hardware\Interfaces\IKeyboard.cs" />
|
||||
<Compile Include="Computers\SinclairSpectrum\Hardware\Interfaces\ISaveToTapeProvider.cs" />
|
||||
|
|
@ -279,6 +280,7 @@
|
|||
<Compile Include="Computers\SinclairSpectrum\Media\MediaSerializer.cs" />
|
||||
<Compile Include="Computers\SinclairSpectrum\Media\Tape\TapeCommand.cs" />
|
||||
<Compile Include="Computers\SinclairSpectrum\Media\Tape\TapeDataBlock.cs" />
|
||||
<Compile Include="Computers\SinclairSpectrum\Media\Tape\TapSerializer.cs" />
|
||||
<Compile Include="Computers\SinclairSpectrum\SoundProviderMixer.cs" />
|
||||
<Compile Include="Computers\SinclairSpectrum\Machine\MachineType.cs" />
|
||||
<Compile Include="Computers\SinclairSpectrum\Machine\SpectrumBase.cs" />
|
||||
|
|
|
|||
|
|
@ -0,0 +1,393 @@
|
|||
using BizHawk.Common;
|
||||
using BizHawk.Emulation.Cores.Components.Z80A;
|
||||
using System;
|
||||
using System.Collections.Generic;
|
||||
using System.Linq;
|
||||
using System.Text;
|
||||
using System.Threading.Tasks;
|
||||
|
||||
namespace BizHawk.Emulation.Cores.Computers.SinclairSpectrum
|
||||
{
|
||||
/// <summary>
|
||||
/// Represents the tape device (or build-in datacorder as it was called +2 and above)
|
||||
/// </summary>
|
||||
public class DatacorderDevice
|
||||
{
|
||||
#region Construction
|
||||
|
||||
private SpectrumBase _machine { get; set; }
|
||||
private Z80A _cpu { get; set; }
|
||||
private Buzzer _buzzer { get; set; }
|
||||
|
||||
/// <summary>
|
||||
/// Default constructor
|
||||
/// </summary>
|
||||
public DatacorderDevice()
|
||||
{
|
||||
|
||||
}
|
||||
|
||||
/// <summary>
|
||||
/// Initializes the datacorder device
|
||||
/// </summary>
|
||||
/// <param name="machine"></param>
|
||||
public void Init(SpectrumBase machine)
|
||||
{
|
||||
_machine = machine;
|
||||
_cpu = _machine.CPU;
|
||||
_buzzer = machine.BuzzerDevice;
|
||||
}
|
||||
|
||||
#endregion
|
||||
|
||||
#region State Information
|
||||
|
||||
/// <summary>
|
||||
/// The index of the current tape data block that is loaded
|
||||
/// </summary>
|
||||
private int _currentDataBlockIndex = 0;
|
||||
public int CurrentDataBlockIndex
|
||||
{
|
||||
get
|
||||
{
|
||||
if (_dataBlocks.Count() > 0) { return _currentDataBlockIndex; }
|
||||
else { return -1; }
|
||||
}
|
||||
set
|
||||
{
|
||||
if (value == _currentDataBlockIndex) { return; }
|
||||
if (value < _dataBlocks.Count() && value >= 0)
|
||||
{
|
||||
_currentDataBlockIndex = value;
|
||||
_position = 0;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
/// <summary>
|
||||
/// The current position within the current data block
|
||||
/// </summary>
|
||||
private int _position = 0;
|
||||
public int Position
|
||||
{
|
||||
get
|
||||
{
|
||||
if (_position >= _dataBlocks[_currentDataBlockIndex].DataPeriods.Count) { return 0; }
|
||||
else { return _position; }
|
||||
}
|
||||
}
|
||||
|
||||
/// <summary>
|
||||
/// Signs whether the tape is currently playing or not
|
||||
/// </summary>
|
||||
private bool _tapeIsPlaying = false;
|
||||
public bool TapeIsPlaying
|
||||
{
|
||||
get { return _tapeIsPlaying; }
|
||||
}
|
||||
|
||||
/// <summary>
|
||||
/// A list of the currently loaded data blocks
|
||||
/// </summary>
|
||||
private List<TapeDataBlock> _dataBlocks = new List<TapeDataBlock>();
|
||||
public List<TapeDataBlock> DataBlocks
|
||||
{
|
||||
get { return _dataBlocks; }
|
||||
set { _dataBlocks = value; }
|
||||
}
|
||||
|
||||
/// <summary>
|
||||
/// Stores the last CPU t-state value
|
||||
/// </summary>
|
||||
private long _lastCycle = 0;
|
||||
|
||||
/// <summary>
|
||||
///
|
||||
/// </summary>
|
||||
private int _waitEdge = 0;
|
||||
|
||||
/// <summary>
|
||||
///
|
||||
/// </summary>
|
||||
private bool currentState = false;
|
||||
|
||||
#endregion
|
||||
|
||||
#region Datacorder Device Settings
|
||||
|
||||
/// <summary>
|
||||
/// Signs whether the device should autodetect when the Z80 has entered into
|
||||
/// 'load' mode and auto-play the tape if neccesary
|
||||
/// </summary>
|
||||
public bool AutoPlay { get; set; }
|
||||
|
||||
#endregion
|
||||
|
||||
#region Tape Controls
|
||||
|
||||
/// <summary>
|
||||
/// Starts the tape playing from the beginning of the current block
|
||||
/// </summary>
|
||||
public void Play()
|
||||
{
|
||||
if (_tapeIsPlaying)
|
||||
return;
|
||||
|
||||
// update the lastCycle
|
||||
_lastCycle = _cpu.TotalExecutedCycles;
|
||||
|
||||
// reset waitEdge and position
|
||||
_waitEdge = 0;
|
||||
_position = 0;
|
||||
|
||||
if (
|
||||
_dataBlocks.Count > 0 && // data blocks are present &&
|
||||
_currentDataBlockIndex >= 0 // the current data block index is 1 or greater
|
||||
)
|
||||
{
|
||||
while (_position >= _dataBlocks[_currentDataBlockIndex].DataPeriods.Count)
|
||||
{
|
||||
// we are at the end of a data block - move to the next
|
||||
_position = 0;
|
||||
_currentDataBlockIndex++;
|
||||
|
||||
// are we at the end of the tape?
|
||||
if (_currentDataBlockIndex >= _dataBlocks.Count)
|
||||
{
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
// check for end of tape
|
||||
if (_currentDataBlockIndex >= _dataBlocks.Count)
|
||||
{
|
||||
// end of tape reached. Rewind to beginning
|
||||
RTZ();
|
||||
return;
|
||||
}
|
||||
|
||||
// update waitEdge with the current position in the current block
|
||||
_waitEdge = _dataBlocks[_currentDataBlockIndex].DataPeriods[_position];
|
||||
|
||||
// sign that the tape is now playing
|
||||
_tapeIsPlaying = true;
|
||||
}
|
||||
}
|
||||
|
||||
/// <summary>
|
||||
/// Stops the tape
|
||||
/// (should move to the beginning of the next block)
|
||||
/// </summary>
|
||||
public void Stop()
|
||||
{
|
||||
if (!_tapeIsPlaying)
|
||||
return;
|
||||
|
||||
// sign that the tape is no longer playing
|
||||
_tapeIsPlaying = false;
|
||||
|
||||
if (
|
||||
_currentDataBlockIndex >= 0 && // we are at datablock 1 or above
|
||||
_position >= _dataBlocks[_currentDataBlockIndex].DataPeriods.Count - 1 // the block is still playing back
|
||||
)
|
||||
{
|
||||
// move to the next block
|
||||
_currentDataBlockIndex++;
|
||||
|
||||
if (_currentDataBlockIndex >= _dataBlocks.Count())
|
||||
{
|
||||
_currentDataBlockIndex = -1;
|
||||
}
|
||||
|
||||
// reset waitEdge and position
|
||||
_waitEdge = 0;
|
||||
_position = 0;
|
||||
|
||||
if (
|
||||
_currentDataBlockIndex < 0 && // block index is -1
|
||||
_dataBlocks.Count() > 0 // number of blocks is greater than 0
|
||||
)
|
||||
{
|
||||
// move the index on to 0
|
||||
_currentDataBlockIndex = 0;
|
||||
}
|
||||
}
|
||||
|
||||
// update the lastCycle
|
||||
_lastCycle = _cpu.TotalExecutedCycles;
|
||||
|
||||
}
|
||||
|
||||
/// <summary>
|
||||
/// Rewinds the tape to it's beginning (return to zero)
|
||||
/// </summary>
|
||||
public void RTZ()
|
||||
{
|
||||
Stop();
|
||||
_currentDataBlockIndex = 0;
|
||||
}
|
||||
|
||||
/// <summary>
|
||||
/// Inserts a new tape and sets up the tape device accordingly
|
||||
/// </summary>
|
||||
/// <param name="tapeData"></param>
|
||||
public void LoadTape(byte[] tapeData)
|
||||
{
|
||||
// attempt TAP deserialization
|
||||
TapSerializer tapSer = new TapSerializer(this);
|
||||
|
||||
try
|
||||
{
|
||||
tapSer.DeSerialize(tapeData);
|
||||
}
|
||||
catch (Exception ex)
|
||||
{
|
||||
// TAP format not detected
|
||||
var e = ex;
|
||||
}
|
||||
}
|
||||
|
||||
/// <summary>
|
||||
/// Resets the tape
|
||||
/// </summary>
|
||||
public void Reset()
|
||||
{
|
||||
RTZ();
|
||||
}
|
||||
|
||||
#endregion
|
||||
|
||||
#region Tape Device Methods
|
||||
|
||||
/// <summary>
|
||||
/// Simulates the spectrum 'EAR' input reading data from the tape
|
||||
/// </summary>
|
||||
/// <param name="cpuCycles"></param>
|
||||
/// <returns></returns>
|
||||
public bool GetEarBit(long cpuCycle)
|
||||
{
|
||||
// decide how many cycles worth of data we are capturing
|
||||
int cycles = Convert.ToInt32(cpuCycle - _lastCycle);
|
||||
|
||||
// check whether tape is actually playing
|
||||
if (_tapeIsPlaying == false)
|
||||
{
|
||||
// it's not playing. Update lastCycle and return
|
||||
_lastCycle = cpuCycle;
|
||||
return false;
|
||||
}
|
||||
|
||||
// check for end of tape
|
||||
if (_currentDataBlockIndex < 0)
|
||||
{
|
||||
// end of tape reached - RTZ (and stop)
|
||||
RTZ();
|
||||
return currentState;
|
||||
}
|
||||
|
||||
// process the cycles based on the waitEdge
|
||||
while (cycles >= _waitEdge)
|
||||
{
|
||||
// decrement cycles
|
||||
cycles -= _waitEdge;
|
||||
|
||||
// flip the current state
|
||||
currentState = !currentState;
|
||||
|
||||
// increment the current period position
|
||||
_position++;
|
||||
|
||||
if (_position >= _dataBlocks[_currentDataBlockIndex].DataPeriods.Count())
|
||||
{
|
||||
// we have reached the end of the current block
|
||||
|
||||
// skip any empty blocks
|
||||
while (_position >= _dataBlocks[_currentDataBlockIndex].DataPeriods.Count())
|
||||
{
|
||||
_position = 0;
|
||||
_currentDataBlockIndex++;
|
||||
if (_currentDataBlockIndex >= _dataBlocks.Count())
|
||||
{
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
// check for end of tape
|
||||
if (_currentDataBlockIndex >= _dataBlocks.Count())
|
||||
{
|
||||
_currentDataBlockIndex = -1;
|
||||
RTZ();
|
||||
return currentState;
|
||||
}
|
||||
}
|
||||
|
||||
// update waitEdge with current position within the current block
|
||||
_waitEdge = _dataBlocks[_currentDataBlockIndex].DataPeriods[_position];
|
||||
|
||||
}
|
||||
|
||||
// update lastCycle and return currentstate
|
||||
_lastCycle = cpuCycle - (long)cycles;
|
||||
|
||||
// play the buzzer
|
||||
_buzzer.ProcessPulseValue(true, currentState);
|
||||
|
||||
return currentState;
|
||||
}
|
||||
|
||||
#endregion
|
||||
|
||||
#region Media Serialization
|
||||
|
||||
|
||||
|
||||
#endregion
|
||||
|
||||
#region State Serialization
|
||||
|
||||
private int _tempBlockCount;
|
||||
|
||||
/// <summary>
|
||||
/// Bizhawk state serialization
|
||||
/// </summary>
|
||||
/// <param name="ser"></param>
|
||||
public void SyncState(Serializer ser)
|
||||
{
|
||||
ser.BeginSection("DatacorderDevice");
|
||||
|
||||
ser.Sync("_currentDataBlockIndex", ref _currentDataBlockIndex);
|
||||
ser.Sync("_position", ref _position);
|
||||
ser.Sync("_tapeIsPlaying", ref _tapeIsPlaying);
|
||||
ser.Sync("_lastCycle", ref _lastCycle);
|
||||
ser.Sync("_waitEdge", ref _waitEdge);
|
||||
ser.Sync("currentState", ref currentState);
|
||||
|
||||
//_dataBlocks
|
||||
ser.BeginSection("Datablocks");
|
||||
|
||||
if (ser.IsWriter)
|
||||
{
|
||||
_tempBlockCount = _dataBlocks.Count();
|
||||
ser.Sync("_tempBlockCount", ref _tempBlockCount);
|
||||
|
||||
for (int i = 0; i < _tempBlockCount; i++)
|
||||
{
|
||||
_dataBlocks[i].SyncState(ser, i);
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
ser.Sync("_tempBlockCount", ref _tempBlockCount);
|
||||
}
|
||||
|
||||
|
||||
|
||||
ser.EndSection();
|
||||
|
||||
|
||||
ser.EndSection();
|
||||
}
|
||||
|
||||
#endregion
|
||||
}
|
||||
}
|
||||
|
|
@ -55,15 +55,15 @@ namespace BizHawk.Emulation.Cores.Computers.SinclairSpectrum
|
|||
// Tape control
|
||||
if (Spectrum._controller.IsPressed(Play))
|
||||
{
|
||||
|
||||
TapeDevice.Play();
|
||||
}
|
||||
if (Spectrum._controller.IsPressed(Stop))
|
||||
{
|
||||
|
||||
TapeDevice.Stop();
|
||||
}
|
||||
if (Spectrum._controller.IsPressed(RTZ))
|
||||
{
|
||||
|
||||
TapeDevice.RTZ();
|
||||
}
|
||||
if (Spectrum._controller.IsPressed(Record))
|
||||
{
|
||||
|
|
|
|||
|
|
@ -59,12 +59,12 @@ namespace BizHawk.Emulation.Cores.Computers.SinclairSpectrum
|
|||
/// <summary>
|
||||
/// The spectrum datacorder device
|
||||
/// </summary>
|
||||
public virtual Tape TapeDevice { get; set; }
|
||||
public virtual DatacorderDevice TapeDevice { get; set; }
|
||||
|
||||
/// <summary>
|
||||
/// The tape provider
|
||||
/// </summary>
|
||||
public virtual ITapeProvider TapeProvider { get; set; }
|
||||
//public virtual ITapeProvider TapeProvider { get; set; }
|
||||
|
||||
/// <summary>
|
||||
/// Kempston joystick
|
||||
|
|
@ -145,7 +145,7 @@ namespace BizHawk.Emulation.Cores.Computers.SinclairSpectrum
|
|||
|
||||
BuzzerDevice.EndFrame();
|
||||
|
||||
TapeDevice.CPUFrameCompleted();
|
||||
//TapeDevice.CPUFrameCompleted();
|
||||
|
||||
FrameCount++;
|
||||
|
||||
|
|
|
|||
|
|
@ -69,7 +69,7 @@ namespace BizHawk.Emulation.Cores.Computers.SinclairSpectrum
|
|||
result = result | 0xa0; //set bit 5 & 7 to 1
|
||||
|
||||
|
||||
if (TapeDevice.CurrentMode == TapeOperationMode.Load)
|
||||
if (TapeDevice.TapeIsPlaying)//.CurrentMode == TapeOperationMode.Load)
|
||||
{
|
||||
if (!TapeDevice.GetEarBit(CPU.TotalExecutedCycles))
|
||||
{
|
||||
|
|
@ -193,7 +193,7 @@ namespace BizHawk.Emulation.Cores.Computers.SinclairSpectrum
|
|||
BuzzerDevice.ProcessPulseValue(false, (value & EAR_BIT) != 0);
|
||||
|
||||
// Tape
|
||||
TapeDevice.ProcessMicBit((value & MIC_BIT) != 0);
|
||||
//TapeDevice.ProcessMicBit((value & MIC_BIT) != 0);
|
||||
|
||||
}
|
||||
|
||||
|
|
|
|||
|
|
@ -40,10 +40,11 @@ namespace BizHawk.Emulation.Cores.Computers.SinclairSpectrum
|
|||
KeyboardDevice = new Keyboard48(this);
|
||||
KempstonDevice = new KempstonJoystick(this);
|
||||
|
||||
TapeProvider = new DefaultTapeProvider(file);
|
||||
//TapeProvider = new DefaultTapeProvider(file);
|
||||
|
||||
TapeDevice = new Tape(TapeProvider);
|
||||
TapeDevice = new DatacorderDevice();
|
||||
TapeDevice.Init(this);
|
||||
TapeDevice.LoadTape(file);
|
||||
}
|
||||
|
||||
#endregion
|
||||
|
|
|
|||
|
|
@ -68,7 +68,7 @@ namespace BizHawk.Emulation.Cores.Computers.SinclairSpectrum
|
|||
result = result | 0xa0; //set bit 5 & 7 to 1
|
||||
|
||||
|
||||
if (TapeDevice.CurrentMode == TapeOperationMode.Load)
|
||||
if (TapeDevice.TapeIsPlaying)//.CurrentMode == TapeOperationMode.Load)
|
||||
{
|
||||
if (!TapeDevice.GetEarBit(CPU.TotalExecutedCycles))
|
||||
{
|
||||
|
|
@ -166,7 +166,7 @@ namespace BizHawk.Emulation.Cores.Computers.SinclairSpectrum
|
|||
BuzzerDevice.ProcessPulseValue(false, (value & EAR_BIT) != 0);
|
||||
|
||||
// Tape
|
||||
TapeDevice.ProcessMicBit((value & MIC_BIT) != 0);
|
||||
//TapeDevice.ProcessMicBit((value & MIC_BIT) != 0);
|
||||
}
|
||||
|
||||
else
|
||||
|
|
|
|||
|
|
@ -40,10 +40,11 @@ namespace BizHawk.Emulation.Cores.Computers.SinclairSpectrum
|
|||
KeyboardDevice = new Keyboard48(this);
|
||||
KempstonDevice = new KempstonJoystick(this);
|
||||
|
||||
TapeProvider = new DefaultTapeProvider(file);
|
||||
//TapeProvider = new DefaultTapeProvider(file);
|
||||
|
||||
TapeDevice = new Tape(TapeProvider);
|
||||
TapeDevice = new DatacorderDevice();
|
||||
TapeDevice.Init(this);
|
||||
TapeDevice.LoadTape(file);
|
||||
}
|
||||
|
||||
#endregion
|
||||
|
|
|
|||
|
|
@ -70,7 +70,7 @@ namespace BizHawk.Emulation.Cores.Computers.SinclairSpectrum
|
|||
result = result | 0xa0; //set bit 5 & 7 to 1
|
||||
|
||||
|
||||
if (TapeDevice.CurrentMode == TapeOperationMode.Load)
|
||||
if (TapeDevice.TapeIsPlaying)//.CurrentMode == TapeOperationMode.Load)
|
||||
{
|
||||
if (!TapeDevice.GetEarBit(CPU.TotalExecutedCycles))
|
||||
{
|
||||
|
|
@ -180,7 +180,7 @@ namespace BizHawk.Emulation.Cores.Computers.SinclairSpectrum
|
|||
BuzzerDevice.ProcessPulseValue(false, (value & EAR_BIT) != 0);
|
||||
|
||||
// Tape
|
||||
TapeDevice.ProcessMicBit((value & MIC_BIT) != 0);
|
||||
//TapeDevice.ProcessMicBit((value & MIC_BIT) != 0);
|
||||
|
||||
}
|
||||
}
|
||||
|
|
|
|||
|
|
@ -31,10 +31,11 @@ namespace BizHawk.Emulation.Cores.Computers.SinclairSpectrum
|
|||
KeyboardDevice = new Keyboard48(this);
|
||||
KempstonDevice = new KempstonJoystick(this);
|
||||
|
||||
TapeProvider = new DefaultTapeProvider(file);
|
||||
//TapeProvider = new DefaultTapeProvider(file);
|
||||
|
||||
TapeDevice = new Tape(TapeProvider);
|
||||
TapeDevice = new DatacorderDevice();
|
||||
TapeDevice.Init(this);
|
||||
TapeDevice.LoadTape(file);
|
||||
}
|
||||
|
||||
#endregion
|
||||
|
|
|
|||
|
|
@ -0,0 +1,301 @@
|
|||
using System;
|
||||
using System.Collections.Generic;
|
||||
using System.IO;
|
||||
using System.Linq;
|
||||
using System.Text;
|
||||
using System.Threading.Tasks;
|
||||
|
||||
namespace BizHawk.Emulation.Cores.Computers.SinclairSpectrum
|
||||
{
|
||||
/// <summary>
|
||||
/// Reponsible for TAP format serializaton
|
||||
/// </summary>
|
||||
public class TapSerializer : MediaSerializer
|
||||
{
|
||||
/// <summary>
|
||||
/// The type of serializer
|
||||
/// </summary>
|
||||
private MediaSerializationType _formatType = MediaSerializationType.TAP;
|
||||
public override MediaSerializationType FormatType
|
||||
{
|
||||
get
|
||||
{
|
||||
return _formatType;
|
||||
}
|
||||
}
|
||||
|
||||
/// <summary>
|
||||
/// Signs whether this class can be used to serialize
|
||||
/// </summary>
|
||||
public override bool IsSerializer { get { return false; } }
|
||||
|
||||
/// <summary>
|
||||
/// Signs whether this class can be used to de-serialize
|
||||
/// </summary>
|
||||
public override bool IsDeSerializer { get { return true; } }
|
||||
|
||||
#region Construction
|
||||
|
||||
private DatacorderDevice _datacorder;
|
||||
|
||||
public TapSerializer(DatacorderDevice _tapeDevice)
|
||||
{
|
||||
_datacorder = _tapeDevice;
|
||||
}
|
||||
|
||||
#endregion
|
||||
|
||||
|
||||
#region TAP Format Constants
|
||||
|
||||
/// <summary>
|
||||
/// Pilot pulse length
|
||||
/// </summary>
|
||||
public const int PILOT_PL = 2168;
|
||||
|
||||
/// <summary>
|
||||
/// Pilot pulses in the ROM header block
|
||||
/// </summary>
|
||||
public const int HEADER_PILOT_COUNT = 8063;
|
||||
|
||||
/// <summary>
|
||||
/// Pilot pulses in the ROM data block
|
||||
/// </summary>
|
||||
public const int DATA_PILOT_COUNT = 3223;
|
||||
|
||||
/// <summary>
|
||||
/// Sync 1 pulse length
|
||||
/// </summary>
|
||||
public const int SYNC_1_PL = 667;
|
||||
|
||||
/// <summary>
|
||||
/// Sync 2 pulse lenth
|
||||
/// </summary>
|
||||
public const int SYNC_2_PL = 735;
|
||||
|
||||
/// <summary>
|
||||
/// Bit 0 pulse length
|
||||
/// </summary>
|
||||
public const int BIT_0_PL = 855;
|
||||
|
||||
/// <summary>
|
||||
/// Bit 1 pulse length
|
||||
/// </summary>
|
||||
public const int BIT_1_PL = 1710;
|
||||
|
||||
/// <summary>
|
||||
/// End sync pulse length
|
||||
/// </summary>
|
||||
public const int TERM_SYNC = 947;
|
||||
|
||||
/// <summary>
|
||||
/// 1 millisecond pause
|
||||
/// </summary>
|
||||
public const int PAUSE_MS = 3500;
|
||||
|
||||
/// <summary>
|
||||
/// Used bit count in last byte
|
||||
/// </summary>
|
||||
public const int BIT_COUNT_IN_LAST = 8;
|
||||
|
||||
#endregion
|
||||
|
||||
/// <summary>
|
||||
/// DeSerialization method
|
||||
/// </summary>
|
||||
/// <param name="data"></param>
|
||||
public override void DeSerialize(byte[] data)
|
||||
{
|
||||
/*
|
||||
The .TAP files contain blocks of tape-saved data. All blocks start with two bytes specifying how many bytes will follow (not counting the two length bytes). Then raw tape data follows, including the flag and checksum bytes. The checksum is the bitwise XOR of all bytes including the flag byte. For example, when you execute the line SAVE "ROM" CODE 0,2 this will result:
|
||||
|
||||
|------ Spectrum-generated data -------| |---------|
|
||||
|
||||
13 00 00 03 52 4f 4d 7x20 02 00 00 00 00 80 f1 04 00 ff f3 af a3
|
||||
|
||||
^^^^^...... first block is 19 bytes (17 bytes+flag+checksum)
|
||||
^^... flag byte (A reg, 00 for headers, ff for data blocks)
|
||||
^^ first byte of header, indicating a code block
|
||||
|
||||
file name ..^^^^^^^^^^^^^
|
||||
header info ..............^^^^^^^^^^^^^^^^^
|
||||
checksum of header .........................^^
|
||||
length of second block ........................^^^^^
|
||||
flag byte ............................................^^
|
||||
first two bytes of rom .................................^^^^^
|
||||
checksum (checkbittoggle would be a better name!).............^^
|
||||
*/
|
||||
|
||||
|
||||
// convert bytearray to memory stream
|
||||
MemoryStream stream = new MemoryStream(data);
|
||||
|
||||
// the first 2 bytes of the TAP file designate the length of the first data block
|
||||
// this (I think) should always be 17 bytes (as this is the tape header)
|
||||
byte[] blockLengthData = new byte[2];
|
||||
|
||||
// we are now going to stream through the entire file processing a block at a time
|
||||
while (stream.Position < stream.Length)
|
||||
{
|
||||
// read and calculate the length of the block
|
||||
stream.Read(blockLengthData, 0, 2);
|
||||
int blockSize = BitConverter.ToUInt16(blockLengthData, 0);
|
||||
if (blockSize == 0)
|
||||
{
|
||||
// block size is 0 - this is probably invalid (but I guess could be EoF in some situations)
|
||||
break;
|
||||
}
|
||||
|
||||
// copy the entire block into a new bytearray
|
||||
byte[] blockdata = new byte[blockSize];
|
||||
stream.Read(blockdata, 0, blockSize);
|
||||
|
||||
// create and populate a new tapedatablock object
|
||||
TapeDataBlock tdb = new TapeDataBlock();
|
||||
|
||||
// ascertain the block description
|
||||
string description = string.Empty;
|
||||
byte crc = 0;
|
||||
byte crcValue = 0;
|
||||
byte crcFile = 0;
|
||||
byte[] programData = new byte[10];
|
||||
|
||||
// calculate block checksum value
|
||||
for (int i = 0; i < blockSize; i++)
|
||||
{
|
||||
crc ^= blockdata[i];
|
||||
if (i < blockSize - 1)
|
||||
{
|
||||
crcValue = crc;
|
||||
}
|
||||
else
|
||||
{
|
||||
crcFile = blockdata[i];
|
||||
}
|
||||
}
|
||||
|
||||
// process the flag byte
|
||||
/* (The type is 0,1,2 or 3 for a Program, Number array, Character array or Code file.
|
||||
A SCREEN$ file is regarded as a Code file with start address 16384 and length 6912 decimal.
|
||||
If the file is a Program file, parameter 1 holds the autostart line number (or a number >=32768 if no LINE parameter was given)
|
||||
and parameter 2 holds the start of the variable area relative to the start of the program. If it's a Code file, parameter 1 holds
|
||||
the start of the code block when saved, and parameter 2 holds 32768. For data files finally, the byte at position 14 decimal holds the variable name.)
|
||||
*/
|
||||
|
||||
if (blockdata[0] == 0x00 && blockSize == 19 && (blockdata[1] == 0x00) || blockdata[1] == 3)
|
||||
{
|
||||
// This is the PROGRAM header
|
||||
// take the 10 filename bytes (that start at offset 2)
|
||||
programData = blockdata.Skip(2).Take(10).ToArray();
|
||||
|
||||
// get the filename as a string (with padding removed)
|
||||
string fileName = Encoding.ASCII.GetString(programData).Trim();
|
||||
|
||||
// get the type
|
||||
string type = "";
|
||||
if (blockdata[0] == 0x00)
|
||||
{
|
||||
type = "Program";
|
||||
}
|
||||
else
|
||||
{
|
||||
type = "Bytes";
|
||||
}
|
||||
|
||||
// now build the description string
|
||||
StringBuilder sb = new StringBuilder();
|
||||
sb.Append(type + ": ");
|
||||
sb.Append(fileName + " ");
|
||||
sb.Append(GetUInt16(blockdata, 14));
|
||||
sb.Append(":");
|
||||
sb.Append(GetUInt16(blockdata, 12));
|
||||
description = sb.ToString();
|
||||
}
|
||||
else if (blockdata[0] == 0xFF)
|
||||
{
|
||||
// this is a data block
|
||||
description = "Data Block " + (blockSize - 2) + "bytes";
|
||||
}
|
||||
else
|
||||
{
|
||||
// other type
|
||||
description = string.Format("#{0} block, {1} bytes", blockdata[0].ToString("X2"), blockSize - 2);
|
||||
description += string.Format(", crc {0}", ((crc != 0) ? string.Format("bad (#{0:X2}!=#{1:X2})", crcFile, crcValue) : "ok"));
|
||||
}
|
||||
|
||||
tdb.BlockDescription = description;
|
||||
|
||||
// calculate the data periods for this block
|
||||
int pilotLength = 0;
|
||||
|
||||
// work out pilot length
|
||||
if (blockdata[0] < 4)
|
||||
{
|
||||
pilotLength = 8064;
|
||||
}
|
||||
else
|
||||
{
|
||||
pilotLength = 3220;
|
||||
}
|
||||
|
||||
// create a list to hold the data periods
|
||||
List<int> dataPeriods = new List<int>();
|
||||
|
||||
// generate pilot pulses
|
||||
for (int i = 0; i < pilotLength; i++)
|
||||
{
|
||||
dataPeriods.Add(PILOT_PL);
|
||||
}
|
||||
|
||||
// add syncro pulses
|
||||
dataPeriods.Add(SYNC_1_PL);
|
||||
dataPeriods.Add(SYNC_2_PL);
|
||||
|
||||
int pos = 0;
|
||||
|
||||
// add bit0 and bit1 periods
|
||||
for (int i = 0; i < blockSize - 1; i++, pos++)
|
||||
{
|
||||
for (byte b = 0x80; b != 0; b >>= 1)
|
||||
{
|
||||
if ((blockdata[i] & b) != 0)
|
||||
dataPeriods.Add(BIT_1_PL);
|
||||
else
|
||||
dataPeriods.Add(BIT_0_PL);
|
||||
if ((blockdata[i] & b) != 0)
|
||||
dataPeriods.Add(BIT_1_PL);
|
||||
else
|
||||
dataPeriods.Add(BIT_0_PL);
|
||||
}
|
||||
}
|
||||
|
||||
// add the last byte
|
||||
for (byte c = 0x80; c != (byte)(0x80 >> BIT_COUNT_IN_LAST); c >>= 1)
|
||||
{
|
||||
if ((blockdata[pos] & c) != 0)
|
||||
dataPeriods.Add(BIT_1_PL);
|
||||
else
|
||||
dataPeriods.Add(BIT_0_PL);
|
||||
if ((blockdata[pos] & c) != 0)
|
||||
dataPeriods.Add(BIT_1_PL);
|
||||
else
|
||||
dataPeriods.Add(BIT_0_PL);
|
||||
}
|
||||
|
||||
// add block pause
|
||||
int actualPause = PAUSE_MS * 1000;
|
||||
dataPeriods.Add(actualPause);
|
||||
|
||||
// add to the tapedatablock object
|
||||
tdb.DataPeriods = dataPeriods;
|
||||
|
||||
// add the raw data
|
||||
tdb.BlockData = blockdata;
|
||||
|
||||
// add block to the tape
|
||||
_datacorder.DataBlocks.Add(tdb);
|
||||
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
@ -1,4 +1,5 @@
|
|||
using System;
|
||||
using BizHawk.Common;
|
||||
using System;
|
||||
using System.Collections.Generic;
|
||||
using System.Linq;
|
||||
using System.Text;
|
||||
|
|
@ -14,17 +15,32 @@ namespace BizHawk.Emulation.Cores.Computers.SinclairSpectrum
|
|||
/// <summary>
|
||||
/// Either the TZX block ID, or -1 in the case of non-tzx blocks
|
||||
/// </summary>
|
||||
public int BlockID = -1;
|
||||
private int _blockID = -1;
|
||||
public int BlockID
|
||||
{
|
||||
get { return _blockID; }
|
||||
set { _blockID = value; }
|
||||
}
|
||||
|
||||
/// <summary>
|
||||
/// Description of the block
|
||||
/// </summary>
|
||||
public string BlockDescription { get; set; }
|
||||
private string _blockDescription;
|
||||
public string BlockDescription
|
||||
{
|
||||
get { return _blockDescription; }
|
||||
set { _blockDescription = value; }
|
||||
}
|
||||
|
||||
/// <summary>
|
||||
/// Byte array containing the raw block data
|
||||
/// </summary>
|
||||
public byte[] BlockData = null;
|
||||
private byte[] _blockData;
|
||||
public byte[] BlockData
|
||||
{
|
||||
get { return _blockData; }
|
||||
set { _blockData = value; }
|
||||
}
|
||||
|
||||
/// <summary>
|
||||
/// List containing the pulse timing values
|
||||
|
|
@ -35,7 +51,12 @@ namespace BizHawk.Emulation.Cores.Computers.SinclairSpectrum
|
|||
/// Command that is raised by this data block
|
||||
/// (that may or may not need to be acted on)
|
||||
/// </summary>
|
||||
public TapeCommand Command = TapeCommand.NONE;
|
||||
private TapeCommand _command = TapeCommand.NONE;
|
||||
public TapeCommand Command
|
||||
{
|
||||
get { return _command; }
|
||||
set { _command = value; }
|
||||
}
|
||||
|
||||
/// <summary>
|
||||
/// Returns the data periods as an array
|
||||
|
|
@ -61,5 +82,34 @@ namespace BizHawk.Emulation.Cores.Computers.SinclairSpectrum
|
|||
|
||||
DataPeriods = periodArray.ToList();
|
||||
}
|
||||
|
||||
/// <summary>
|
||||
/// Bizhawk state serialization
|
||||
/// </summary>
|
||||
/// <param name="ser"></param>
|
||||
public void SyncState(Serializer ser, int blockPosition)
|
||||
{
|
||||
ser.BeginSection("DataBlock" + blockPosition);
|
||||
|
||||
ser.Sync("_blockID", ref _blockID);
|
||||
ser.SyncFixedString("_blockDescription", ref _blockDescription, 50);
|
||||
ser.Sync("_blockData", ref _blockData, true);
|
||||
ser.SyncEnum("_command", ref _command);
|
||||
|
||||
int[] tempArray = null;
|
||||
|
||||
if (ser.IsWriter)
|
||||
{
|
||||
tempArray = GetDataPeriodsArray();
|
||||
ser.Sync("_periods", ref tempArray, true);
|
||||
}
|
||||
else
|
||||
{
|
||||
ser.Sync("_periods", ref tempArray, true);
|
||||
SetDataPeriodsArray(tempArray);
|
||||
}
|
||||
|
||||
ser.EndSection();
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
|
|||
Loading…
Reference in New Issue