mirror of
https://github.com/holub/mame
synced 2025-04-09 18:17:44 +03:00
heathkit/h89.cpp: Add a software list for H88 cassettes. (#12019)
New working software list items (h88_cass.xml) ------------------------ BUG-8 02.05.00 [Society of Eight-Bit Heathkit Computerists] BUG-8 02.06.00 [Society of Eight-Bit Heathkit Computerists] Extended Benton Harbor Basic 10.05.00 [Society of Eight-Bit Heathkit Computerists] Extended Benton Harbor Basic 10.05.01 [Society of Eight-Bit Heathkit Computerists] Extended Benton Harbor Basic 10.06.00 [Society of Eight-Bit Heathkit Computerists] Heath H8 Assembler 04.05.00 [Society of Eight-Bit Heathkit Computerists] Heath H8 Assembler 04.06.00 [Society of Eight-Bit Heathkit Computerists] Heath/Wintek H8 Editor 03.05.00 [Society of Eight-Bit Heathkit Computerists] Heath/Wintek H8 Editor 03.06.00 [Society of Eight-Bit Heathkit Computerists]
This commit is contained in:
Mark Garlanger
GitHub
parent
5c6dc2920d
commit
66856363dd
161
hash/h88_cass.xml
Normal file
161
hash/h88_cass.xml
Normal file
@ -0,0 +1,161 @@
|
||||
<?xml version="1.0"?>
|
||||
<!DOCTYPE softwarelist SYSTEM "softwarelist.dtd">
|
||||
<!--
|
||||
license:CC0-1.0
|
||||
-->
|
||||
<softwarelist name="h88_cass" description="Heath H88 cassettes">
|
||||
|
||||
<software name="bug8_02_05_00" cloneof="bug8">
|
||||
<description>BUG-8 02.05.00</description>
|
||||
<year>1978</year>
|
||||
<publisher>Heath Corp.</publisher>
|
||||
<info name="alt_title" value="Heath/Wintek Terminal Debugger"/>
|
||||
<info name="developer" value="Heath Corp./Wintek Corp."/>
|
||||
<info name="distributor" value="Heath Corp."/>
|
||||
<info name="release" value="197806xx"/>
|
||||
<info name="version" value="02.05.00"/>
|
||||
|
||||
<part name="cass" interface="h88_cass_player">
|
||||
<dataarea name="cass" size="5027">
|
||||
<rom name="bug8_02_05_00.h8t" size="5027" crc="6013dd00" sha1="805f89fee7ade4cf9d2401b111006634d9239d92"/>
|
||||
</dataarea>
|
||||
</part>
|
||||
</software>
|
||||
|
||||
<software name="bug8">
|
||||
<description>BUG-8 02.06.00</description>
|
||||
<year>1978</year>
|
||||
<publisher>Heath Corp.</publisher>
|
||||
<info name="alt_title" value="Heath/Wintek Terminal Debugger"/>
|
||||
<info name="developer" value="Heath Corp./Wintek Corp."/>
|
||||
<info name="distributor" value="Heath Corp."/>
|
||||
<info name="release" value="197806xx"/>
|
||||
<info name="version" value="02.06.00"/>
|
||||
|
||||
<part name="cass" interface="h88_cass_player">
|
||||
<dataarea name="cass" size="5143">
|
||||
<rom name="bug8_02_06_00.h8t" size="5143" crc="63ab0c02" sha1="29c0b0242dca535eebc911288df40f34813cf08b"/>
|
||||
</dataarea>
|
||||
</part>
|
||||
</software>
|
||||
|
||||
<software name="exbasic_10_05_00" cloneof="exbasic">
|
||||
<description>Extended Benton Harbor Basic 10.05.00</description>
|
||||
<year>1978</year>
|
||||
<publisher>Heath Corp.</publisher>
|
||||
<info name="alt_title" value="Extended Benton Harbor Basic"/>
|
||||
<info name="developer" value="Heath Corp./Wintek Corp."/>
|
||||
<info name="distributor" value="Heath Corp."/>
|
||||
<info name="release" value="197806xx"/>
|
||||
<info name="version" value="10.05.00"/>
|
||||
|
||||
<part name="cass" interface="h88_cass_player">
|
||||
<dataarea name="cass" size="12028">
|
||||
<rom name="exbasic_10_05_00.h8t" size="12028" crc="f7ff8fcc" sha1="d1010ed4d3cb68a0fb4a3380bf3d5c31b72bf370"/>
|
||||
</dataarea>
|
||||
</part>
|
||||
</software>
|
||||
|
||||
<software name="exbasic_10_05_01" cloneof="exbasic">
|
||||
<description>Extended Benton Harbor Basic 10.05.01</description>
|
||||
<year>1978</year>
|
||||
<publisher>Heath Corp.</publisher>
|
||||
<info name="alt_title" value="Extended Benton Harbor Basic"/>
|
||||
<info name="developer" value="Heath Corp./Wintek Corp."/>
|
||||
<info name="distributor" value="Heath Corp."/>
|
||||
<info name="release" value="197806xx"/>
|
||||
<info name="version" value="10.05.01"/>
|
||||
|
||||
<part name="cass" interface="h88_cass_player">
|
||||
<dataarea name="cass" size="12029">
|
||||
<rom name="exbasic_10_05_01.h8t" size="12029" crc="ac6f60f2" sha1="59cf1d2077548ba14cc5b600f065f3147b87a9e3"/>
|
||||
</dataarea>
|
||||
</part>
|
||||
</software>
|
||||
|
||||
<software name="exbasic">
|
||||
<description>Extended Benton Harbor Basic 10.06.00</description>
|
||||
<year>1979</year>
|
||||
<publisher>Heath Corp.</publisher>
|
||||
<info name="alt_title" value="Extended Benton Harbor Basic"/>
|
||||
<info name="developer" value="Heath Corp./Wintek Corp."/>
|
||||
<info name="distributor" value="Heath Corp."/>
|
||||
<info name="release" value="197905xx"/>
|
||||
<info name="version" value="10.06.00"/>
|
||||
|
||||
<part name="cass" interface="h88_cass_player">
|
||||
<dataarea name="cass" size="12188">
|
||||
<rom name="exbasic_10_06_00.h8t" size="12188" crc="9fafdac1" sha1="f55bfab541640ac92e615e83eb2d705347d17510"/>
|
||||
</dataarea>
|
||||
</part>
|
||||
</software>
|
||||
|
||||
<software name="hasl8_04_05_00" cloneof="hasl8">
|
||||
<description>Heath H8 Assembler 04.05.00</description>
|
||||
<year>1978</year>
|
||||
<publisher>Heath Corp.</publisher>
|
||||
<info name="alt_title" value="Heath HASL"/>
|
||||
<info name="developer" value="Heath Corp."/>
|
||||
<info name="distributor" value="Heath Corp."/>
|
||||
<info name="release" value="197806xx"/>
|
||||
<info name="version" value="04.05.00"/>
|
||||
|
||||
<part name="cass" interface="h88_cass_player">
|
||||
<dataarea name="cass" size="7514">
|
||||
<rom name="hasl8_04_05_00.h8t" size="7514" crc="2a67cc74" sha1="aa109a5cfc4e84d002c1f237e072524d7eb00cf9"/>
|
||||
</dataarea>
|
||||
</part>
|
||||
</software>
|
||||
|
||||
<software name="hasl8">
|
||||
<description>Heath H8 Assembler 04.06.00</description>
|
||||
<year>1979</year>
|
||||
<publisher>Heath Corp.</publisher>
|
||||
<info name="alt_title" value="Heath HASL"/>
|
||||
<info name="developer" value="Heath Corp."/>
|
||||
<info name="distributor" value="Heath Corp."/>
|
||||
<info name="release" value="197905xx"/>
|
||||
<info name="version" value="04.05.00"/>
|
||||
|
||||
<part name="cass" interface="h88_cass_player">
|
||||
<dataarea name="cass" size="7656">
|
||||
<rom name="hasl8_04_06_00.h8t" size="7656" crc="803261b4" sha1="475d2c9edd7d3b1e4e91e18265055747909882ff"/>
|
||||
</dataarea>
|
||||
</part>
|
||||
</software>
|
||||
|
||||
<software name="ted8_03_05_00" cloneof="ted8">
|
||||
<description>Heath/Wintek H8 Editor 03.05.00</description>
|
||||
<year>1979</year>
|
||||
<publisher>Heath Corp.</publisher>
|
||||
<info name="alt_title" value="TED-8"/>
|
||||
<info name="developer" value="Heath Corp./Wintek Corp."/>
|
||||
<info name="distributor" value="Heath Corp."/>
|
||||
<info name="release" value="197803xx"/>
|
||||
<info name="version" value="03.05.00"/>
|
||||
|
||||
<part name="cass" interface="h88_cass_player">
|
||||
<dataarea name="cass" size="6975">
|
||||
<rom name="ted8_03_05_00.h8t" size="6975" crc="b2f174ef" sha1="719305f2a431d77c8f77e49cf4d0f40765b59f0d"/>
|
||||
</dataarea>
|
||||
</part>
|
||||
</software>
|
||||
|
||||
<software name="ted8">
|
||||
<description>Heath/Wintek H8 Editor 03.06.00</description>
|
||||
<year>1979</year>
|
||||
<publisher>Heath Corp.</publisher>
|
||||
<info name="alt_title" value="TED-8"/>
|
||||
<info name="developer" value="Heath Corp./Wintek Corp."/>
|
||||
<info name="distributor" value="Heath Corp."/>
|
||||
<info name="release" value="197803xx"/>
|
||||
<info name="version" value="03.05.00"/>
|
||||
|
||||
<part name="cass" interface="h88_cass_player">
|
||||
<dataarea name="cass" size="7099">
|
||||
<rom name="ted8_03_06_00.h8t" size="7099" crc="0e2d2186" sha1="a3df79d1629fc11864060e5858d554aa9b5963d1"/>
|
||||
</dataarea>
|
||||
</part>
|
||||
</software>
|
||||
|
||||
</softwarelist>
|
||||
@ -7,16 +7,31 @@ Support for Heathkit H8 H8T cassette images
|
||||
|
||||
Standard Kansas City format (300 baud)
|
||||
|
||||
TODO - investigate 1200 buad support, H8 should support it, but H88 does not.
|
||||
|
||||
We output a leader, followed by the contents of the H8T file.
|
||||
|
||||
********************************************************************/
|
||||
|
||||
#include "h8_cas.h"
|
||||
|
||||
#define WAVEENTRY_LOW -32768
|
||||
#define WAVEENTRY_HIGH 32767
|
||||
#include <algorithm>
|
||||
|
||||
#define H8_WAV_FREQUENCY 9600
|
||||
|
||||
static constexpr uint16_t WAVEENTRY_LOW = -32768;
|
||||
static constexpr uint16_t WAVEENTRY_HIGH = 32767;
|
||||
static constexpr uint16_t SILENCE = 0;
|
||||
|
||||
// using a multiple of 4800 will ensure an integer multiple of samples for each wave.
|
||||
static constexpr uint16_t H8_WAV_FREQUENCY = 9600;
|
||||
static constexpr uint16_t TAPE_BAUD_RATE = 300;
|
||||
static constexpr uint16_t SAMPLES_PER_BIT = H8_WAV_FREQUENCY / TAPE_BAUD_RATE;
|
||||
static constexpr uint16_t SAMPLES_PER_HALF_WAVE = SAMPLES_PER_BIT / 2;
|
||||
|
||||
static constexpr uint16_t ONE_FREQ = 1200;
|
||||
static constexpr uint16_t ZERO_FREQ = 2400;
|
||||
static constexpr uint16_t ONE_CYCLES = H8_WAV_FREQUENCY / ONE_FREQ;
|
||||
static constexpr uint16_t ZERO_CYCLES = H8_WAV_FREQUENCY / ZERO_FREQ;
|
||||
|
||||
// image size
|
||||
static int h8_image_size; // FIXME: global variable prevents multiple instances
|
||||
@ -25,8 +40,7 @@ static int h8_put_samples(int16_t *buffer, int sample_pos, int count, int level)
|
||||
{
|
||||
if (buffer)
|
||||
{
|
||||
for (int i=0; i<count; i++)
|
||||
buffer[sample_pos + i] = level;
|
||||
std::fill_n(&buffer[sample_pos], count, level);
|
||||
}
|
||||
|
||||
return count;
|
||||
@ -36,57 +50,48 @@ static int h8_output_bit(int16_t *buffer, int sample_pos, bool bit)
|
||||
{
|
||||
int samples = 0;
|
||||
|
||||
for (uint8_t i = 0; i < 4; i++)
|
||||
const int loops = bit ? ONE_CYCLES : ZERO_CYCLES;
|
||||
const int samplePerValue = SAMPLES_PER_HALF_WAVE / loops;
|
||||
|
||||
for (int i = 0; i < loops; i++)
|
||||
{
|
||||
if (bit)
|
||||
{
|
||||
samples += h8_put_samples(buffer, sample_pos + samples, 2, WAVEENTRY_LOW);
|
||||
samples += h8_put_samples(buffer, sample_pos + samples, 2, WAVEENTRY_HIGH);
|
||||
samples += h8_put_samples(buffer, sample_pos + samples, 2, WAVEENTRY_LOW);
|
||||
samples += h8_put_samples(buffer, sample_pos + samples, 2, WAVEENTRY_HIGH);
|
||||
}
|
||||
else
|
||||
{
|
||||
samples += h8_put_samples(buffer, sample_pos + samples, 4, WAVEENTRY_LOW);
|
||||
samples += h8_put_samples(buffer, sample_pos + samples, 4, WAVEENTRY_HIGH);
|
||||
}
|
||||
samples += h8_put_samples(buffer, sample_pos + samples, samplePerValue, WAVEENTRY_LOW);
|
||||
samples += h8_put_samples(buffer, sample_pos + samples, samplePerValue, WAVEENTRY_HIGH);
|
||||
}
|
||||
|
||||
return samples;
|
||||
}
|
||||
|
||||
static int h8_output_byte(int16_t *buffer, int sample_pos, uint8_t byte)
|
||||
static int h8_output_byte(int16_t *buffer, int sample_pos, uint8_t data)
|
||||
{
|
||||
int samples = 0;
|
||||
uint8_t i;
|
||||
|
||||
// start bit
|
||||
samples += h8_output_bit (buffer, sample_pos + samples, 0);
|
||||
samples += h8_output_bit(buffer, sample_pos + samples, 0);
|
||||
|
||||
// data bits
|
||||
for (i = 0; i<8; i++)
|
||||
samples += h8_output_bit (buffer, sample_pos + samples, (byte >> i) & 1);
|
||||
for (int i = 0; i < 8; i++)
|
||||
{
|
||||
samples += h8_output_bit(buffer, sample_pos + samples, data & 1);
|
||||
data >>= 1;
|
||||
}
|
||||
|
||||
// stop bits
|
||||
for (i = 0; i<2; i++)
|
||||
samples += h8_output_bit (buffer, sample_pos + samples, 1);
|
||||
// stop bit
|
||||
samples += h8_output_bit(buffer, sample_pos + samples, 1);
|
||||
|
||||
return samples;
|
||||
}
|
||||
|
||||
static int h8_handle_cassette(int16_t *buffer, const uint8_t *bytes)
|
||||
{
|
||||
uint32_t sample_count = 0;
|
||||
uint32_t byte_count = 0;
|
||||
uint32_t i;
|
||||
int sample_count = 0;
|
||||
|
||||
|
||||
// leader
|
||||
for (i=0; i<2000; i++)
|
||||
// leader - 1 second
|
||||
for (int i = 0; i < TAPE_BAUD_RATE; i++)
|
||||
sample_count += h8_output_bit(buffer, sample_count, 1);
|
||||
|
||||
// data
|
||||
for (i=byte_count; i<h8_image_size; i++)
|
||||
for (int i = 0; i < h8_image_size; i++)
|
||||
sample_count += h8_output_byte(buffer, sample_count, bytes[i]);
|
||||
|
||||
return sample_count;
|
||||
|
||||
@ -53,6 +53,7 @@
|
||||
#include "machine/ram.h"
|
||||
#include "machine/timer.h"
|
||||
|
||||
#include "softlist_dev.h"
|
||||
|
||||
// Single Step
|
||||
#define LOG_SS (1U << 1)
|
||||
@ -837,6 +838,8 @@ void h88_state::h88(machine_config &config)
|
||||
m_intr_socket->set_default_option("original");
|
||||
m_intr_socket->set_fixed(true);
|
||||
|
||||
SOFTWARE_LIST(config, "cass_list").set_original("h88_cass");
|
||||
|
||||
// H-88-5 Cassette interface board
|
||||
HEATH_H88_CASS(config, m_cassette, H89_CLOCK);
|
||||
}
|
||||
|
||||
@ -153,13 +153,13 @@ void heath_h_88_cass_device::device_add_mconfig(machine_config &config)
|
||||
m_cass_player->set_formats(h8_cassette_formats);
|
||||
m_cass_player->set_default_state(CASSETTE_STOPPED | CASSETTE_MOTOR_ENABLED | CASSETTE_SPEAKER_ENABLED);
|
||||
m_cass_player->add_route(ALL_OUTPUTS, "mono", 0.15);
|
||||
m_cass_player->set_interface("h89_cass_player");
|
||||
m_cass_player->set_interface("h88_cass_player");
|
||||
|
||||
CASSETTE(config, m_cass_recorder);
|
||||
m_cass_recorder->set_formats(h8_cassette_formats);
|
||||
m_cass_recorder->set_default_state(CASSETTE_STOPPED | CASSETTE_MOTOR_ENABLED | CASSETTE_SPEAKER_ENABLED);
|
||||
m_cass_recorder->add_route(ALL_OUTPUTS, "mono", 0.15);
|
||||
m_cass_recorder->set_interface("h89_cass_recorder");
|
||||
m_cass_recorder->set_interface("h88_cass_recorder");
|
||||
|
||||
TIMER(config, "kansas_w").configure_periodic(FUNC(heath_h_88_cass_device::kansas_w), attotime::from_hz(4800));
|
||||
TIMER(config, "kansas_r").configure_periodic(FUNC(heath_h_88_cass_device::kansas_r), attotime::from_hz(40000));
|
||||
|
||||
Loading…
Reference in New Issue
Block a user