int main(void)
{
Ym_driver yd, *ydp;
ydp = &yd;
ym_init(ydp, set_control_impl, set_data_impl,
delay_us_impl);
ym_reset(ydp);
for (int key = 0; key < 3; key++) {
ym_key_on(ydp, 0, key+12*2);
}
for (int ch = 0; ch < 6; ch+=1) {
for (int op = 0; op < 4; op++) {
}
}
return 0;
}
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;
}