445 lines
14 KiB
C
445 lines
14 KiB
C
|
/****************************************************************************
|
|||
|
|
*
|
|||
|
|
* Digital Sound Interface Kit (DSIK)
|
|||
|
|
* Version 2.00
|
|||
|
|
*
|
|||
|
|
* by Carlos Hasan
|
|||
|
|
*
|
|||
|
|
* Filename: play.c
|
|||
|
|
* Version: Revision 1.0
|
|||
|
|
*
|
|||
|
|
* Language: WATCOM C
|
|||
|
|
* Environment: IBM PC (DOS/4GW)
|
|||
|
|
*
|
|||
|
|
* Description: DSIK Module Player.
|
|||
|
|
*
|
|||
|
|
****************************************************************************/
|
|||
|
|
|
|||
|
|
#include <stdio.h>
|
|||
|
|
#include <stdlib.h>
|
|||
|
|
#include <string.h>
|
|||
|
|
#include <process.h>
|
|||
|
|
#include <direct.h>
|
|||
|
|
#include <ctype.h>
|
|||
|
|
#include <conio.h>
|
|||
|
|
#include <i86.h>
|
|||
|
|
#include "audio.h"
|
|||
|
|
#include "import.h"
|
|||
|
|
#include "timer.h"
|
|||
|
|
|
|||
|
|
#define KB_FF 0x4D00
|
|||
|
|
#define KB_RW 0x4B00
|
|||
|
|
#define KB_ESC 0x001B
|
|||
|
|
#define KB_PAUSE 0x0020
|
|||
|
|
#define KB_SHELL 0x4200
|
|||
|
|
#define KB_NEXT 0x000D
|
|||
|
|
#define KB_PLUS 0x002B
|
|||
|
|
#define KB_MINUS 0x002D
|
|||
|
|
#define KB_INCSPD 0x007D
|
|||
|
|
#define KB_DECSPD 0x007B
|
|||
|
|
#define KB_TRACE 0x0054
|
|||
|
|
#define KB_NOTRACE 0x0050
|
|||
|
|
|
|||
|
|
char *keytable = "123456789ABCDEFG";
|
|||
|
|
|
|||
|
|
volatile int ticks;
|
|||
|
|
|
|||
|
|
|
|||
|
|
/* TheDraw C Crunched Screen Image */
|
|||
|
|
#define WIDTH 80
|
|||
|
|
#define HEIGHT 50
|
|||
|
|
#define IMGSIZ 962
|
|||
|
|
|
|||
|
|
//#define PROFILE
|
|||
|
|
|
|||
|
|
unsigned char image[] = {
|
|||
|
|
"\x0F\x11 DSIK Module Player Version 2.00\x19\x0E""Copyright (C) 1"
|
|||
|
|
"995 Carlos Hasan \x18\x09\x1AO<EFBFBD>\x18<EFBFBD><EFBFBD><EFBFBD>Song Information:\x1A\x15<EFBFBD>"
|
|||
|
|
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Playback Device:\x1A\x0DÍ»<EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD> Songname:\x19\x1D<EFBFBD><EFBFBD><EFBFBD><EFBFBD>\x19"
|
|||
|
|
"\x1E<EFBFBD><EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD> Filename:\x19\x0E""CPU used:\x19\x05<EFBFBD><EFBFBD><EFBFBD><EFBFBD>\x1A\x1EĶ<EFBFBD>"
|
|||
|
|
"<EFBFBD>\x18<EFBFBD><EFBFBD>\x1A\x27Ķ<EFBFBD><EFBFBD><EFBFBD>\x19\x1E<EFBFBD><EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD> Patt:Beat:Tick:\x19\x0ATemp"
|
|||
|
|
"o:\x19\x06<EFBFBD><EFBFBD><EFBFBD><EFBFBD>\x1A\x1EĶ<EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD> Position:\x19\x08Pattern:\x19\x04"
|
|||
|
|
"Line:\x19\x02<EFBFBD><EFBFBD><EFBFBD><EFBFBD> I/O Port:\x19\x05IRQ:\x19\x03""DMA:\x19\x02<EFBFBD><EFBFBD><EFBFBD>\x18"
|
|||
|
|
"<EFBFBD><EFBFBD>\x1A\x27ͼ<EFBFBD><EFBFBD><EFBFBD>\x1A\x1Eͼ<EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD>\x1A)<29><><EFBFBD>\x1A <20><>\x18\x1AO<EFBFBD>\x18<EFBFBD><EFBFBD><EFBFBD>"
|
|||
|
|
"Song Tracks:\x1A\x1AÍ»<EFBFBD><EFBFBD><EFBFBD><EFBFBD>VU Meters:\x1A\x13Í»<EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD> 01\x19$<24><><EFBFBD>"
|
|||
|
|
"<EFBFBD>\x19\x1E<EFBFBD><EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD> 02\x19$<24><><EFBFBD><EFBFBD>\x19\x1E<EFBFBD><EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD> 03\x19$<24><><EFBFBD><EFBFBD>\x19\x1E"
|
|||
|
|
"<EFBFBD><EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD> 04\x19$<24><><EFBFBD><EFBFBD>\x19\x1E<EFBFBD><EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD> 05\x19$<24><><EFBFBD><EFBFBD>\x19\x1E<EFBFBD><EFBFBD><EFBFBD>\x18"
|
|||
|
|
"<EFBFBD><EFBFBD> 06\x19$<24><><EFBFBD><EFBFBD>\x19\x1E<EFBFBD><EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD> 07\x19$<24><><EFBFBD><EFBFBD>\x19\x1E<EFBFBD><EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD> 08\x19"
|
|||
|
|
"$<24><><EFBFBD><EFBFBD>\x19\x1E<EFBFBD><EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD> 09\x19$<24><><EFBFBD><EFBFBD>\x19\x1E<EFBFBD><EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD> 10\x19$<24><><EFBFBD><EFBFBD>\x19"
|
|||
|
|
"\x1E<EFBFBD><EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD> 11\x19$<24><><EFBFBD><EFBFBD>\x19\x1E<EFBFBD><EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD> 12\x19$<24><><EFBFBD><EFBFBD>\x19\x1E<EFBFBD><EFBFBD><EFBFBD>"
|
|||
|
|
"\x18<EFBFBD><EFBFBD> 13\x19$<24><><EFBFBD><EFBFBD>\x19\x1E<EFBFBD><EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD> 14\x19$<24><><EFBFBD><EFBFBD>\x19\x1E<EFBFBD><EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD> "
|
|||
|
|
"15\x19$<24><><EFBFBD><EFBFBD>\x19\x1E<EFBFBD><EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD> 16\x19$<24><><EFBFBD><EFBFBD>\x19\x1E<EFBFBD><EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD>\x1A\x27"
|
|||
|
|
"ͼ<EFBFBD><EFBFBD><EFBFBD>\x1A\x1Eͼ<EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD>\x1A)<29><><EFBFBD>\x1A <20><>\x18\x1AO<EFBFBD>\x18<EFBFBD><EFBFBD><EFBFBD>Instrument"
|
|||
|
|
" Names:\x1A""8Í»<EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD> 01\x19\x27""17\x19\x1D<EFBFBD><EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD> 02\x19\x27"
|
|||
|
|
"18\x19\x1D<EFBFBD><EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD> 03\x19\x27""19\x19\x1D<EFBFBD><EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD> 04\x19\x27""2"
|
|||
|
|
"0\x19\x1D<EFBFBD><EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD> 05\x19\x27""21\x19\x1D<EFBFBD><EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD> 06\x19\x27""22"
|
|||
|
|
"\x19\x1D<EFBFBD><EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD> 07\x19\x27""23\x19\x1D<EFBFBD><EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD> 08\x19\x27""24\x19"
|
|||
|
|
"\x1D<EFBFBD><EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD> 09\x19\x27""25\x19\x1D<EFBFBD><EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD> 10\x19\x27""26\x19\x1D"
|
|||
|
|
"<EFBFBD><EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD> 11\x19\x27""27\x19\x1D<EFBFBD><EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD> 12\x19\x27""28\x19\x1D<EFBFBD>"
|
|||
|
|
"<EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD> 13\x19\x27""29\x19\x1D<EFBFBD><EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD> 14\x19\x27""30\x19\x1D<EFBFBD><EFBFBD>"
|
|||
|
|
"<EFBFBD>\x18<EFBFBD><EFBFBD> 15\x19\x27""31\x19\x1D<EFBFBD><EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD> 16\x19\x27""32\x19\x1D<EFBFBD><EFBFBD><EFBFBD>"
|
|||
|
|
"\x18<EFBFBD><EFBFBD>\x1AJͼ<EFBFBD><EFBFBD>\x18<EFBFBD><EFBFBD>\x1AL<EFBFBD><EFBFBD>\x18"};
|
|||
|
|
|
|||
|
|
|
|||
|
|
#define VPTR(x,y) (void*)(0xb8000+2*(x)+160*(y))
|
|||
|
|
|
|||
|
|
void setmode80x25(void)
|
|||
|
|
{
|
|||
|
|
union REGS r;
|
|||
|
|
r.w.ax = 0x0003;
|
|||
|
|
int386(0x10,&r,&r);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
void setmode80x50(void)
|
|||
|
|
{
|
|||
|
|
union REGS r;
|
|||
|
|
r.w.ax = 0x0003;
|
|||
|
|
int386(0x10,&r,&r);
|
|||
|
|
r.w.ax = 0x1112;
|
|||
|
|
r.h.bl = 0x00;
|
|||
|
|
int386(0x10,&r,&r);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
void waitvr(void)
|
|||
|
|
{
|
|||
|
|
while (!(inp(0x3da) & 8)) ;
|
|||
|
|
while (inp(0x3da) & 8) ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
void hidecursor(void)
|
|||
|
|
{
|
|||
|
|
outpw(0x3d4,0x100a);
|
|||
|
|
outpw(0x3d4,0x100b);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
void setborder(int color)
|
|||
|
|
{
|
|||
|
|
inp(0x3da);
|
|||
|
|
outp(0x3c0,0x31);
|
|||
|
|
outp(0x3c0,color);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
void drawtext(int x, int y, char *text, int color)
|
|||
|
|
{
|
|||
|
|
short *ptr = (short*)VPTR(x,y);
|
|||
|
|
color <<= 8;
|
|||
|
|
while (*text) {
|
|||
|
|
*ptr++ = *text++ | color;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
void drawchars(int x, int y, int c, int count, int color)
|
|||
|
|
{
|
|||
|
|
short *ptr = (short*)VPTR(x,y);
|
|||
|
|
c |= color << 8;
|
|||
|
|
while (count--) *ptr++ = c;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
void drawimage(unsigned char *image, int len)
|
|||
|
|
{
|
|||
|
|
unsigned char *endimage,*p,*line;
|
|||
|
|
unsigned int c,a,x,y;
|
|||
|
|
|
|||
|
|
a = 0;
|
|||
|
|
p = line = (unsigned char *)VPTR(0,0);
|
|||
|
|
endimage = image + len;
|
|||
|
|
while (image < endimage) {
|
|||
|
|
if ((c = *image++) >= 32) {
|
|||
|
|
*p++ = c;
|
|||
|
|
*p++ = a;
|
|||
|
|
}
|
|||
|
|
else {
|
|||
|
|
if (c <= 15) {
|
|||
|
|
a = (a & 0xf0) | (c & 0x0f);
|
|||
|
|
}
|
|||
|
|
else if (c >= 16 && c <= 23) {
|
|||
|
|
a = (a & 0x8f) | ((c & 0x07) << 4);
|
|||
|
|
}
|
|||
|
|
else if (c == 24) {
|
|||
|
|
line += (WIDTH<<1);
|
|||
|
|
p = line;
|
|||
|
|
}
|
|||
|
|
else if (c == 25) {
|
|||
|
|
x = *image++;
|
|||
|
|
do {
|
|||
|
|
*p++ = 0x20;
|
|||
|
|
*p++ = a;
|
|||
|
|
} while (x--);
|
|||
|
|
}
|
|||
|
|
else if (c == 26) {
|
|||
|
|
x = *image++;
|
|||
|
|
y = *image++;
|
|||
|
|
do {
|
|||
|
|
*p++ = y;
|
|||
|
|
*p++ = a;
|
|||
|
|
} while (x--);
|
|||
|
|
}
|
|||
|
|
else if (c == 27) {
|
|||
|
|
a ^= 0x80;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
void starttimer(void)
|
|||
|
|
{
|
|||
|
|
outp(0x61,inp(0x61) | 0x01);
|
|||
|
|
outp(0x43,0xb4);
|
|||
|
|
outp(0x42,0xff);
|
|||
|
|
outp(0x42,0xff);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
int readtimer(void)
|
|||
|
|
{
|
|||
|
|
int n;
|
|||
|
|
outp(0x43,0xb0);
|
|||
|
|
n = inp(0x42);
|
|||
|
|
n += inp(0x42) << 8;
|
|||
|
|
return 0x10000L - n;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
void timer(void)
|
|||
|
|
{
|
|||
|
|
#ifdef PROFILE
|
|||
|
|
setborder(15);
|
|||
|
|
#endif
|
|||
|
|
starttimer();
|
|||
|
|
dPoll();
|
|||
|
|
ticks = (ticks+readtimer())>>1;
|
|||
|
|
#ifdef PROFILE
|
|||
|
|
setborder(0);
|
|||
|
|
#endif
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
void initscreen(DSM *M, SoundCard *SC, char *path)
|
|||
|
|
{
|
|||
|
|
char buf[40];
|
|||
|
|
int i;
|
|||
|
|
|
|||
|
|
setmode80x50();
|
|||
|
|
hidecursor();
|
|||
|
|
drawimage(image,IMGSIZ);
|
|||
|
|
drawtext(13,3,M->Header.ModuleName,0x13);
|
|||
|
|
drawtext(13,4,path,0x13);
|
|||
|
|
drawtext(47,3,dGetDriverStruc(SC->ID)->Name,0x13);
|
|||
|
|
sprintf(buf,"%d-bit %s at %d hertz",
|
|||
|
|
SC->Modes & AF_16BITS ? 16 : 8,
|
|||
|
|
SC->Modes & AF_STEREO ? "stereo" : "mono",
|
|||
|
|
SC->SampleRate);
|
|||
|
|
drawtext(47,5,buf,0x13);
|
|||
|
|
sprintf(buf,"%03Xh",SC->Port);
|
|||
|
|
drawtext(56,7,buf,0x13);
|
|||
|
|
sprintf(buf,"%d",SC->IrqLine);
|
|||
|
|
drawtext(66,7,buf,0x13);
|
|||
|
|
sprintf(buf,"%d",SC->DmaChannel);
|
|||
|
|
drawtext(74,7,buf,0x13);
|
|||
|
|
for (i = 0; i < 16; i++) {
|
|||
|
|
if (i < M->Header.NumSamples)
|
|||
|
|
drawtext(6,32+i,M->Samples[i]->SampleName,0x13);
|
|||
|
|
if (i+16 < M->Header.NumSamples)
|
|||
|
|
drawtext(48,32+i,M->Samples[i+16]->SampleName,0x13);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
void donescreen(void)
|
|||
|
|
{
|
|||
|
|
setmode80x25();
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
void updatescreen(DSM *M, MHdr *P)
|
|||
|
|
{
|
|||
|
|
static char buf[80];
|
|||
|
|
static char notes[] =
|
|||
|
|
"C-n\0C#n\0D-n\0D#n\0E-n\0F-n\0F#n\0G-n\0G#n\0A-n\0A#n\0B-n\0";
|
|||
|
|
MTrk *Trk;
|
|||
|
|
char *p;
|
|||
|
|
int i,n;
|
|||
|
|
|
|||
|
|
sprintf(buf,"%2d.%1d%%",(100*ticks)/TICKS(70),
|
|||
|
|
((1000*ticks)/TICKS(70))%10);
|
|||
|
|
drawtext(36,4,buf,0x13);
|
|||
|
|
if (P->BreakFlag != PB_JUMP) {
|
|||
|
|
sprintf(buf,"%03d:%02d:%02d",P->OrderPos,P->PattRow>>4,P->PattRow&15);
|
|||
|
|
drawtext(18,6,buf,0x13);
|
|||
|
|
sprintf(buf,"%02d/%03d",P->Tempo,P->BPM);
|
|||
|
|
drawtext(35,6,buf,0x13);
|
|||
|
|
sprintf(buf,"%03d/%03d",P->OrderPos,P->OrderLen);
|
|||
|
|
drawtext(12,7,buf,0x13);
|
|||
|
|
sprintf(buf,"%03d",P->PattNum);
|
|||
|
|
drawtext(29,7,buf,0x13);
|
|||
|
|
sprintf(buf,"%02d",P->PattRow);
|
|||
|
|
drawtext(39,7,buf,0x13);
|
|||
|
|
}
|
|||
|
|
for (i = 0, Trk = P->Tracks; i < MAXTRACKS; i++, Trk++) {
|
|||
|
|
if (!(n = Trk->Note))
|
|||
|
|
drawtext(6,12+i,"---",0x19);
|
|||
|
|
else {
|
|||
|
|
n--;
|
|||
|
|
notes[4*(n % 12)+2] = '0' + (n / 12);
|
|||
|
|
drawtext(6,12+i,¬es[4*(n % 12)],0x19);
|
|||
|
|
}
|
|||
|
|
sprintf(buf,"%02d",Trk->Volume);
|
|||
|
|
drawtext(10,12+i,buf,0x19);
|
|||
|
|
if (((n = Trk->Sample) != 0) && (n <= M->Header.NumSamples)) {
|
|||
|
|
n--;
|
|||
|
|
p = M->Samples[n]->SampleName;
|
|||
|
|
n = strlen(p);
|
|||
|
|
drawtext(13,12+i,p,0x19);
|
|||
|
|
drawchars(13+n,12+i,0x20,28-n,0x19);
|
|||
|
|
}
|
|||
|
|
if ((n = (29*Trk->VUMeter)>>6) > 29) n = 29;
|
|||
|
|
drawchars(47,12+i,0xfe,n,0x1b);
|
|||
|
|
drawchars(47+n,12+i,0xfe,29-n,0x19);
|
|||
|
|
if (Trk->Flags & AM_PAUSE) drawchars(5,12+i,0x4d,1,0x1b);
|
|||
|
|
else drawchars(5,12+i, dGetVoiceStatus(i) == PS_PLAYING ? 0x07:0x20,1,0x15);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
int main(int argc, char *argv[])
|
|||
|
|
{
|
|||
|
|
SoundCard SC;
|
|||
|
|
DSM *M;
|
|||
|
|
MHdr *P;
|
|||
|
|
DIR *d;
|
|||
|
|
char path[_MAX_PATH];
|
|||
|
|
char drive[_MAX_DRIVE],dir[_MAX_DIR],name[_MAX_NAME],ext[_MAX_EXT];
|
|||
|
|
int i,j,c,form;
|
|||
|
|
|
|||
|
|
printf("DSIK Module Player Version 2.00 (C) 1995 Carlos Hasan\n");
|
|||
|
|
if (argc < 2) {
|
|||
|
|
printf("Use: PLAY modfile[.mod|.nst|.s3m|.mtm|.669|.stm|.dsm]\n");
|
|||
|
|
exit(EXIT_FAILURE);
|
|||
|
|
}
|
|||
|
|
_splitpath(argv[0],drive,dir,name,ext);
|
|||
|
|
_makepath(path,drive,dir,"SETUP",".CFG");
|
|||
|
|
|
|||
|
|
if (dLoadSetup(&SC,path)) {
|
|||
|
|
printf("Please run SETUP.EXE to configure.\n");
|
|||
|
|
exit(EXIT_FAILURE);
|
|||
|
|
}
|
|||
|
|
dRegisterDrivers();
|
|||
|
|
printf("%s at Port %03Xh using IRQ %d on DMA channel %d\n",
|
|||
|
|
dGetDriverStruc(SC.ID)->Name, SC.Port, SC.IrqLine, SC.DmaChannel);
|
|||
|
|
if (dInit(&SC)) {
|
|||
|
|
printf("Error initializing the sound system.\n");
|
|||
|
|
exit(EXIT_FAILURE);
|
|||
|
|
}
|
|||
|
|
atexit((void(*)(void))dDone);
|
|||
|
|
|
|||
|
|
if (dMemAvail())
|
|||
|
|
printf("There are %lu free bytes on the soundcard.\n", dMemAvail());
|
|||
|
|
|
|||
|
|
dInitTimer();
|
|||
|
|
atexit((void(*)(void))dDoneTimer);
|
|||
|
|
dStartTimer(timer,TICKS(70));
|
|||
|
|
|
|||
|
|
for (i = 1; i < argc; i++) {
|
|||
|
|
strupr(argv[i]);
|
|||
|
|
_splitpath(argv[i],drive,dir,name,ext);
|
|||
|
|
if (*ext == 0) strcpy(ext,".*");
|
|||
|
|
_makepath(path,drive,dir,name,ext);
|
|||
|
|
if (!(d = opendir(path)))
|
|||
|
|
printf("File not found: %s\n",path);
|
|||
|
|
else {
|
|||
|
|
printf("Searching module file.\n");
|
|||
|
|
while ((d = readdir(d)) != NULL) {
|
|||
|
|
if (!(d->d_attr & _A_ARCH)) continue;
|
|||
|
|
_makepath(path,drive,dir,d->d_name,"");
|
|||
|
|
_splitpath(path,drive,dir,name,ext);
|
|||
|
|
if (!strcmp(ext,".DSM")) form = FORM_DSM;
|
|||
|
|
else if (!strcmp(ext,".MOD")) form = FORM_MOD;
|
|||
|
|
else if (!strcmp(ext,".NST")) form = FORM_MOD;
|
|||
|
|
else if (!strcmp(ext,".S3M")) form = FORM_S3M;
|
|||
|
|
else if (!strcmp(ext,".MTM")) form = FORM_MTM;
|
|||
|
|
else if (!strcmp(ext,".669")) form = FORM_669;
|
|||
|
|
else if (!strcmp(ext,".STM")) form = FORM_STM;
|
|||
|
|
else {
|
|||
|
|
printf("Unknown file format: %s\n", path);
|
|||
|
|
exit(EXIT_FAILURE);
|
|||
|
|
}
|
|||
|
|
printf("Loading module: %s\n",path);
|
|||
|
|
if (!(M = dImportModule(path,form))) {
|
|||
|
|
printf("Error (%03d) loading %s module file: %s.\n",
|
|||
|
|
dError, path, dErrorMsg[dError]);
|
|||
|
|
exit(EXIT_FAILURE);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
initscreen(M,&SC,d->d_name);
|
|||
|
|
dSetupVoices(M->Header.NumTracks,M->Header.MasterVolume);
|
|||
|
|
dPlayMusic(M);
|
|||
|
|
P = dGetMusicStruc();
|
|||
|
|
while (dGetMusicStatus() != PS_STOPPED) {
|
|||
|
|
updatescreen(M,P);
|
|||
|
|
if (kbhit()) {
|
|||
|
|
if (!(c = toupper(getch()))) c = getch()<<8;
|
|||
|
|
if (c == KB_ESC) {
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
else if (c == KB_PAUSE) {
|
|||
|
|
if (dGetMusicStatus() == PS_PAUSED) dResumeMusic();
|
|||
|
|
else dPauseMusic();
|
|||
|
|
}
|
|||
|
|
else if (c == KB_FF) {
|
|||
|
|
if (P->OrderPos < P->OrderLen) (P->OrderPos)++;
|
|||
|
|
P->PattRow = 0;
|
|||
|
|
P->BreakFlag = PB_JUMP;
|
|||
|
|
}
|
|||
|
|
else if (c == KB_RW) {
|
|||
|
|
if (P->OrderPos > 0) (P->OrderPos)--;
|
|||
|
|
P->PattRow = 0;
|
|||
|
|
P->BreakFlag = PB_JUMP;
|
|||
|
|
}
|
|||
|
|
else if (c == KB_SHELL) {
|
|||
|
|
donescreen();
|
|||
|
|
spawnl(P_WAIT,getenv("COMSPEC"),getenv("COMSPEC"),NULL);
|
|||
|
|
initscreen(M,&SC,d->d_name);
|
|||
|
|
}
|
|||
|
|
else if (c == KB_NEXT) {
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
else if (c == KB_PLUS) {
|
|||
|
|
if (P->MusicVolume <= 251) P->MusicVolume += 4;
|
|||
|
|
else P->MusicVolume = 255;
|
|||
|
|
dSetMusicVolume(P->MusicVolume);
|
|||
|
|
}
|
|||
|
|
else if (c == KB_MINUS) {
|
|||
|
|
if (P->MusicVolume >= 4) P->MusicVolume -= 4;
|
|||
|
|
else P->MusicVolume = 0;
|
|||
|
|
dSetMusicVolume(P->MusicVolume);
|
|||
|
|
}
|
|||
|
|
else if (c == KB_INCSPD) {
|
|||
|
|
if (P->Tempo < 31) (P->Tempo)++;
|
|||
|
|
}
|
|||
|
|
else if (c == KB_DECSPD) {
|
|||
|
|
if (P->Tempo > 1) (P->Tempo)--;
|
|||
|
|
}
|
|||
|
|
else if (c == KB_TRACE) {
|
|||
|
|
P->BreakFlag = PB_TRACE;
|
|||
|
|
}
|
|||
|
|
else if (c == KB_NOTRACE) {
|
|||
|
|
P->BreakFlag = PB_NONE;
|
|||
|
|
}
|
|||
|
|
else {
|
|||
|
|
for (j = 0; j < MAXTRACKS; j++) {
|
|||
|
|
if (c == keytable[j]) {
|
|||
|
|
P->Tracks[j].Flags ^= AM_PAUSE;
|
|||
|
|
dStopVoice(j);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
dStopMusic();
|
|||
|
|
donescreen();
|
|||
|
|
dFreeModule(M);
|
|||
|
|
if (c == KB_ESC) exit(EXIT_FAILURE);
|
|||
|
|
if (dMemAvail())
|
|||
|
|
printf("There are %lu free bytes on the soundcard.\n", dMemAvail());
|
|||
|
|
}
|
|||
|
|
closedir(d);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
return 0;
|
|||
|
|
}
|