Mercurial > repos > blastem

annotate mediaplayer.c @ 2663:568c1c22f3e3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Allow changing at least some settings in web build without breaking
author Michael Pavone <pavone@retrodev.com>
date Thu, 06 Mar 2025 01:33:03 -0800
parents 6c834c281fa2
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
1 #include <stdlib.h>
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
2 #include <stddef.h>
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
3 #include <limits.h>
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
4 #include <string.h>
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
5 #include "mediaplayer.h"
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
6 #include "io.h"
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
7 #include "ym2612.h"
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
8 #include "psg.h"
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
9 #include "rf5c164.h"
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
10 #include "util.h"
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
11 #include "render.h"
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
12
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
13 #define ADJUST_BUFFER (12500000)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
14 #define MAX_NO_ADJUST (UINT_MAX-ADJUST_BUFFER)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
15 #define MAX_RUN_SAMPLES 128
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
16
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
17 enum {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
18 AUDIO_VGM,
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
19 AUDIO_WAVE,
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
20 AUDIO_FLAC,
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
21 MEDIA_UNKNOWN
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
22 };
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
23
2482
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
24 #define STREAM_FLAG_REVERSE 0x01
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
25 #define STREAM_FLAG_LOOP 0x10
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
26 #define STREAM_FLAG_PLAY 0x80
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
27
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
28 uint32_t cycles_to_samples(uint32_t clock_rate, uint32_t cycles)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
29 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
30 return ((uint64_t)cycles) * ((uint64_t)44100) / ((uint64_t)clock_rate);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
31 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
32
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
33 uint32_t samples_to_cycles(uint32_t clock_rate, uint32_t cycles)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
34 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
35 return ((uint64_t)cycles) * ((uint64_t)clock_rate) / ((uint64_t)44100);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
36 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
37
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
38 void ym_adjust(chip_info *chip)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
39 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
40 ym2612_context *ym = chip->context;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
41 if (ym->current_cycle >= MAX_NO_ADJUST) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
42 uint32_t deduction = ym->current_cycle - ADJUST_BUFFER;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
43 chip->samples -= cycles_to_samples(chip->clock, deduction);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
44 ym->current_cycle -= deduction;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
45 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
46 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
47
2374
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
48 void ym_scope(chip_info *chip, oscilloscope *scope)
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
49 {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
50 ym_enable_scope(chip->context, scope, chip->clock);
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
51 }
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
52
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
53 void ym_no_scope(void *context)
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
54 {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
55 ym2612_context *ym = context;
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
56 ym->scope = NULL;
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
57 }
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
58
2482
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
59 void ym_stream(chip_info *chip, uint8_t port, uint8_t command, uint16_t sample)
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
60 {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
61 ym2612_context *ym = chip->context;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
62 if (port) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
63 ym_address_write_part2(ym, command);
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
64 } else {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
65 ym_address_write_part1(ym, command);
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
66 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
67 ym_data_write(ym, sample);
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
68 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
69
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
70 void psg_adjust(chip_info *chip)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
71 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
72 psg_context *psg = chip->context;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
73 if (psg->cycles >= MAX_NO_ADJUST) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
74 uint32_t deduction = psg->cycles - ADJUST_BUFFER;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
75 chip->samples -= cycles_to_samples(chip->clock, deduction);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
76 psg->cycles -= deduction;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
77 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
78 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
79
2374
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
80 void psg_scope(chip_info *chip, oscilloscope *scope)
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
81 {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
82 psg_enable_scope(chip->context, scope, chip->clock);
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
83 }
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
84
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
85 void psg_no_scope(void *context)
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
86 {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
87 psg_context *psg = context;
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
88 psg->scope = NULL;
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
89 }
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
90
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
91 void pcm_adjust(chip_info *chip)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
92 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
93 rf5c164 *pcm = chip->context;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
94 if (pcm->cycle >= MAX_NO_ADJUST) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
95 uint32_t deduction = pcm->cycle - ADJUST_BUFFER;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
96 chip->samples -= cycles_to_samples(chip->clock, deduction);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
97 pcm->cycle -= deduction;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
98 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
99 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
100
2374
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
101 void pcm_scope(chip_info *chip, oscilloscope *scope)
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
102 {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
103 rf5c164_enable_scope(chip->context, scope);
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
104 }
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
105
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
106 void pcm_no_scope(void *context)
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
107 {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
108 rf5c164 *pcm = context;
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
109 pcm->scope = NULL;
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
110 }
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
111
2377
30e59954eab9 Properly free sound chips in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2376
diff changeset
112 void pcm_free(void *context)
30e59954eab9 Properly free sound chips in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2376
diff changeset
113 {
30e59954eab9 Properly free sound chips in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2376
diff changeset
114 rf5c164 *pcm = context;
30e59954eab9 Properly free sound chips in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2376
diff changeset
115 rf5c164_deinit(pcm);
30e59954eab9 Properly free sound chips in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2376
diff changeset
116 free(pcm);
30e59954eab9 Properly free sound chips in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2376
diff changeset
117 }
30e59954eab9 Properly free sound chips in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2376
diff changeset
118
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
119 uint8_t *find_block(data_block *head, uint32_t offset, uint32_t size)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
120 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
121 if (!head) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
122 return NULL;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
123 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
124 while (head->size < offset) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
125 offset -= head->size;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
126 head = head->next;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
127 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
128 if (head->size - offset < size) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
129 return NULL;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
130 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
131 return head->data + offset;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
132 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
133
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
134 void vgm_wait(media_player *player, uint32_t samples)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
135 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
136 chip_info *chips = player->chips;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
137 uint32_t num_chips = player->num_chips;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
138 while (samples > MAX_RUN_SAMPLES)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
139 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
140 vgm_wait(player, MAX_RUN_SAMPLES);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
141 samples -= MAX_RUN_SAMPLES;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
142 }
2482
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
143 uint8_t keep_going;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
144 do {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
145 keep_going = 0;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
146 for (uint32_t i = 0; i < 0xFF; i++)
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
147 {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
148 if (!player->streams[i] || !(player->streams[i]->flags & STREAM_FLAG_PLAY)) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
149 continue;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
150 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
151 vgm_stream *stream = player->streams[i];
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
152 uint32_t cycle = samples_to_cycles(stream->chip->clock, stream->chip->samples + samples);
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
153 if (cycle >= stream->next_sample_cycle) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
154 stream->chip->run(stream->chip->context, stream->next_sample_cycle);
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
155 if (stream->block_offset >= stream->cur_block->size) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
156 stream->cur_block = stream->cur_block->next;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
157 if (!stream->cur_block) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
158 //TODO: looping support
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
159 player->streams[i]->flags &= ~STREAM_FLAG_PLAY;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
160 continue;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
161 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
162 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
163 //TODO: support for chips where the stream data unit is not a byte
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
164 uint16_t sample = stream->cur_block->data[stream->block_offset];
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
165 stream->block_offset += stream->step;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
166 if (stream->chip->stream) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
167 stream->chip->stream(stream->chip, stream->port, stream->command, sample);
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
168 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
169 stream->next_sample_cycle += stream->cycles_per_sample;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
170 //TODO: deal with cycle adjustments
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
171 keep_going = 1;
2491
6c834c281fa2 Some VGM player changes I forgot to commit
Michael Pavone <pavone@retrodev.com>
parents: 2482
diff changeset
172 if (stream->length_mode == 1) {
6c834c281fa2 Some VGM player changes I forgot to commit
Michael Pavone <pavone@retrodev.com>
parents: 2482
diff changeset
173 //unclear how this is supposed to work
6c834c281fa2 Some VGM player changes I forgot to commit
Michael Pavone <pavone@retrodev.com>
parents: 2482
diff changeset
174 } else {
6c834c281fa2 Some VGM player changes I forgot to commit
Michael Pavone <pavone@retrodev.com>
parents: 2482
diff changeset
175 stream->remaining--;
6c834c281fa2 Some VGM player changes I forgot to commit
Michael Pavone <pavone@retrodev.com>
parents: 2482
diff changeset
176 if (!stream->remaining) {
6c834c281fa2 Some VGM player changes I forgot to commit
Michael Pavone <pavone@retrodev.com>
parents: 2482
diff changeset
177 //TODO: looping support
6c834c281fa2 Some VGM player changes I forgot to commit
Michael Pavone <pavone@retrodev.com>
parents: 2482
diff changeset
178 player->streams[i]->flags &= ~STREAM_FLAG_PLAY;
6c834c281fa2 Some VGM player changes I forgot to commit
Michael Pavone <pavone@retrodev.com>
parents: 2482
diff changeset
179 }
6c834c281fa2 Some VGM player changes I forgot to commit
Michael Pavone <pavone@retrodev.com>
parents: 2482
diff changeset
180 }
2482
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
181 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
182 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
183 } while (keep_going);
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
184 for (uint32_t i = 0; i < num_chips; i++)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
185 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
186 chips[i].samples += samples;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
187 chips[i].run(chips[i].context, samples_to_cycles(chips[i].clock, chips[i].samples));
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
188 chips[i].adjust(chips + i);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
189 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
190 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
191
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
192 void vgm_stop(media_player *player)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
193 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
194 player->state = STATE_PAUSED;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
195 player->playback_time = 0;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
196 player->current_offset = player->vgm->data_offset + offsetof(vgm_header, data_offset);
2374
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
197 player->loop_count = 2;
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
198 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
199
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
200 chip_info *find_chip(media_player *player, uint8_t cmd)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
201 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
202 for (uint32_t i = 0; i < player->num_chips; i++)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
203 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
204 if (player->chips[i].cmd == cmd) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
205 return player->chips + i;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
206 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
207 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
208 return NULL;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
209 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
210
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
211 void *find_chip_context(media_player *player, uint8_t cmd)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
212 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
213 chip_info *chip = find_chip(player, cmd);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
214 return chip ? chip->context : NULL;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
215 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
216
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
217 chip_info *find_chip_by_data(media_player *player, uint8_t data_type)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
218 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
219 for (uint32_t i = 0; i < player->num_chips; i++)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
220 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
221 if (player->chips[i].data_type == data_type) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
222 return &player->chips[i];
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
223 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
224 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
225 return NULL;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
226 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
227
2482
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
228 chip_info *find_chip_by_stream(media_player *player, uint8_t stream_type)
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
229 {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
230 for (uint32_t i = 0; i < player->num_chips; i++)
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
231 {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
232 if (player->chips[i].stream_type == stream_type) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
233 return &player->chips[i];
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
234 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
235 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
236 return NULL;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
237 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
238
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
239 static uint8_t read_byte(media_player *player)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
240 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
241 uint8_t *buffer = player->media->buffer;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
242 return buffer[player->current_offset++];
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
243 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
244
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
245 static uint16_t read_word_le(media_player *player)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
246 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
247 uint8_t *buffer = player->media->buffer;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
248 uint16_t value = buffer[player->current_offset++];
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
249 value |= buffer[player->current_offset++] << 8;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
250 return value;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
251 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
252
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
253 static uint32_t read_24_le(media_player *player)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
254 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
255 uint8_t *buffer = player->media->buffer;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
256 uint32_t value = buffer[player->current_offset++];
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
257 value |= buffer[player->current_offset++] << 8;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
258 value |= buffer[player->current_offset++] << 16;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
259 return value;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
260 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
261
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
262 static uint32_t read_long_le(media_player *player)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
263 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
264 uint8_t *buffer = player->media->buffer;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
265 uint32_t value = buffer[player->current_offset++];
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
266 value |= buffer[player->current_offset++] << 8;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
267 value |= buffer[player->current_offset++] << 16;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
268 value |= buffer[player->current_offset++] << 24;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
269 return value;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
270 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
271
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
272 void vgm_frame(media_player *player)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
273 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
274 for (uint32_t remaining_samples = 44100 / 60; remaining_samples > 0;)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
275 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
276 if (player->wait_samples) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
277 uint32_t to_wait = player->wait_samples;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
278 if (to_wait > remaining_samples) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
279 to_wait = remaining_samples;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
280 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
281 vgm_wait(player, to_wait);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
282 player->wait_samples -= to_wait;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
283 remaining_samples -= to_wait;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
284 if (player->wait_samples) {
2374
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
285 goto frame_end;
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
286 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
287 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
288 if (player->current_offset >= player->media->size) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
289 vgm_stop(player);
2374
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
290 goto frame_end;
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
291 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
292 uint8_t cmd = read_byte(player);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
293 psg_context *psg;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
294 ym2612_context *ym;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
295 rf5c164 *pcm;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
296 switch (cmd)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
297 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
298 case CMD_PSG_STEREO:
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
299 psg = find_chip_context(player, CMD_PSG);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
300 if (!psg || player->current_offset > player->media->size - 1) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
301 vgm_stop(player);
2374
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
302 goto frame_end;
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
303 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
304 psg->pan = read_byte(player);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
305 break;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
306 case CMD_PSG:
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
307 psg = find_chip_context(player, CMD_PSG);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
308 if (!psg || player->current_offset > player->media->size - 1) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
309 vgm_stop(player);
2374
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
310 goto frame_end;
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
311 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
312 psg_write(psg, read_byte(player));
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
313 break;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
314 case CMD_YM2612_0:
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
315 ym = find_chip_context(player, CMD_YM2612_0);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
316 if (!ym || player->current_offset > player->media->size - 2) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
317 vgm_stop(player);
2374
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
318 goto frame_end;
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
319 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
320 ym_address_write_part1(ym, read_byte(player));
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
321 ym_data_write(ym, read_byte(player));
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
322 break;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
323 case CMD_YM2612_1:
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
324 ym = find_chip_context(player, CMD_YM2612_0);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
325 if (!ym || player->current_offset > player->media->size - 2) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
326 vgm_stop(player);
2374
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
327 goto frame_end;
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
328 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
329 ym_address_write_part2(ym, read_byte(player));
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
330 ym_data_write(ym, read_byte(player));
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
331 break;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
332 case CMD_WAIT: {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
333 if (player->current_offset > player->media->size - 2) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
334 vgm_stop(player);
2374
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
335 goto frame_end;
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
336 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
337 player->wait_samples += read_word_le(player);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
338 break;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
339 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
340 case CMD_WAIT_60:
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
341 player->wait_samples += 735;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
342 break;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
343 case CMD_WAIT_50:
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
344 player->wait_samples += 882;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
345 break;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
346 case CMD_END:
2374
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
347 if (player->vgm->loop_offset && --player->loop_count) {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
348 player->current_offset = player->vgm->loop_offset + offsetof(vgm_header, loop_offset);
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
349 if (player->current_offset < player->vgm->data_offset + offsetof(vgm_header, data_offset)) {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
350 // invalid loop offset
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
351 vgm_stop(player);
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
352 goto frame_end;
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
353 }
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
354 } else {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
355 //TODO: fade out?
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
356 vgm_stop(player);
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
357 goto frame_end;
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
358 }
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
359 return;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
360 case CMD_PCM_WRITE: {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
361 if (player->current_offset > player->media->size - 11) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
362 vgm_stop(player);
2374
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
363 goto frame_end;
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
364 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
365 player->current_offset++; //skip compatibility command
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
366 uint8_t data_type = read_byte(player);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
367 uint32_t read_offset = read_24_le(player);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
368 uint32_t write_offset = read_24_le(player);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
369 uint16_t size = read_24_le(player);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
370 chip_info *chip = find_chip_by_data(player, data_type);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
371 if (!chip || !chip->blocks) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
372 warning("Failed to find data block list for type %d\n", data_type);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
373 break;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
374 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
375 uint8_t *src = find_block(chip->blocks, read_offset, size);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
376 if (!src) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
377 warning("Failed to find data offset %X with size %X for chip type %d\n", read_offset, size, data_type);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
378 break;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
379 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
380 switch (data_type)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
381 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
382 case DATA_RF5C68:
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
383 case DATA_RF5C164:
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
384 pcm = chip->context;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
385 write_offset |= pcm->ram_bank;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
386 write_offset &= 0xFFFF;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
387 if (size + write_offset > 0x10000) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
388 size = 0x10000 - write_offset;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
389 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
390 memcpy(pcm->ram + write_offset, src, size);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
391 break;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
392 default:
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
393 warning("Unknown PCM write read_offset %X, write_offset %X, size %X\n", read_offset, write_offset, size);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
394 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
395 break;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
396 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
397 case CMD_PCM68_REG:
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
398 pcm = find_chip_context(player, CMD_PCM68_REG);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
399 if (!pcm || player->current_offset > player->media->size - 2) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
400 vgm_stop(player);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
401 return;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
402 } else {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
403 uint8_t reg = read_byte(player);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
404 uint8_t value = read_byte(player);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
405 rf5c164_write(pcm, reg, value);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
406 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
407 break;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
408 case CMD_PCM164_REG:
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
409 pcm = find_chip_context(player, CMD_PCM164_REG);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
410 if (!pcm || player->current_offset > player->media->size - 2) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
411 vgm_stop(player);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
412 return;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
413 } else {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
414 uint8_t reg = read_byte(player);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
415 uint8_t value = read_byte(player);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
416 rf5c164_write(pcm, reg, value);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
417 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
418 break;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
419 case CMD_PCM68_RAM:
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
420 pcm = find_chip_context(player, CMD_PCM68_REG);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
421 if (!pcm || player->current_offset > player->media->size - 3) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
422 vgm_stop(player);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
423 return;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
424 } else {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
425 uint16_t address = read_word_le(player);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
426 address &= 0xFFF;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
427 address |= 0x1000;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
428 rf5c164_write(pcm, address, read_byte(player));
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
429 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
430 break;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
431 case CMD_PCM164_RAM:
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
432 pcm = find_chip_context(player, CMD_PCM164_REG);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
433 if (!pcm || player->current_offset > player->media->size - 3) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
434 vgm_stop(player);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
435 return;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
436 } else {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
437 uint16_t address = read_word_le(player);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
438 address &= 0xFFF;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
439 address |= 0x1000;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
440 rf5c164_write(pcm, address, read_byte(player));
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
441 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
442 break;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
443 case CMD_DATA:
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
444 if (player->current_offset > player->media->size - 6) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
445 vgm_stop(player);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
446 return;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
447 } else {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
448 player->current_offset++; //skip compat command
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
449 uint8_t data_type = read_byte(player);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
450 uint32_t data_size = read_long_le(player);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
451 if (data_size > player->media->size || player->current_offset > player->media->size - data_size) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
452 vgm_stop(player);
2374
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
453 goto frame_end;
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
454 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
455 chip_info *chip = find_chip_by_data(player, data_type);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
456 if (chip) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
457 data_block **cur = &(chip->blocks);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
458 while (*cur)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
459 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
460 cur = &((*cur)->next);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
461 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
462 *cur = calloc(1, sizeof(data_block));
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
463 (*cur)->size = data_size;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
464 (*cur)->type = data_type;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
465 (*cur)->data = ((uint8_t *)player->media->buffer) + player->current_offset;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
466 } else {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
467 fprintf(stderr, "Skipping data block with unrecognized type %X\n", data_type);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
468 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
469 player->current_offset += data_size;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
470 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
471 break;
2482
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
472 case CMD_DAC_STREAM_SETUP:
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
473 if (player->current_offset > player->media->size - 4) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
474 vgm_stop(player);
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
475 goto frame_end;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
476 } else {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
477 uint8_t stream_id = read_byte(player);
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
478 if (!player->streams[stream_id]) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
479 player->streams[stream_id] = calloc(1, sizeof(vgm_stream));
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
480 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
481 vgm_stream *stream = player->streams[stream_id];
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
482 uint8_t chip_type = read_byte(player);
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
483 stream->chip = find_chip_by_stream(player, chip_type);
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
484 if (!stream->chip) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
485 fprintf(stderr, "Failed to find chip with stream type %d for stream %d\n", chip_type, stream_id);
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
486 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
487 stream->port = read_byte(player);
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
488 stream->command = read_byte(player);
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
489 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
490 break;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
491 case CMD_DAC_STREAM_DATA:
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
492 if (player->current_offset > player->media->size - 4) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
493 vgm_stop(player);
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
494 goto frame_end;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
495 } else {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
496 uint8_t stream_id = read_byte(player);
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
497 if (!player->streams[stream_id]) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
498 player->streams[stream_id] = calloc(1, sizeof(vgm_stream));
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
499 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
500 vgm_stream *stream = player->streams[stream_id];
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
501 stream->data_type = read_byte(player);
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
502 stream->step = read_byte(player);
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
503 stream->start_offset = read_byte(player);
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
504 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
505 break;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
506 case CMD_DAC_STREAM_FREQ:
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
507 if (player->current_offset > player->media->size - 4) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
508 vgm_stop(player);
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
509 goto frame_end;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
510 } else {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
511 uint8_t stream_id = read_byte(player);
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
512 if (!player->streams[stream_id]) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
513 player->streams[stream_id] = calloc(1, sizeof(vgm_stream));
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
514 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
515 vgm_stream *stream = player->streams[stream_id];
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
516 stream->sample_rate = read_long_le(player);
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
517 if (stream->chip) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
518 stream->cycles_per_sample = stream->chip->clock / stream->sample_rate;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
519 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
520 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
521 break;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
522 case CMD_DAC_STREAM_START:
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
523 if (player->current_offset > player->media->size - 10) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
524 vgm_stop(player);
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
525 goto frame_end;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
526 } else {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
527 uint8_t stream_id = read_byte(player);
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
528 if (!player->streams[stream_id]) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
529 player->streams[stream_id] = calloc(1, sizeof(vgm_stream));
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
530 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
531 vgm_stream *stream = player->streams[stream_id];
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
532 uint32_t data_start_offset = read_long_le(player);
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
533 uint8_t length_mode = read_byte(player);
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
534 uint32_t length = read_long_le(player);
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
535 stream->flags = length_mode & STREAM_FLAG_REVERSE;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
536 if (length_mode & 0x80) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
537 stream->flags |= STREAM_FLAG_LOOP;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
538 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
539 length_mode &= 0x3;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
540 if (length_mode) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
541 stream->length_mode = length_mode;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
542 if (length_mode == 2) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
543 //length is in msec
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
544 if (stream->chip) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
545 stream->remaining = (((uint64_t)length) * (uint64_t)stream->sample_rate) / 1000;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
546 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
547 } else if (length_mode == 3) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
548 //play until end of data
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
549 stream->remaining = 0xFFFFFFFF;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
550 } else {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
551 //length is in commands?
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
552 stream->remaining = length;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
553 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
554 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
555 if (stream->chip && data_start_offset != 0xFFFFFFFF) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
556 data_block * cur_block = stream->chip->blocks;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
557 data_start_offset += stream->start_offset;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
558 while (cur_block)
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
559 {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
560 if (cur_block->type == stream->data_type) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
561 if (data_start_offset >= cur_block->size) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
562 data_start_offset -= cur_block->size;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
563 cur_block = cur_block->next;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
564 } else {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
565 stream->block_offset = data_start_offset;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
566 stream->cur_block = cur_block;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
567 break;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
568 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
569 } else {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
570 cur_block = cur_block->next;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
571 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
572 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
573 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
574 if (stream->chip && stream->cur_block) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
575 stream->flags |= STREAM_FLAG_PLAY;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
576 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
577 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
578 break;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
579 case CMD_DAC_STREAM_STOP:
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
580 if (player->current_offset < player->media->size) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
581 vgm_stop(player);
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
582 goto frame_end;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
583 } else {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
584 uint8_t stream_id = read_byte(player);
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
585 if (stream_id == 0xFF) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
586 for (uint32_t i = 0; i < 0xFF; i++) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
587 if (player->streams[i]) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
588 player->streams[i]->flags &= ~STREAM_FLAG_PLAY;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
589 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
590 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
591 } else {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
592 if (!player->streams[stream_id]) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
593 player->streams[stream_id] = calloc(1, sizeof(vgm_stream));
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
594 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
595 player->streams[stream_id]->flags &= ~STREAM_FLAG_PLAY;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
596 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
597 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
598 break;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
599 case CMD_DAC_STREAM_STARTFAST:
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
600 if (player->current_offset > player->media->size - 4) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
601 vgm_stop(player);
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
602 goto frame_end;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
603 } else {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
604 uint8_t stream_id = read_byte(player);
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
605 if (!player->streams[stream_id]) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
606 player->streams[stream_id] = calloc(1, sizeof(vgm_stream));
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
607 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
608 vgm_stream *stream = player->streams[stream_id];
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
609 uint16_t block_id = read_word_le(player);
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
610 stream->flags = read_byte(player) & (STREAM_FLAG_LOOP|STREAM_FLAG_REVERSE);
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
611 if (stream->chip) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
612 uint16_t cur_block_id = 0;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
613 data_block *cur_block = stream->chip->blocks;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
614 while (cur_block)
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
615 {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
616 if (cur_block_id == block_id) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
617 stream->cur_block = cur_block;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
618 stream->block_offset = stream->start_offset;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
619 break;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
620 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
621 if (cur_block->type == stream->data_type) {
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
622 cur_block_id++;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
623 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
624 cur_block = cur_block->next;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
625 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
626 if (stream->cur_block) {
2491
6c834c281fa2 Some VGM player changes I forgot to commit
Michael Pavone <pavone@retrodev.com>
parents: 2482
diff changeset
627 stream->remaining = 0xFFFFFFFF;
6c834c281fa2 Some VGM player changes I forgot to commit
Michael Pavone <pavone@retrodev.com>
parents: 2482
diff changeset
628 stream->length_mode = 3;
2482
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
629 stream->flags |= STREAM_FLAG_PLAY;
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
630 stream->next_sample_cycle = samples_to_cycles(stream->chip->clock, stream->chip->samples);
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
631 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
632 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
633 }
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
634 break;
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
635 case CMD_DATA_SEEK:
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
636 if (player->current_offset > player->media->size - 4) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
637 vgm_stop(player);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
638 return;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
639 } else {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
640 uint32_t new_offset = read_long_le(player);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
641 if (!player->ym_seek_block || new_offset < player->ym_seek_offset) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
642 chip_info *chip = find_chip(player, CMD_YM2612_0);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
643 if (!chip) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
644 break;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
645 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
646 player->ym_seek_block = chip->blocks;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
647 player->ym_seek_offset = 0;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
648 player->ym_block_offset = 0;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
649 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
650 while (player->ym_seek_block && (player->ym_seek_offset - player->ym_block_offset + player->ym_seek_block->size) < new_offset)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
651 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
652 player->ym_seek_offset += player->ym_seek_block->size - player->ym_block_offset;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
653 player->ym_seek_block = player->ym_seek_block->next;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
654 player->ym_block_offset = 0;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
655 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
656 player->ym_block_offset += new_offset - player->ym_seek_offset;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
657 player->ym_seek_offset = new_offset;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
658 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
659 break;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
660 default:
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
661 if (cmd >= CMD_WAIT_SHORT && cmd < (CMD_WAIT_SHORT + 0x10)) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
662 uint32_t wait_time = (cmd & 0xF) + 1;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
663 player->wait_samples += wait_time;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
664 } else if (cmd >= CMD_YM2612_DAC && cmd < CMD_DAC_STREAM_SETUP) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
665 if (player->ym_seek_block) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
666 ym = find_chip_context(player, CMD_YM2612_0);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
667 ym_address_write_part1(ym, 0x2A);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
668 ym_data_write(ym, player->ym_seek_block->data[player->ym_block_offset++]);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
669 player->ym_seek_offset++;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
670 if (player->ym_block_offset > player->ym_seek_block->size) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
671 player->ym_seek_block = player->ym_seek_block->next;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
672 player->ym_block_offset = 0;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
673 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
674 } else {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
675 fputs("Encountered DAC write command but data seek pointer is invalid!\n", stderr);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
676 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
677 player->wait_samples += cmd & 0xF;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
678 } else {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
679 warning("unimplemented command: %X at offset %X\n", cmd, player->current_offset);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
680 vgm_stop(player);
2374
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
681 goto frame_end;
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
682 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
683 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
684 }
2374
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
685 frame_end:
2457
9da3de58410d Fix libretro build
Michael Pavone <pavone@retrodev.com>
parents: 2377
diff changeset
686 #ifndef IS_LIB
2374
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
687 if (player->scope) {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
688 scope_render(player->scope);
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
689 }
2457
9da3de58410d Fix libretro build
Michael Pavone <pavone@retrodev.com>
parents: 2377
diff changeset
690 #endif
9da3de58410d Fix libretro build
Michael Pavone <pavone@retrodev.com>
parents: 2377
diff changeset
691 return;
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
692 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
693
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
694 void wave_frame(media_player *player)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
695 {
2290
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
696 for (uint32_t remaining_samples = player->wave->sample_rate / 60; remaining_samples > 0; remaining_samples--)
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
697 {
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
698 uint32_t sample_size = player->wave->bits_per_sample * player->wave->num_channels / 8;
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
699 if (sample_size > player->media->size || player->current_offset > player->media->size - sample_size) {
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
700 player->current_offset = player->wave->format_header.size + offsetof(wave_header, audio_format);
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
701 player->state = STATE_PAUSED;
2376
1c09f5be285b Very basic UI for media player
Michael Pavone <pavone@retrodev.com>
parents: 2375
diff changeset
702 player->playback_time = 0;
2290
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
703 return;
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
704 }
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
705 if (player->wave->bits_per_sample == 16) {
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
706 int16_t value = read_word_le(player);
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
707 if (player->wave->num_channels == 1) {
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
708 render_put_mono_sample(player->audio, value);
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
709 } else {
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
710 int16_t right = read_word_le(player);
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
711 render_put_stereo_sample(player->audio, value, right);
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
712 }
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
713 } else {
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
714 uint8_t sample = read_byte(player);
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
715 int16_t value = sample * 257 - 128 * 257;
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
716 if (player->wave->num_channels == 1) {
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
717 render_put_mono_sample(player->audio, value);
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
718 } else {
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
719 sample = read_byte(player);
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
720 int16_t right = sample * 257 - 128 * 257;
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
721 render_put_stereo_sample(player->audio, value, right);
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
722 }
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
723 }
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
724
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
725 }
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
726 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
727
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
728 void flac_frame(media_player *player)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
729 {
2296
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player
Michael Pavone <pavone@retrodev.com>
parents: 2290
diff changeset
730 for (uint32_t remaining_samples = player->flac->sample_rate / 60; remaining_samples > 0; remaining_samples--)
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player
Michael Pavone <pavone@retrodev.com>
parents: 2290
diff changeset
731 {
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player
Michael Pavone <pavone@retrodev.com>
parents: 2290
diff changeset
732 int16_t samples[2];
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player
Michael Pavone <pavone@retrodev.com>
parents: 2290
diff changeset
733 if (flac_get_sample(player->flac, samples, 2)) {
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player
Michael Pavone <pavone@retrodev.com>
parents: 2290
diff changeset
734 render_put_stereo_sample(player->audio, samples[0], samples[1]);
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player
Michael Pavone <pavone@retrodev.com>
parents: 2290
diff changeset
735 } else {
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player
Michael Pavone <pavone@retrodev.com>
parents: 2290
diff changeset
736 player->state = STATE_PAUSED;
2376
1c09f5be285b Very basic UI for media player
Michael Pavone <pavone@retrodev.com>
parents: 2375
diff changeset
737 player->playback_time = 0;
2296
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player
Michael Pavone <pavone@retrodev.com>
parents: 2290
diff changeset
738 return;
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player
Michael Pavone <pavone@retrodev.com>
parents: 2290
diff changeset
739 }
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player
Michael Pavone <pavone@retrodev.com>
parents: 2290
diff changeset
740 }
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
741 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
742
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
743 void vgm_init(media_player *player, uint32_t opts)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
744 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
745 player->vgm = calloc(1, sizeof(vgm_header));
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
746 player->vgm_ext = NULL;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
747 memcpy(player->vgm, player->media->buffer, sizeof(vgm_header));
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
748 if (player->vgm->version < 0x150 || !player->vgm->data_offset) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
749 player->vgm->data_offset = 0xC;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
750 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
751 if (player->vgm->data_offset + offsetof(vgm_header, data_offset) > player->media->size) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
752 player->vgm->data_offset = player->media->size - offsetof(vgm_header, data_offset);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
753 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
754 if (player->vgm->version <= 0x101 && player->vgm->ym2413_clk > 4000000) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
755 player->vgm->ym2612_clk = player->vgm->ym2413_clk;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
756 player->vgm->ym2413_clk = 0;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
757 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
758 if (player->vgm->data_offset > 0xC) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
759 player->vgm_ext = calloc(1, sizeof(vgm_extended_header));
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
760 size_t additional_header = player->vgm->data_offset + offsetof(vgm_header, data_offset) - sizeof(vgm_header);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
761 if (additional_header > sizeof(vgm_extended_header)) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
762 additional_header = sizeof(vgm_extended_header);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
763 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
764 memcpy(player->vgm_ext, ((uint8_t *)player->media->buffer) + sizeof(vgm_header), additional_header);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
765 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
766 player->num_chips = 0;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
767 if (player->vgm->sn76489_clk) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
768 player->num_chips++;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
769 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
770 if (player->vgm->ym2612_clk) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
771 player->num_chips++;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
772 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
773 if (player->vgm_ext && player->vgm_ext->rf5c68_clk) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
774 player->num_chips++;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
775 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
776 if (player->vgm_ext && player->vgm_ext->rf5c164_clk) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
777 player->num_chips++;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
778 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
779 player->chips = calloc(player->num_chips, sizeof(chip_info));
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
780 uint32_t chip = 0;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
781 if (player->vgm->ym2612_clk) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
782 ym2612_context *ym = calloc(1, sizeof(ym2612_context));
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
783 ym_init(ym, player->vgm->ym2612_clk, 1, opts);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
784 player->chips[chip++] = (chip_info) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
785 .context = ym,
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
786 .run = (chip_run_fun)ym_run,
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
787 .adjust = ym_adjust,
2374
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
788 .scope = ym_scope,
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
789 .no_scope = ym_no_scope,
2377
30e59954eab9 Properly free sound chips in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2376
diff changeset
790 .free = (chip_noarg_fun)ym_free,
2482
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
791 .stream = ym_stream,
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
792 .clock = player->vgm->ym2612_clk,
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
793 .samples = 0,
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
794 .cmd = CMD_YM2612_0,
2482
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
795 .data_type = DATA_YM2612_PCM,
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
796 .stream_type = STREAM_CHIP_YM2612
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
797 };
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
798 }
2374
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
799 if (player->vgm->sn76489_clk) {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
800 psg_context *psg = calloc(1, sizeof(psg_context));
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
801 psg_init(psg, player->vgm->sn76489_clk, 16);
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
802 player->chips[chip++] = (chip_info) {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
803 .context = psg,
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
804 .run = (chip_run_fun)psg_run,
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
805 .adjust = psg_adjust,
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
806 .scope = psg_scope,
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
807 .no_scope = ym_no_scope,
2377
30e59954eab9 Properly free sound chips in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2376
diff changeset
808 .free = (chip_noarg_fun)psg_free,
2374
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
809 .clock = player->vgm->sn76489_clk,
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
810 .samples = 0,
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
811 .cmd = CMD_PSG,
2482
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
812 .data_type = 0xFF,
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
813 .stream_type = STREAM_CHIP_PSG
2374
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
814 };
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
815 }
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
816 if (player->vgm_ext && player->vgm_ext->rf5c68_clk) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
817 rf5c164 *pcm = calloc(1, sizeof(rf5c164));
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
818 rf5c164_init(pcm, player->vgm_ext->rf5c68_clk, 1);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
819 player->chips[chip++] = (chip_info) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
820 .context = pcm,
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
821 .run = (chip_run_fun)rf5c164_run,
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
822 .adjust = pcm_adjust,
2374
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
823 .scope = pcm_scope,
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
824 .no_scope = pcm_no_scope,
2377
30e59954eab9 Properly free sound chips in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2376
diff changeset
825 .free = pcm_free,
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
826 .clock = player->vgm_ext->rf5c68_clk,
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
827 .samples = 0,
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
828 .cmd = CMD_PCM68_REG,
2482
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
829 .data_type = DATA_RF5C68,
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
830 .stream_type = STREAM_CHIP_RF5C68
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
831 };
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
832 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
833 if (player->vgm_ext && player->vgm_ext->rf5c164_clk) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
834 rf5c164 *pcm = calloc(1, sizeof(rf5c164));
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
835 rf5c164_init(pcm, player->vgm_ext->rf5c164_clk, 1);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
836 player->chips[chip++] = (chip_info) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
837 .context = pcm,
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
838 .run = (chip_run_fun)rf5c164_run,
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
839 .adjust = pcm_adjust,
2374
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
840 .scope = pcm_scope,
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
841 .no_scope = pcm_no_scope,
2377
30e59954eab9 Properly free sound chips in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2376
diff changeset
842 .free = pcm_free,
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
843 .clock = player->vgm_ext->rf5c164_clk,
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
844 .samples = 0,
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
845 .cmd = CMD_PCM164_REG,
2482
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
846 .data_type = DATA_RF5C164,
fb8f49b0aece Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2457
diff changeset
847 .stream_type = STREAM_CHIP_RF5C164
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
848 };
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
849 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
850 player->current_offset = player->vgm->data_offset + offsetof(vgm_header, data_offset);
2374
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
851 player->loop_count = 2;
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
852 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
853
2290
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
854 static void wave_player_init(media_player *player)
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
855 {
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
856 player->wave = calloc(1, sizeof(wave_header));
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
857 memcpy(player->wave, player->media->buffer, offsetof(wave_header, data_header));
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
858 if (memcmp(player->wave->chunk.format, "WAVE", 4)) {
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
859 goto format_error;
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
860 }
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
861 if (player->wave->chunk.size < offsetof(wave_header, data_header)) {
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
862 goto format_error;
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
863 }
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
864 if (memcmp(player->wave->format_header.id, "fmt ", 4)) {
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
865 goto format_error;
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
866 }
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
867 if (player->wave->format_header.size < offsetof(wave_header, data_header) - offsetof(wave_header, audio_format)) {
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
868 goto format_error;
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
869 }
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
870 if (player->wave->bits_per_sample != 8 && player->wave->bits_per_sample != 16) {
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
871 goto format_error;
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
872 }
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
873 uint32_t data_sub_chunk = player->wave->format_header.size + offsetof(wave_header, audio_format);
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
874 if (data_sub_chunk > player->media->size || player->media->size - data_sub_chunk < sizeof(riff_sub_chunk)) {
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
875 goto format_error;
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
876 }
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
877 memcpy(&player->wave->data_header, ((uint8_t *)player->media->buffer) + data_sub_chunk, sizeof(riff_sub_chunk));
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
878 player->current_offset = data_sub_chunk;
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
879 player->audio = render_audio_source("Audio File", player->wave->sample_rate, 1, player->wave->num_channels);
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
880 return;
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
881 format_error:
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
882 player->media_type = MEDIA_UNKNOWN;
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
883 free(player->wave);
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
884 }
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
885
2296
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player
Michael Pavone <pavone@retrodev.com>
parents: 2290
diff changeset
886 static void flac_player_init(media_player *player)
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player
Michael Pavone <pavone@retrodev.com>
parents: 2290
diff changeset
887 {
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player
Michael Pavone <pavone@retrodev.com>
parents: 2290
diff changeset
888 player->flac = flac_file_from_buffer(player->media->buffer, player->media->size);
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player
Michael Pavone <pavone@retrodev.com>
parents: 2290
diff changeset
889 if (player->flac) {
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player
Michael Pavone <pavone@retrodev.com>
parents: 2290
diff changeset
890 player->audio = render_audio_source("Audio File", player->flac->sample_rate, 1, 2);
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player
Michael Pavone <pavone@retrodev.com>
parents: 2290
diff changeset
891 }
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player
Michael Pavone <pavone@retrodev.com>
parents: 2290
diff changeset
892 }
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player
Michael Pavone <pavone@retrodev.com>
parents: 2290
diff changeset
893
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
894 static void resume_player(system_header *system)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
895 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
896 media_player *player = (media_player *)system;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
897 player->should_return = 0;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
898 while (!player->header.should_exit && !player->should_return)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
899 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
900 switch (player->state)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
901 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
902 case STATE_PLAY:
2376
1c09f5be285b Very basic UI for media player
Michael Pavone <pavone@retrodev.com>
parents: 2375
diff changeset
903 player->playback_time++;
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
904 switch(player->media_type)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
905 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
906 case AUDIO_VGM:
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
907 vgm_frame(player);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
908 break;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
909 case AUDIO_WAVE:
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
910 wave_frame(player);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
911 break;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
912 case AUDIO_FLAC:
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
913 flac_frame(player);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
914 break;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
915 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
916 break;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
917 case STATE_PAUSED:
2302
0343f0d5add0 Fix libretro build for real
Michael Pavone <pavone@retrodev.com>
parents: 2296
diff changeset
918 #ifndef IS_LIB
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
919 render_sleep_ms(15);
2302
0343f0d5add0 Fix libretro build for real
Michael Pavone <pavone@retrodev.com>
parents: 2296
diff changeset
920 #endif
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
921 break;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
922 }
2302
0343f0d5add0 Fix libretro build for real
Michael Pavone <pavone@retrodev.com>
parents: 2296
diff changeset
923 //TODO: Fix this for libretro build properly
0343f0d5add0 Fix libretro build for real
Michael Pavone <pavone@retrodev.com>
parents: 2296
diff changeset
924 #ifndef IS_LIB
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
925 render_update_display();
2302
0343f0d5add0 Fix libretro build for real
Michael Pavone <pavone@retrodev.com>
parents: 2296
diff changeset
926 #endif
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
927 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
928 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
929
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
930 static void gamepad_down(system_header *system, uint8_t pad, uint8_t button)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
931 {
2375
02c04196c2da Fix mediaplayer play/pause handling
Michael Pavone <pavone@retrodev.com>
parents: 2374
diff changeset
932 if (pad != 1) {
02c04196c2da Fix mediaplayer play/pause handling
Michael Pavone <pavone@retrodev.com>
parents: 2374
diff changeset
933 return;
02c04196c2da Fix mediaplayer play/pause handling
Michael Pavone <pavone@retrodev.com>
parents: 2374
diff changeset
934 }
02c04196c2da Fix mediaplayer play/pause handling
Michael Pavone <pavone@retrodev.com>
parents: 2374
diff changeset
935 media_player *player = (media_player *)system;
02c04196c2da Fix mediaplayer play/pause handling
Michael Pavone <pavone@retrodev.com>
parents: 2374
diff changeset
936 if (player->button_state[button]) {
02c04196c2da Fix mediaplayer play/pause handling
Michael Pavone <pavone@retrodev.com>
parents: 2374
diff changeset
937 //already pressed
02c04196c2da Fix mediaplayer play/pause handling
Michael Pavone <pavone@retrodev.com>
parents: 2374
diff changeset
938 return;
02c04196c2da Fix mediaplayer play/pause handling
Michael Pavone <pavone@retrodev.com>
parents: 2374
diff changeset
939 }
02c04196c2da Fix mediaplayer play/pause handling
Michael Pavone <pavone@retrodev.com>
parents: 2374
diff changeset
940 player->button_state[button] = 1;
02c04196c2da Fix mediaplayer play/pause handling
Michael Pavone <pavone@retrodev.com>
parents: 2374
diff changeset
941 if (button == BUTTON_A || button == BUTTON_C || button == BUTTON_START) {
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
942 if (player->state == STATE_PAUSED) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
943 player->state = STATE_PLAY;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
944 puts("Now playing");
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
945 } else {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
946 player->state = STATE_PAUSED;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
947 puts("Now paused");
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
948 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
949 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
950 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
951
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
952 static void gamepad_up(system_header *system, uint8_t pad, uint8_t button)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
953 {
2375
02c04196c2da Fix mediaplayer play/pause handling
Michael Pavone <pavone@retrodev.com>
parents: 2374
diff changeset
954 if (pad != 1) {
02c04196c2da Fix mediaplayer play/pause handling
Michael Pavone <pavone@retrodev.com>
parents: 2374
diff changeset
955 return;
02c04196c2da Fix mediaplayer play/pause handling
Michael Pavone <pavone@retrodev.com>
parents: 2374
diff changeset
956 }
02c04196c2da Fix mediaplayer play/pause handling
Michael Pavone <pavone@retrodev.com>
parents: 2374
diff changeset
957 media_player *player = (media_player *)system;
02c04196c2da Fix mediaplayer play/pause handling
Michael Pavone <pavone@retrodev.com>
parents: 2374
diff changeset
958 player->button_state[button] = 0;
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
959 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
960
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
961 static void start_player(system_header *system, char *statefile)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
962 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
963 resume_player(system);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
964 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
965
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
966 static void free_player(system_header *system)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
967 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
968 media_player *player = (media_player *)system;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
969 for (uint32_t i = 0; i < player->num_chips; i++)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
970 {
2377
30e59954eab9 Properly free sound chips in VGM player
Michael Pavone <pavone@retrodev.com>
parents: 2376
diff changeset
971 player->chips[i].free(player->chips[i].context);
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
972 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
973 free(player->chips);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
974 free(player->vgm);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
975 free(player);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
976 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
977
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
978 uint8_t detect_media_type(system_media *media)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
979 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
980 if (media->size < 4) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
981 return MEDIA_UNKNOWN;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
982 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
983 if (!memcmp(media->buffer, "Vgm ", 4)) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
984 if (media->size < sizeof(vgm_header)) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
985 return MEDIA_UNKNOWN;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
986 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
987 return AUDIO_VGM;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
988 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
989 if (!memcmp(media->buffer, "RIFF", 4)) {
2290
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
990 if (media->size < sizeof(wave_header)) {
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
991 return MEDIA_UNKNOWN;
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
992 }
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
993 return AUDIO_WAVE;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
994 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
995 if (!memcmp(media->buffer, "fLaC", 4)) {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
996 return AUDIO_FLAC;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
997 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
998 return MEDIA_UNKNOWN;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
999 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
1000
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
1001 static void request_exit(system_header *system)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
1002 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
1003 media_player *player = (media_player *)system;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
1004 player->should_return = 1;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
1005 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
1006
2374
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
1007 static void toggle_debug_view(system_header *system, uint8_t debug_view)
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
1008 {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
1009 #ifndef IS_LIB
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
1010 media_player *player = (media_player *)system;
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
1011 if (debug_view == DEBUG_OSCILLOSCOPE && player->chips) {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
1012 if (player->scope) {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
1013 for (uint32_t i = 0; i < player->num_chips; i++)
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
1014 {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
1015 player->chips[i].no_scope(player->chips[i].context);
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
1016 }
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
1017 scope_close(player->scope);
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
1018 player->scope = NULL;
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
1019 } else {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
1020 player->scope = create_oscilloscope();
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
1021 for (uint32_t i = 0; i < player->num_chips; i++)
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
1022 {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
1023 player->chips[i].scope(player->chips + i, player->scope);
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
1024 }
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
1025 }
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
1026 }
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
1027 #endif
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
1028 }
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
1029
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
1030 media_player *alloc_media_player(system_media *media, uint32_t opts)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
1031 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
1032 media_player *player = calloc(1, sizeof(media_player));
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
1033 player->header.start_context = start_player;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
1034 player->header.resume_context = resume_player;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
1035 player->header.request_exit = request_exit;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
1036 player->header.free_context = free_player;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
1037 player->header.gamepad_down = gamepad_down;
2375
02c04196c2da Fix mediaplayer play/pause handling
Michael Pavone <pavone@retrodev.com>
parents: 2374
diff changeset
1038 player->header.gamepad_up = gamepad_up;
2374
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents: 2302
diff changeset
1039 player->header.toggle_debug_view = toggle_debug_view;
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
1040 player->header.type = SYSTEM_MEDIA_PLAYER;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
1041 player->header.info.name = strdup(media->name);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
1042
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
1043 player->media = media;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
1044 player->media_type = detect_media_type(media);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
1045 player->state = STATE_PLAY;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
1046 switch (player->media_type)
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
1047 {
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
1048 case AUDIO_VGM:
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
1049 vgm_init(player, opts);
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
1050 break;
2290
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
1051 case AUDIO_WAVE:
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
1052 wave_player_init(player);
c4980d89614b Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents: 2289
diff changeset
1053 break;
2296
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player
Michael Pavone <pavone@retrodev.com>
parents: 2290
diff changeset
1054 case AUDIO_FLAC:
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player
Michael Pavone <pavone@retrodev.com>
parents: 2290
diff changeset
1055 flac_player_init(player);
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player
Michael Pavone <pavone@retrodev.com>
parents: 2290
diff changeset
1056 break;
2289
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
1057 }
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
1058
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
1059 return player;
92449b47cce8 Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
1060 }