home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 242.lha / GenericLIBrarian / source / tx81p.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-04-07  |  19.6 KB  |  598 lines
  1. /*
  2.  * GLIB - a Generic LIBrarian and editor for synths
  3.  *
  4.  * TX81Z routines for Performance parameters
  5.  */
  6.  
  7. #define OVERLAY1
  8.  
  9. #include "glib.h"
  10. #include <ctype.h>
  11.  
  12. char *visnum(), *vis1num(), *viseffect(), *visass(), *viskey();
  13. char *vischan(), *visnote(), *vistdetune(), *vistout(), *vislfo();
  14. char *visponoff(), *vispvoice(), *vispshift();
  15.  
  16. static char Pbuff[17];
  17.  
  18. #define PMEMSIZE 76
  19. #define PCEDSIZE 110
  20.  
  21. /* This array contains arbitrary screen labels */
  22. struct labelinfo Ltx81p[] = {
  23. 1,17," 1      2      3      4      5      6      7      8",
  24. 2,17,"---    ---    ---    ---    ---    ---    ---    ---",
  25. 3,2,"Voice",
  26. 7,2,"Max Notes",
  27. 8,2,"Receive Ch.",
  28. 9,2,"Limit Low",
  29. 10,2,"Limit High",
  30. 11,2,"Detune",
  31. 12,2,"Note Shift",
  32. 13,2,"Volume",
  33. 14,2,"Out Assign",
  34. 15,2,"LFO Select",
  35. 16,2,"Micro Tune",
  36. 21,0,"-------------------------+",
  37. 22,0,"Auto-Note:               |",
  38. 23,0,"                         |",
  39. -1,-1,NULL
  40. };
  41.  
  42. /* This array defines all the editable parameters. */
  43. struct paraminfo Ptx81p[] = {
  44. "autopitch",    "Pitch",22, 11, 22, 17, visnum, 0, 127, 60, 0,
  45. "autovol",      "Vol",  23, 0, 23, 4, visnum, 0, 127, 63, 0,
  46. "autodur",      "Dur",  23, 8, 23, 12, visnum, 1, 20, 5, 0,
  47. "autochan",     "Chan", 23, 16, 23, 21, visnum, 1, 16, 1, 0,
  48.  
  49. "op1max",       NULL, -1, -1, 7, 18, visnum, 0, 8, 0, 0,
  50. "op1voice",     NULL, -1, -1, 3, 17, vispvoice, 0, 159, 0, 0,
  51. "op1rec",       NULL, -1, -1, 8, 18, vischan, 0, 16, 0, 0,
  52. "op1liml",      NULL, -1, -1, 9, 18, visnote, 0, 127, 0, 0,
  53. "op1limh",      NULL, -1, -1, 10, 18, visnote, 0, 127, 0, 0,
  54. "op1detune",    NULL, -1, -1, 11, 18, vistdetune, 0, 14, 0, 0,
  55. "op1shift",     NULL, -1, -1, 12, 18, vispshift, 0, 48, 0, 0,
  56. "op1vol",       NULL, -1, -1, 13, 18, visnum, 0, 99, 0, 0,
  57. "op1out",       NULL, -1, -1, 14, 18, vistout, 0, 3, 0, 0,
  58. "op1lfo",       NULL, -1, -1, 15, 18, vislfo, 0, 3, 0, 0,
  59. "op1micro",     NULL, -1, -1, 16, 18, visponoff, 0, 1, 0, 0,
  60.  
  61. "op2max",       NULL, -1, -1, 7, 25, visnum, 0, 8, 0, 0,
  62. "op2voice",     NULL, -1, -1, 3, 24, vispvoice, 0, 159, 0, 0,
  63. "op2rec",       NULL, -1, -1, 8, 25, vischan, 0, 16, 0, 0,
  64. "op2liml",      NULL, -1, -1, 9, 25, visnote, 0, 127, 0, 0,
  65. "op2limh",      NULL, -1, -1, 10, 25, visnote, 0, 127, 0, 0,
  66. "op2detune",    NULL, -1, -1, 11, 25, vistdetune, 0, 14, 0, 0,
  67. "op2shift",     NULL, -1, -1, 12, 25, vispshift, 0, 48, 0, 0,
  68. "op2vol",       NULL, -1, -1, 13, 25, visnum, 0, 99, 0, 0,
  69. "op2out",       NULL, -1, -1, 14, 25, vistout, 0, 3, 0, 0,
  70. "op2lfo",       NULL, -1, -1, 15, 25, vislfo, 0, 3, 0, 0,
  71. "op2micro",     NULL, -1, -1, 16, 25, visponoff, 0, 1, 0, 0,
  72.  
  73. "op3max",       NULL, -1, -1, 7, 32, visnum, 0, 8, 0, 0,
  74. "op3voice",     NULL, -1, -1, 3, 31, vispvoice, 0, 159, 0, 0,
  75. "op3rec",       NULL, -1, -1, 8, 32, vischan, 0, 16, 0, 0,
  76. "op3liml",      NULL, -1, -1, 9, 32, visnote, 0, 127, 0, 0,
  77. "op3limh",      NULL, -1, -1, 10, 32, visnote, 0, 127, 0, 0,
  78. "op3detune",    NULL, -1, -1, 11, 32, vistdetune, 0, 14, 0, 0,
  79. "op3shift",     NULL, -1, -1, 12, 32, vispshift, 0, 48, 0, 0,
  80. "op3vol",       NULL, -1, -1, 13, 32, visnum, 0, 99, 0, 0,
  81. "op3out",       NULL, -1, -1, 14, 32, vistout, 0, 3, 0, 0,
  82. "op3lfo",       NULL, -1, -1, 15, 32, vislfo, 0, 3, 0, 0,
  83. "op3micro",     NULL, -1, -1, 16, 32, visponoff, 0, 1, 0, 0,
  84.  
  85. "op4max",       NULL, -1, -1, 7, 39, visnum, 0, 8, 0, 0,
  86. "op4voice",     NULL, -1, -1, 3, 38, vispvoice, 0, 159, 0, 0,
  87. "op4rec",       NULL, -1, -1, 8, 39, vischan, 0, 16, 0, 0,
  88. "op4liml",      NULL, -1, -1, 9, 39, visnote, 0, 127, 0, 0,
  89. "op4limh",      NULL, -1, -1, 10, 39, visnote, 0, 127, 0, 0,
  90. "op4detune",    NULL, -1, -1, 11, 39, vistdetune, 0, 14, 0, 0,
  91. "op4shift",     NULL, -1, -1, 12, 39, vispshift, 0, 48, 0, 0,
  92. "op4vol",       NULL, -1, -1, 13, 39, visnum, 0, 99, 0, 0,
  93. "op4out",       NULL, -1, -1, 14, 39, vistout, 0, 3, 0, 0,
  94. "op4lfo",       NULL, -1, -1, 15, 39, vislfo, 0, 3, 0, 0,
  95. "op4micro",     NULL, -1, -1, 16, 39, visponoff, 0, 1, 0, 0,
  96.  
  97. "op5max",       NULL, -1, -1, 7, 46, visnum, 0, 8, 0, 0,
  98. "op5voice",     NULL, -1, -1, 3, 45, vispvoice, 0, 159, 0, 0,
  99. "op5rec",       NULL, -1, -1, 8, 46, vischan, 0, 16, 0, 0,
  100. "op5liml",      NULL, -1, -1, 9, 46, visnote, 0, 127, 0, 0,
  101. "op5limh",      NULL, -1, -1, 10, 46, visnote, 0, 127, 0, 0,
  102. "op5detune",    NULL, -1, -1, 11, 46, vistdetune, 0, 14, 0, 0,
  103. "op5shift",     NULL, -1, -1, 12, 46, vispshift, 0, 48, 0, 0,
  104. "op5vol",       NULL, -1, -1, 13, 46, visnum, 0, 99, 0, 0,
  105. "op5out",       NULL, -1, -1, 14, 46, vistout, 0, 3, 0, 0,
  106. "op5lfo",       NULL, -1, -1, 15, 46, vislfo, 0, 3, 0, 0,
  107. "op5micro",     NULL, -1, -1, 16, 46, visponoff, 0, 1, 0, 0,
  108.  
  109. "op6max",       NULL, -1, -1, 7, 53, visnum, 0, 8, 0, 0,
  110. "op6voice",     NULL, -1, -1, 3, 52, vispvoice, 0, 159, 0, 0,
  111. "op6rec",       NULL, -1, -1, 8, 53, vischan, 0, 16, 0, 0,
  112. "op6liml",      NULL, -1, -1, 9, 53, visnote, 0, 127, 0, 0,
  113. "op6limh",      NULL, -1, -1, 10, 53, visnote, 0, 127, 0, 0,
  114. "op6detune",    NULL, -1, -1, 11, 53, vistdetune, 0, 14, 0, 0,
  115. "op6shift",     NULL, -1, -1, 12, 53, vispshift, 0, 48, 0, 0,
  116. "op6vol",       NULL, -1, -1, 13, 53, visnum, 0, 99, 0, 0,
  117. "op6out",       NULL, -1, -1, 14, 53, vistout, 0, 3, 0, 0,
  118. "op6lfo",       NULL, -1, -1, 15, 53, vislfo, 0, 3, 0, 0,
  119. "op6micro",     NULL, -1, -1, 16, 53, visponoff, 0, 1, 0, 0,
  120.  
  121. "op7max",       NULL, -1, -1, 7, 60, visnum, 0, 8, 0, 0,
  122. "op7voice",     NULL, -1, -1, 3, 59, vispvoice, 0, 159, 0, 0,
  123. "op7rec",       NULL, -1, -1, 8, 60, vischan, 0, 16, 0, 0,
  124. "op7liml",      NULL, -1, -1, 9, 60, visnote, 0, 127, 0, 0,
  125. "op7limh",      NULL, -1, -1, 10, 60, visnote, 0, 127, 0, 0,
  126. "op7detune",    NULL, -1, -1, 11, 60, vistdetune, 0, 14, 0, 0,
  127. "op7shift",     NULL, -1, -1, 12, 60, vispshift, 0, 48, 0, 0,
  128. "op7vol",       NULL, -1, -1, 13, 60, visnum, 0, 99, 0, 0,
  129. "op7out",       NULL, -1, -1, 14, 60, vistout, 0, 3, 0, 0,
  130. "op7lfo",       NULL, -1, -1, 15, 60, vislfo, 0, 3, 0, 0,
  131. "op7micro",     NULL, -1, -1, 16, 60, visponoff, 0, 1, 0, 0,
  132.  
  133. "op8max",       NULL, -1, -1, 7, 67, visnum, 0, 8, 0, 0,
  134. "op8voice",     NULL, -1, -1, 3, 66, vispvoice, 0, 159, 0, 0,
  135. "op8rec",       NULL, -1, -1, 8, 67, vischan, 0, 16, 0, 0,
  136. "op8liml",      NULL, -1, -1, 9, 67, visnote, 0, 127, 0, 0,
  137. "op8limh",      NULL, -1, -1, 10, 67, visnote, 0, 127, 0, 0,
  138. "op8detune",    NULL, -1, -1, 11, 67, vistdetune, 0, 14, 0, 0,
  139. "op8shift",     NULL, -1, -1, 12, 67, vispshift, 0, 48, 0, 0,
  140. "op8vol",       NULL, -1, -1, 13, 67, visnum, 0, 99, 0, 0,
  141. "op8out",       NULL, -1, -1, 14, 67, vistout, 0, 3, 0, 0,
  142. "op8lfo",       NULL, -1, -1, 15, 67, vislfo, 0, 3, 0, 0,
  143. "op8micro",     NULL, -1, -1, 16, 67, visponoff, 0, 1, 0, 0,
  144.  
  145. "microtune",    "Micro Tune Table", 19, 32, 19, 53, visnum, 0, 12, 0, 0,
  146. "microkey",     "Micro Tune Key", 20, 32, 20, 53, viskey, 0, 11, 0, 0,
  147. "assmode",      "Assign Mode", 21, 32, 21, 53, visass, 0, 1, 0, 0,
  148. "effect",       "Effect Select", 22, 32, 22, 53, viseffect, 0, 3, 0, 0,
  149. NULL,   NULL, -1, -1, -1, -1, visnum, 0, 0, 0, 0
  150. };
  151.  
  152. char *tx81voices[] = {
  153.         "GrandPiano", "Uprt piano", "Deep Grd", "HonkeyTonk", "Elec Grand",
  154.         "Fuzz Piano", "SkoolPiano", "Thump Pno", "LoTine81Z", "HiTine81Z",
  155.         "ElectroPno", "NewElectro", "DynomiteEP", "DynoWurlie", "Wood Piano",
  156.         "Reed Piano", "PercOrgan", "16 8 4 2 F", "PumpOrgan", "<6 Tease>",
  157.         "Farcheeza", "Small Pipe", "Big Church", "AnalogOrgn", "Thin Clav",
  158.         "EZ Clav", "Fuzz Clavi", "LiteHarpsi", "RichHarpsi", "Celeste",
  159.         "BriteCelst", "Squeezebox",
  160.  
  161.         "Trumpet81Z", "Full Brass", "Flugelhorn", "ChorusBras", "FrenchHorn",
  162.         "AtackBrass", "SpitBoneBC", "Horns BC", "MelloTenor", "RaspAlto",
  163.         "Flute", "Pan Floot", "Bassoon", "Oboe", "Clarinet",
  164.         "Harmonica", "DoubleBass", "BowCello", "BoxCello", "SoloViolin",
  165.         "HiString 1", "LowString", "Pizzicato", "Harp", "ReverbStrg",
  166.         "SynString", "Voices", "HarmoPad", "FanfarTpts", "HiString 2",
  167.         "PercFlute", "BreathOrgn",
  168.  
  169.         "NylonGuit", "Guitar #1", "TwelveStrg", "Funky Pick", "AllThatJaz",
  170.         "HeavyMetal", "Old Banjo", "Zither", "ElecBass 1", "SqncrBass",
  171.         "SynFunkBas", "ElecBass 2", "AnalogBass", "Jaco Bass", "LatelyBass",
  172.         "MonophBass", "StadiumSol", "TrumptSolo", "BCSexyPhon", "Lyrisyn",
  173.         "WarmSquare", "Sync Lead", "MellowSqar", "Jazz Flute", "HeavyLead",
  174.         "Java Jive", "Xylophone", "GreatVibes   ", "Sitar", "Bell Pad",
  175.         "PlasticHit", "DigiAnnie",
  176.  
  177.         "BaadBreath", "VocalNuts", "KrstlChoir", "Metalimba", "WaterGlass",
  178.         "BowedBell", ">>WOW<<", "Fuzzy Koto", "Spc Midiot", "Gurgle",
  179.         "Hole in 1", "Birds", "MalibuNite", "Helicopter", "Flight Sim",
  180.         "Brthbells", "Storm Wind", "Alarm Call", "Racing Car", "Whistling",
  181.         "Space Talk", "Space Vibe", "Timpani", "FM Hi-Hats", "Bass Drum",
  182.         "Tube Bells", "Noise Shot", "Snare 1", "Snare 2", "Hand Drum",
  183.         "Synballs", "Efem Toms"
  184. };
  185.  
  186. /*
  187.  * tx8pdin
  188.  *
  189.  * Take info from 'data' and stuff values in the P array, by using
  190.  * the setval (and setopval) functions.  The data is in PMEM format.
  191.  */
  192.  
  193. tx8pdin(data)
  194. char *data;
  195. {
  196.         int dop, n, msb;
  197.  
  198.         for ( n=1; n<=8; n++ ) {
  199.                 dop = (n-1)*8;
  200.                 setopval(n,"max",data[0+dop] & 017);
  201.                 msb = (data[0+dop]>>4)&01;
  202.                 setopval(n,"voice",128*msb + (data[1+dop]&0177));
  203.                 setopval(n,"rec",data[2+dop] & 037);
  204.                 setopval(n,"liml",data[3+dop] & 0177);
  205.                 setopval(n,"limh",data[4+dop] & 0177);
  206.                 setopval(n,"detune",data[5+dop] & 017);
  207.                 setopval(n,"shift",data[6+dop] & 077);
  208.                 setopval(n,"vol",data[7+dop] & 0177);
  209.                 setopval(n,"out",(data[0+dop]>>5) & 03);
  210.                 setopval(n,"lfo",(data[2+dop]>>5) & 03);
  211.                 setopval(n,"micro",(data[6+dop]>>6) & 01);
  212.         }
  213.         setval("microtune",data[64] & 017);
  214.         setval("assmode",data[65] & 01);
  215.         setval("effect",(data[65]>>1) & 03);
  216.         setval("microkey",(data[65]>>3) & 017);
  217.  
  218.         setval("autochan",Channel);
  219. }
  220.  
  221. /*
  222.  * tx8pdout
  223.  *
  224.  * Take (possibly changed) parameters values out of the P array and
  225.  * put them back into 'data'.
  226.  */
  227.  
  228. tx8pdout(data)
  229. char *data;
  230. {
  231.         int dop, n, voicenum, msb;
  232.  
  233.         for ( n=1; n<=8; n++ ) {
  234.                 dop = (n-1)*8;
  235.                 voicenum = getopval(n,"voice");
  236.                 msb = (voicenum>>7)&01;
  237.                 data[0+dop] = getopval(n,"max") | (msb<<4)
  238.                                 | getopval(n,"out")<<5;
  239.                 data[1+dop] = voicenum & 0177;
  240.                 data[2+dop] = getopval(n,"lfo")<<5 | getopval(n,"rec");
  241.                 data[3+dop] = getopval(n,"liml");
  242.                 data[4+dop] = getopval(n,"limh");
  243.                 data[5+dop] = getopval(n,"detune");
  244.                 data[6+dop] = getopval(n,"micro")<<6 | getopval(n,"shift");
  245.                 data[7+dop] = getopval(n,"vol");
  246.         }
  247.         data[64] = getval("microtune");
  248.         data[65] = getval("microkey")<<3 | getval("effect")<<1
  249.                         | getval("assmode");
  250.         Channel = getval("autochan");
  251. }
  252.  
  253. tx8psedit(data)
  254. char *data;
  255. {
  256.         char pdata[PCEDSIZE];
  257.         int n, cksum, c;
  258.         char *p;
  259.  
  260.         clrdata(pdata,PCEDSIZE);
  261.         pmemtopced(data,pdata);
  262.         sendmidi(0xf0);
  263.         sendmidi(0x43);
  264.         sendmidi(Channel-1);    /* channel # */
  265.         sendmidi(0x7e);         /* format type */
  266.         sendmidi(0x00);         /* byte count */
  267.         sendmidi(0x78);         /* byte count */
  268.         p = "LM  8976PE";
  269.         cksum = 0;
  270.         while ( (c=(int)(*p++)) != '\0' ) {
  271.                 sendmidi(c);
  272.                 cksum += c;
  273.         }
  274.         for ( n=0; n<PCEDSIZE; n++ ) {
  275.                 c = (int)(pdata[n]);
  276.                 sendmidi(c);
  277.                 cksum += c;
  278.         }
  279.         sendmidi((-cksum) & 0x7f);
  280.         sendmidi(EOX);
  281. }
  282.  
  283. /* Convert PMEM to PCED format */
  284. pmemtopced(indata,outdata)
  285. char *indata, *outdata;
  286. {
  287.         int n, inop, outop;
  288.  
  289.         for ( n=1; n<=8; n++ ) {
  290.                 inop = (n-1)*8;
  291.                 outop = (n-1)*12;
  292.  
  293.                 outdata[0+outop] = indata[0+inop] & 017;
  294.  
  295.                 outdata[1+outop] = (indata[0+inop]>>4)&01;
  296.                 outdata[2+outop] = indata[1+inop] & 0177;
  297.                 outdata[3+outop] = indata[2+inop] & 037;
  298.                 outdata[4+outop] = indata[3+inop] & 0177;
  299.                 outdata[5+outop] = indata[4+inop] & 0177;
  300.                 outdata[6+outop] = indata[5+inop] & 017;
  301.                 outdata[7+outop] = indata[6+inop] & 077;
  302.                 outdata[8+outop] = indata[7+inop] & 0177;
  303.                 outdata[9+outop] = (indata[0+inop]>>5) & 03;
  304.                 outdata[10+outop] = (indata[2+inop]>>5) & 03;
  305.                 outdata[11+outop] = (indata[6+inop]>>6) & 01;
  306.         }
  307.         outdata[96] = indata[64] & 017;
  308.         outdata[97] = indata[65] & 01;
  309.         outdata[98] = (indata[65]>>1) & 03;
  310.         outdata[99] = (indata[65]>>3) & 017;
  311.         for ( n=0; n<10; n++ )
  312.                 outdata[100+n] = indata[66+n];
  313. }
  314.  
  315. /* send a bulk performance dump to the tx81z */
  316. tx8psbulk(data)
  317. char *data;
  318. {
  319.         int c, v, n, cksum;
  320.         char *p;
  321.  
  322.         sendmidi(0xf0);
  323.         sendmidi(0x43);
  324.         sendmidi(Channel-1);    /* Channel # */
  325.         sendmidi(0x7e);
  326.         sendmidi(0x13);
  327.         sendmidi(0x0a);
  328.         p = "LM  8976PM";
  329.         cksum = 0;
  330.         while ( (c=(int)(*p++)) != '\0' ) {
  331.                 sendmidi(c);
  332.                 cksum += c;
  333.         }
  334.         /* send 32 PMEM's worth of data */
  335.         for ( v=0; v<32; v++ ) {
  336.                 for ( n=0; n<PMEMSIZE; n++ ) {
  337.                         /* 24 PMEM's are editable, but the bulk dump has 32 */
  338.                         if ( v >= 24 )
  339.                                 c = 0;
  340.                         else
  341.                                 c = VOICEBYTE(data,v,n);
  342.                         sendmidi(c & 0xff);
  343.                         cksum += c;
  344.                 }
  345.         }
  346.         sendmidi((-cksum) & 0x7f);
  347.         sendmidi(0xf7);
  348. }
  349.  
  350. /* Request and read a bulk performance dump from the TX81Z */
  351. tx8pgbulk(data)
  352. char *data;
  353. {
  354.         int c, n, v, b1, b2, cksum, ret = 1;
  355.         long begin, toolong;
  356.         char *p;
  357.  
  358.         flushmidi();
  359.  
  360.         sendmidi(0xf0);
  361.         sendmidi(0x43);
  362.         sendmidi(0x20 | (Channel-1));   /* Channel # */
  363.         sendmidi(0x7e);
  364.         p = "LM  8976PM";
  365.         while ( (c=(int)(*p++)) != '\0' )
  366.                 sendmidi(c);
  367.         sendmidi(EOX);
  368.  
  369.         begin = milliclock();
  370.         toolong = begin + 1000 * TIMEOUT;
  371.  
  372.         /* wait for the x43 byte starting the dump */
  373.         while ( milliclock() < toolong ) {
  374.                 if ( STATMIDI && (c=(getmidi() & 0xff)) == 0x43 )
  375.                         break;
  376.         }
  377.         if ( c != 0x43 ) {
  378.                 Reason = "Timeout waiting for 0x43";
  379.                 goto getout;
  380.         }
  381.         /* get the 14 bytes preceeding the data */
  382.         for ( cksum=n=0; n<14; n++ ) {
  383.                 /* twiddle your thumbs, but not forever */
  384.                 while ( ! STATMIDI ) {
  385.                         if ( milliclock() > toolong )
  386.                                 goto timeout;   /* the end of an era */
  387.                 }
  388.                 c = getmidi();
  389.                 if(n >= 4)
  390.                         cksum += c; /* start of LM... keyword */
  391.         }
  392.         /* 32 memories are dumped */
  393.         for ( v=0; v<32; v++ ) {
  394.                 for ( n=0; n<PMEMSIZE; n++ ) {
  395.                         /* twiddle your thumbs, but not forever */
  396.                         while ( ! STATMIDI ) {
  397.                                 if ( milliclock() > toolong )
  398.                                         goto timeout;   /* the end of an era */
  399.                         }
  400.                         c = (getmidi() & 0xff);
  401.                         /* Ignore non-data bytes ? */
  402.                         if ( c & 0x80 )
  403.                                 continue;
  404.                         /* compute checksum */
  405.                         cksum += c;
  406.                         /* Only 24 memories are used */
  407.                         if ( v < 24 )
  408.                                 VOICEBYTE(data,v,n) = c;
  409.                 }
  410.         }
  411. timeout:
  412.         if ( v < 32 ) {
  413.                 Reason = "Timeout while reading!";
  414.                 goto getout;
  415.         }
  416.         b1 = (getmidi() & 0xff);        /* Checksum */
  417.         b2 = (getmidi() & 0xff);        /* EOX */
  418.         cksum = (-cksum) & 0x7f;        /* convert to what we must match */
  419.         if ( b2 != EOX )
  420.                 Reason = "EOX not received";
  421.         else if ( b1 != cksum ) {
  422.                 static char ckbuff[80];
  423.                 sprintf(ckbuff,"Checksum doesn't match (got %d expected %d)",b1,cksum);
  424.                 /* Reason = "Checksum doesn't match"; */
  425.                 Reason = ckbuff;
  426.         }
  427.         else {
  428.                 Reason = "";
  429.                 ret = 0;        /* all's well */
  430.         }
  431. getout:
  432.         return(ret);
  433. }
  434.  
  435. char *
  436. tx8pnof(data)
  437. char *data;
  438. {
  439.         int n;
  440.  
  441.         for ( n=0; n<10; n++ )
  442.                 Pbuff[n] = data[66+n];
  443.         Pbuff[10] = '\0';
  444.         return(Pbuff);
  445. } 
  446.  
  447. tx8psnof(data,name)
  448. char *data, *name;
  449. {
  450.         int n;
  451.  
  452.         for ( n=0; name[n]!='\0' && n<10; n++ )
  453.                 data[66+n] = name[n];
  454.         for ( ; n<10; n++ )
  455.                 data[66+n] = ' ';
  456. } 
  457.  
  458. char *
  459. visass(v)
  460. {
  461.         switch(v){
  462.         case 0: return("normal");
  463.         case 1: return("alternate");
  464.         }
  465.         return("");
  466. }
  467.  
  468. char *
  469. viskey(v)
  470. {
  471.         switch(v){
  472.         case 0: return("C");
  473.         case 1: return("C#");
  474.         case 2: return("D");
  475.         case 3: return("D#");
  476.         case 4: return("E");
  477.         case 5: return("F");
  478.         case 6: return("F#");
  479.         case 7: return("G");
  480.         case 8: return("G#");
  481.         case 9: return("A");
  482.         case 10: return("A#");
  483.         case 11: return("B");
  484.         }
  485.         return("");
  486. }
  487.  
  488. char *
  489. viseffect(v)
  490. {
  491.         switch(v){
  492.         case 0: return("none");
  493.         case 1: return("delay");
  494.         case 2: return("pan");
  495.         case 3: return("chord");
  496.         }
  497.         return("");
  498. }
  499.  
  500. char *
  501. vischan(v)
  502. {
  503.         if ( v >= 0 && v <= 15 ) {
  504.                 sprintf(Pbuff,"%d",v+1);
  505.                 return(Pbuff);
  506.         }
  507.         if ( v == 16 )
  508.                 return("omni");
  509.         return("");
  510. }
  511.  
  512. char *
  513. visnote(v)
  514. {
  515.         int octave;
  516.  
  517.         octave = (v/12) - 2;
  518.         sprintf(Pbuff,"%s%d",viskey(v%12),octave);
  519.         return(Pbuff);
  520. }
  521.  
  522. char *
  523. vispshift(v)
  524. {
  525.         sprintf(Pbuff,"%d",v-24);
  526.         return(Pbuff);
  527. }
  528.  
  529. char *
  530. vistdetune(v)
  531. {
  532.         sprintf(Pbuff,"%d",v-7);
  533.         return(Pbuff);
  534. }
  535.  
  536. char *
  537. vistout(v)
  538. {
  539.         switch (v) {
  540.         case 0: return("off");
  541.         case 1: return("I");
  542.         case 2: return("II");
  543.         case 3: return("I+II");
  544.         }
  545.         return("");
  546. }
  547.  
  548. char *
  549. vislfo(v)
  550. {
  551.         switch (v) {
  552.         case 0: return("off");
  553.         case 1: return("inst1");
  554.         case 2: return("inst2");
  555.         case 3: return("vib");
  556.         }
  557.         return("");
  558. }
  559.  
  560. char *
  561. visponoff(v)
  562. {
  563.         switch(v){
  564.         case 0: return("off");
  565.         case 1: return("on");
  566.         }
  567.         return("");
  568. }
  569.  
  570. char *
  571. vispvoice(v)
  572. {
  573.         char *p, *prefixes = "IABCD";
  574.         int bank, vnum, vindex;
  575.  
  576.         bank = v/32;
  577.         vnum = (v%32) + 1;
  578.         sprintf(Pbuff,vnum<10?"%c0%d":"%c%d",prefixes[bank],vnum);
  579.         if ( bank > 0 ) {
  580.                 vindex = (bank-1)*32+vnum-1;
  581.                 if ( vindex >= 0 && vindex < 128 ) {
  582.                         strcat(Pbuff,"~d~l~l~l");
  583.                         p = tx81voices[vindex];
  584.                         if ( strlen(p) <= 5 )
  585.                                 strcat(Pbuff,p);
  586.                         else {
  587.                                 char buff[11];
  588.                                 strcpy(buff,p);
  589.                                 buff[5] = '\0';
  590.                                 strcat(Pbuff,buff);
  591.                                 strcat(Pbuff,"~d~l~l~l~l~l");
  592.                                 strcat(Pbuff,&p[5]);
  593.                         }
  594.                 }
  595.         }
  596.         return(Pbuff);
  597. }
  598.