1 files changed, 134 insertions, 0 deletions

diff --git a/lib/rbcodec/codecs/cRSID/libcRSID.c b/lib/rbcodec/codecs/cRSID/libcRSID.c
new file mode 100644
index 0000000000..f7ef713e12
--- /dev/null
+++ b/lib/rbcodec/codecs/cRSID/libcRSID.c
@@ -0,0 +1,134 @@
+// cRSID lightweight (integer-only) RealSID library (with API-calls) by Hermit (Mihaly Horvath), Year 2022
+// License: WTF - do what the fuck you want with the code, but please mention me as the original author
+
+#include <stdlib.h>
+//#include <stdint.h>
+#ifdef CRSID_PLATFORM_PC
+ #include <stdio.h>
+#endif
+
+#include "libcRSID.h"
+
+#include "C64/C64.c"
+#include "host/file.c"
+#include "host/audio.c"
+
+
+cRSID_C64instance* cRSID_init (unsigned short samplerate, unsigned short buflen) {
+ static cRSID_C64instance* C64 = &cRSID_C64;
+
+ C64 = cRSID_createC64 (C64, samplerate);
+#ifdef CRSID_PLATFORM_PC
+ if ( cRSID_initSound (C64, samplerate,buflen) == NULL) return NULL;
+#else
+ if (buflen) return C64; //this is here just to eliminate unused 'buflen' variable warning
+#endif
+
+ return C64;
+}
+
+
+void cRSID_initSIDtune (cRSID_C64instance* C64, cRSID_SIDheader* SIDheader, char subtune) { //subtune: 1..255
+ static const unsigned char PowersOf2[] = {0x01,0x02,0x04,0x08,0x10,0x20,0x40,0x80};
+ unsigned int InitTimeout=10000000; //allowed instructions, value should be selected to allow for long-running memory-copiers in init-routines (e.g. Synth Sample)
+
+ if (subtune==0) subtune = 1;
+ else if (subtune > SIDheader->SubtuneAmount) subtune = SIDheader->SubtuneAmount;
+ C64->SubTune = subtune;
+
+ cRSID_setC64(C64); cRSID_initC64(C64); //cRSID_writeMemC64(C64,0xD418,0xF); //set C64 hardware and init (reset) it
+
+ //determine init-address:
+ C64->InitAddress = ((SIDheader->InitAddressH)<<8) + (SIDheader->InitAddressL); //get info from BASIC-startupcode for some tunes
+ if (C64->RAMbank[1] == 0x37) { //are there SIDs with routine under IO area? some PSIDs don't set bank-registers themselves
+  if ( (0xA000 <= C64->InitAddress && C64->InitAddress < 0xC000)
+       || (C64->LoadAddress < 0xC000 && C64->EndAddress >= 0xA000) ) C64->RAMbank[1] = 0x36;
+  else if (C64->InitAddress >= 0xE000 || C64->EndAddress >=0xE000) C64->RAMbank[1] = 0x35;
+ }
+ cRSID_initCPU( &C64->CPU, C64->InitAddress ); //prepare init-routine call
+ C64->CPU.A = subtune - 1;
+
+ if (!C64->RealSIDmode) {
+  //call init-routine:
+  for (InitTimeout=10000000; InitTimeout>0; InitTimeout--) { if ( cRSID_emulateCPU()>=0xFE ) break; } //give error when timed out?
+ }
+
+ //determine timing-source, if CIA, replace FrameCycles previouisly set to VIC-timing
+ if (subtune>32) C64->TimerSource = C64->SIDheader->SubtuneTimeSources[0] & 0x80; //subtunes above 32 should use subtune32's timing
+ else C64->TimerSource = C64->SIDheader->SubtuneTimeSources[(32-subtune)>>3] & PowersOf2[(subtune-1)&7];
+ if (C64->TimerSource || C64->IObankWR[0xDC05]!=0x40 || C64->IObankWR[0xDC04]!=0x24) { //CIA1-timing (probably multispeed tune)
+  C64->FrameCycles = ( ( C64->IObankWR[0xDC04] + (C64->IObankWR[0xDC05]<<8) ) ); //<< 4) / C64->ClockRatio;
+  C64->TimerSource = 1; //if init-routine changed DC04 or DC05, assume CIA-timing
+ }
+
+ //determine playaddress:
+ C64->PlayAddress = (SIDheader->PlayAddressH<<8) + SIDheader->PlayAddressL;
+ if (C64->PlayAddress) { //normal play-address called with JSR
+  if (C64->RAMbank[1] == 0x37) { //are there SIDs with routine under IO area?
+   if (0xA000 <= C64->PlayAddress && C64->PlayAddress < 0xC000) C64->RAMbank[1] = 0x36;
+  }
+  else if (C64->PlayAddress >= 0xE000) C64->RAMbank[1] = 0x35; //player under KERNAL (e.g. Crystal Kingdom Dizzy)
+ }
+ else { //IRQ-playaddress for multispeed-tunes set by init-routine (some tunes turn off KERNAL ROM but doesn't set IRQ-vector!)
+  C64->PlayAddress = (C64->RAMbank[1] & 3) < 2 ? cRSID_readMemC64(C64,0xFFFE) + (cRSID_readMemC64(C64,0xFFFF)<<8) //for PSID
+                                                 : cRSID_readMemC64(C64,0x314) + (cRSID_readMemC64(C64,0x315)<<8);
+  if (C64->PlayAddress==0) { //if 0, still try with RSID-mode fallback
+   cRSID_initCPU( &C64->CPU, C64->PlayAddress ); //point CPU to play-routine
+   C64->Finished=1; C64->Returned=1; return;
+  }
+ }
+
+ if (!C64->RealSIDmode) {  //prepare (PSID) play-routine playback:
+  cRSID_initCPU( &C64->CPU, C64->PlayAddress ); //point CPU to play-routine
+  C64->FrameCycleCnt=0; C64->Finished=1; C64->SampleCycleCnt=0; //C64->CIAisSet=0;
+ }
+ else { C64->Finished=0; C64->Returned=0; }
+
+}
+
+
+#ifdef CRSID_PLATFORM_PC
+
+
+char cRSID_playSIDfile(cRSID_C64instance* C64, char* filename, char subtune) {
+ static cRSID_SIDheader* SIDheader;
+
+ SIDheader = cRSID_loadSIDtune(C64,filename);
+ if (SIDheader==NULL) return CRSID_ERROR_LOAD;
+
+ cRSID_initSIDtune (C64 , SIDheader , subtune);
+ cRSID_playSIDtune ();
+
+ return CRSID_STATUS_OK;
+}
+
+
+cRSID_SIDheader* cRSID_loadSIDtune(cRSID_C64instance* C64, char* filename) {
+ enum SIDspecs { CRSID_FILESIZE_MAX = 100000 };
+ int FileSize;
+ static unsigned char SIDfileData [CRSID_FILESIZE_MAX]; //use memset?
+
+ FileSize = cRSID_loadSIDfile( SIDfileData, filename, CRSID_FILESIZE_MAX);
+ if ( FileSize == CRSID_ERROR_LOAD ) return NULL;
+
+ return cRSID_processSIDfile ( C64, SIDfileData, FileSize );
+}
+
+
+void cRSID_close() {
+ cRSID_closeSound();
+}
+
+
+void cRSID_playSIDtune (void) {
+ cRSID_startSound();
+}
+
+
+void cRSID_pauseSIDtune (void) {
+ cRSID_stopSound();
+}
+
+
+#endif
+