Mercurial > repos > blastem
annotate mediaplayer.c @ 2482:fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Sat, 30 Mar 2024 21:10:20 -0700 |
parents | 9da3de58410d |
children | 6c834c281fa2 |
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; |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
172 } |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
173 } |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
174 } while (keep_going); |
2289
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
175 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
|
176 { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
177 chips[i].samples += samples; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
178 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
|
179 chips[i].adjust(chips + i); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
180 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
181 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
182 |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
183 void vgm_stop(media_player *player) |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
184 { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
185 player->state = STATE_PAUSED; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
186 player->playback_time = 0; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
187 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
|
188 player->loop_count = 2; |
2289
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 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
|
192 { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
193 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
|
194 { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
195 if (player->chips[i].cmd == cmd) { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
196 return player->chips + i; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
197 } |
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 return NULL; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
200 } |
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 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
|
203 { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
204 chip_info *chip = find_chip(player, cmd); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
205 return chip ? chip->context : NULL; |
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 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
|
209 { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
210 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
|
211 { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
212 if (player->chips[i].data_type == data_type) { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
213 return &player->chips[i]; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
214 } |
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 return NULL; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
217 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
218 |
2482
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
219 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
|
220 { |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
221 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
|
222 { |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
223 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
|
224 return &player->chips[i]; |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
225 } |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
226 } |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
227 return NULL; |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
228 } |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
229 |
2289
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
230 static uint8_t read_byte(media_player *player) |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
231 { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
232 uint8_t *buffer = player->media->buffer; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
233 return buffer[player->current_offset++]; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
234 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
235 |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
236 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
|
237 { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
238 uint8_t *buffer = player->media->buffer; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
239 uint16_t value = buffer[player->current_offset++]; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
240 value |= buffer[player->current_offset++] << 8; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
241 return value; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
242 } |
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 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
|
245 { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
246 uint8_t *buffer = player->media->buffer; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
247 uint32_t value = buffer[player->current_offset++]; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
248 value |= buffer[player->current_offset++] << 8; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
249 value |= buffer[player->current_offset++] << 16; |
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_long_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 value |= buffer[player->current_offset++] << 24; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
260 return value; |
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 |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
263 void vgm_frame(media_player *player) |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
264 { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
265 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
|
266 { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
267 if (player->wait_samples) { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
268 uint32_t to_wait = player->wait_samples; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
269 if (to_wait > remaining_samples) { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
270 to_wait = remaining_samples; |
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 vgm_wait(player, to_wait); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
273 player->wait_samples -= to_wait; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
274 remaining_samples -= to_wait; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
275 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
|
276 goto frame_end; |
2289
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
277 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
278 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
279 if (player->current_offset >= player->media->size) { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
280 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
|
281 goto frame_end; |
2289
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
282 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
283 uint8_t cmd = read_byte(player); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
284 psg_context *psg; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
285 ym2612_context *ym; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
286 rf5c164 *pcm; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
287 switch (cmd) |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
288 { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
289 case CMD_PSG_STEREO: |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
290 psg = find_chip_context(player, CMD_PSG); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
291 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
|
292 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
|
293 goto frame_end; |
2289
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
294 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
295 psg->pan = read_byte(player); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
296 break; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
297 case CMD_PSG: |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
298 psg = find_chip_context(player, CMD_PSG); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
299 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
|
300 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
|
301 goto frame_end; |
2289
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
302 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
303 psg_write(psg, read_byte(player)); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
304 break; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
305 case CMD_YM2612_0: |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
306 ym = find_chip_context(player, CMD_YM2612_0); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
307 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
|
308 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
|
309 goto frame_end; |
2289
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
310 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
311 ym_address_write_part1(ym, read_byte(player)); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
312 ym_data_write(ym, 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_1: |
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_part2(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_WAIT: { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
324 if (player->current_offset > player->media->size - 2) { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
325 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
|
326 goto frame_end; |
2289
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
327 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
328 player->wait_samples += read_word_le(player); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
329 break; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
330 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
331 case CMD_WAIT_60: |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
332 player->wait_samples += 735; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
333 break; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
334 case CMD_WAIT_50: |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
335 player->wait_samples += 882; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
336 break; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
337 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
|
338 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
|
339 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
|
340 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
|
341 // 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
|
342 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
|
343 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
|
344 } |
97f164d1f0f6
Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents:
2302
diff
changeset
|
345 } 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
|
346 //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
|
347 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
|
348 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
|
349 } |
2289
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
350 return; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
351 case CMD_PCM_WRITE: { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
352 if (player->current_offset > player->media->size - 11) { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
353 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
|
354 goto frame_end; |
2289
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
355 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
356 player->current_offset++; //skip compatibility command |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
357 uint8_t data_type = read_byte(player); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
358 uint32_t read_offset = read_24_le(player); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
359 uint32_t write_offset = read_24_le(player); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
360 uint16_t size = read_24_le(player); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
361 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
|
362 if (!chip || !chip->blocks) { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
363 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
|
364 break; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
365 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
366 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
|
367 if (!src) { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
368 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
|
369 break; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
370 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
371 switch (data_type) |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
372 { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
373 case DATA_RF5C68: |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
374 case DATA_RF5C164: |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
375 pcm = chip->context; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
376 write_offset |= pcm->ram_bank; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
377 write_offset &= 0xFFFF; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
378 if (size + write_offset > 0x10000) { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
379 size = 0x10000 - write_offset; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
380 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
381 memcpy(pcm->ram + write_offset, src, size); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
382 break; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
383 default: |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
384 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
|
385 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
386 break; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
387 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
388 case CMD_PCM68_REG: |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
389 pcm = find_chip_context(player, CMD_PCM68_REG); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
390 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
|
391 vgm_stop(player); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
392 return; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
393 } else { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
394 uint8_t reg = read_byte(player); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
395 uint8_t value = read_byte(player); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
396 rf5c164_write(pcm, reg, value); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
397 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
398 break; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
399 case CMD_PCM164_REG: |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
400 pcm = find_chip_context(player, CMD_PCM164_REG); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
401 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
|
402 vgm_stop(player); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
403 return; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
404 } else { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
405 uint8_t reg = read_byte(player); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
406 uint8_t value = read_byte(player); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
407 rf5c164_write(pcm, reg, value); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
408 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
409 break; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
410 case CMD_PCM68_RAM: |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
411 pcm = find_chip_context(player, CMD_PCM68_REG); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
412 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
|
413 vgm_stop(player); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
414 return; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
415 } else { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
416 uint16_t address = read_word_le(player); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
417 address &= 0xFFF; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
418 address |= 0x1000; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
419 rf5c164_write(pcm, address, read_byte(player)); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
420 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
421 break; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
422 case CMD_PCM164_RAM: |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
423 pcm = find_chip_context(player, CMD_PCM164_REG); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
424 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
|
425 vgm_stop(player); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
426 return; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
427 } else { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
428 uint16_t address = read_word_le(player); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
429 address &= 0xFFF; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
430 address |= 0x1000; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
431 rf5c164_write(pcm, address, read_byte(player)); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
432 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
433 break; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
434 case CMD_DATA: |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
435 if (player->current_offset > player->media->size - 6) { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
436 vgm_stop(player); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
437 return; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
438 } else { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
439 player->current_offset++; //skip compat command |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
440 uint8_t data_type = read_byte(player); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
441 uint32_t data_size = read_long_le(player); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
442 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
|
443 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
|
444 goto frame_end; |
2289
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
445 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
446 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
|
447 if (chip) { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
448 data_block **cur = &(chip->blocks); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
449 while (*cur) |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
450 { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
451 cur = &((*cur)->next); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
452 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
453 *cur = calloc(1, sizeof(data_block)); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
454 (*cur)->size = data_size; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
455 (*cur)->type = data_type; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
456 (*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
|
457 } else { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
458 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
|
459 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
460 player->current_offset += data_size; |
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 break; |
2482
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
463 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
|
464 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
|
465 vgm_stop(player); |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
466 goto frame_end; |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
467 } else { |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
468 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
|
469 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
|
470 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
|
471 } |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
472 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
|
473 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
|
474 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
|
475 if (!stream->chip) { |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
476 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
|
477 } |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
478 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
|
479 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
|
480 } |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
481 break; |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
482 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
|
483 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
|
484 vgm_stop(player); |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
485 goto frame_end; |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
486 } else { |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
487 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
|
488 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
|
489 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
|
490 } |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
491 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
|
492 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
|
493 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
|
494 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
|
495 } |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
496 break; |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
497 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
|
498 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
|
499 vgm_stop(player); |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
500 goto frame_end; |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
501 } else { |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
502 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
|
503 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
|
504 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
|
505 } |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
506 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
|
507 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
|
508 if (stream->chip) { |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
509 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
|
510 } |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
511 } |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
512 break; |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
513 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
|
514 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
|
515 vgm_stop(player); |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
516 goto frame_end; |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
517 } else { |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
518 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
|
519 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
|
520 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
|
521 } |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
522 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
|
523 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
|
524 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
|
525 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
|
526 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
|
527 if (length_mode & 0x80) { |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
528 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
|
529 } |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
530 length_mode &= 0x3; |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
531 if (length_mode) { |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
532 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
|
533 if (length_mode == 2) { |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
534 //length is in msec |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
535 if (stream->chip) { |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
536 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
|
537 } |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
538 } 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
|
539 //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
|
540 stream->remaining = 0xFFFFFFFF; |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
541 } else { |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
542 //length is in commands? |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
543 stream->remaining = length; |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
544 } |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
545 } |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
546 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
|
547 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
|
548 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
|
549 while (cur_block) |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
550 { |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
551 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
|
552 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
|
553 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
|
554 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
|
555 } else { |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
556 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
|
557 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
|
558 break; |
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 } else { |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
561 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
|
562 } |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
563 } |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
564 } |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
565 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
|
566 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
|
567 } |
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 break; |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
570 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
|
571 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
|
572 vgm_stop(player); |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
573 goto frame_end; |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
574 } else { |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
575 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
|
576 if (stream_id == 0xFF) { |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
577 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
|
578 if (player->streams[i]) { |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
579 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
|
580 } |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
581 } |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
582 } else { |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
583 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
|
584 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
|
585 } |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
586 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
|
587 } |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
588 } |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
589 break; |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
590 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
|
591 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
|
592 vgm_stop(player); |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
593 goto frame_end; |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
594 } else { |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
595 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
|
596 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
|
597 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
|
598 } |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
599 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
|
600 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
|
601 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
|
602 if (stream->chip) { |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
603 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
|
604 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
|
605 while (cur_block) |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
606 { |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
607 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
|
608 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
|
609 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
|
610 break; |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
611 } |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
612 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
|
613 cur_block_id++; |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
614 } |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
615 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
|
616 } |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
617 if (stream->cur_block) { |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
618 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
|
619 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
|
620 } |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
621 } |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
622 } |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
623 break; |
2289
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
624 case CMD_DATA_SEEK: |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
625 if (player->current_offset > player->media->size - 4) { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
626 vgm_stop(player); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
627 return; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
628 } else { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
629 uint32_t new_offset = read_long_le(player); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
630 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
|
631 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
|
632 if (!chip) { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
633 break; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
634 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
635 player->ym_seek_block = chip->blocks; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
636 player->ym_seek_offset = 0; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
637 player->ym_block_offset = 0; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
638 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
639 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
|
640 { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
641 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
|
642 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
|
643 player->ym_block_offset = 0; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
644 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
645 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
|
646 player->ym_seek_offset = new_offset; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
647 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
648 break; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
649 default: |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
650 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
|
651 uint32_t wait_time = (cmd & 0xF) + 1; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
652 player->wait_samples += wait_time; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
653 } 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
|
654 if (player->ym_seek_block) { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
655 ym = find_chip_context(player, CMD_YM2612_0); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
656 ym_address_write_part1(ym, 0x2A); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
657 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
|
658 player->ym_seek_offset++; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
659 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
|
660 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
|
661 player->ym_block_offset = 0; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
662 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
663 } else { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
664 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
|
665 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
666 player->wait_samples += cmd & 0xF; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
667 } else { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
668 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
|
669 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
|
670 goto frame_end; |
2289
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
671 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
672 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
673 } |
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
|
674 frame_end: |
2457 | 675 #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
|
676 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
|
677 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
|
678 } |
2457 | 679 #endif |
680 return; | |
2289
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
681 } |
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 void wave_frame(media_player *player) |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
684 { |
2290
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
685 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
|
686 { |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
687 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
|
688 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
|
689 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
|
690 player->state = STATE_PAUSED; |
2376
1c09f5be285b
Very basic UI for media player
Michael Pavone <pavone@retrodev.com>
parents:
2375
diff
changeset
|
691 player->playback_time = 0; |
2290
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
692 return; |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
693 } |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
694 if (player->wave->bits_per_sample == 16) { |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
695 int16_t value = read_word_le(player); |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
696 if (player->wave->num_channels == 1) { |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
697 render_put_mono_sample(player->audio, value); |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
698 } else { |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
699 int16_t right = read_word_le(player); |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
700 render_put_stereo_sample(player->audio, value, right); |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
701 } |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
702 } else { |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
703 uint8_t sample = read_byte(player); |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
704 int16_t value = sample * 257 - 128 * 257; |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
705 if (player->wave->num_channels == 1) { |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
706 render_put_mono_sample(player->audio, value); |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
707 } else { |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
708 sample = read_byte(player); |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
709 int16_t right = sample * 257 - 128 * 257; |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
710 render_put_stereo_sample(player->audio, value, right); |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
711 } |
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 |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
714 } |
2289
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
715 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
716 |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
717 void flac_frame(media_player *player) |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
718 { |
2296
789802d99629
Add basic FLAC decoder and add FLAC playback support to the media player
Michael Pavone <pavone@retrodev.com>
parents:
2290
diff
changeset
|
719 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
|
720 { |
789802d99629
Add basic FLAC decoder and add FLAC playback support to the media player
Michael Pavone <pavone@retrodev.com>
parents:
2290
diff
changeset
|
721 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
|
722 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
|
723 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
|
724 } else { |
789802d99629
Add basic FLAC decoder and add FLAC playback support to the media player
Michael Pavone <pavone@retrodev.com>
parents:
2290
diff
changeset
|
725 player->state = STATE_PAUSED; |
2376
1c09f5be285b
Very basic UI for media player
Michael Pavone <pavone@retrodev.com>
parents:
2375
diff
changeset
|
726 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
|
727 return; |
789802d99629
Add basic FLAC decoder and add FLAC playback support to the media player
Michael Pavone <pavone@retrodev.com>
parents:
2290
diff
changeset
|
728 } |
789802d99629
Add basic FLAC decoder and add FLAC playback support to the media player
Michael Pavone <pavone@retrodev.com>
parents:
2290
diff
changeset
|
729 } |
2289
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
730 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
731 |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
732 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
|
733 { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
734 player->vgm = calloc(1, sizeof(vgm_header)); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
735 player->vgm_ext = NULL; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
736 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
|
737 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
|
738 player->vgm->data_offset = 0xC; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
739 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
740 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
|
741 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
|
742 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
743 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
|
744 player->vgm->ym2612_clk = player->vgm->ym2413_clk; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
745 player->vgm->ym2413_clk = 0; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
746 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
747 if (player->vgm->data_offset > 0xC) { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
748 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
|
749 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
|
750 if (additional_header > sizeof(vgm_extended_header)) { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
751 additional_header = sizeof(vgm_extended_header); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
752 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
753 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
|
754 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
755 player->num_chips = 0; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
756 if (player->vgm->sn76489_clk) { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
757 player->num_chips++; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
758 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
759 if (player->vgm->ym2612_clk) { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
760 player->num_chips++; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
761 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
762 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
|
763 player->num_chips++; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
764 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
765 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
|
766 player->num_chips++; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
767 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
768 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
|
769 uint32_t chip = 0; |
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 ym2612_context *ym = calloc(1, sizeof(ym2612_context)); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
772 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
|
773 player->chips[chip++] = (chip_info) { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
774 .context = ym, |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
775 .run = (chip_run_fun)ym_run, |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
776 .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
|
777 .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
|
778 .no_scope = ym_no_scope, |
2377
30e59954eab9
Properly free sound chips in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2376
diff
changeset
|
779 .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
|
780 .stream = ym_stream, |
2289
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
781 .clock = player->vgm->ym2612_clk, |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
782 .samples = 0, |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
783 .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
|
784 .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
|
785 .stream_type = STREAM_CHIP_YM2612 |
2289
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
786 }; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
787 } |
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 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
|
789 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
|
790 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
|
791 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
|
792 .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
|
793 .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
|
794 .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
|
795 .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
|
796 .no_scope = ym_no_scope, |
2377
30e59954eab9
Properly free sound chips in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2376
diff
changeset
|
797 .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
|
798 .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
|
799 .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
|
800 .cmd = CMD_PSG, |
2482
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
801 .data_type = 0xFF, |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
802 .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
|
803 }; |
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 } |
2289
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
805 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
|
806 rf5c164 *pcm = calloc(1, sizeof(rf5c164)); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
807 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
|
808 player->chips[chip++] = (chip_info) { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
809 .context = pcm, |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
810 .run = (chip_run_fun)rf5c164_run, |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
811 .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
|
812 .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
|
813 .no_scope = pcm_no_scope, |
2377
30e59954eab9
Properly free sound chips in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2376
diff
changeset
|
814 .free = pcm_free, |
2289
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
815 .clock = player->vgm_ext->rf5c68_clk, |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
816 .samples = 0, |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
817 .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
|
818 .data_type = DATA_RF5C68, |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
819 .stream_type = STREAM_CHIP_RF5C68 |
2289
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
820 }; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
821 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
822 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
|
823 rf5c164 *pcm = calloc(1, sizeof(rf5c164)); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
824 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
|
825 player->chips[chip++] = (chip_info) { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
826 .context = pcm, |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
827 .run = (chip_run_fun)rf5c164_run, |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
828 .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
|
829 .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
|
830 .no_scope = pcm_no_scope, |
2377
30e59954eab9
Properly free sound chips in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2376
diff
changeset
|
831 .free = pcm_free, |
2289
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
832 .clock = player->vgm_ext->rf5c164_clk, |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
833 .samples = 0, |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
834 .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
|
835 .data_type = DATA_RF5C164, |
fb8f49b0aece
Impelement partial support for DAC stream commands in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2457
diff
changeset
|
836 .stream_type = STREAM_CHIP_RF5C164 |
2289
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
837 }; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
838 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
839 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
|
840 player->loop_count = 2; |
2289
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
841 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
842 |
2290
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
843 static void wave_player_init(media_player *player) |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
844 { |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
845 player->wave = calloc(1, sizeof(wave_header)); |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
846 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
|
847 if (memcmp(player->wave->chunk.format, "WAVE", 4)) { |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
848 goto format_error; |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
849 } |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
850 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
|
851 goto format_error; |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
852 } |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
853 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
|
854 goto format_error; |
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 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
|
857 goto format_error; |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
858 } |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
859 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
|
860 goto format_error; |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
861 } |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
862 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
|
863 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
|
864 goto format_error; |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
865 } |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
866 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
|
867 player->current_offset = data_sub_chunk; |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
868 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
|
869 return; |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
870 format_error: |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
871 player->media_type = MEDIA_UNKNOWN; |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
872 free(player->wave); |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
873 } |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
874 |
2296
789802d99629
Add basic FLAC decoder and add FLAC playback support to the media player
Michael Pavone <pavone@retrodev.com>
parents:
2290
diff
changeset
|
875 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
|
876 { |
789802d99629
Add basic FLAC decoder and add FLAC playback support to the media player
Michael Pavone <pavone@retrodev.com>
parents:
2290
diff
changeset
|
877 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
|
878 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
|
879 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
|
880 } |
789802d99629
Add basic FLAC decoder and add FLAC playback support to the media player
Michael Pavone <pavone@retrodev.com>
parents:
2290
diff
changeset
|
881 } |
789802d99629
Add basic FLAC decoder and add FLAC playback support to the media player
Michael Pavone <pavone@retrodev.com>
parents:
2290
diff
changeset
|
882 |
2289
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
883 static void resume_player(system_header *system) |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
884 { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
885 media_player *player = (media_player *)system; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
886 player->should_return = 0; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
887 while (!player->header.should_exit && !player->should_return) |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
888 { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
889 switch (player->state) |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
890 { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
891 case STATE_PLAY: |
2376
1c09f5be285b
Very basic UI for media player
Michael Pavone <pavone@retrodev.com>
parents:
2375
diff
changeset
|
892 player->playback_time++; |
2289
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
893 switch(player->media_type) |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
894 { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
895 case AUDIO_VGM: |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
896 vgm_frame(player); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
897 break; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
898 case AUDIO_WAVE: |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
899 wave_frame(player); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
900 break; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
901 case AUDIO_FLAC: |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
902 flac_frame(player); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
903 break; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
904 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
905 break; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
906 case STATE_PAUSED: |
2302
0343f0d5add0
Fix libretro build for real
Michael Pavone <pavone@retrodev.com>
parents:
2296
diff
changeset
|
907 #ifndef IS_LIB |
2289
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
908 render_sleep_ms(15); |
2302
0343f0d5add0
Fix libretro build for real
Michael Pavone <pavone@retrodev.com>
parents:
2296
diff
changeset
|
909 #endif |
2289
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
910 break; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
911 } |
2302
0343f0d5add0
Fix libretro build for real
Michael Pavone <pavone@retrodev.com>
parents:
2296
diff
changeset
|
912 //TODO: Fix this for libretro build properly |
0343f0d5add0
Fix libretro build for real
Michael Pavone <pavone@retrodev.com>
parents:
2296
diff
changeset
|
913 #ifndef IS_LIB |
2289
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
914 render_update_display(); |
2302
0343f0d5add0
Fix libretro build for real
Michael Pavone <pavone@retrodev.com>
parents:
2296
diff
changeset
|
915 #endif |
2289
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
916 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
917 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
918 |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
919 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
|
920 { |
2375
02c04196c2da
Fix mediaplayer play/pause handling
Michael Pavone <pavone@retrodev.com>
parents:
2374
diff
changeset
|
921 if (pad != 1) { |
02c04196c2da
Fix mediaplayer play/pause handling
Michael Pavone <pavone@retrodev.com>
parents:
2374
diff
changeset
|
922 return; |
02c04196c2da
Fix mediaplayer play/pause handling
Michael Pavone <pavone@retrodev.com>
parents:
2374
diff
changeset
|
923 } |
02c04196c2da
Fix mediaplayer play/pause handling
Michael Pavone <pavone@retrodev.com>
parents:
2374
diff
changeset
|
924 media_player *player = (media_player *)system; |
02c04196c2da
Fix mediaplayer play/pause handling
Michael Pavone <pavone@retrodev.com>
parents:
2374
diff
changeset
|
925 if (player->button_state[button]) { |
02c04196c2da
Fix mediaplayer play/pause handling
Michael Pavone <pavone@retrodev.com>
parents:
2374
diff
changeset
|
926 //already pressed |
02c04196c2da
Fix mediaplayer play/pause handling
Michael Pavone <pavone@retrodev.com>
parents:
2374
diff
changeset
|
927 return; |
02c04196c2da
Fix mediaplayer play/pause handling
Michael Pavone <pavone@retrodev.com>
parents:
2374
diff
changeset
|
928 } |
02c04196c2da
Fix mediaplayer play/pause handling
Michael Pavone <pavone@retrodev.com>
parents:
2374
diff
changeset
|
929 player->button_state[button] = 1; |
02c04196c2da
Fix mediaplayer play/pause handling
Michael Pavone <pavone@retrodev.com>
parents:
2374
diff
changeset
|
930 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
|
931 if (player->state == STATE_PAUSED) { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
932 player->state = STATE_PLAY; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
933 puts("Now playing"); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
934 } else { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
935 player->state = STATE_PAUSED; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
936 puts("Now paused"); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
937 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
938 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
939 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
940 |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
941 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
|
942 { |
2375
02c04196c2da
Fix mediaplayer play/pause handling
Michael Pavone <pavone@retrodev.com>
parents:
2374
diff
changeset
|
943 if (pad != 1) { |
02c04196c2da
Fix mediaplayer play/pause handling
Michael Pavone <pavone@retrodev.com>
parents:
2374
diff
changeset
|
944 return; |
02c04196c2da
Fix mediaplayer play/pause handling
Michael Pavone <pavone@retrodev.com>
parents:
2374
diff
changeset
|
945 } |
02c04196c2da
Fix mediaplayer play/pause handling
Michael Pavone <pavone@retrodev.com>
parents:
2374
diff
changeset
|
946 media_player *player = (media_player *)system; |
02c04196c2da
Fix mediaplayer play/pause handling
Michael Pavone <pavone@retrodev.com>
parents:
2374
diff
changeset
|
947 player->button_state[button] = 0; |
2289
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 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
|
951 { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
952 resume_player(system); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
953 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
954 |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
955 static void free_player(system_header *system) |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
956 { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
957 media_player *player = (media_player *)system; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
958 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
|
959 { |
2377
30e59954eab9
Properly free sound chips in VGM player
Michael Pavone <pavone@retrodev.com>
parents:
2376
diff
changeset
|
960 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
|
961 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
962 free(player->chips); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
963 free(player->vgm); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
964 free(player); |
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 |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
967 uint8_t detect_media_type(system_media *media) |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
968 { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
969 if (media->size < 4) { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
970 return MEDIA_UNKNOWN; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
971 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
972 if (!memcmp(media->buffer, "Vgm ", 4)) { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
973 if (media->size < sizeof(vgm_header)) { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
974 return MEDIA_UNKNOWN; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
975 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
976 return AUDIO_VGM; |
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 if (!memcmp(media->buffer, "RIFF", 4)) { |
2290
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
979 if (media->size < sizeof(wave_header)) { |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
980 return MEDIA_UNKNOWN; |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
981 } |
2289
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
982 return AUDIO_WAVE; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
983 } |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
984 if (!memcmp(media->buffer, "fLaC", 4)) { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
985 return AUDIO_FLAC; |
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 MEDIA_UNKNOWN; |
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 |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
990 static void request_exit(system_header *system) |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
991 { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
992 media_player *player = (media_player *)system; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
993 player->should_return = 1; |
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 |
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
|
996 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
|
997 { |
97f164d1f0f6
Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents:
2302
diff
changeset
|
998 #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
|
999 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
|
1000 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
|
1001 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
|
1002 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
|
1003 { |
97f164d1f0f6
Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents:
2302
diff
changeset
|
1004 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
|
1005 } |
97f164d1f0f6
Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output
Michael Pavone <pavone@retrodev.com>
parents:
2302
diff
changeset
|
1006 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
|
1007 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
|
1008 } 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
|
1009 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
|
1010 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
|
1011 { |
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 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
|
1013 } |
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 } |
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 #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
|
1017 } |
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 |
2289
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
1019 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
|
1020 { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
1021 media_player *player = calloc(1, sizeof(media_player)); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
1022 player->header.start_context = start_player; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
1023 player->header.resume_context = resume_player; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
1024 player->header.request_exit = request_exit; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
1025 player->header.free_context = free_player; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
1026 player->header.gamepad_down = gamepad_down; |
2375
02c04196c2da
Fix mediaplayer play/pause handling
Michael Pavone <pavone@retrodev.com>
parents:
2374
diff
changeset
|
1027 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
|
1028 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
|
1029 player->header.type = SYSTEM_MEDIA_PLAYER; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
1030 player->header.info.name = strdup(media->name); |
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 player->media = media; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
1033 player->media_type = detect_media_type(media); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
1034 player->state = STATE_PLAY; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
1035 switch (player->media_type) |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
1036 { |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
1037 case AUDIO_VGM: |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
1038 vgm_init(player, opts); |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
1039 break; |
2290
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
1040 case AUDIO_WAVE: |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
1041 wave_player_init(player); |
c4980d89614b
Support WAVE files in media player
Michael Pavone <pavone@retrodev.com>
parents:
2289
diff
changeset
|
1042 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
|
1043 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
|
1044 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
|
1045 break; |
2289
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
1046 } |
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 return player; |
92449b47cce8
Integrate VGM player into main blastem binary
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
1049 } |