repos/blastem: vgmplay.c annotate

annotate vgmplay.c @ 1944:357878be8be6

Fix vgmplay target

author	Michael Pavone <pavone@retrodev.com>
date	Sun, 26 Apr 2020 14:56:44 -0700
parents	c9695252eff4
children	7ebcbef45362

rev	line source
467 140af5509ce7 Added copyright notice to source files and added GPL license text in COPYING Mike Pavone <pavone@retrodev.com> parents: 466 diff changeset	1 /*
140af5509ce7 Added copyright notice to source files and added GPL license text in COPYING Mike Pavone <pavone@retrodev.com> parents: 466 diff changeset	2 Copyright 2013 Michael Pavone
505 b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	3 This file is part of BlastEm.
467 140af5509ce7 Added copyright notice to source files and added GPL license text in COPYING Mike Pavone <pavone@retrodev.com> parents: 466 diff changeset	4 BlastEm is free software distributed under the terms of the GNU General Public License version 3 or greater. See COPYING for full license text.
140af5509ce7 Added copyright notice to source files and added GPL license text in COPYING Mike Pavone <pavone@retrodev.com> parents: 466 diff changeset	5 */
408 a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	6 #include "render.h"
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	7 #include "ym2612.h"
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	8 #include "psg.h"
466 bc9e0829ffc7 Fix vgmplay Mike Pavone <pavone@retrodev.com> parents: 409 diff changeset	9 #include "config.h"
793 9aff36a172b2 Fix missing includes of util.h Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	10 #include "util.h"
408 a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	11 #include <stdint.h>
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	12 #include <stdio.h>
805 3eced113081c Pre-release cleanup Michael Pavone <pavone@retrodev.com> parents: 793 diff changeset	13 #include <stdlib.h>
3eced113081c Pre-release cleanup Michael Pavone <pavone@retrodev.com> parents: 793 diff changeset	14 #include <string.h>
890 12b1a8a32306 Fix so vgmplay builds again Michael Pavone <pavone@retrodev.com> parents: 848 diff changeset	15 #include "vgm.h"
1944 357878be8be6 Fix vgmplay target Michael Pavone <pavone@retrodev.com> parents: 1793 diff changeset	16 #include "system.h"
408 a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	17
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	18 #define MCLKS_NTSC 53693175
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	19 #define MCLKS_PAL 53203395
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	20
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	21 #define MCLKS_PER_68K 7
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	22 #define MCLKS_PER_YM MCLKS_PER_68K
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	23 #define MCLKS_PER_Z80 15
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	24 #define MCLKS_PER_PSG (MCLKS_PER_Z80*16)
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	25
1944 357878be8be6 Fix vgmplay target Michael Pavone <pavone@retrodev.com> parents: 1793 diff changeset	26 system_header *current_system;
357878be8be6 Fix vgmplay target Michael Pavone <pavone@retrodev.com> parents: 1793 diff changeset	27
408 a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	28 void handle_keydown(int keycode)
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	29 {
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	30 }
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	31
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	32 void handle_keyup(int keycode)
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	33 {
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	34 }
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	35
466 bc9e0829ffc7 Fix vgmplay Mike Pavone <pavone@retrodev.com> parents: 409 diff changeset	36 void handle_joydown(int joystick, int button)
bc9e0829ffc7 Fix vgmplay Mike Pavone <pavone@retrodev.com> parents: 409 diff changeset	37 {
bc9e0829ffc7 Fix vgmplay Mike Pavone <pavone@retrodev.com> parents: 409 diff changeset	38 }
bc9e0829ffc7 Fix vgmplay Mike Pavone <pavone@retrodev.com> parents: 409 diff changeset	39
bc9e0829ffc7 Fix vgmplay Mike Pavone <pavone@retrodev.com> parents: 409 diff changeset	40 void handle_joyup(int joystick, int button)
bc9e0829ffc7 Fix vgmplay Mike Pavone <pavone@retrodev.com> parents: 409 diff changeset	41 {
bc9e0829ffc7 Fix vgmplay Mike Pavone <pavone@retrodev.com> parents: 409 diff changeset	42 }
bc9e0829ffc7 Fix vgmplay Mike Pavone <pavone@retrodev.com> parents: 409 diff changeset	43
bc9e0829ffc7 Fix vgmplay Mike Pavone <pavone@retrodev.com> parents: 409 diff changeset	44 void handle_joy_dpad(int joystick, int dpadnum, uint8_t value)
bc9e0829ffc7 Fix vgmplay Mike Pavone <pavone@retrodev.com> parents: 409 diff changeset	45 {
bc9e0829ffc7 Fix vgmplay Mike Pavone <pavone@retrodev.com> parents: 409 diff changeset	46 }
bc9e0829ffc7 Fix vgmplay Mike Pavone <pavone@retrodev.com> parents: 409 diff changeset	47
1210 c95893007a83 Fix vgmplay and stateview targets Michael Pavone <pavone@retrodev.com> parents: 1196 diff changeset	48 void handle_joy_axis(int joystick, int axis, int16_t value)
c95893007a83 Fix vgmplay and stateview targets Michael Pavone <pavone@retrodev.com> parents: 1196 diff changeset	49 {
c95893007a83 Fix vgmplay and stateview targets Michael Pavone <pavone@retrodev.com> parents: 1196 diff changeset	50 }
c95893007a83 Fix vgmplay and stateview targets Michael Pavone <pavone@retrodev.com> parents: 1196 diff changeset	51
1196 74e77aec9004 Fix stateview and vgmplay targets Michael Pavone <pavone@retrodev.com> parents: 1103 diff changeset	52 void handle_joy_added(int joystick)
74e77aec9004 Fix stateview and vgmplay targets Michael Pavone <pavone@retrodev.com> parents: 1103 diff changeset	53 {
74e77aec9004 Fix stateview and vgmplay targets Michael Pavone <pavone@retrodev.com> parents: 1103 diff changeset	54 }
74e77aec9004 Fix stateview and vgmplay targets Michael Pavone <pavone@retrodev.com> parents: 1103 diff changeset	55
931 126c0294c1e4 Make stateview and vgmplay compile again Michael Pavone <pavone@retrodev.com> parents: 890 diff changeset	56 void handle_mouse_moved(int mouse, uint16_t x, uint16_t y, int16_t deltax, int16_t deltay)
126c0294c1e4 Make stateview and vgmplay compile again Michael Pavone <pavone@retrodev.com> parents: 890 diff changeset	57 {
126c0294c1e4 Make stateview and vgmplay compile again Michael Pavone <pavone@retrodev.com> parents: 890 diff changeset	58 }
126c0294c1e4 Make stateview and vgmplay compile again Michael Pavone <pavone@retrodev.com> parents: 890 diff changeset	59
126c0294c1e4 Make stateview and vgmplay compile again Michael Pavone <pavone@retrodev.com> parents: 890 diff changeset	60 void handle_mousedown(int mouse, int button)
126c0294c1e4 Make stateview and vgmplay compile again Michael Pavone <pavone@retrodev.com> parents: 890 diff changeset	61 {
126c0294c1e4 Make stateview and vgmplay compile again Michael Pavone <pavone@retrodev.com> parents: 890 diff changeset	62 }
126c0294c1e4 Make stateview and vgmplay compile again Michael Pavone <pavone@retrodev.com> parents: 890 diff changeset	63
126c0294c1e4 Make stateview and vgmplay compile again Michael Pavone <pavone@retrodev.com> parents: 890 diff changeset	64 void handle_mouseup(int mouse, int button)
126c0294c1e4 Make stateview and vgmplay compile again Michael Pavone <pavone@retrodev.com> parents: 890 diff changeset	65 {
126c0294c1e4 Make stateview and vgmplay compile again Michael Pavone <pavone@retrodev.com> parents: 890 diff changeset	66 }
126c0294c1e4 Make stateview and vgmplay compile again Michael Pavone <pavone@retrodev.com> parents: 890 diff changeset	67
551 16ee0937c676 Fix type mismatch on headless global that was causing a crash in the vgm player on ARM Michael Pavone <pavone@retrodev.com> parents: 514 diff changeset	68 int headless = 0;
505 b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	69
409 c1bddeadc566 Process events in vgm player so that quitting works Mike Pavone <pavone@retrodev.com> parents: 408 diff changeset	70 #define CYCLE_LIMIT MCLKS_NTSC/60
511 2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	71 #define MAX_SOUND_CYCLES 100000
466 bc9e0829ffc7 Fix vgmplay Mike Pavone <pavone@retrodev.com> parents: 409 diff changeset	72 tern_node * config;
409 c1bddeadc566 Process events in vgm player so that quitting works Mike Pavone <pavone@retrodev.com> parents: 408 diff changeset	73
812 574495372d1c Finish OS X support in build_release script. Fix a name conflict in vgmplay on OS X. Call set_exe_str in vgmplay and stateview Michael Pavone <pavone@retrodev.com> parents: 805 diff changeset	74 void vgm_wait(ym2612_context * y_context, psg_context * p_context, uint32_t * current_cycle, uint32_t cycles)
408 a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	75 {
511 2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	76 while (cycles > MAX_SOUND_CYCLES)
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	77 {
812 574495372d1c Finish OS X support in build_release script. Fix a name conflict in vgmplay on OS X. Call set_exe_str in vgmplay and stateview Michael Pavone <pavone@retrodev.com> parents: 805 diff changeset	78 vgm_wait(y_context, p_context, current_cycle, MAX_SOUND_CYCLES);
511 2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	79 cycles -= MAX_SOUND_CYCLES;
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	80 }
408 a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	81 *current_cycle += cycles;
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	82 psg_run(p_context, *current_cycle);
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	83 ym_run(y_context, *current_cycle);
466 bc9e0829ffc7 Fix vgmplay Mike Pavone <pavone@retrodev.com> parents: 409 diff changeset	84
409 c1bddeadc566 Process events in vgm player so that quitting works Mike Pavone <pavone@retrodev.com> parents: 408 diff changeset	85 if (*current_cycle > CYCLE_LIMIT) {
c1bddeadc566 Process events in vgm player so that quitting works Mike Pavone <pavone@retrodev.com> parents: 408 diff changeset	86 *current_cycle -= CYCLE_LIMIT;
c1bddeadc566 Process events in vgm player so that quitting works Mike Pavone <pavone@retrodev.com> parents: 408 diff changeset	87 p_context->cycles -= CYCLE_LIMIT;
c1bddeadc566 Process events in vgm player so that quitting works Mike Pavone <pavone@retrodev.com> parents: 408 diff changeset	88 y_context->current_cycle -= CYCLE_LIMIT;
c1bddeadc566 Process events in vgm player so that quitting works Mike Pavone <pavone@retrodev.com> parents: 408 diff changeset	89 process_events();
408 a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	90 }
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	91 }
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	92
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	93 int main(int argc, char ** argv)
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	94 {
812 574495372d1c Finish OS X support in build_release script. Fix a name conflict in vgmplay on OS X. Call set_exe_str in vgmplay and stateview Michael Pavone <pavone@retrodev.com> parents: 805 diff changeset	95 set_exe_str(argv[0]);
511 2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	96 data_block *blocks = NULL;
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	97 data_block *seek_block = NULL;
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	98 uint32_t seek_offset;
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	99 uint32_t block_offset;
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	100
408 a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	101 uint32_t fps = 60;
466 bc9e0829ffc7 Fix vgmplay Mike Pavone <pavone@retrodev.com> parents: 409 diff changeset	102 config = load_config(argv[0]);
1103 22e87b739ad6 WIP split of ROM loading/argument parsing from Genesis emulation code. Compiles and doesn't crash, but nothing works. Still a few too many globals as well. Michael Pavone <pavone@retrodev.com> parents: 1002 diff changeset	103 render_init(320, 240, "vgm play", 0);
466 bc9e0829ffc7 Fix vgmplay Mike Pavone <pavone@retrodev.com> parents: 409 diff changeset	104
514 f66c78cbdcaa Implement per-channel wave logging and primitive looping support in vgm player. Michael Pavone <pavone@retrodev.com> parents: 512 diff changeset	105 uint32_t opts = 0;
f66c78cbdcaa Implement per-channel wave logging and primitive looping support in vgm player. Michael Pavone <pavone@retrodev.com> parents: 512 diff changeset	106 if (argc >= 3 && !strcmp(argv[2], "-y")) {
f66c78cbdcaa Implement per-channel wave logging and primitive looping support in vgm player. Michael Pavone <pavone@retrodev.com> parents: 512 diff changeset	107 opts \|= YM_OPT_WAVE_LOG;
f66c78cbdcaa Implement per-channel wave logging and primitive looping support in vgm player. Michael Pavone <pavone@retrodev.com> parents: 512 diff changeset	108 }
1002 8d032a368dd5 Made low pass filter frequency configurable Michael Pavone <pavone@retrodev.com> parents: 931 diff changeset	109
1327 57637d17b59e Fix vgmplay target for ternary tree changes Michael Pavone <pavone@retrodev.com> parents: 1210 diff changeset	110 char * lowpass_cutoff_str = tern_find_path(config, "audio\0lowpass_cutoff\0", TVAL_PTR).ptrval;
1002 8d032a368dd5 Made low pass filter frequency configurable Michael Pavone <pavone@retrodev.com> parents: 931 diff changeset	111 uint32_t lowpass_cutoff = lowpass_cutoff_str ? atoi(lowpass_cutoff_str) : 3390;
466 bc9e0829ffc7 Fix vgmplay Mike Pavone <pavone@retrodev.com> parents: 409 diff changeset	112
408 a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	113 ym2612_context y_context;
1558 55d357bb4398 Fix vgmplay Michael Pavone <pavone@retrodev.com> parents: 1327 diff changeset	114 ym_init(&y_context, MCLKS_NTSC, MCLKS_PER_YM, opts);
466 bc9e0829ffc7 Fix vgmplay Mike Pavone <pavone@retrodev.com> parents: 409 diff changeset	115
408 a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	116 psg_context p_context;
1558 55d357bb4398 Fix vgmplay Michael Pavone <pavone@retrodev.com> parents: 1327 diff changeset	117 psg_init(&p_context, MCLKS_NTSC, MCLKS_PER_PSG);
466 bc9e0829ffc7 Fix vgmplay Mike Pavone <pavone@retrodev.com> parents: 409 diff changeset	118
408 a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	119 FILE * f = fopen(argv[1], "rb");
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	120 vgm_header header;
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	121 fread(&header, sizeof(header), 1, f);
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	122 if (header.version < 0x150 \|\| !header.data_offset) {
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	123 header.data_offset = 0xC;
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	124 }
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	125 fseek(f, header.data_offset + 0x34, SEEK_SET);
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	126 uint32_t data_size = header.eof_offset + 4 - (header.data_offset + 0x34);
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	127 uint8_t * data = malloc(data_size);
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	128 fread(data, 1, data_size, f);
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	129 fclose(f);
466 bc9e0829ffc7 Fix vgmplay Mike Pavone <pavone@retrodev.com> parents: 409 diff changeset	130
408 a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	131 uint32_t mclks_sample = MCLKS_NTSC / 44100;
514 f66c78cbdcaa Implement per-channel wave logging and primitive looping support in vgm player. Michael Pavone <pavone@retrodev.com> parents: 512 diff changeset	132 uint32_t loop_count = 2;
466 bc9e0829ffc7 Fix vgmplay Mike Pavone <pavone@retrodev.com> parents: 409 diff changeset	133
408 a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	134 uint8_t * end = data + data_size;
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	135 uint8_t * cur = data;
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	136 uint32_t current_cycle = 0;
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	137 while (cur < end) {
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	138 uint8_t cmd = *(cur++);
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	139 switch(cmd)
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	140 {
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	141 case CMD_PSG_STEREO:
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	142 //ignore for now
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	143 cur++;
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	144 break;
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	145 case CMD_PSG:
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	146 psg_write(&p_context, *(cur++));
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	147 break;
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	148 case CMD_YM2612_0:
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	149 ym_address_write_part1(&y_context, *(cur++));
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	150 ym_data_write(&y_context, *(cur++));
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	151 break;
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	152 case CMD_YM2612_1:
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	153 ym_address_write_part2(&y_context, *(cur++));
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	154 ym_data_write(&y_context, *(cur++));
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	155 break;
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	156 case CMD_WAIT: {
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	157 uint32_t wait_time = *(cur++);
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	158 wait_time \|= *(cur++) << 8;
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	159 wait_time *= mclks_sample;
812 574495372d1c Finish OS X support in build_release script. Fix a name conflict in vgmplay on OS X. Call set_exe_str in vgmplay and stateview Michael Pavone <pavone@retrodev.com> parents: 805 diff changeset	160 vgm_wait(&y_context, &p_context, &current_cycle, wait_time);
408 a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	161 break;
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	162 }
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	163 case CMD_WAIT_60:
812 574495372d1c Finish OS X support in build_release script. Fix a name conflict in vgmplay on OS X. Call set_exe_str in vgmplay and stateview Michael Pavone <pavone@retrodev.com> parents: 805 diff changeset	164 vgm_wait(&y_context, &p_context, &current_cycle, 735 * mclks_sample);
408 a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	165 break;
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	166 case CMD_WAIT_50:
812 574495372d1c Finish OS X support in build_release script. Fix a name conflict in vgmplay on OS X. Call set_exe_str in vgmplay and stateview Michael Pavone <pavone@retrodev.com> parents: 805 diff changeset	167 vgm_wait(&y_context, &p_context, &current_cycle, 882 * mclks_sample);
408 a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	168 break;
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	169 case CMD_END:
514 f66c78cbdcaa Implement per-channel wave logging and primitive looping support in vgm player. Michael Pavone <pavone@retrodev.com> parents: 512 diff changeset	170 if (header.loop_offset && --loop_count) {
f66c78cbdcaa Implement per-channel wave logging and primitive looping support in vgm player. Michael Pavone <pavone@retrodev.com> parents: 512 diff changeset	171 cur = data + header.loop_offset + 0x1C - (header.data_offset + 0x34);
f66c78cbdcaa Implement per-channel wave logging and primitive looping support in vgm player. Michael Pavone <pavone@retrodev.com> parents: 512 diff changeset	172 } else {
f66c78cbdcaa Implement per-channel wave logging and primitive looping support in vgm player. Michael Pavone <pavone@retrodev.com> parents: 512 diff changeset	173 //TODO: fade out
f66c78cbdcaa Implement per-channel wave logging and primitive looping support in vgm player. Michael Pavone <pavone@retrodev.com> parents: 512 diff changeset	174 return 0;
f66c78cbdcaa Implement per-channel wave logging and primitive looping support in vgm player. Michael Pavone <pavone@retrodev.com> parents: 512 diff changeset	175 }
f66c78cbdcaa Implement per-channel wave logging and primitive looping support in vgm player. Michael Pavone <pavone@retrodev.com> parents: 512 diff changeset	176 break;
511 2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	177 case CMD_DATA: {
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	178 cur++; //skip compat command
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	179 uint8_t data_type = *(cur++);
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	180 uint32_t data_size = *(cur++);
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	181 data_size \|= *(cur++) << 8;
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	182 data_size \|= *(cur++) << 16;
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	183 data_size \|= *(cur++) << 24;
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	184 if (data_type == DATA_YM2612_PCM) {
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	185 data_block ** curblock = &blocks;
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	186 while(*curblock)
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	187 {
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	188 curblock = &((*curblock)->next);
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	189 }
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	190 *curblock = malloc(sizeof(data_block));
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	191 (*curblock)->size = data_size;
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	192 (*curblock)->type = data_type;
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	193 (*curblock)->data = cur;
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	194 (*curblock)->next = NULL;
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	195 } else {
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	196 fprintf(stderr, "Skipping data block with unrecognized type %X\n", data_type);
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	197 }
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	198 cur += data_size;
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	199 break;
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	200 }
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	201 case CMD_DATA_SEEK: {
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	202 uint32_t new_offset = *(cur++);
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	203 new_offset \|= *(cur++) << 8;
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	204 new_offset \|= *(cur++) << 16;
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	205 new_offset \|= *(cur++) << 24;
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	206 if (!seek_block \|\| new_offset < seek_offset) {
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	207 seek_block = blocks;
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	208 seek_offset = 0;
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	209 block_offset = 0;
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	210 }
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	211 while (seek_block && (seek_offset - block_offset + seek_block->size) < new_offset)
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	212 {
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	213 seek_offset += seek_block->size - block_offset;
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	214 seek_block = seek_block->next;
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	215 block_offset = 0;
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	216 }
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	217 block_offset += new_offset-seek_offset;
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	218 seek_offset = new_offset;
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	219 break;
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	220 }
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	221
408 a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	222 default:
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	223 if (cmd >= CMD_WAIT_SHORT && cmd < (CMD_WAIT_SHORT + 0x10)) {
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	224 uint32_t wait_time = (cmd & 0xF) + 1;
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	225 wait_time *= mclks_sample;
812 574495372d1c Finish OS X support in build_release script. Fix a name conflict in vgmplay on OS X. Call set_exe_str in vgmplay and stateview Michael Pavone <pavone@retrodev.com> parents: 805 diff changeset	226 vgm_wait(&y_context, &p_context, &current_cycle, wait_time);
511 2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	227 } else if (cmd >= CMD_YM2612_DAC && cmd < CMD_DAC_STREAM_SETUP) {
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	228 if (seek_block) {
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	229 ym_address_write_part1(&y_context, 0x2A);
512 6800d30437c9 Increment sample pointer after reading a sample in VGM player Michael Pavone <pavone@retrodev.com> parents: 511 diff changeset	230 ym_data_write(&y_context, seek_block->data[block_offset++]);
6800d30437c9 Increment sample pointer after reading a sample in VGM player Michael Pavone <pavone@retrodev.com> parents: 511 diff changeset	231 seek_offset++;
6800d30437c9 Increment sample pointer after reading a sample in VGM player Michael Pavone <pavone@retrodev.com> parents: 511 diff changeset	232 if (block_offset > seek_block->size) {
6800d30437c9 Increment sample pointer after reading a sample in VGM player Michael Pavone <pavone@retrodev.com> parents: 511 diff changeset	233 seek_block = seek_block->next;
6800d30437c9 Increment sample pointer after reading a sample in VGM player Michael Pavone <pavone@retrodev.com> parents: 511 diff changeset	234 block_offset = 0;
6800d30437c9 Increment sample pointer after reading a sample in VGM player Michael Pavone <pavone@retrodev.com> parents: 511 diff changeset	235 }
511 2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	236 } else {
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	237 fputs("Encountered DAC write command but data seek pointer is invalid!\n", stderr);
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	238 }
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	239 uint32_t wait_time = (cmd & 0xF);
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	240 if (wait_time)
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	241 {
2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	242 wait_time *= mclks_sample;
812 574495372d1c Finish OS X support in build_release script. Fix a name conflict in vgmplay on OS X. Call set_exe_str in vgmplay and stateview Michael Pavone <pavone@retrodev.com> parents: 805 diff changeset	243 vgm_wait(&y_context, &p_context, &current_cycle, wait_time);
511 2c1679058727 Add support for VGM 1.50 PCM data blocks Michael Pavone <pavone@retrodev.com> parents: 505 diff changeset	244 }
408 a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	245 } else {
792 724bbec47f86 Use a new fatal_error function instead of calling fprintf and exit for fatal errors. This new function more gracefully handles the case in which BlastEm was not started from a terminal or disconnected from ther terminal (Windows). Michael Pavone <pavone@retrodev.com> parents: 719 diff changeset	246 fatal_error("unimplemented command: %X at offset %X\n", cmd, (unsigned int)(cur - data - 1));
408 a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	247 }
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	248 }
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	249 }
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	250 return 0;
a13a83934ba3 Add primitive vgm player for testing Mike Pavone <pavone@retrodev.com> parents: diff changeset	251 }

Mercurial > repos > blastem

annotate vgmplay.c @ 1944:357878be8be6