mirror of
https://github.com/id-Software/Wolf3D-iOS.git
synced 2026-03-20 00:49:35 +01:00
Source release of Wolfenstein 3D Classic Platinum for iOS, 2.1
This commit is contained in:
Travis Bradshaw
359
wolf3d/wolfextractor/adlib/adlib.c
Normal file
359
wolf3d/wolfextractor/adlib/adlib.c
Normal file
@@ -0,0 +1,359 @@
|
||||
/*
|
||||
|
||||
Copyright (C) 2004-2005 Michael Liebscher <johnnycanuck@users.sourceforge.net>
|
||||
|
||||
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.
|
||||
|
||||
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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||
|
||||
*/
|
||||
|
||||
/*
|
||||
* adlib.c: Interface to adlib hardware.
|
||||
*
|
||||
* Author: Michael Liebscher <johnnycanuck@users.sourceforge.net>
|
||||
*
|
||||
* Acknowledgement:
|
||||
* Portion of this code was derived from Wolfenstein3-D, and was originally
|
||||
* written by Id Software, Inc.
|
||||
*
|
||||
* Portion of this code was derived from code written by DarkOne the Hacker.
|
||||
*
|
||||
*/
|
||||
|
||||
#include <stdlib.h>
|
||||
#include <stdio.h>
|
||||
|
||||
|
||||
#include "adlib.h"
|
||||
#include "fmopl.h"
|
||||
|
||||
#include "../../../common/arch.h"
|
||||
#include "../../../common/common_utils.h"
|
||||
#include "../memory/memory.h"
|
||||
|
||||
|
||||
#define OPL_INTERNAL_FREQ 3600000 // The OPL operates at 3.6MHz
|
||||
#define OPL_NUM_CHIPS 1 // Number of OPL chips
|
||||
#define ADLIB_FREQ 22050 // in Hz
|
||||
|
||||
|
||||
// Registers for the AdLib card
|
||||
#define alFMStatus 0x388 // Read
|
||||
#define alFMAddr 0x388 // Write
|
||||
#define alFMData 0x389 // Write
|
||||
|
||||
// Register addresses
|
||||
// Operator stuff
|
||||
#define alChar 0x20
|
||||
#define alScale 0x40
|
||||
#define alAttack 0x60
|
||||
#define alSus 0x80
|
||||
#define alWave 0xe0
|
||||
// Channel stuff
|
||||
#define alFreqL 0xa0
|
||||
#define alFreqH 0xb0
|
||||
#define alFeedCon 0xc0
|
||||
// Global stuff
|
||||
#define alEffects 0xbd
|
||||
|
||||
|
||||
// This table maps channel numbers to carrier and modulator op cells
|
||||
PRIVATE W8 carriers[ 9 ] = { 3, 4, 5,11,12,13,19,20,21 },
|
||||
modifiers[ 9 ] = { 0, 1, 2, 8, 9,10,16,17,18 };
|
||||
|
||||
PRIVATE FM_OPL *hAdLib = NULL;
|
||||
|
||||
|
||||
|
||||
/*
|
||||
-----------------------------------------------------------------------------
|
||||
Function: ADLIB_Init() -Start adlib hardware.
|
||||
|
||||
Parameters: Nothing.
|
||||
|
||||
Returns: 1 on success, otherwise 0.
|
||||
|
||||
Notes:
|
||||
|
||||
-----------------------------------------------------------------------------
|
||||
*/
|
||||
PUBLIC _boolean ADLIB_Init( W32 freq )
|
||||
{
|
||||
hAdLib = OPLCreate( OPL_TYPE_YM3812, OPL_INTERNAL_FREQ, freq );
|
||||
|
||||
if( hAdLib == NULL )
|
||||
{
|
||||
printf( "Could not create AdLib OPL Emulator\n" );
|
||||
|
||||
return false;
|
||||
}
|
||||
|
||||
OPLWrite( hAdLib, 0x01, 0x20 ); /* Set WSE=1 */
|
||||
OPLWrite( hAdLib, 0x08, 0x00 ); /* Set CSM=0 & SEL=0 */
|
||||
|
||||
return true;
|
||||
}
|
||||
|
||||
/*
|
||||
-----------------------------------------------------------------------------
|
||||
Function: ADLIB_Init() -Shutdown adlib hardware.
|
||||
|
||||
Parameters: Nothing.
|
||||
|
||||
Returns: Nothing.
|
||||
|
||||
Notes:
|
||||
|
||||
-----------------------------------------------------------------------------
|
||||
*/
|
||||
PUBLIC void ADLIB_Shutdown( void )
|
||||
{
|
||||
OPLDestroy( hAdLib );
|
||||
}
|
||||
|
||||
/*
|
||||
-----------------------------------------------------------------------------
|
||||
Function: ADLIB_SetFXInst() -Shutdown adlib hardware.
|
||||
|
||||
Parameters: inst -[in] Valid pointer to Instrument structure.
|
||||
|
||||
Returns: Nothing.
|
||||
|
||||
Notes:
|
||||
|
||||
-----------------------------------------------------------------------------
|
||||
*/
|
||||
PRIVATE void ADLIB_SetFXInst( Instrument *inst )
|
||||
{
|
||||
W8 c, m;
|
||||
|
||||
m = modifiers[ 0 ];
|
||||
c = carriers[ 0 ];
|
||||
|
||||
|
||||
OPLWrite( hAdLib, m + alChar, inst->mChar );
|
||||
OPLWrite( hAdLib, m + alScale, inst->mScale );
|
||||
OPLWrite( hAdLib, m + alAttack, inst->mAttack );
|
||||
OPLWrite( hAdLib, m + alSus, inst->mSus );
|
||||
OPLWrite( hAdLib, m + alWave, inst->mWave );
|
||||
OPLWrite( hAdLib, c + alChar, inst->cChar );
|
||||
OPLWrite( hAdLib, c + alScale, inst->cScale );
|
||||
OPLWrite( hAdLib, c + alAttack, inst->cAttack );
|
||||
OPLWrite( hAdLib, c + alSus, inst->cSus );
|
||||
OPLWrite( hAdLib, c + alWave, inst->cWave );
|
||||
|
||||
OPLWrite( hAdLib, alFeedCon, 0 );
|
||||
}
|
||||
|
||||
/*
|
||||
-----------------------------------------------------------------------------
|
||||
Function: ADLIB_DecodeSound() -Decode adlib sound.
|
||||
|
||||
Parameters: sound -[in] Valid pointer to AdLibSound structure.
|
||||
buffer -[in/out] Hold decoded sound data.
|
||||
length -[out] Length of sound data.
|
||||
|
||||
Returns: 1 on success, otherwise 0.
|
||||
|
||||
Notes:
|
||||
|
||||
-----------------------------------------------------------------------------
|
||||
*/
|
||||
PUBLIC W8 ADLIB_DecodeSound( AdLibSound *sound, W8 *buffer, W32 *length )
|
||||
{
|
||||
Instrument inst;
|
||||
W32 alLengthLeft;
|
||||
W32 alBlock;
|
||||
W8 *alSound, s;
|
||||
W16 *ptr;
|
||||
|
||||
|
||||
inst = sound->inst;
|
||||
alBlock = ( (sound->block & 7) << 2 ) | 0x20;
|
||||
alLengthLeft= *((PW32)sound->common.length);
|
||||
alSound = sound->data;
|
||||
|
||||
*length = alLengthLeft * 157 * 2; // 157[.5] = 22050 / 140
|
||||
|
||||
if( *length > MAX_WAV_SIZE )
|
||||
{
|
||||
return 0;
|
||||
}
|
||||
|
||||
ptr = (PW16) buffer;
|
||||
|
||||
OPLWrite( hAdLib, alFreqL, 0 );
|
||||
OPLWrite( hAdLib, alFreqH, 0 );
|
||||
|
||||
ADLIB_SetFXInst( &inst );
|
||||
|
||||
while( alLengthLeft )
|
||||
{
|
||||
s = *alSound++;
|
||||
if( ! s )
|
||||
{
|
||||
OPLWrite( hAdLib, alFreqH+0, 0 );
|
||||
}
|
||||
else
|
||||
{
|
||||
OPLWrite( hAdLib, alFreqL+0, s );
|
||||
OPLWrite( hAdLib, alFreqH+0, alBlock );
|
||||
}
|
||||
if( ! ( --alLengthLeft ) )
|
||||
{
|
||||
OPLWrite( hAdLib, alFreqH+0, 0 );
|
||||
}
|
||||
YM3812UpdateOne( hAdLib, ptr, 157 );
|
||||
ptr += 157;
|
||||
}
|
||||
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
W16 *sqHack, *sqHackPtr;
|
||||
W32 sqHackLen, sqHackSeqLen;
|
||||
W32 sqHackTime;
|
||||
W32 alTimeCount;
|
||||
|
||||
#define ADLIB_MUSIC_SPEED 44100
|
||||
#define ADLIB_MUSIC_BYPS (ADLIB_MUSIC_SPEED*2) // bytes per second (16 bit)
|
||||
|
||||
typedef struct
|
||||
{
|
||||
W16 length;
|
||||
W16 values[ 1 ];
|
||||
|
||||
} musicGroup_t;
|
||||
|
||||
musicGroup_t *music;
|
||||
|
||||
/*
|
||||
-----------------------------------------------------------------------------
|
||||
Function: ADLIB_LoadMusic() -Setup music decoder.
|
||||
|
||||
Parameters: musbuffer -[in] musicGroup_t data structure.
|
||||
|
||||
Returns: Nothing.
|
||||
|
||||
Notes:
|
||||
|
||||
-----------------------------------------------------------------------------
|
||||
*/
|
||||
PUBLIC void ADLIB_LoadMusic( void *musbuffer )
|
||||
{
|
||||
music = (musicGroup_t *)musbuffer;
|
||||
sqHackPtr = music->values;
|
||||
sqHackLen = music->length;
|
||||
sqHackTime = alTimeCount = 0;
|
||||
}
|
||||
|
||||
/*
|
||||
-----------------------------------------------------------------------------
|
||||
Function: ADLIB_UpdateMusic() -Decode adlib music sound.
|
||||
|
||||
Parameters: size -[in] Number of bytes to write to buffer.
|
||||
buffer -[in/out] Hold decoded sound data.
|
||||
|
||||
Returns: 1 on success, otherwise 0.
|
||||
|
||||
Notes: Data written to buffer is 44100/16/mono
|
||||
|
||||
-----------------------------------------------------------------------------
|
||||
*/
|
||||
PUBLIC W32 ADLIB_UpdateMusic( W32 size, void *buffer )
|
||||
{
|
||||
W8 *al; //[2] {a, v} (register, value)
|
||||
W16 *ptr;
|
||||
W32 n;
|
||||
W32 AdLibTicks;
|
||||
_boolean flag = false;
|
||||
|
||||
|
||||
AdLibTicks = size;
|
||||
|
||||
ptr = (PW16)buffer;
|
||||
|
||||
for( n = 0 ; n < AdLibTicks; ++n )
|
||||
{
|
||||
while( sqHackLen && (sqHackTime <= alTimeCount) )
|
||||
{
|
||||
al = (PW8)sqHackPtr++;
|
||||
sqHackTime = alTimeCount + *sqHackPtr++;
|
||||
OPLWrite( hAdLib, al[ 0 ], al[ 1 ] );
|
||||
sqHackLen -= 4;
|
||||
}
|
||||
alTimeCount++;
|
||||
|
||||
|
||||
// now we'll get AdLib Output!
|
||||
YM3812UpdateOne( hAdLib, ptr, 63 );
|
||||
ptr += 63;
|
||||
|
||||
if( sqHackLen <= 0 )
|
||||
{
|
||||
return (long)ptr - (long)buffer;
|
||||
}
|
||||
}
|
||||
|
||||
return AdLibTicks * ADLIB_MUSIC_BYPS / 700;
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
-----------------------------------------------------------------------------
|
||||
Function: ADLIB_getLength() -Get music length in milliseconds.
|
||||
|
||||
Parameters: musbuffer -[in] musicGroup_t data structure.
|
||||
|
||||
Returns: On success length in milliseconds.
|
||||
|
||||
Notes: Data written to buffer is 44100/16/mono
|
||||
|
||||
-----------------------------------------------------------------------------
|
||||
*/
|
||||
PUBLIC W32 ADLIB_getLength( void *musbuffer )
|
||||
{
|
||||
W16 *Ptr, Len;
|
||||
W32 Time;
|
||||
W32 alTime;
|
||||
|
||||
Ptr = ((musicGroup_t*)musbuffer)->values;
|
||||
Len = ((musicGroup_t*)musbuffer)->length;
|
||||
Time = alTime = 0;
|
||||
|
||||
|
||||
for( ; ; )
|
||||
{
|
||||
while( Len && Time <= alTime )
|
||||
{
|
||||
Ptr++;
|
||||
Time = alTime + *Ptr++;
|
||||
Len -= 4;
|
||||
}
|
||||
alTime++;
|
||||
if( Len <= 0 )
|
||||
{
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
return alTime * 1000 / 700; // in milliseconds
|
||||
}
|
||||
90
wolf3d/wolfextractor/adlib/adlib.h
Normal file
90
wolf3d/wolfextractor/adlib/adlib.h
Normal file
@@ -0,0 +1,90 @@
|
||||
/*
|
||||
|
||||
Copyright (C) 2004 Michael Liebscher
|
||||
|
||||
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.
|
||||
|
||||
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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||
|
||||
*/
|
||||
|
||||
/*
|
||||
* adlib.h: Interface to adlib hardware.
|
||||
*
|
||||
* Author: Michael Liebscher <johnnycanuck@users.sourceforge.net>
|
||||
* Date: 2004
|
||||
*
|
||||
* Acknowledgement:
|
||||
* This code was derived from Wolfenstein 3-D, and was originally
|
||||
* written by Id Software, Inc.
|
||||
*
|
||||
*/
|
||||
|
||||
/*
|
||||
Notes:
|
||||
|
||||
This module is implemented by adlib.c
|
||||
*/
|
||||
|
||||
#ifndef __ADLIB_H__
|
||||
#define __ADLIB_H__
|
||||
|
||||
|
||||
#include "../../../common/arch.h"
|
||||
|
||||
|
||||
#define MAX_WAV_SIZE 100000
|
||||
|
||||
|
||||
typedef struct
|
||||
{
|
||||
W8 mChar, cChar,
|
||||
mScale, cScale,
|
||||
mAttack, cAttack,
|
||||
mSus, cSus,
|
||||
mWave, cWave,
|
||||
nConn,
|
||||
|
||||
// These are only for Muse - these bytes are really unused
|
||||
voice,
|
||||
mode,
|
||||
unused[ 3 ];
|
||||
|
||||
} Instrument;
|
||||
|
||||
typedef struct
|
||||
{
|
||||
char length[4];
|
||||
char priority[2];
|
||||
|
||||
} SoundCommon;
|
||||
|
||||
typedef struct
|
||||
{
|
||||
SoundCommon common;
|
||||
Instrument inst;
|
||||
W8 block;
|
||||
W8 data[ 1 ];
|
||||
|
||||
} AdLibSound;
|
||||
|
||||
|
||||
extern W8 ADLIB_Init();
|
||||
extern void ADLIB_Shutdown();
|
||||
|
||||
extern W8 ADLIB_DecodeSound( AdLibSound *sound, W8 *buffer, W32 *length );
|
||||
|
||||
|
||||
|
||||
#endif /* __ADLIB_H__ */
|
||||
|
||||
1032
wolf3d/wolfextractor/adlib/fmopl.c
Normal file
1032
wolf3d/wolfextractor/adlib/fmopl.c
Normal file
File diff suppressed because it is too large
Load Diff
134
wolf3d/wolfextractor/adlib/fmopl.h
Normal file
134
wolf3d/wolfextractor/adlib/fmopl.h
Normal file
@@ -0,0 +1,134 @@
|
||||
/* tab setting : 4
|
||||
*
|
||||
* FM OPL2 synth
|
||||
*
|
||||
* Copyright (C) 1999,2000 Tatsuyuki Satoh , MultiArcadeMachineEmulator development
|
||||
* Modified for Wolfenstein 3D by Steven Fuller
|
||||
* Future Modifications by DarkOne for WolfGL! (wolfgl.narod.ru)
|
||||
*/
|
||||
#ifndef __FMOPL_H_
|
||||
#define __FMOPL_H_
|
||||
|
||||
// Register addresses
|
||||
// Operator stuff
|
||||
#define alChar 0x20
|
||||
#define alScale 0x40
|
||||
#define alAttack 0x60
|
||||
#define alSus 0x80
|
||||
#define alWave 0xe0
|
||||
// Channel stuff
|
||||
#define alFreqL 0xa0
|
||||
#define alFreqH 0xb0
|
||||
#define alFeedCon 0xc0
|
||||
// Global stuff
|
||||
#define alEffects 0xbd
|
||||
|
||||
#define OPL_OUTPUT_BIT 16
|
||||
|
||||
typedef unsigned char UINT8; /* unsigned 8bit */
|
||||
typedef unsigned short UINT16; /* unsigned 16bit */
|
||||
typedef unsigned long UINT32; /* unsigned 32bit */
|
||||
typedef signed char INT8; /* signed 8bit */
|
||||
typedef signed short INT16; /* signed 16bit */
|
||||
typedef signed long INT32; /* signed 32bit */
|
||||
|
||||
#if (OPL_OUTPUT_BIT==16)
|
||||
typedef INT16 OPLSAMPLE;
|
||||
#endif
|
||||
#if (OPL_OUTPUT_BIT==8)
|
||||
typedef unsigned char OPLSAMPLE;
|
||||
#endif
|
||||
|
||||
/* ---------- OPL one of slot ---------- */
|
||||
typedef struct fm_opl_slot
|
||||
{
|
||||
INT32 TL; /* total level :TL << 8 */
|
||||
INT32 TLL; /* adjusted now TL */
|
||||
UINT8 KSR; /* key scale rate :(shift down bit) */
|
||||
INT32 *AR; /* attack rate :&AR_TABLE[AR<<2] */
|
||||
INT32 *DR; /* decay rate :&DR_TALBE[DR<<2] */
|
||||
INT32 SL; /* sustin level :SL_TALBE[SL] */
|
||||
INT32 *RR; /* release rate :&DR_TABLE[RR<<2] */
|
||||
UINT8 ksl; /* keyscale level :(shift down bits) */
|
||||
UINT8 ksr; /* key scale rate :kcode>>KSR */
|
||||
UINT32 mul; /* multiple :ML_TABLE[ML] */
|
||||
UINT32 Cnt; /* frequency count : */
|
||||
UINT32 Incr; /* frequency step : */
|
||||
/* envelope generator state */
|
||||
UINT8 eg_typ; /* envelope type flag */
|
||||
UINT8 evm; /* envelope phase */
|
||||
INT32 evc; /* envelope counter */
|
||||
INT32 eve; /* envelope counter end point */
|
||||
INT32 evs; /* envelope counter step */
|
||||
INT32 evsa; /* envelope step for AR :AR[ksr] */
|
||||
INT32 evsd; /* envelope step for DR :DR[ksr] */
|
||||
INT32 evsr; /* envelope step for RR :RR[ksr] */
|
||||
/* LFO */
|
||||
UINT8 ams; /* ams flag */
|
||||
UINT8 vib; /* vibrate flag */
|
||||
/* wave selector */
|
||||
INT32 **wavetable;
|
||||
} OPL_SLOT;
|
||||
|
||||
/* ---------- OPL one of channel ---------- */
|
||||
typedef struct fm_opl_channel
|
||||
{
|
||||
OPL_SLOT SLOT[2];
|
||||
UINT8 CON; /* connection type */
|
||||
UINT8 FB; /* feed back :(shift down bit) */
|
||||
INT32 *connect1; /* slot1 output pointer */
|
||||
INT32 *connect2; /* slot2 output pointer */
|
||||
INT32 op1_out[2]; /* slot1 output for selfeedback */
|
||||
/* phase generator state */
|
||||
UINT32 block_fnum; /* block+fnum : */
|
||||
UINT8 kcode; /* key code : KeyScaleCode */
|
||||
UINT32 fc; /* Freq. Increment base */
|
||||
UINT32 ksl_base; /* KeyScaleLevel Base step */
|
||||
UINT8 keyon; /* key on/off flag */
|
||||
} OPL_CH;
|
||||
|
||||
/* OPL state */
|
||||
typedef struct fm_opl_f {
|
||||
UINT8 type; /* chip type */
|
||||
int clock; /* master clock (Hz) */
|
||||
int rate; /* sampling rate (Hz) */
|
||||
double freqbase; /* frequency base */
|
||||
UINT8 address; /* address register */
|
||||
UINT32 mode; /* Reg.08 : CSM , notesel,etc. */
|
||||
/* FM channel slots */
|
||||
OPL_CH *P_CH; /* pointer of CH */
|
||||
int max_ch; /* maximum channel */
|
||||
/* Rythm sention */
|
||||
UINT8 rythm; /* Rythm mode , key flag */
|
||||
|
||||
INT32 AR_TABLE[75]; /* attack rate tables */
|
||||
INT32 DR_TABLE[75]; /* decay rate tables */
|
||||
UINT32 FN_TABLE[1024]; /* fnumber -> increment counter */
|
||||
/* LFO */
|
||||
INT32 *ams_table;
|
||||
INT32 *vib_table;
|
||||
INT32 amsCnt;
|
||||
INT32 amsIncr;
|
||||
INT32 vibCnt;
|
||||
INT32 vibIncr;
|
||||
/* wave selector enable flag */
|
||||
UINT8 wavesel;
|
||||
} FM_OPL;
|
||||
|
||||
/* ---------- Generic interface section ---------- */
|
||||
#define OPL_TYPE_YM3812 0
|
||||
|
||||
FM_OPL *OPLCreate(int type, int clock, int rate);
|
||||
void OPLDestroy(FM_OPL *OPL);
|
||||
|
||||
void OPLResetChip(FM_OPL *OPL);
|
||||
void OPLWrite(FM_OPL *OPL,int a,int v);
|
||||
unsigned char OPLRead(FM_OPL *OPL,int a);
|
||||
|
||||
void YM3812UpdateOne(FM_OPL *OPL, void *buffer, int length);
|
||||
|
||||
#endif /* __FMPOL_H */
|
||||
/* end of file */
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user