1
0
mirror of https://github.com/sehugg/8bitworkshop.git synced 2024-10-12 21:23:37 +00:00

cpc: music player

This commit is contained in:
Steven Hugg 2021-12-21 18:24:15 -06:00
parent 6c0c610514
commit 82ebc47caa
5 changed files with 377 additions and 0 deletions

104
presets/cpc/music.c Normal file

File diff suppressed because one or more lines are too long

6
presets/cpc/music.h Normal file
View File

@ -0,0 +1,6 @@
// call to start music
void music_start(const unsigned char* music);
// call once every N frames
void music_update();

243
presets/cpc/sound_bios.c Normal file
View File

@ -0,0 +1,243 @@
// http://www.cpcmania.com/Docs/Programming/Sound_I.htm
#pragma disable_warning 85 // unused parameter warning
////////////////////////////////////////////////////////////////////////
// Sound01.c
// Mochilote - www.cpcmania.com
////////////////////////////////////////////////////////////////////////
#include <stdio.h>
//Firmware requires it in the central 32K of RAM (0x4000 to 0xC000), move it as you need...
#define SOUND_BUFF 0x4FF6 //9 bytes
#define ENT_BUFF 0x4FE6 //16 bytes
#define ENV_BUFF 0x4FD6 //16 bytes
////////////////////////////////////////////////////////////////////////
//sound
////////////////////////////////////////////////////////////////////////
unsigned char bQueue = 0;
unsigned char sound(
unsigned char nChannelStatus,
int nTonePeriod,
int nDuration,
unsigned char nVolume,
char nVolumeEnvelope,
char nToneEnvelope,
unsigned char nNoisePeriod)
{
//This function uses 9 bytes of memory for sound buffer. Firmware requires it in the central 32K of RAM (0x4000 to 0xC000)
/*
The bytes required to define the sound are as follows
byte 0 - channel status byte
byte 1 - volume envelope to use
byte 2 - tone envelope to use
bytes 3&4 - tone period
byte 5 - noise period
byte 6 - start volume
bytes 7&8 - duration of the sound, or envelope repeat count
*/
__asm
LD HL, #SOUND_BUFF
LD A, 4 (IX) ;nChannelStatus
LD (HL), A
INC HL
LD A, 10 (IX) ;nVolumeEnvelope
LD (HL), A
INC HL
LD A, 11 (IX) ;nToneEnvelope
LD (HL), A
INC HL
LD A, 5 (IX) ;nTonePeriod
LD (HL), A
INC HL
LD A, 6 (IX) ;nTonePeriod
LD (HL), A
INC HL
LD A, 12 (IX) ;nNoisePeriod
LD (HL), A
INC HL
LD A, 9 (IX) ;nVolume
LD (HL), A
INC HL
LD A, 7 (IX) ;nDuration
LD (HL), A
INC HL
LD A, 8 (IX) ;nDuration
LD (HL), A
INC HL
LD HL, #SOUND_BUFF
CALL #0xBCAA ;SOUND QUEUE
LD HL, #_bQueue
LD (HL), #0
JP NC, _EndSound
LD (HL), #1
_EndSound:
__endasm;
return bQueue;
}
////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////
//ent
////////////////////////////////////////////////////////////////////////
void ent(unsigned char nEnvelopeNumber, unsigned char nNumberOfSteps, char nTonePeriodOfStep, unsigned char nTimePerStep)
{
//This function uses 16 bytes of memory for ent buffer. Firmware requires it in the central 32K of RAM (0x4000 to 0xC000)
__asm
LD HL, #ENT_BUFF
LD A, #0x1
LD (HL), A
INC HL
LD A, 5 (IX) ;nNumberOfSteps
LD (HL), A
INC HL
LD A, 6 (IX) ;nTonePeriodOfStep
LD (HL), A
INC HL
LD A, 7 (IX) ;nTimePerStep
LD (HL), A
INC HL
LD A, 4 (IX) ;nEnvelopeNumber
LD HL, #ENT_BUFF
CALL #0xBCBF ;SOUND TONE ENVELOPE
__endasm;
}
////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////
//env
////////////////////////////////////////////////////////////////////////
void env(unsigned char nEnvelopeNumber, unsigned char nNumberOfSteps, char nSizeOfStep, unsigned char nTimePerStep)
{
//This function uses 16 bytes of memory for env buffer. Firmware requires it in the central 32K of RAM (0x4000 to 0xC000)
__asm
LD HL, #ENV_BUFF
LD A, #0x1
LD (HL), A
INC HL
LD A, 5 (IX) ;nNumberOfSteps
LD (HL), A
INC HL
LD A, 6 (IX) ;nSizeOfStep
LD (HL), A
INC HL
LD A, 7 (IX) ;nTimePerStep
LD (HL), A
INC HL
LD A, 4 (IX) ;nEnvelopeNumber
LD HL, #ENV_BUFF
CALL #0xBCBC ;SOUND AMPL ENVELOPE
__endasm;
}
////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////
//soundcheck
////////////////////////////////////////////////////////////////////////
unsigned char nSoundCheck = 0;
unsigned char soundcheck(unsigned char nChannelStatus)
{
__asm
LD A, 4 (IX) ;nChannelStatus
CALL #0xBCAD; SOUND CHECK
LD HL, #_nSoundCheck
LD (HL), A
__endasm;
return (nSoundCheck & 0x80);
}
////////////////////////////////////////////////////////////////////////
#ifdef __MAIN__
////////////////////////////////////////////////////////////////////////
//main
////////////////////////////////////////////////////////////////////////
main()
{
int aSounds[12] = { 478, 451, 426, 402, 379, 358, 338, 319, 301, 284, 268, 253 };
int n = 0;
printf("1\n\r");
for(n=0; n < 12; n++)
{
while(!sound(1, aSounds[n], 20, 15, 0, 0, 0));
}
while(soundcheck(1));
printf("2\n\r");
ent(1, 20, -11, 1);
sound(1, 200, 20, 15, 0, 1, 0);
while(soundcheck(1));
printf("3\n\r");
ent(1, 20, -11, 1);
sound(1, 428, 10, 15, 0, 1, 0);
while(soundcheck(1));
printf("4\n\r");
env(1, 25, 15, 5);
ent(1, 25, 120, 6);
sound(1, 428, 25, 15, 1, 1, 14);
while(soundcheck(1));
printf("5\n\r");
sound(1, 200, 20, 15, 0, 0, 0);
while(soundcheck(1));
printf("6\n\r");
env(1, 10, 1, 100);
sound(1, 284, 1000, 1, 1, 0, 0);
while(soundcheck(1));
printf("7\n\r");
ent(1, 100, 2, 2);
sound(1,284,200,15,0,1,0);
while(soundcheck(1));
printf("8\n\r");
ent(1, 100, -2, 2);
sound(1, 284, 200, 15, 0, 1, 0);
while(soundcheck(1));
return 0;
}
#endif

23
presets/cpc/sound_bios.h Normal file
View File

@ -0,0 +1,23 @@
unsigned char sound(
unsigned char nChannelStatus,
int nTonePeriod,
int nDuration,
unsigned char nVolume,
char nVolumeEnvelope,
char nToneEnvelope,
unsigned char nNoisePeriod);
void ent(
unsigned char nEnvelopeNumber,
unsigned char nNumberOfSteps,
char nTonePeriodOfStep,
unsigned char nTimePerStep);
void env(
unsigned char nEnvelopeNumber,
unsigned char nNumberOfSteps,
char nSizeOfStep,
unsigned char nTimePerStep);
unsigned char soundcheck(unsigned char nChannelStatus);

View File

@ -11,6 +11,7 @@ const CPC_PRESETS = [
{id:'easy_sprites.c', name:'Keyboard + Sprites (C)'},
{id:'medium_scrolling.c', name:'Scrolling Text (C)'},
{id:'siegegame.c', name:'Siege Game (C)'},
{id:'music.c', name:'Music Player (C)'},
//{id:'sprite_demo.c', name:'Sprite Demo (C)'},
//{id:'keyboard_redefine.c', name:'Keyboard Redefine (C)'},
];