💾 Archived View for blitter.com › OLGA › MUSIC › RESOURCES › DOS_TAB_UTILS › TABPLAY › SOURCES › TPL… captured on 2024-08-18 at 19:38:39.
⬅️ Previous capture (2022-06-12)
-=-=-=-=-=-=-
#include <stdio.h> #include <string.h> #include <math.h> #include <dos.h> #include <bios.h> #include <conio.h> #include <stdlib.h> #include "adlib.h" #define PORT 0x388 #define tabs_per_page 1 #define DETUNE 1 /* play DETUNE midi notes lower than standard */ #define LEN 100 void intro(void); void get_tab(char filename[25]); void init_strgs(void); void drawfrets(void); void drawbanjofrets(void); void drawbassfrets(void); void drawnote(int str, int numb); void erasenote(int str, int numb); void status_bar(void); void score_board(void); /* serial midi functions support midi interface (in serl.asm) */ extern void _snon(int ch,int num); extern void _snoff(int ch,int num); extern void _init(void); extern volatile unsigned long int ticks_td; /* various Sound Card FM stuff */ int Drum_Volume=110,Inst_Volume=127,Beats_per_minute=60; int Delay_per_beat; int PIANO[28] ={1,3,3,15,5,0,1,3,15,0,0,0,1,0,7,0,15,7,0,2,4,0,0,0,1,0,0,0 }; int MARIMBA[28] ={0,2,5,15,0,0,0,5,21,0,0,1,1,2,1,-72,15,0,0,0,3,0,0,0,1,0,0,0 }; int KEYBRD2[28] ={2,1,4,15,11,0,2,13,15,0,0,0,1,2,4,59,8,11,0,2,13,0,0,0,1,0,0,0 }; int CLSGTR[28] ={2,1,4,15,32,30,2,3,15,0,0,0,1,2,4,72,8,11,0,2,7,0,0,0,1,0,0,0 }; /*int ACCGTR[28] ={2,1,4,15,11,0,2,3,15,1,0,1,1,2,24,40,8,4,0,2,13,0,0,0,1,0,0,0 };*/ int ACCGTR[28] ={2,1,4,15,40,0,2,13,15,0,1,0,1,2,2,40,8,11,0,2,13,0,0,0,1,0,0,0 }; /* v1.53 int ACCGTR[28] ={2,1,4,15,11,0,2,13,15,0,1,0,1,2,4,40,8,11,0,2,13,0,0,0,1,0,0,0 }; */ int BASSGTR[28] ={1,1,4,15,6,0,2,13,15,0,0,0,1,2,4,2,8,11,0,2,7,0,0,0,1,0,0,0 }; int BANJOLIN[28] ={0,1,3,15,1,0,0,5,1,0,0,1,1,2,1,2,-72,0,0,0,3,0,0,0,1,0,0,0 }; int ELECPNO[28] ={1,1,3,15,5,0,1,3,15,0,0,0,1,0,1,1,15,7,0,2,12,0,0,0,1,0,0,0 }; /* global vars for tplay */ char TabFilename[25]; char instrument[12]; char tuning[6]; char version[6]="1.53�\0"; int data[50][6][80]; int buffer[6]; int string[6]; int tabl[50]; int dashtime=100; /* default timing delay */ unsigned long int tick_1, tick_2, elapsedtime; int dashmax=32; int eraseall=0; int instrnum=4; int vol=64; int tdone=0; int showtab=1; int sb_ok; int strgs=6; /* change for other instruments */ int bass=0; int Fine_Tune=3321; int dest_hw=0; /* instrument table */ char inst[128][16] = { /* instrument1 */ { 0x021,0x011,0x04C,0x000,0x0F1,0x0F2,0x063,0x072, 0x000,0x000,0x004,0x000,0x000,0x000,0x000,0x000 }, { 0x0A5,0x0B1,0x0D2,0x080,0x081,0x0F1,0x003,0x005, 0x000,0x000,0x002,0x000,0x000,0x000,0x000,0x000 }, { 0x072,0x062,0x01C,0x005,0x051,0x052,0x003,0x013, 0x000,0x000,0x00E,0x000,0x000,0x000,0x000,0x000 }, { 0x011,0x001,0x08A,0x040,0x0F1,0x0F1,0x011,0x0B3, 0x000,0x000,0x006,0x000,0x000,0x000,0x000,0x000 }, { 0x021,0x011,0x011,0x000,0x0A3,0x0C4,0x043,0x022, 0x002,0x000,0x00D,0x000,0x000,0x000,0x000,0x000 }, /* instrument6 */ { 0x031,0x0A1,0x01C,0x080,0x041,0x092,0x00B,0x03B, 0x000,0x000,0x00E,0x000,0x000,0x000,0x000,0x000 }, { 0x071,0x062,0x0C5,0x005,0x06E,0x08B,0x017,0x00E, 0x000,0x000,0x002,0x000,0x000,0x000,0x000,0x000 }, { 0x041,0x091,0x083,0x000,0x065,0x032,0x005,0x074, 0x000,0x000,0x00A,0x000,0x000,0x000,0x000,0x000 }, { 0x032,0x016,0x087,0x080,0x0A1,0x07D,0x010,0x033, 0x000,0x000,0x008,0x000,0x000,0x000,0x000,0x000 }, { 0x001,0x013,0x08D,0x000,0x051,0x052,0x053,0x07C, 0x001,0x000,0x00C,0x000,0x000,0x000,0x000,0x000 } } ;