cpc: music player

presets/cpc/music.h

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

presets/cpc/sound_bios.c

@@ -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

presets/cpc/sound_bios.h

@@ -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);

src/platform/cpc.ts

@@ -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)'},
 ];