1 files changed, 288 insertions, 0 deletions

diff --git a/apps/plugins/zxbox/spsound.c b/apps/plugins/zxbox/spsound.c
new file mode 100644
index 0000000000..3ff2690d00
--- /dev/null
+++ b/apps/plugins/zxbox/spsound.c
@@ -0,0 +1,288 @@
+/* 
+ * Copyright (C) 1996-1998 Szeredi Miklos 2006 Anton Romanov
+ * Email: mszeredi@inf.bme.hu
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version. See the file COPYING. 
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+ *
+ */
+
+/* #define DEBUG_AUDIO */
+
+#include "spsound.h"
+
+#include "zxconfig.h"
+#include "spperif.h"
+#include "z80.h"
+#include "misc.h"
+#include "interf.h"
+#include "spmain.h"
+
+#include <stdio.h>
+
+int bufframes = 1;
+
+int sound_avail = 0;
+int sound_on = 1;
+
+int sound_to_autoclose = 0;
+int doneplay=0;
+
+
+#ifdef HAVE_SOUND
+
+#include "stdlib.h"
+#include "file.h"
+#include "time.h"
+#include "errno.h"
+#include "string.h"
+
+
+
+#define SKIPTIME 5000
+
+static int last_not_played=0;
+
+#define SPS_OPENED        0
+#define SPS_AUTOCLOSED     -1
+#define SPS_BUSY     -2
+#define SPS_CLOSED     -3
+#define SPS_NONEXIST     -4
+
+static int sndstate = SPS_CLOSED;
+
+static void close_snd(int normal);
+unsigned short my_buf[TMNUM*2*3*2] IBSS_ATTR;
+
+
+const byte lin8_ulaw[] = {
+    31,   31,   31,   32,   32,   32,   32,   33, 
+    33,   33,   33,   34,   34,   34,   34,   35, 
+    35,   35,   35,   36,   36,   36,   36,   37, 
+    37,   37,   37,   38,   38,   38,   38,   39, 
+    39,   39,   39,   40,   40,   40,   40,   41, 
+    41,   41,   41,   42,   42,   42,   42,   43, 
+    43,   43,   43,   44,   44,   44,   44,   45, 
+    45,   45,   45,   46,   46,   46,   46,   47, 
+    47,   47,   47,   48,   48,   49,   49,   50, 
+    50,   51,   51,   52,   52,   53,   53,   54, 
+    54,   55,   55,   56,   56,   57,   57,   58, 
+    58,   59,   59,   60,   60,   61,   61,   62, 
+    62,   63,   63,   64,   65,   66,   67,   68, 
+    69,   70,   71,   72,   73,   74,   75,   76, 
+    77,   78,   79,   81,   83,   85,   87,   89, 
+    91,   93,   95,   99,  103,  107,  111,  119, 
+   255,  247,  239,  235,  231,  227,  223,  221, 
+   219,  217,  215,  213,  211,  209,  207,  206, 
+   205,  204,  203,  202,  201,  200,  199,  198, 
+   197,  196,  195,  194,  193,  192,  191,  191, 
+   190,  190,  189,  189,  188,  188,  187,  187, 
+   186,  186,  185,  185,  184,  184,  183,  183, 
+   182,  182,  181,  181,  180,  180,  179,  179, 
+   178,  178,  177,  177,  176,  176,  175,  175, 
+   175,  175,  174,  174,  174,  174,  173,  173, 
+   173,  173,  172,  172,  172,  172,  171,  171, 
+   171,  171,  170,  170,  170,  170,  169,  169, 
+   169,  169,  168,  168,  168,  168,  167,  167, 
+   167,  167,  166,  166,  166,  166,  165,  165, 
+   165,  165,  164,  164,  164,  164,  163,  163, 
+   163,  163,  162,  162,  162,  162,  161,  161, 
+   161,  161,  160,  160,  160,  160,  159,  159, 
+};
+
+static void open_snd(void)
+{
+    sndstate = SPS_OPENED;
+    sound_avail=1;
+   rb->pcm_play_stop();
+   rb->pcm_set_frequency(44100);
+   
+}
+
+static void close_snd(int normal)
+{
+    (void)normal;
+    sound_avail = 0;
+    rb->pcm_play_stop();    
+    rb->pcm_set_frequency(44100);
+}
+
+
+
+void init_spect_sound(void)
+{
+#if 1 /* TODO: Is this OK? */
+  open_snd();
+#endif
+}
+
+
+//#define VOLREDUCE settings.volume
+//
+#ifndef VOLREDUCE
+#define VOLREDUCE 0
+#endif
+
+#define CONVU8(x) ((byte) (((x) >> VOLREDUCE) + 128))
+
+#ifdef CONVERT_TO_ULAW
+#  define CONV(x) lin8_ulaw[(int) CONVU8(x)]
+#else
+#  define CONV(x) CONVU8(x)
+#endif
+
+#define HIGH_PASS(hp, sv) (((hp) * 15 + (sv)) >> 4)
+#define TAPESOUND(tsp)    ((*tsp) >> 4)
+
+static void process_sound(void)
+{
+  static int soundhp; 
+  int i;
+  byte *sb;
+  register int sv;
+
+  sb = sp_sound_buf;
+  if(last_not_played) {
+    soundhp = *sb;
+    last_not_played = 0;
+  }
+
+  if(!sp_playing_tape) {
+    for(i = TMNUM; i; sb++,i--) {
+      sv = *sb;
+      soundhp = HIGH_PASS(soundhp, sv);
+      *sb = CONV(sv - soundhp);
+    }
+  }
+  else {
+    signed char *tsp;
+    
+    tsp = sp_tape_sound;
+    for(i = TMNUM; i; sb++,tsp++,i--) {
+      sv = *sb + TAPESOUND(tsp);
+      soundhp = (soundhp * 15 + sv)>>4;
+      *sb = CONV(sv - soundhp);
+    }
+  }
+}
+
+void autoclose_sound(void)
+{
+    /* do we have any reason to autoclose sound? */
+#if 0
+  if(sound_on && sound_to_autoclose && sndstate >= SPS_CLOSED) {
+    close_snd(1);
+    sndstate = SPS_AUTOCLOSED;
+  }
+#endif
+}
+void get_more(unsigned char** start, size_t* size)
+{
+    doneplay = 1;
+   *start = (unsigned char*)(my_buf);
+   *size = TMNUM*4*3*2;
+}
+
+/* sp_sound_buf is Unsigned 8 bit, Rate 8000 Hz, Mono */
+
+void write_buf(void){
+    int i,j;
+
+    /* still not sure what is the best way to do this */
+#if 0
+    my_buf[i] = /*(sp_sound_buf[i]<<8)-0x8000*/sp_sound_buf[i]<<8;
+
+
+    for (i = 0, j = 0; i<TMNUM; i++, j+=6)
+        my_buf[j] = my_buf[j+1] = my_buf[j+2] = my_buf[j+3] = my_buf[j+4] = my_buf[j+5] = (((byte)sp_sound_buf[i])<<8) >> settings.volume;
+#endif
+
+
+    for (i = 0, j = 0; i<TMNUM; i++, j+=12)
+        my_buf[j] = my_buf[j+1] = my_buf[j+2] = my_buf[j+3]\
+                    = my_buf[j+4] = my_buf[j+5] = my_buf[j+6]\
+                    = my_buf[j+7] = my_buf[j+8] = my_buf[j+9] \
+                    = my_buf[j+10] = my_buf[j+11] \
+                    = (((byte)sp_sound_buf[i])<<8) >> settings.volume;
+
+    rb->pcm_play_data(&get_more,NULL,0);
+
+#if 0
+    /* can use to save and later analyze what we produce */
+    i = rb->open ( "/sound.raw" , O_WRONLY | O_APPEND | O_CREAT );
+    rb->write ( i  , sp_sound_buf , TMNUM );
+    rb->close (i);
+
+
+    i = rb->open ( "/sound2.raw" , O_WRONLY | O_APPEND |O_CREAT);
+    rb->write ( i  , (unsigned char *)my_buf , TMNUM*4*3 );
+    rb->close (i);
+#endif
+
+
+    while(!doneplay)
+        rb->yield();
+ 
+}
+void play_sound(int evenframe)
+{
+  if(evenframe) return;
+  if(!sound_on) {
+    if(sndstate <= SPS_CLOSED) return;
+    if(sndstate < SPS_OPENED) {
+      sndstate = SPS_CLOSED;
+      return;
+    }
+    close_snd(1);
+    return;
+  }
+  
+  z80_proc.sound_change = 0;
+
+  process_sound();
+
+  write_buf();
+}
+
+
+void setbufsize(void)
+{
+    
+}
+
+
+#else /* HAVE_SOUND */
+
+/* Dummy functions */
+
+void setbufsize(void)
+{
+}
+
+void init_spect_sound(void)
+{
+}
+
+void play_sound(int evenframe)
+{
+  (void)evenframe;
+}
+
+void autoclose_sound(void)
+{
+}
+
+#endif /* NO_SOUND */
+
+