museum/lba1-classic
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

File encoding preservation + content structure to help browse the code

Browse Source
This commit is contained in:
Alexandre Fontoura
2021-10-28 15:20:01 +01:00
parent c5f4f6ba25
commit 23151219b2
90 changed files with 1946 additions and 1815 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
LIB386/LIB_MIDI/MIDI.C
View File

@@ -1,13 +1,13 @@
//ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//ÛÛ ÛÛ
//ÛÛ Project: IBM Audio Interface Library for 32-bit DPMI (AIL/32) ÛÛ
//ÛÛ Author: John Miles ÛÛ
//ÛÛ ÛÛ
//ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//ÛÛ ÛÛ
//ÛÛ Gestionnaire Midi for Adeline Soft le 2/4/94 ÛÛ
//ÛÛ ÛÛ
//ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//████████████████████████████████████████████████████████████████████████████
//██ ██
//██ Project: IBM Audio Interface Library for 32-bit DPMI (AIL/32) ██
//██ Author: John Miles ██
//██ ██
//████████████████████████████████████████████████████████████████████████████
//██ ██
//██ Gestionnaire Midi for Adeline Soft le 2/4/94 ██
//██ ██
//████████████████████████████████████████████████████████████████████████████
#include <process.h>
#include <stdio.h>
@@ -60,7 +60,7 @@ WORD MidiLoop = FALSE ;
LONG MaxVolume = 100 ;
//ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//████████████████████████████████████████████████████████████████████████████
void AskMidiVars( char ***listidentifier, LONG **ptrvars )
{
@@ -68,7 +68,7 @@ void AskMidiVars( char ***listidentifier, LONG **ptrvars )
*ptrvars = &Midi_Base ;
}
//ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//████████████████████████████████████████████████████████████████████████████
//
// Standard C routine for Global Timbre Library access
//
@@ -148,7 +148,7 @@ void *load_global_timbre(unsigned short bank, unsigned short patch)
return((void *)(ptrGTL + GTL_hdr->offset)) ;
}
//ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//████████████████████████████████████████████████████████████████████████████
LONG InitMidiDLL( char *driverpathname )
{
@@ -228,7 +228,7 @@ LONG InitMidiDLL( char *driverpathname )
return TRUE ;
}
//ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//████████████████████████████████████████████████████████████████████████████
LONG InitMidi()
{
@@ -295,7 +295,7 @@ LONG InitMidi()
return TRUE ;
}
//ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//████████████████████████████████████████████████████████████████████████████
void InitPathMidiSampleFile( UBYTE *path )
{
@@ -306,7 +306,7 @@ void InitPathMidiSampleFile( UBYTE *path )
strcpy(MidiPath, path ) ;
}
//ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//████████████████████████████████████████████████████████████████████████████
void ClearMidi()
{
@@ -316,7 +316,7 @@ void ClearMidi()
hseq = -1 ;
}
//ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//████████████████████████████████████████████████████████████████████████████
void PlayMidi( /*char *filename*/ UBYTE *ail_buffer )
{
@@ -384,7 +384,7 @@ void PlayMidi( /*char *filename*/ UBYTE *ail_buffer )
AIL_start_sequence(hdriver,hseq) ;
}
//ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//████████████████████████████████████████████████████████████████████████████
void StopMidi()
{
@@ -396,7 +396,7 @@ void StopMidi()
}
}
//ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//████████████████████████████████████████████████████████████████████████████
LONG IsMidiPlaying()
{
@@ -408,7 +408,7 @@ LONG IsMidiPlaying()
return FALSE ;
}
//ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//████████████████████████████████████████████████████████████████████████████
void FadeMidiDown( WORD nbsec )
{
@@ -418,7 +418,7 @@ void FadeMidiDown( WORD nbsec )
}
}
//ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//████████████████████████████████████████████████████████████████████████████
void FadeMidiUp( WORD nbsec )
{
@@ -427,7 +427,7 @@ void FadeMidiUp( WORD nbsec )
AIL_set_relative_volume(hdriver, 0, MaxVolume, 1000 * nbsec ) ;
}
}
//ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//████████████████████████████████████████████████████████████████████████████
void WaitFadeMidi()
{
@@ -437,7 +437,7 @@ void WaitFadeMidi()
}
}
//ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//████████████████████████████████████████████████████████████████████████████
void VolumeMidi( WORD volume )
{
@@ -447,7 +447,7 @@ void VolumeMidi( WORD volume )
}
}
//ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//████████████████████████████████████████████████████████████████████████████
void DoLoopMidi()
{
@@ -458,4 +458,4 @@ void DoLoopMidi()
AIL_start_sequence(hdriver,hseq) ;
}
//ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//████████████████████████████████████████████████████████████████████████████