X-Git-Url: http://4ch.mooo.com/gitweb/?a=blobdiff_plain;ds=sidebyside;f=16%2F16%2Fopl2.c;fp=16%2F16%2Fopl2.c;h=d78ecb3b76ee75778c593d57a67e3c6040595ac6;hb=47cdc66151d973d975d0e31fb8a786eb639bebdb;hp=0000000000000000000000000000000000000000;hpb=4b23f27092a9470a741e3a18261ad389fd1929db;p=16.git

diff --git a/16/16/opl2.c b/16/16/opl2.c
new file mode 100755
index 00000000..d78ecb3b
--- /dev/null
+++ b/16/16/opl2.c
@@ -0,0 +1,304 @@
+/* C Source File: ADLIB *****************************************************
+
+Author:            Kevin A. Lee
+
+Last Amended:      27th March, 1993
+
+Description:        Low-level interface to the Adlib (or compatible)
+FM sound card. All information gleaned from
+Jeffrey S. Lee's "Programming the Adlib/Sound
+Blaster FM Music Chips". See Lee's document for
+further information.
+Compiled succesfully under Turbo C, Borland C++,
+and Microsoft Quick C (all latest versions).
+
+****************************************************************************/
+#include "src\lib\opl2.h"
+
+//sound てすと
+int sq = 0;
+
+/* Function: WriteFM ********************************************************
+*
+*     Parameters:        reg - which FM register to write to.
+*                         value - value to write.
+*
+*     Description:        writes a value to the specified register and
+*                         waits for the "official" recommended periods.
+*
+*/
+void WriteFM(int reg, int value){
+	int i;
+
+	outp(ADLIB_FM_ADDRESS, (byte)reg);				/* set up the register  */
+	for (i = 0; i < 6; i++) inp(ADLIB_FM_ADDRESS);	/* wait 12 cycles      */
+	outp(ADLIB_FM_DATA, (byte)value);					/* write out the value */
+	for(i = 0; i < 35; i++) inp(ADLIB_FM_ADDRESS);	/* wait 84 cycles      */
+} /* End of WriteFM */
+
+/* Function: ReadFM *********************************************************
+*
+*     Returns:            the value in the status register.
+*
+*     Description:        return a value in the status register.
+*
+*/
+int ReadFM(void){
+	return(inp(ADLIB_FM_ADDRESS));
+} /* End of ReadFM */
+
+/* Function: AdlibExists ****************************************************
+*
+*     Returns:            1 (true) if an Adlib compatible sound card
+*                         is present, else 0 (false).
+*
+*     Description:        determines whether an Adlib (or compatible)
+*                         sound card is present.
+*
+*/
+int AdlibExists(void){
+	int stat1, stat2;
+
+	WriteFM(0x04, 0x60);		/* reset both timers        */
+	WriteFM(0x04, 0x80);		/* enable timer interrupts  */
+	stat1 = ReadFM();			/* read status register     */
+	WriteFM(0x02, 0xFF);
+	WriteFM(0x04, 0x21);		/* start timer 1            */
+//	wait(80);				/* could do something useful*/
+	stat2 = ReadFM();			/* read status register     */
+	WriteFM(0x04, 0x60);		/* reset both timers        */
+	WriteFM(0x04, 0x80);		/* enable timer interrupts  */
+
+	if(((stat1 & 0xE0) == 0x00) && ((stat2 & 0xE0) == 0xC0)) return(1);
+	return(0);
+} /* End of AdlibExists */
+
+/* Function: FMResest *******************************************************
+*
+*     Description:        quick and dirty sound card reset (zeros all
+*                         registers).
+*
+*/
+void FMReset(void/*int percusiveMode*/){
+	int i;
+
+	/* zero all registers */
+	for(i = MIN_REGISTER; i < MAX_REGISTER+1; i++) WriteFM(i, 0);
+
+	/* allow FM chips to control the waveform of each operator */
+	WriteFM(0x01, 0x20);
+
+	/* set rhythm enabled (6 melodic voices, 5 percussive) */
+	WriteFM(0xBD, 0x20);
+
+	//FMSetPercusiveMode(percusiveMode);
+} /* End of FMReset */
+/*
+void FMSetPercusiveMode(int state){
+	if(state){
+		WriteFM(0xBD, 0x20);
+		currentBDContents = 0x20;
+		percussiveMode = 1;
+		voiceModulator[7] = 16;
+		voiceModulator[8] = 14;
+		// we have to set the freq of voice 7 & 8 for the white noise gen.
+		// these frequency choices could certainly be better
+		WriteFM(0xa7, 1844 & 0xff);
+		WriteFM(0xb7, 1844 >> 8);
+		WriteFM(0xa8, 3764 & 0xff);
+		WriteFM(0xb8, 3764 >> 8);
+	}else{
+		WriteFM(0xBD, 0);
+		percussiveMode = 0;
+		currentBDContents = 0;
+		voiceModulator[7] = 13;
+		voiceModulator[8] = 14;
+	}
+}
+*/
+/* Function: FMKeyOff *******************************************************
+*
+*     Parameters:        voice - which voice to turn off.
+*
+*     Description:        turns off the specified voice.
+*
+*/
+void FMKeyOff(int voice){
+	int regNum;
+
+	/* turn voice off */
+	regNum = 0xB0 + voice % NUMVOICE;
+	WriteFM(regNum, 0x0E);
+} /* End of FMKeyOff */
+
+/* Function: FMKeyOn *******************************************************
+*
+*     Parameters:        voice - which voice to turn on.
+*                         freq - its frequency (note).
+*                         octave - its octave.
+*
+*     Description:        turns on a voice of specfied frequency and
+*                         octave.
+*
+*/
+void FMKeyOn(int voice, int freq, int octave){
+	int regNum, tmp;
+
+	regNum = 0xA0 + voice % NUMVOICE;
+	WriteFM(regNum, freq & 0xff);
+	regNum = 0xB0 + voice % NUMVOICE;
+	tmp = (freq >> 8) | (octave << 2) | 0x20;
+	WriteFM(regNum, tmp);
+} /* End of FMKeyOn */
+
+/* Function: FMVoiceVolume **************************************************
+*
+*     Parameters:        voice - which voice to set volume of
+*                         vol - new volume value (experiment).
+*
+*     Description:        sets the volume of a voice to the specified
+*                         value in the range (0-63)?
+*
+*/
+void FMVoiceVolume(int voice, int vol){
+	int regNum;
+
+	regNum = 0x40 + voice % NUMVOICE;
+	WriteFM(regNum, vol);
+} /* End of FMVoiceVolume */
+
+/* Function: FMSetVoice *****************************************************
+*
+*     Parameters:        voiceNum - which voice to set.
+*                         ins - instrument to set voice.
+*
+*     Description:        sets the instrument of a voice.
+*
+*/
+void FMSetVoice(int voiceNum, FMInstrument *ins){
+	int opCellNum, cellOffset;
+
+	voiceNum %= NUMVOICE;
+	cellOffset = voiceNum % 3 + ((voiceNum / 3) << 3);
+
+	/* set sound characteristic */
+	opCellNum = 0x20 + (char)cellOffset;
+	WriteFM(opCellNum, ins->SoundCharacteristic[0]);
+	opCellNum += 3;
+	WriteFM(opCellNum, ins->SoundCharacteristic[1]);
+
+	/* set level/output */
+	opCellNum = 0x40 + (char)cellOffset;
+	WriteFM(opCellNum, ins->Level[0]);
+	opCellNum += 3;
+	WriteFM(opCellNum, ins->Level[1]);
+
+	/* set Attack/Decay */
+	opCellNum = 0x60 + (char)cellOffset;
+	WriteFM(opCellNum, ins->AttackDecay[0]);
+	opCellNum += 3;
+	WriteFM(opCellNum, ins->AttackDecay[1]);
+
+	/* set Sustain/Release */
+	opCellNum = 0x80 + (char)cellOffset;
+	WriteFM(opCellNum, ins->SustainRelease[0]);
+	opCellNum += 3;
+	WriteFM(opCellNum, ins->SustainRelease[1]);
+
+	/* set Wave Select */
+	opCellNum = 0xE0 + (char)cellOffset;
+	WriteFM(opCellNum, ins->WaveSelect[0]);
+	opCellNum += 3;
+	WriteFM(opCellNum, ins->WaveSelect[1]);
+
+	/* set Feedback/Selectivity */
+	opCellNum = (byte)0xC0 + (byte)voiceNum;
+	WriteFM(opCellNum, ins->Feedback);
+} /* End of FMSetVoice */
+
+/* Function: LoadSBI ********************************************************
+*
+*     Parameters:        fileName - name of .SBI file.
+*                         ins - variable to place data in.
+*
+*     Description:        loads a .SBI into the instrument structure.
+*
+*/
+//int LoadSBI(char fileName[], FMInstrument *ins){
+//  int i;
+//  FILE *fp;
+//  size_t structSize = sizeof(FMInstrument);
+//
+//  if ((fp = fopen(fileName, "rb")) == NULL) return (0);
+//
+//  /* skip the header - or do we? */
+//  for (i = 0; i < 36; i++) fgetc(fp);
+//
+//  /* read the data */
+//  fread(ins, structSize, 1, fp);
+//
+//  fclose(fp);
+//  return (1);
+//} /* End of LoadSBI */
+
+unsigned short Notes[] = {
+        19327 ,        /* C b            */
+        18242 ,        /* C              */
+        17218 ,        /* C #   ( D b )  */
+        16252 ,        /* D              */
+        15340 ,        /* D #   ( E b )  */
+        14479 ,        /* E     ( F b )  */
+        13666 ,        /* F     ( E # )  */
+        12899 ,        /* F #   ( G b )  */
+        12175 ,        /* G              */
+        11492 ,        /* G #   ( A b )  */
+        10847 ,        /* A              */
+        10238 ,        /* A #   ( B b )  */
+        9664 ,         /* B     ( C b )  */
+        9121 ,         /* B #            */
+        0
+};
+
+/* test of the routines */
+void fmtest(){
+	enum SCALE test[] = { D4, E4, F4, G4, A4, B4, C4 };
+//	enum SCALE oct4[] = { 493.88, 466.16, 440, 415.3, 392, 369.99, 349.23, 329.63, 311.13, 293.66, 277.18, 261.63 };
+	static FMInstrument testInst =
+{
+0x00, 0x01,	/* modulator frequency multiple... 0x20 */
+0x00, 0x00,	/* modulator frequency level...    0x40 */
+0xF0, 0xF0,	/* modulator attack/decay...       0x60 */
+0x73, 0x73,	/* modulator sustain/release...    0x80 */
+0x03, 0x00,	/* output waveform distortion      0xE0 */
+0x36,				/* feedback algorithm and strength 0xC0 */
+};
+	int i;
+	printf("Now testing tune....\n");
+//	printf("just hit any key 7 times.\n");
+	FMReset();
+	FMSetVoice(0, &testInst);
+	//extra
+//	WriteFM(0xB0, 0x09);
+//	WriteFM(0xB3, 0x07);
+	//extra
+	for(i = 0; i < 7; i++){
+		FMKeyOn(0, test[i], 4);
+		sound(test[i]);
+		wait(20);
+//		getche();
+		FMKeyOff(0);
+		nosound();
+		wait(1);
+	}
+}
+
+//sound てすと
+int soundtest(){
+	enum SCALE test[] = { D4, E4, F4, G4, A4, B4, C4 };
+	//FMKeyOn(0, test[sq], 4);
+	if(sq < 7){
+		sq++;
+	}else sq = 0;
+	FMKeyOff(0);
+	return sq;
+}
\ No newline at end of file