void __fastcall ggms_port_w(UINT16 port, UINT8 data)
{
port &= 0xFF;
switch(port & 0xC1)
{
case 0x00:
memctrl_w(data);
return;
case 0x01:
ioctrl_w(data);
return;
case 0x40:
case 0x41:
psg_write(data);
return;
case 0x80:
case 0x81:
gg_vdp_write(port, data);
return;
}
}
void __fastcall sms_port_w(UINT16 port, UINT8 data)
{
switch(port & 0xC1)
{
case 0x00:
memctrl_w(data);
return;
case 0x01:
ioctrl_w(data);
return;
case 0x40:
case 0x41:
psg_write(data);
return;
case 0x80:
case 0x81:
vdp_write(port, data);
return;
case 0xC0:
case 0xC1:
return;
}
}
void sms_port_w(uint16 port, uint8 data)
{
switch(port & 0xC1)
{
case 0x00:
memctrl_w(data);
return;
case 0x01:
ioctrl_w(data);
return;
case 0x40:
case 0x41:
psg_write(data);
return;
case 0x80:
case 0x81:
vdp_write(port, data);
return;
case 0xC0:
case 0xC1:
return;
}
}
void ggms_port_w(uint16 port, uint8 data)
{
port &= 0xFF;
switch(port & 0xC1)
{
case 0x00:
memctrl_w(data);
return;
case 0x01:
ioctrl_w(data);
return;
case 0x40:
case 0x41:
psg_write(data);
return;
case 0x80:
case 0x81:
gg_vdp_write(port, data);
return;
}
}
void __fastcall smsj_port_w(UINT16 port, UINT8 data)
{
port &= 0xFF;
if(port >= 0xF0)
{
switch(port)
{
case 0xF0:
fmunit_write(0, data);
return;
case 0xF1:
fmunit_write(1, data);
return;
case 0xF2:
fmunit_detect_w(data);
return;
}
}
switch(port & 0xC1)
{
case 0x00:
memctrl_w(data);
return;
case 0x01:
ioctrl_w(data);
return;
case 0x40:
case 0x41:
psg_write(data);
return;
case 0x80:
case 0x81:
vdp_write(port, data);
return;
case 0xC0:
case 0xC1:
return;
}
}
void __fastcall md_port_w(UINT16 port, UINT8 data)
{
switch(port & 0xC1)
{
case 0x00:
/* No memory control register */
return;
case 0x01:
ioctrl_w(data);
return;
case 0x40:
case 0x41:
psg_write(data);
return;
case 0x80:
case 0x81:
md_vdp_write(port, data);
return;
}
}
void md_port_w(uint16 port, uint8 data)
{
switch(port & 0xC1)
{
case 0x00:
/* No memory control register */
return;
case 0x01:
ioctrl_w(data);
return;
case 0x40:
case 0x41:
psg_write(data);
return;
case 0x80:
case 0x81:
md_vdp_write(port, data);
return;
}
}
int main(int argc, char ** argv)
{
set_exe_str(argv[0]);
data_block *blocks = NULL;
data_block *seek_block = NULL;
uint32_t seek_offset;
uint32_t block_offset;
uint32_t fps = 60;
config = load_config(argv[0]);
render_init(320, 240, "vgm play", 60, 0);
uint32_t opts = 0;
if (argc >= 3 && !strcmp(argv[2], "-y")) {
opts |= YM_OPT_WAVE_LOG;
}
ym2612_context y_context;
ym_init(&y_context, render_sample_rate(), MCLKS_NTSC, MCLKS_PER_YM, render_audio_buffer(), opts);
psg_context p_context;
psg_init(&p_context, render_sample_rate(), MCLKS_NTSC, MCLKS_PER_PSG, render_audio_buffer());
FILE * f = fopen(argv[1], "rb");
vgm_header header;
fread(&header, sizeof(header), 1, f);
if (header.version < 0x150 || !header.data_offset) {
header.data_offset = 0xC;
}
fseek(f, header.data_offset + 0x34, SEEK_SET);
uint32_t data_size = header.eof_offset + 4 - (header.data_offset + 0x34);
uint8_t * data = malloc(data_size);
fread(data, 1, data_size, f);
fclose(f);
uint32_t mclks_sample = MCLKS_NTSC / 44100;
uint32_t loop_count = 2;
uint8_t * end = data + data_size;
uint8_t * cur = data;
uint32_t current_cycle = 0;
while (cur < end) {
uint8_t cmd = *(cur++);
switch(cmd)
{
case CMD_PSG_STEREO:
//ignore for now
cur++;
break;
case CMD_PSG:
psg_write(&p_context, *(cur++));
break;
case CMD_YM2612_0:
ym_address_write_part1(&y_context, *(cur++));
ym_data_write(&y_context, *(cur++));
break;
case CMD_YM2612_1:
ym_address_write_part2(&y_context, *(cur++));
ym_data_write(&y_context, *(cur++));
break;
case CMD_WAIT: {
uint32_t wait_time = *(cur++);
wait_time |= *(cur++) << 8;
wait_time *= mclks_sample;
vgm_wait(&y_context, &p_context, ¤t_cycle, wait_time);
break;
}
case CMD_WAIT_60:
vgm_wait(&y_context, &p_context, ¤t_cycle, 735 * mclks_sample);
break;
case CMD_WAIT_50:
vgm_wait(&y_context, &p_context, ¤t_cycle, 882 * mclks_sample);
break;
case CMD_END:
if (header.loop_offset && --loop_count) {
cur = data + header.loop_offset + 0x1C - (header.data_offset + 0x34);
} else {
//TODO: fade out
return 0;
}
break;
case CMD_DATA: {
cur++; //skip compat command
uint8_t data_type = *(cur++);
uint32_t data_size = *(cur++);
data_size |= *(cur++) << 8;
data_size |= *(cur++) << 16;
data_size |= *(cur++) << 24;
if (data_type == DATA_YM2612_PCM) {
data_block ** curblock = &blocks;
while(*curblock)
{
curblock = &((*curblock)->next);
}
*curblock = malloc(sizeof(data_block));
(*curblock)->size = data_size;
(*curblock)->type = data_type;
(*curblock)->data = cur;
(*curblock)->next = NULL;
} else {
fprintf(stderr, "Skipping data block with unrecognized type %X\n", data_type);
}
cur += data_size;
break;
}
case CMD_DATA_SEEK: {
uint32_t new_offset = *(cur++);
new_offset |= *(cur++) << 8;
new_offset |= *(cur++) << 16;
new_offset |= *(cur++) << 24;
if (!seek_block || new_offset < seek_offset) {
seek_block = blocks;
seek_offset = 0;
block_offset = 0;
}
while (seek_block && (seek_offset - block_offset + seek_block->size) < new_offset)
{
seek_offset += seek_block->size - block_offset;
seek_block = seek_block->next;
block_offset = 0;
}
block_offset += new_offset-seek_offset;
seek_offset = new_offset;
break;
}
default:
if (cmd >= CMD_WAIT_SHORT && cmd < (CMD_WAIT_SHORT + 0x10)) {
uint32_t wait_time = (cmd & 0xF) + 1;
wait_time *= mclks_sample;
vgm_wait(&y_context, &p_context, ¤t_cycle, wait_time);
} else if (cmd >= CMD_YM2612_DAC && cmd < CMD_DAC_STREAM_SETUP) {
if (seek_block) {
ym_address_write_part1(&y_context, 0x2A);
ym_data_write(&y_context, seek_block->data[block_offset++]);
seek_offset++;
if (block_offset > seek_block->size) {
seek_block = seek_block->next;
block_offset = 0;
}
} else {
fputs("Encountered DAC write command but data seek pointer is invalid!\n", stderr);
}
uint32_t wait_time = (cmd & 0xF);
if (wait_time)
{
wait_time *= mclks_sample;
vgm_wait(&y_context, &p_context, ¤t_cycle, wait_time);
}
} else {
fatal_error("unimplemented command: %X at offset %X\n", cmd, (unsigned int)(cur - data - 1));
}
}
}
return 0;
}