1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
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) {
#define 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
|
