/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume6 / glib / part12

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 4e 65 77 73 67 72 6f 75 | 70 73 3a 20 63 6f 6d 70 |Newsgrou|ps: comp|
|00000010| 2e 73 6f 75 72 63 65 73 | 2e 6d 69 73 63 0a 46 72 |.sources|.misc.Fr|
|00000020| 6f 6d 3a 20 61 6c 6c 62 | 65 72 79 40 75 75 6e 65 |om: allb|ery@uune|
|00000030| 74 2e 55 55 2e 4e 45 54 | 20 28 42 72 61 6e 64 6f |t.UU.NET| (Brando|
|00000040| 6e 20 53 2e 20 41 6c 6c | 62 65 72 79 20 2d 20 63 |n S. All|bery - c|
|00000050| 6f 6d 70 2e 73 6f 75 72 | 63 65 73 2e 6d 69 73 63 |omp.sour|ces.misc|
|00000060| 29 0a 53 75 62 6a 65 63 | 74 3a 20 76 30 36 69 31 |).Subjec|t: v06i1|
|00000070| 31 33 3a 20 67 6c 69 62 | 20 70 61 72 74 20 31 32 |13: glib| part 12|
|00000080| 20 6f 66 20 31 35 0a 52 | 65 70 6c 79 2d 54 6f 3a | of 15.R|eply-To:|
|00000090| 20 6c 65 65 40 75 68 63 | 63 75 78 2e 75 68 63 63 | lee@uhc|cux.uhcc|
|000000a0| 2e 48 61 77 61 69 69 2e | 45 64 75 20 28 47 72 65 |.Hawaii.|Edu (Gre|
|000000b0| 67 20 4c 65 65 20 29 0a | 0a 50 6f 73 74 69 6e 67 |g Lee ).|.Posting|
|000000c0| 2d 6e 75 6d 62 65 72 3a | 20 56 6f 6c 75 6d 65 20 |-number:| Volume |
|000000d0| 36 2c 20 49 73 73 75 65 | 20 31 31 33 0a 53 75 62 |6, Issue| 113.Sub|
|000000e0| 6d 69 74 74 65 64 2d 62 | 79 3a 20 6c 65 65 40 75 |mitted-b|y: lee@u|
|000000f0| 68 63 63 75 78 2e 75 68 | 63 63 2e 48 61 77 61 69 |hccux.uh|cc.Hawai|
|00000100| 69 2e 45 64 75 20 28 47 | 72 65 67 20 4c 65 65 20 |i.Edu (G|reg Lee |
|00000110| 29 0a 41 72 63 68 69 76 | 65 2d 6e 61 6d 65 3a 20 |).Archiv|e-name: |
|00000120| 67 6c 69 62 2f 70 61 72 | 74 31 32 0a 0a 23 21 20 |glib/par|t12..#! |
|00000130| 2f 62 69 6e 2f 73 68 0a | 23 20 54 68 69 73 20 69 |/bin/sh.|# This i|
|00000140| 73 20 61 20 73 68 65 6c | 6c 20 61 72 63 68 69 76 |s a shel|l archiv|
|00000150| 65 2e 20 20 52 65 6d 6f | 76 65 20 61 6e 79 74 68 |e.  Remo|ve anyth|
|00000160| 69 6e 67 20 62 65 66 6f | 72 65 20 74 68 69 73 20 |ing befo|re this |
|00000170| 6c 69 6e 65 2c 20 74 68 | 65 6e 20 75 6e 70 61 63 |line, th|en unpac|
|00000180| 6b 0a 23 20 69 74 20 62 | 79 20 73 61 76 69 6e 67 |k.# it b|y saving|
|00000190| 20 69 74 20 69 6e 74 6f | 20 61 20 66 69 6c 65 20 | it into| a file |
|000001a0| 61 6e 64 20 74 79 70 69 | 6e 67 20 22 73 68 20 66 |and typi|ng "sh f|
|000001b0| 69 6c 65 22 2e 20 20 54 | 6f 20 6f 76 65 72 77 72 |ile".  T|o overwr|
|000001c0| 69 74 65 20 65 78 69 73 | 74 69 6e 67 0a 23 20 66 |ite exis|ting.# f|
|000001d0| 69 6c 65 73 2c 20 74 79 | 70 65 20 22 73 68 20 66 |iles, ty|pe "sh f|
|000001e0| 69 6c 65 20 2d 63 22 2e | 20 20 59 6f 75 20 63 61 |ile -c".|  You ca|
|000001f0| 6e 20 61 6c 73 6f 20 66 | 65 65 64 20 74 68 69 73 |n also f|eed this|
|00000200| 20 61 73 20 73 74 61 6e | 64 61 72 64 20 69 6e 70 | as stan|dard inp|
|00000210| 75 74 20 76 69 61 0a 23 | 20 75 6e 73 68 61 72 2c |ut via.#| unshar,|
|00000220| 20 6f 72 20 62 79 20 74 | 79 70 69 6e 67 20 22 73 | or by t|yping "s|
|00000230| 68 20 3c 66 69 6c 65 22 | 2c 20 65 2e 67 2e 2e 20 |h <file"|, e.g.. |
|00000240| 20 49 66 20 74 68 69 73 | 20 61 72 63 68 69 76 65 | If this| archive|
|00000250| 20 69 73 20 63 6f 6d 70 | 6c 65 74 65 2c 20 79 6f | is comp|lete, yo|
|00000260| 75 0a 23 20 77 69 6c 6c | 20 73 65 65 20 74 68 65 |u.# will| see the|
|00000270| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 6d 65 73 73 61 | followi|ng messa|
|00000280| 67 65 20 61 74 20 74 68 | 65 20 65 6e 64 3a 0a 23 |ge at th|e end:.#|
|00000290| 09 09 22 45 6e 64 20 6f | 66 20 61 72 63 68 69 76 |.."End o|f archiv|
|000002a0| 65 20 31 32 20 28 6f 66 | 20 31 35 29 2e 22 0a 23 |e 12 (of| 15).".#|
|000002b0| 20 43 6f 6e 74 65 6e 74 | 73 3a 20 20 63 7a 31 2e | Content|s:  cz1.|
|000002c0| 6d 6e 75 0a 23 20 57 72 | 61 70 70 65 64 20 62 79 |mnu.# Wr|apped by|
|000002d0| 20 6c 65 65 40 75 68 63 | 63 75 78 20 6f 6e 20 53 | lee@uhc|cux on S|
|000002e0| 75 6e 20 4d 61 79 20 20 | 37 20 30 30 3a 34 30 3a |un May  |7 00:40:|
|000002f0| 31 39 20 31 39 38 39 0a | 50 41 54 48 3d 2f 62 69 |19 1989.|PATH=/bi|
|00000300| 6e 3a 2f 75 73 72 2f 62 | 69 6e 3a 2f 75 73 72 2f |n:/usr/b|in:/usr/|
|00000310| 75 63 62 20 3b 20 65 78 | 70 6f 72 74 20 50 41 54 |ucb ; ex|port PAT|
|00000320| 48 0a 69 66 20 74 65 73 | 74 20 2d 66 20 27 63 7a |H.if tes|t -f 'cz|
|00000330| 31 2e 6d 6e 75 27 20 2d | 61 20 22 24 7b 31 7d 22 |1.mnu' -|a "${1}"|
|00000340| 20 21 3d 20 22 2d 63 22 | 20 3b 20 74 68 65 6e 20 | != "-c"| ; then |
|00000350| 0a 20 20 65 63 68 6f 20 | 73 68 61 72 3a 20 57 69 |.  echo |shar: Wi|
|00000360| 6c 6c 20 6e 6f 74 20 63 | 6c 6f 62 62 65 72 20 65 |ll not c|lobber e|
|00000370| 78 69 73 74 69 6e 67 20 | 66 69 6c 65 20 5c 22 27 |xisting |file \"'|
|00000380| 63 7a 31 2e 6d 6e 75 27 | 5c 22 0a 65 6c 73 65 0a |cz1.mnu'|\".else.|
|00000390| 65 63 68 6f 20 73 68 61 | 72 3a 20 45 78 74 72 61 |echo sha|r: Extra|
|000003a0| 63 74 69 6e 67 20 5c 22 | 27 63 7a 31 2e 6d 6e 75 |cting \"|'cz1.mnu|
|000003b0| 27 5c 22 20 5c 28 33 33 | 34 31 38 20 63 68 61 72 |'\" \(33|418 char|
|000003c0| 61 63 74 65 72 73 5c 29 | 0a 73 65 64 20 22 73 2f |acters\)|.sed "s/|
|000003d0| 5e 58 2f 2f 22 20 3e 27 | 63 7a 31 2e 6d 6e 75 27 |^X//" >'|cz1.mnu'|
|000003e0| 20 3c 3c 27 45 4e 44 5f | 4f 46 5f 46 49 4c 45 27 | <<'END_|OF_FILE'|
|000003f0| 0a 58 2f 2a 20 24 49 64 | 3a 20 63 7a 31 2e 6d 6e |.X/* $Id|: cz1.mn|
|00000400| 75 2c 76 20 31 2e 36 20 | 38 39 2f 30 35 2f 30 36 |u,v 1.6 |89/05/06|
|00000410| 20 31 37 3a 31 33 3a 31 | 34 20 6c 65 65 20 45 78 | 17:13:1|4 lee Ex|
|00000420| 70 20 24 0a 58 20 2a 20 | 47 4c 49 42 20 2d 20 61 |p $.X * |GLIB - a|
|00000430| 20 47 65 6e 65 72 69 63 | 20 4c 49 42 72 61 72 69 | Generic| LIBrari|
|00000440| 61 6e 20 61 6e 64 20 65 | 64 69 74 6f 72 20 66 6f |an and e|ditor fo|
|00000450| 72 20 73 79 6e 74 68 73 | 0a 58 20 2a 0a 58 20 2a |r synths|.X *.X *|
|00000460| 20 43 5a 2d 31 20 72 6f | 75 74 69 6e 65 73 0a 58 | CZ-1 ro|utines.X|
|00000470| 20 2a 20 4d 61 72 6b 20 | 52 69 6e 66 72 65 74 0a | * Mark |Rinfret.|
|00000480| 58 20 2a 20 6d 6f 64 69 | 66 69 65 64 20 62 79 20 |X * modi|fied by |
|00000490| 47 72 65 67 20 4c 65 65 | 0a 58 20 2a 20 24 4c 6f |Greg Lee|.X * $Lo|
|000004a0| 67 3a 09 63 7a 31 2e 6d | 6e 75 2c 76 20 24 0a 58 |g:.cz1.m|nu,v $.X|
|000004b0| 20 2a 20 52 65 76 69 73 | 69 6f 6e 20 31 2e 36 20 | * Revis|ion 1.6 |
|000004c0| 20 38 39 2f 30 35 2f 30 | 36 20 20 31 37 3a 31 33 | 89/05/0|6  17:13|
|000004d0| 3a 31 34 20 20 6c 65 65 | 0a 58 20 2a 20 72 65 6c |:14  lee|.X * rel|
|000004e0| 2e 20 74 6f 20 63 6f 6d | 70 2e 73 6f 75 72 63 65 |. to com|p.source|
|000004f0| 73 2e 6d 69 73 63 0a 58 | 20 2a 20 0a 58 20 2a 2f |s.misc.X| * .X */|
|00000500| 0a 58 0a 58 23 64 65 66 | 69 6e 65 20 4f 56 45 52 |.X.X#def|ine OVER|
|00000510| 4c 41 59 31 0a 58 0a 58 | 23 69 6e 63 6c 75 64 65 |LAY1.X.X|#include|
|00000520| 20 22 67 6c 69 62 2e 68 | 22 0a 58 23 69 6e 63 6c | "glib.h|".X#incl|
|00000530| 75 64 65 20 3c 63 74 79 | 70 65 2e 68 3e 0a 58 0a |ude <cty|pe.h>.X.|
|00000540| 58 23 69 66 64 65 66 20 | 41 4d 49 47 41 0a 58 23 |X#ifdef |AMIGA.X#|
|00000550| 64 65 66 69 6e 65 20 43 | 5a 31 0a 58 23 65 6c 73 |define C|Z1.X#els|
|00000560| 65 0a 58 76 6f 69 64 20 | 73 65 6e 64 6d 75 6c 74 |e.Xvoid |sendmult|
|00000570| 69 28 29 3b 0a 58 23 65 | 6e 64 69 66 0a 58 0a 58 |i();.X#e|ndif.X.X|
|00000580| 23 69 6e 63 6c 75 64 65 | 20 22 63 7a 2e 68 22 0a |#include| "cz.h".|
|00000590| 58 0a 58 23 64 65 66 69 | 6e 65 20 52 49 4e 47 20 |X.X#defi|ne RING |
|000005a0| 20 20 20 31 0a 58 23 64 | 65 66 69 6e 65 20 4e 4f |   1.X#d|efine NO|
|000005b0| 49 53 45 20 20 20 32 0a | 58 0a 58 63 68 61 72 20 |ISE   2.|X.Xchar |
|000005c0| 2a 76 69 73 6e 75 6d 28 | 29 2c 20 2a 76 69 73 6f |*visnum(|), *viso|
|000005d0| 6e 6f 66 66 28 29 3b 0a | 58 63 68 61 72 20 2a 76 |noff();.|Xchar *v|
|000005e0| 69 73 63 7a 64 65 74 28 | 29 2c 20 2a 76 69 73 63 |isczdet(|), *visc|
|000005f0| 7a 66 6c 61 67 28 29 2c | 20 2a 76 69 73 63 7a 6c |zflag(),| *visczl|
|00000600| 69 6e 65 28 29 2c 20 2a | 76 69 73 63 7a 6d 6f 64 |ine(), *|visczmod|
|00000610| 28 29 2c 20 2a 76 69 73 | 63 7a 6e 75 6d 32 28 29 |(), *vis|cznum2()|
|00000620| 3b 0a 58 2f 2a 20 63 68 | 61 72 20 2a 76 69 73 63 |;.X/* ch|ar *visc|
|00000630| 7a 6f 63 74 28 29 3b 20 | 2a 2f 0a 58 0a 58 73 74 |zoct(); |*/.X.Xst|
|00000640| 61 74 69 63 20 76 6f 69 | 64 20 67 65 74 65 6e 76 |atic voi|d getenv|
|00000650| 65 6c 6f 70 65 28 29 3b | 0a 58 73 74 61 74 69 63 |elope();|.Xstatic|
|00000660| 20 76 6f 69 64 20 67 65 | 74 77 61 76 65 66 6f 72 | void ge|twavefor|
|00000670| 6d 73 28 29 3b 0a 58 73 | 74 61 74 69 63 20 76 6f |ms();.Xs|tatic vo|
|00000680| 69 64 20 73 65 74 65 6e | 76 65 6c 6f 70 65 28 29 |id seten|velope()|
|00000690| 3b 0a 58 73 74 61 74 69 | 63 20 76 6f 69 64 20 73 |;.Xstati|c void s|
|000006a0| 65 74 77 61 76 65 66 6f | 72 6d 73 28 29 3b 0a 58 |etwavefo|rms();.X|
|000006b0| 0a 58 23 64 65 66 69 6e | 65 20 52 45 53 45 52 56 |.X#defin|e RESERV|
|000006c0| 45 53 49 5a 45 20 30 0a | 58 2f 2a 20 54 68 69 73 |ESIZE 0.|X/* This|
|000006d0| 20 61 72 72 61 79 20 63 | 6f 6e 74 61 69 6e 73 20 | array c|ontains |
|000006e0| 61 72 62 69 74 72 61 72 | 79 20 73 63 72 65 65 6e |arbitrar|y screen|
|000006f0| 20 6c 61 62 65 6c 73 20 | 2a 2f 0a 58 73 74 72 75 | labels |*/.Xstru|
|00000700| 63 74 20 6c 61 62 65 6c | 69 6e 66 6f 20 4c 63 7a |ct label|info Lcz|
|00000710| 31 5b 5d 20 3d 20 7b 0a | 58 23 4d 45 4e 55 0a 58 |1[] = {.|X#MENU.X|
|00000720| 4e 61 6d 65 3a 20 20 20 | 20 20 20 20 20 20 20 20 |Name:   |        |
|00000730| 20 20 20 20 20 20 20 4c | 69 6e 65 3a 25 20 20 20 |       L|ine:%   |
|00000740| 20 20 20 20 4d 6f 64 3a | 25 20 20 20 20 20 20 20 |    Mod:|%       |
|00000750| 20 4f 63 74 61 76 65 20 | 20 20 56 69 62 72 61 74 | Octave |  Vibrat|
|00000760| 6f 20 57 61 76 65 3a 25 | 0a 58 20 20 20 20 20 20 |o Wave:%|.X      |
|00000770| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000780| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000790| 20 20 20 20 20 20 20 20 | 20 20 20 20 25 20 20 20 |        |    %   |
|000007a0| 20 20 20 20 20 20 20 20 | 20 20 20 44 65 6c 61 79 |        |   Delay|
|000007b0| 3a 25 0a 58 20 20 20 20 | 20 20 20 20 20 20 20 20 |:%.X    |        |
|000007c0| 20 20 20 20 20 20 20 45 | 6e 76 65 6c 6f 70 65 20 |       E|nvelope |
|000007d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000007e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000007f0| 20 20 20 20 20 20 52 61 | 74 65 3a 25 0a 58 20 20 |      Ra|te:%.X  |
|00000800| 20 20 20 20 20 77 31 20 | 77 32 20 20 20 20 20 20 |     w1 |w2      |
|00000810| 20 31 20 20 20 32 20 20 | 20 33 20 20 20 34 20 20 | 1   2  | 3   4  |
|00000820| 20 35 20 20 20 36 20 20 | 20 37 20 20 20 38 20 20 | 5   6  | 7   8  |
|00000830| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 44 |        |       D|
|00000840| 65 70 74 68 3a 25 0a 58 | 44 43 4f 31 20 20 20 20 |epth:%.X|DCO1    |
|00000850| 25 20 20 25 20 20 20 20 | 20 20 25 20 40 20 25 20 |%  %    |  % @ % |
|00000860| 40 20 25 20 40 20 25 20 | 40 20 25 20 40 20 25 20 |@ % @ % |@ % @ % |
|00000870| 40 20 25 20 40 20 25 20 | 40 20 20 3c 2d 52 61 74 |@ % @ % |@  <-Rat|
|00000880| 65 20 20 53 3d 53 55 53 | 20 45 3d 45 4e 44 0a 58 |e  S=SUS| E=END.X|
|00000890| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000008a0| 20 20 25 20 20 20 25 20 | 20 20 25 20 20 20 25 20 |  %   % |  %   % |
|000008b0| 20 20 25 20 20 20 25 20 | 20 20 25 20 20 20 25 20 |  %   % |  %   % |
|000008c0| 20 20 20 3c 2d 4c 65 76 | 65 6c 0a 58 44 43 57 31 |   <-Lev|el.XDCW1|
|000008d0| 20 20 66 6f 6c 6c 6f 77 | 3a 20 25 20 20 20 25 20 |  follow|: %   % |
|000008e0| 40 20 25 20 40 20 25 20 | 40 20 25 20 40 20 25 20 |@ % @ % |@ % @ % |
|000008f0| 40 20 25 20 40 20 25 20 | 40 20 25 20 40 0a 58 20 |@ % @ % |@ % @.X |
|00000900| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000910| 20 25 20 20 20 25 20 20 | 20 25 20 20 20 25 20 20 | %   %  | %   %  |
|00000920| 20 25 20 20 20 25 20 20 | 20 25 20 20 20 25 20 20 | %   %  | %   %  |
|00000930| 20 20 20 4c 65 76 65 6c | 20 20 56 41 20 56 57 20 |   Level|  VA VW |
|00000940| 56 50 0a 58 44 43 41 31 | 20 20 66 6f 6c 6c 6f 77 |VP.XDCA1|  follow|
|00000950| 3a 20 25 20 20 20 25 20 | 40 20 25 20 40 20 25 20 |: %   % |@ % @ % |
|00000960| 40 20 25 20 40 20 25 20 | 40 20 25 20 40 20 25 20 |@ % @ % |@ % @ % |
|00000970| 40 20 25 20 40 20 20 20 | 20 25 20 20 20 20 20 25 |@ % @   | %     %|
|00000980| 20 20 25 20 20 25 0a 58 | 20 20 20 20 20 20 20 20 |  %  %.X|        |
|00000990| 20 20 20 20 20 20 20 20 | 20 20 25 20 20 20 25 20 |        |  %   % |
|000009a0| 20 20 25 20 20 20 25 20 | 20 20 25 20 20 20 25 20 |  %   % |  %   % |
|000009b0| 20 20 25 20 20 20 25 0a | 58 2d 2d 2d 2d 2d 2d 2d |  %   %.|X-------|
|000009c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 20 20 44 65 74 75 |--------|--  Detu|
|000009f0| 6e 65 0a 58 44 43 4f 32 | 20 20 20 20 25 20 20 25 |ne.XDCO2|    %  %|
|00000a00| 20 20 20 20 20 20 25 20 | 40 20 25 20 40 20 25 20 |      % |@ % @ % |
|00000a10| 40 20 25 20 40 20 25 20 | 40 20 25 20 40 20 25 20 |@ % @ % |@ % @ % |
|00000a20| 40 20 25 20 40 20 20 25 | 20 4f 63 74 3a 25 20 20 |@ % @  %| Oct:%  |
|00000a30| 4e 6f 74 65 3a 25 20 20 | 46 69 6e 65 3a 20 25 0a |Note:%  |Fine: %.|
|00000a40| 58 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |X       |        |
|00000a50| 20 20 20 25 20 20 20 25 | 20 20 20 25 20 20 20 25 |   %   %|   %   %|
|00000a60| 20 20 20 25 20 20 20 25 | 20 20 20 25 20 20 20 25 |   %   %|   %   %|
|00000a70| 0a 58 44 43 57 32 20 20 | 66 6f 6c 6c 6f 77 3a 20 |.XDCW2  |follow: |
|00000a80| 25 20 20 20 25 20 40 20 | 25 20 40 20 25 20 40 20 |%   % @ |% @ % @ |
|00000a90| 25 20 40 20 25 20 40 20 | 25 20 40 20 25 20 40 20 |% @ % @ |% @ % @ |
|00000aa0| 25 20 40 0a 58 20 20 20 | 20 20 20 20 20 20 20 20 |% @.X   |        |
|00000ab0| 20 20 20 20 20 20 20 25 | 20 20 20 25 20 20 20 25 |       %|   %   %|
|00000ac0| 20 20 20 25 20 20 20 25 | 20 20 20 25 20 20 20 25 |   %   %|   %   %|
|00000ad0| 20 20 20 25 20 20 20 20 | 20 4c 65 76 65 6c 20 20 |   %    | Level  |
|00000ae0| 56 41 20 56 57 20 56 50 | 0a 58 44 43 41 32 20 20 |VA VW VP|.XDCA2  |
|00000af0| 66 6f 6c 6c 6f 77 3a 20 | 25 20 20 20 25 20 40 20 |follow: |%   % @ |
|00000b00| 25 20 40 20 25 20 40 20 | 25 20 40 20 25 20 40 20 |% @ % @ |% @ % @ |
|00000b10| 25 20 40 20 25 20 40 20 | 25 20 40 20 20 20 20 25 |% @ % @ |% @    %|
|00000b20| 20 20 20 20 20 25 20 20 | 25 20 20 25 0a 58 20 20 |     %  |%  %.X  |
|00000b30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000b40| 25 20 20 20 25 20 20 20 | 25 20 20 20 25 20 20 20 |%   %   |%   %   |
|00000b50| 25 20 20 20 25 20 20 20 | 25 20 20 20 25 0a 58 50 |%   %   |%   %.XP|
|00000b60| 6f 72 74 61 6d 65 6e 74 | 6f 20 20 20 20 47 6c 69 |ortament|o    Gli|
|00000b70| 64 65 20 20 20 20 20 42 | 65 6e 64 20 20 20 4d 6f |de     B|end   Mo|
|00000b80| 64 2e 20 57 68 65 65 6c | 20 20 20 20 20 20 20 20 |d. Wheel|        |
|00000b90| 41 6d 70 2e 0a 58 53 77 | 65 65 70 3a 20 25 20 20 |Amp..XSw|eep: %  |
|00000ba0| 20 20 20 20 4e 6f 74 65 | 3a 20 25 20 20 20 20 20 |    Note|: %     |
|00000bb0| 25 20 20 20 20 44 65 70 | 74 68 3a 20 20 20 20 20 |%    Dep|th:     |
|00000bc0| 20 20 20 25 20 20 20 41 | 66 74 65 72 74 6f 75 63 |   %   A|ftertouc|
|00000bd0| 68 3a 20 25 0a 58 20 54 | 69 6d 65 3a 20 25 20 20 |h: %.X T|ime: %  |
|00000be0| 20 20 20 20 54 69 6d 65 | 3a 20 25 20 20 20 20 20 |    Time|: %     |
|00000bf0| 20 20 20 20 20 41 66 74 | 65 72 74 6f 75 63 68 3a |     Aft|ertouch:|
|00000c00| 20 20 20 25 0a 58 0a 58 | 20 20 20 50 69 74 63 68 |   %.X.X|   Pitch|
|00000c10| 20 25 20 20 20 20 56 6f | 6c 20 20 25 0a 58 20 20 | %    Vo|l  %.X  |
|00000c20| 20 44 75 72 20 20 20 25 | 20 20 20 20 43 68 61 6e | Dur   %|    Chan|
|00000c30| 20 25 0a 58 0a 58 23 45 | 4e 44 0a 58 2d 31 2c 2d | %.X.X#E|ND.X-1,-|
|00000c40| 31 2c 4e 55 4c 4c 0a 58 | 7d 3b 0a 58 0a 58 73 74 |1,NULL.X|};.X.Xst|
|00000c50| 72 75 63 74 20 70 61 72 | 61 6d 69 6e 66 6f 20 20 |ruct par|aminfo  |
|00000c60| 50 63 7a 31 5b 5d 20 3d | 20 20 7b 0a 58 2f 2a 0a |Pcz1[] =|  {.X/*.|
|00000c70| 58 4e 41 4d 45 09 09 54 | 59 50 45 09 50 4f 53 09 |XNAME..T|YPE.POS.|
|00000c80| 4d 41 58 09 4f 46 46 53 | 45 54 09 4d 41 53 4b 09 |MAX.OFFS|ET.MASK.|
|00000c90| 53 48 49 46 54 09 41 44 | 48 4f 43 0a 58 20 2a 2f |SHIFT.AD|HOC.X */|
|00000ca0| 0a 58 23 4f 20 6c 69 6e | 65 09 09 63 7a 6c 69 6e |.X#O lin|e..czlin|
|00000cb0| 65 09 25 25 09 33 09 30 | 0a 58 23 4f 20 6d 6f 64 |e.%%.3.0|.X#O mod|
|00000cc0| 09 09 63 7a 6d 6f 64 09 | 25 25 09 32 09 30 0a 58 |..czmod.|%%.2.0.X|
|00000cd0| 23 4f 20 76 77 61 76 65 | 09 6e 75 6d 09 25 25 09 |#O vwave|.num.%%.|
|00000ce0| 34 09 30 09 09 09 2a 35 | 0a 58 23 4f 20 6f 63 74 |4.0...*5|.X#O oct|
|00000cf0| 09 09 6e 75 6d 09 25 25 | 09 31 09 30 09 09 09 2a |..num.%%|.1.0...*|
|00000d00| 35 0a 58 23 4f 20 76 64 | 65 6c 61 79 09 63 7a 6e |5.X#O vd|elay.czn|
|00000d10| 75 6d 32 09 25 25 09 39 | 39 09 30 0a 58 23 4f 20 |um2.%%.9|9.0.X#O |
|00000d20| 76 72 61 74 65 09 63 7a | 6e 75 6d 32 09 25 25 09 |vrate.cz|num2.%%.|
|00000d30| 39 39 09 30 0a 58 23 4f | 20 76 64 65 70 74 68 09 |99.0.X#O| vdepth.|
|00000d40| 63 7a 6e 75 6d 32 09 25 | 25 09 39 39 09 30 0a 58 |cznum2.%|%.99.0.X|
|00000d50| 23 4f 20 6f 31 77 31 09 | 09 6e 75 6d 09 25 25 09 |#O o1w1.|.num.%%.|
|00000d60| 38 09 30 09 09 09 2a 35 | 0a 58 23 4f 20 6f 31 77 |8.0...*5|.X#O o1w|
|00000d70| 32 09 09 6e 75 6d 09 25 | 25 09 38 09 30 0a 58 23 |2..num.%|%.8.0.X#|
|00000d80| 4f 20 38 6f 31 72 09 09 | 63 7a 6e 75 6d 32 09 25 |O 8o1r..|cznum2.%|
|00000d90| 25 09 39 39 09 30 0a 58 | 23 4f 20 38 6f 31 66 09 |%.99.0.X|#O 8o1f.|
|00000da0| 09 63 7a 66 6c 61 67 09 | 40 40 09 32 09 30 0a 58 |.czflag.|@@.2.0.X|
|00000db0| 23 4f 20 38 6f 31 6c 09 | 09 63 7a 6e 75 6d 32 09 |#O 8o1l.|.cznum2.|
|00000dc0| 25 25 09 39 39 09 30 0a | 58 23 4f 20 77 66 31 09 |%%.99.0.|X#O wf1.|
|00000dd0| 09 6e 75 6d 09 25 25 09 | 39 09 30 0a 58 23 4f 20 |.num.%%.|9.0.X#O |
|00000de0| 38 77 31 72 09 09 63 7a | 6e 75 6d 32 09 25 25 09 |8w1r..cz|num2.%%.|
|00000df0| 39 39 09 30 0a 58 23 4f | 20 38 77 31 66 09 09 63 |99.0.X#O| 8w1f..c|
|00000e00| 7a 66 6c 61 67 09 40 40 | 09 32 09 30 0a 58 23 4f |zflag.@@|.2.0.X#O|
|00000e10| 20 38 77 31 6c 09 09 63 | 7a 6e 75 6d 32 09 25 25 | 8w1l..c|znum2.%%|
|00000e20| 09 39 39 09 30 0a 58 23 | 4f 20 61 66 31 09 09 6e |.99.0.X#|O af1..n|
|00000e30| 75 6d 09 25 25 09 39 09 | 30 0a 58 23 4f 20 38 61 |um.%%.9.|0.X#O 8a|
|00000e40| 31 72 09 09 63 7a 6e 75 | 6d 32 09 25 25 09 39 39 |1r..cznu|m2.%%.99|
|00000e50| 09 30 0a 58 23 4f 20 38 | 61 31 66 09 09 63 7a 66 |.0.X#O 8|a1f..czf|
|00000e60| 6c 61 67 09 40 40 09 32 | 09 30 0a 58 23 4f 20 6c |lag.@@.2|.0.X#O l|
|00000e70| 65 76 65 6c 31 09 63 7a | 6e 75 6d 32 09 25 25 09 |evel1.cz|num2.%%.|
|00000e80| 31 35 09 30 09 09 09 2a | 35 0a 58 23 4f 20 76 61 |15.0...*|5.X#O va|
|00000e90| 31 09 09 63 7a 6e 75 6d | 32 09 25 25 09 31 35 09 |1..cznum|2.%%.15.|
|00000ea0| 30 0a 58 23 4f 20 76 77 | 31 09 09 63 7a 6e 75 6d |0.X#O vw|1..cznum|
|00000eb0| 32 09 25 25 09 31 35 09 | 30 0a 58 23 4f 20 76 6f |2.%%.15.|0.X#O vo|
|00000ec0| 31 09 09 63 7a 6e 75 6d | 32 09 25 25 09 31 35 09 |1..cznum|2.%%.15.|
|00000ed0| 30 0a 58 23 4f 20 38 61 | 31 6c 09 09 63 7a 6e 75 |0.X#O 8a|1l..cznu|
|00000ee0| 6d 32 09 25 25 09 39 39 | 09 30 0a 58 23 4f 20 6f |m2.%%.99|.0.X#O o|
|00000ef0| 32 77 31 09 09 6e 75 6d | 09 25 25 09 38 09 30 09 |2w1..num|.%%.8.0.|
|00000f00| 09 09 2a 35 0a 58 23 4f | 20 6f 32 77 32 09 09 6e |..*5.X#O| o2w2..n|
|00000f10| 75 6d 09 25 25 09 38 09 | 30 09 09 09 2a 35 0a 58 |um.%%.8.|0...*5.X|
|00000f20| 23 4f 20 38 6f 32 72 09 | 09 63 7a 6e 75 6d 32 09 |#O 8o2r.|.cznum2.|
|00000f30| 25 25 09 39 39 09 30 0a | 58 23 4f 20 38 6f 32 66 |%%.99.0.|X#O 8o2f|
|00000f40| 09 09 63 7a 66 6c 61 67 | 09 40 40 09 32 09 30 0a |..czflag|.@@.2.0.|
|00000f50| 58 23 4f 20 64 65 74 73 | 69 67 6e 09 63 7a 64 65 |X#O dets|ign.czde|
|00000f60| 74 09 25 25 09 31 09 30 | 0a 58 23 4f 20 64 65 74 |t.%%.1.0|.X#O det|
|00000f70| 6f 63 74 09 6e 75 6d 09 | 25 25 09 33 09 30 0a 58 |oct.num.|%%.3.0.X|
|00000f80| 23 4f 20 64 65 74 6e 6f | 74 65 09 63 7a 6e 75 6d |#O detno|te.cznum|
|00000f90| 32 09 25 25 09 31 31 09 | 30 0a 58 23 4f 20 64 65 |2.%%.11.|0.X#O de|
|00000fa0| 74 66 69 6e 65 09 63 7a | 6e 75 6d 32 09 25 25 09 |tfine.cz|num2.%%.|
|00000fb0| 36 30 09 30 0a 58 23 4f | 20 38 6f 32 6c 09 09 63 |60.0.X#O| 8o2l..c|
|00000fc0| 7a 6e 75 6d 32 09 25 25 | 09 39 39 09 30 0a 58 23 |znum2.%%|.99.0.X#|
|00000fd0| 4f 20 77 66 32 09 09 6e | 75 6d 09 25 25 09 39 09 |O wf2..n|um.%%.9.|
|00000fe0| 30 0a 58 23 4f 20 38 77 | 32 72 09 09 63 7a 6e 75 |0.X#O 8w|2r..cznu|
|00000ff0| 6d 32 09 25 25 09 39 39 | 09 30 0a 58 23 4f 20 38 |m2.%%.99|.0.X#O 8|
|00001000| 77 32 66 09 09 63 7a 66 | 6c 61 67 09 40 40 09 32 |w2f..czf|lag.@@.2|
|00001010| 09 30 0a 58 23 4f 20 38 | 77 32 6c 09 09 63 7a 6e |.0.X#O 8|w2l..czn|
|00001020| 75 6d 32 09 25 25 09 39 | 39 09 30 0a 58 23 4f 20 |um2.%%.9|9.0.X#O |
|00001030| 61 66 32 09 09 6e 75 6d | 09 25 25 09 39 09 30 0a |af2..num|.%%.9.0.|
|00001040| 58 23 4f 20 38 61 32 72 | 09 09 63 7a 6e 75 6d 32 |X#O 8a2r|..cznum2|
|00001050| 09 25 25 09 39 39 09 30 | 0a 58 23 4f 20 38 61 32 |.%%.99.0|.X#O 8a2|
|00001060| 66 09 09 63 7a 66 6c 61 | 67 09 40 40 09 32 09 30 |f..czfla|g.@@.2.0|
|00001070| 0a 58 23 4f 20 6c 65 76 | 65 6c 32 09 63 7a 6e 75 |.X#O lev|el2.cznu|
|00001080| 6d 32 09 25 25 09 31 35 | 09 30 09 09 09 2a 35 0a |m2.%%.15|.0...*5.|
|00001090| 58 23 4f 20 76 61 32 09 | 09 63 7a 6e 75 6d 32 09 |X#O va2.|.cznum2.|
|000010a0| 25 25 09 31 35 09 30 0a | 58 23 4f 20 76 77 32 09 |%%.15.0.|X#O vw2.|
|000010b0| 09 63 7a 6e 75 6d 32 09 | 25 25 09 31 35 09 30 0a |.cznum2.|%%.15.0.|
|000010c0| 58 23 4f 20 76 6f 32 09 | 09 63 7a 6e 75 6d 32 09 |X#O vo2.|.cznum2.|
|000010d0| 25 25 09 31 35 09 30 0a | 58 23 4f 20 38 61 32 6c |%%.15.0.|X#O 8a2l|
|000010e0| 09 09 63 7a 6e 75 6d 32 | 09 25 25 09 39 39 09 30 |..cznum2|.%%.99.0|
|000010f0| 0a 58 23 4f 20 70 73 77 | 65 65 70 09 63 7a 6e 75 |.X#O psw|eep.cznu|
|00001100| 6d 32 09 25 25 09 31 09 | 30 0a 58 23 4f 20 67 6e |m2.%%.1.|0.X#O gn|
|00001110| 6f 74 65 09 6e 75 6d 09 | 25 25 09 31 32 09 30 0a |ote.num.|%%.12.0.|
|00001120| 58 23 4f 20 62 65 6e 64 | 09 09 63 7a 6e 75 6d 32 |X#O bend|..cznum2|
|00001130| 09 25 25 09 31 32 09 30 | 0a 58 23 4f 20 6d 64 65 |.%%.12.0|.X#O mde|
|00001140| 70 74 68 09 63 7a 6e 75 | 6d 32 09 25 25 09 39 39 |pth.cznu|m2.%%.99|
|00001150| 09 30 0a 58 23 4f 20 61 | 6d 70 74 6f 75 63 68 09 |.0.X#O a|mptouch.|
|00001160| 63 7a 6e 75 6d 32 09 25 | 25 09 39 39 09 30 0a 58 |cznum2.%|%.99.0.X|
|00001170| 23 4f 20 70 74 69 6d 65 | 09 63 7a 6e 75 6d 32 09 |#O ptime|.cznum2.|
|00001180| 25 25 09 39 39 09 30 0a | 58 23 4f 20 67 74 69 6d |%%.99.0.|X#O gtim|
|00001190| 65 09 63 7a 6e 75 6d 32 | 09 25 25 09 39 39 09 30 |e.cznum2|.%%.99.0|
|000011a0| 0a 58 23 4f 20 6d 74 6f | 75 63 68 09 63 7a 6e 75 |.X#O mto|uch.cznu|
|000011b0| 6d 32 09 25 25 09 39 39 | 09 30 0a 58 23 4f 20 61 |m2.%%.99|.0.X#O a|
|000011c0| 75 74 6f 70 69 74 63 68 | 09 6e 75 6d 09 25 25 09 |utopitch|.num.%%.|
|000011d0| 31 32 37 09 2d 36 30 0a | 58 23 4f 20 61 75 74 6f |127.-60.|X#O auto|
|000011e0| 76 6f 6c 09 6e 75 6d 09 | 25 25 09 31 32 37 09 2d |vol.num.|%%.127.-|
|000011f0| 36 33 0a 58 23 4f 20 61 | 75 74 6f 64 75 72 09 6e |63.X#O a|utodur.n|
|00001200| 75 6d 09 25 25 09 32 30 | 09 2d 35 09 09 09 2a 35 |um.%%.20|.-5...*5|
|00001210| 0a 58 23 4f 20 61 75 74 | 6f 63 68 61 6e 09 6e 75 |.X#O aut|ochan.nu|
|00001220| 6d 09 25 25 09 31 36 09 | 2d 31 09 09 09 2a 35 0a |m.%%.16.|-1...*5.|
|00001230| 58 4e 55 4c 4c 2c 4e 55 | 4c 4c 2c 2d 31 2c 2d 31 |XNULL,NU|LL,-1,-1|
|00001240| 2c 2d 31 2c 2d 31 2c 76 | 69 73 6e 75 6d 2c 30 2c |,-1,-1,v|isnum,0,|
|00001250| 30 2c 30 2c 30 0a 58 7d | 3b 0a 58 0a 58 0a 58 2f |0,0,0.X}|;.X.X.X/|
|00001260| 2a 20 20 54 68 65 20 66 | 6f 6c 6c 6f 77 69 6e 67 |*  The f|ollowing|
|00001270| 20 74 61 62 6c 65 20 63 | 6f 6e 76 65 72 74 73 20 | table c|onverts |
|00001280| 41 4d 50 20 6c 65 76 65 | 6c 20 76 69 73 75 61 6c |AMP leve|l visual|
|00001290| 20 76 61 6c 75 65 73 20 | 69 6e 74 6f 0a 58 20 20 | values |into.X  |
|000012a0| 20 20 4d 49 44 49 20 76 | 61 6c 75 65 73 20 30 30 |  MIDI v|alues 00|
|000012b0| 20 2d 20 35 46 2e 0a 58 | 20 2a 2f 0a 58 55 42 59 | - 5F..X| */.XUBY|
|000012c0| 54 45 20 61 6d 70 4c 65 | 76 65 6c 4d 49 44 49 5b |TE ampLe|velMIDI[|
|000012d0| 31 30 5d 20 3d 20 7b 0a | 58 20 20 20 20 30 78 30 |10] = {.|X    0x0|
|000012e0| 30 2c 20 30 78 30 38 2c | 20 30 78 31 31 2c 20 30 |0, 0x08,| 0x11, 0|
|000012f0| 78 31 61 2c 20 30 78 32 | 34 2c 20 30 78 32 66 2c |x1a, 0x2|4, 0x2f,|
|00001300| 20 30 78 33 61 2c 20 30 | 78 34 35 2c 20 30 78 35 | 0x3a, 0|x45, 0x5|
|00001310| 32 2c 20 30 78 35 66 0a | 58 20 20 20 20 7d 3b 0a |2, 0x5f.|X    };.|
|00001320| 58 0a 58 2f 2a 20 20 54 | 68 65 20 66 6f 6c 6c 6f |X.X/*  T|he follo|
|00001330| 77 69 6e 67 20 74 61 62 | 6c 65 20 63 6f 6e 76 65 |wing tab|le conve|
|00001340| 72 74 73 20 57 41 56 45 | 20 6b 65 79 20 66 6f 6c |rts WAVE| key fol|
|00001350| 6c 6f 77 20 76 69 73 75 | 61 6c 20 76 61 6c 75 65 |low visu|al value|
|00001360| 73 20 30 2d 39 20 69 6e | 74 6f 0a 58 20 20 20 20 |s 0-9 in|to.X    |
|00001370| 4d 49 44 49 20 76 61 6c | 75 65 73 20 30 30 20 2d |MIDI val|ues 00 -|
|00001380| 20 46 46 2e 0a 58 20 2a | 2f 0a 58 55 42 59 54 45 | FF..X *|/.XUBYTE|
|00001390| 20 6b 65 79 46 6f 6c 6c | 6f 77 4d 49 44 49 5b 31 | keyFoll|owMIDI[1|
|000013a0| 30 5d 20 3d 20 7b 0a 58 | 20 20 20 20 30 78 30 30 |0] = {.X|    0x00|
|000013b0| 2c 20 30 78 31 39 2c 20 | 30 78 33 33 2c 20 30 78 |, 0x19, |0x33, 0x|
|000013c0| 34 65 2c 20 30 78 36 61 | 2c 20 30 78 38 36 2c 20 |4e, 0x6a|, 0x86, |
|000013d0| 30 78 61 33 2c 20 30 78 | 63 31 2c 20 30 78 64 66 |0xa3, 0x|c1, 0xdf|
|000013e0| 2c 20 30 78 66 66 0a 58 | 20 20 20 20 7d 3b 0a 58 |, 0xff.X|    };.X|
|000013f0| 0a 58 2f 2a 20 20 54 68 | 65 20 66 6f 6c 6c 6f 77 |.X/*  Th|e follow|
|00001400| 69 6e 67 20 74 61 62 6c | 65 20 63 6f 6e 76 65 72 |ing tabl|e conver|
|00001410| 74 73 20 61 20 73 69 6d | 70 6c 65 20 56 49 42 52 |ts a sim|ple VIBR|
|00001420| 41 54 4f 20 64 65 70 74 | 68 20 76 61 6c 75 65 20 |ATO dept|h value |
|00001430| 28 30 2e 2e 39 39 29 0a | 58 20 20 20 20 69 6e 74 |(0..99).|X    int|
|00001440| 6f 20 61 20 77 6f 72 64 | 20 72 65 70 72 65 73 65 |o a word| represe|
|00001450| 6e 74 69 6e 67 20 62 79 | 74 65 73 20 31 2d 32 20 |nting by|tes 1-2 |
|00001460| 6f 66 20 74 68 65 20 76 | 69 62 72 61 74 6f 20 64 |of the v|ibrato d|
|00001470| 65 70 74 68 20 67 72 6f | 75 70 2e 20 2a 2f 0a 58 |epth gro|up. */.X|
|00001480| 55 53 48 4f 52 54 20 76 | 44 65 70 74 68 54 61 62 |USHORT v|DepthTab|
|00001490| 6c 65 5b 31 30 30 5d 20 | 3d 20 7b 0a 58 2f 2a 20 |le[100] |= {.X/* |
|000014a0| 30 30 20 2a 2f 20 20 20 | 20 30 78 30 30 30 31 2c |00 */   | 0x0001,|
|000014b0| 20 30 78 30 30 30 32 2c | 20 30 78 30 30 30 33 2c | 0x0002,| 0x0003,|
|000014c0| 20 30 78 30 30 30 34 2c | 20 30 78 30 30 30 35 2c | 0x0004,| 0x0005,|
|000014d0| 0a 58 2f 2a 20 30 35 20 | 2a 2f 20 20 20 20 30 78 |.X/* 05 |*/    0x|
|000014e0| 30 30 30 36 2c 20 30 78 | 30 30 30 37 2c 20 30 78 |0006, 0x|0007, 0x|
|000014f0| 30 30 30 38 2c 20 30 78 | 30 30 30 39 2c 20 30 78 |0008, 0x|0009, 0x|
|00001500| 30 30 30 61 2c 0a 58 2f | 2a 20 31 30 20 2a 2f 20 |000a,.X/|* 10 */ |
|00001510| 20 20 20 30 78 30 30 30 | 62 2c 20 30 78 30 30 30 |   0x000|b, 0x000|
|00001520| 63 2c 20 30 78 30 30 30 | 65 2c 20 30 78 30 30 30 |c, 0x000|e, 0x000|
|00001530| 65 2c 20 30 78 30 30 30 | 66 2c 0a 58 2f 2a 20 31 |e, 0x000|f,.X/* 1|
|00001540| 35 20 2a 2f 20 20 20 20 | 30 78 30 30 31 30 2c 20 |5 */    |0x0010, |
|00001550| 30 78 30 30 31 31 2c 20 | 30 78 30 30 31 32 2c 20 |0x0011, |0x0012, |
|00001560| 30 78 30 30 31 33 2c 20 | 30 78 30 30 31 34 2c 0a |0x0013, |0x0014,.|
|00001570| 58 2f 2a 20 32 30 20 2a | 2f 20 20 20 20 30 78 30 |X/* 20 *|/    0x0|
|00001580| 30 31 35 2c 20 30 78 30 | 30 31 36 2c 20 30 78 30 |015, 0x0|016, 0x0|
|00001590| 30 31 37 2c 20 30 78 30 | 30 31 38 2c 20 30 78 30 |017, 0x0|018, 0x0|
|000015a0| 30 31 39 2c 0a 58 2f 2a | 20 32 35 20 2a 2f 20 20 |019,.X/*| 25 */  |
|000015b0| 20 20 30 78 30 30 31 61 | 2c 20 30 78 30 30 31 62 |  0x001a|, 0x001b|
|000015c0| 2c 20 30 78 30 30 31 63 | 2c 20 30 78 30 30 31 64 |, 0x001c|, 0x001d|
|000015d0| 2c 20 30 78 30 30 31 65 | 2c 0a 58 2f 2a 20 33 30 |, 0x001e|,.X/* 30|
|000015e0| 20 2a 2f 20 20 20 20 30 | 78 30 30 31 66 2c 20 30 | */    0|x001f, 0|
|000015f0| 78 30 30 32 30 2c 20 30 | 78 30 30 32 33 2c 20 30 |x0020, 0|x0023, 0|
|00001600| 78 30 30 32 35 2c 20 30 | 78 30 30 32 37 2c 0a 58 |x0025, 0|x0027,.X|
|00001610| 2f 2a 20 33 35 20 2a 2f | 20 20 20 20 30 78 30 30 |/* 35 */|    0x00|
|00001620| 32 39 2c 20 30 78 30 30 | 32 62 2c 20 30 78 30 30 |29, 0x00|2b, 0x00|
|00001630| 32 64 2c 20 30 78 30 30 | 32 66 2c 20 30 78 30 30 |2d, 0x00|2f, 0x00|
|00001640| 33 31 2c 0a 58 2f 2a 20 | 34 30 20 2a 2f 20 20 20 |31,.X/* |40 */   |
|00001650| 20 30 78 30 30 33 33 2c | 20 30 78 30 30 33 35 2c | 0x0033,| 0x0035,|
|00001660| 20 30 78 30 30 33 37 2c | 20 30 78 30 30 33 39 2c | 0x0037,| 0x0039,|
|00001670| 20 30 78 30 30 33 62 2c | 0a 58 2f 2a 20 34 35 20 | 0x003b,|.X/* 45 |
|00001680| 2a 2f 20 20 20 20 30 78 | 30 30 33 64 2c 20 30 78 |*/    0x|003d, 0x|
|00001690| 30 30 33 66 2c 20 30 78 | 30 30 34 31 2c 20 30 78 |003f, 0x|0041, 0x|
|000016a0| 30 30 34 37 2c 20 30 78 | 30 30 34 62 2c 0a 58 2f |0047, 0x|004b,.X/|
|000016b0| 2a 20 35 30 20 2a 2f 20 | 20 20 20 30 78 30 30 34 |* 50 */ |   0x004|
|000016c0| 66 2c 20 30 78 30 30 35 | 33 2c 20 30 78 30 30 35 |f, 0x005|3, 0x005|
|000016d0| 37 2c 20 30 78 30 30 35 | 62 2c 20 30 78 30 30 35 |7, 0x005|b, 0x005|
|000016e0| 66 2c 0a 58 2f 2a 20 35 | 35 20 2a 2f 20 20 20 20 |f,.X/* 5|5 */    |
|000016f0| 30 78 30 30 36 33 2c 20 | 30 78 30 30 36 37 2c 20 |0x0063, |0x0067, |
|00001700| 30 78 30 30 36 62 2c 20 | 30 78 30 30 36 66 2c 20 |0x006b, |0x006f, |
|00001710| 30 78 30 30 37 33 2c 0a | 58 2f 2a 20 36 30 20 2a |0x0073,.|X/* 60 *|
|00001720| 2f 20 20 20 20 30 78 30 | 30 37 37 2c 20 30 78 30 |/    0x0|077, 0x0|
|00001730| 30 37 62 2c 20 30 78 30 | 30 37 66 2c 20 30 78 30 |07b, 0x0|07f, 0x0|
|00001740| 30 38 33 2c 20 30 78 30 | 30 38 66 2c 0a 58 2f 2a |083, 0x0|08f,.X/*|
|00001750| 20 36 35 20 2a 2f 20 20 | 20 20 30 78 30 30 39 37 | 65 */  |  0x0097|
|00001760| 2c 20 30 78 30 30 39 66 | 2c 20 30 78 30 30 61 37 |, 0x009f|, 0x00a7|
|00001770| 2c 20 30 78 30 30 61 66 | 2c 20 30 78 30 30 62 37 |, 0x00af|, 0x00b7|
|00001780| 2c 0a 58 2f 2a 20 37 30 | 20 2a 2f 20 20 20 20 30 |,.X/* 70| */    0|
|00001790| 78 30 30 62 66 2c 20 30 | 78 30 30 63 37 2c 20 30 |x00bf, 0|x00c7, 0|
|000017a0| 78 30 30 63 66 2c 20 30 | 78 30 30 64 37 2c 20 30 |x00cf, 0|x00d7, 0|
|000017b0| 78 30 30 64 66 2c 0a 58 | 2f 2a 20 37 35 20 2a 2f |x00df,.X|/* 75 */|
|000017c0| 20 20 20 20 30 78 30 30 | 65 37 2c 20 30 78 30 30 |    0x00|e7, 0x00|
|000017d0| 65 66 2c 20 30 78 30 30 | 66 37 2c 20 30 78 30 30 |ef, 0x00|f7, 0x00|
|000017e0| 66 66 2c 20 30 78 30 31 | 30 37 2c 0a 58 2f 2a 20 |ff, 0x01|07,.X/* |
|000017f0| 38 30 20 2a 2f 20 20 20 | 20 30 78 30 31 31 66 2c |80 */   | 0x011f,|
|00001800| 20 30 78 30 31 32 66 2c | 20 30 78 30 31 33 66 2c | 0x012f,| 0x013f,|
|00001810| 20 30 78 30 31 34 66 2c | 20 30 78 30 31 35 66 2c | 0x014f,| 0x015f,|
|00001820| 0a 58 2f 2a 20 38 35 20 | 2a 2f 20 20 20 20 30 78 |.X/* 85 |*/    0x|
|00001830| 30 31 36 66 2c 20 30 78 | 30 31 37 66 2c 20 30 78 |016f, 0x|017f, 0x|
|00001840| 30 31 38 66 2c 20 30 78 | 30 31 39 66 2c 20 30 78 |018f, 0x|019f, 0x|
|00001850| 30 31 61 66 2c 0a 58 2f | 2a 20 39 30 20 2a 2f 20 |01af,.X/|* 90 */ |
|00001860| 20 20 20 30 78 30 31 62 | 66 2c 20 30 78 30 31 63 |   0x01b|f, 0x01c|
|00001870| 66 2c 20 30 78 30 31 64 | 66 2c 20 30 78 30 31 65 |f, 0x01d|f, 0x01e|
|00001880| 66 2c 20 30 78 30 31 66 | 66 2c 0a 58 2f 2a 20 39 |f, 0x01f|f,.X/* 9|
|00001890| 35 20 2a 2f 20 20 20 20 | 30 78 30 32 30 66 2c 20 |5 */    |0x020f, |
|000018a0| 30 78 30 32 33 66 2c 20 | 30 78 30 32 35 66 2c 20 |0x023f, |0x025f, |
|000018b0| 30 78 30 32 37 66 2c 20 | 30 78 30 33 30 30 0a 58 |0x027f, |0x0300.X|
|000018c0| 7d 3b 0a 58 0a 58 0a 58 | 2f 2a 20 20 54 68 65 20 |};.X.X.X|/*  The |
|000018d0| 66 6f 6c 6c 6f 77 69 6e | 67 20 74 61 62 6c 65 20 |followin|g table |
|000018e0| 63 6f 6e 76 65 72 74 73 | 20 61 20 73 69 6d 70 6c |converts| a simpl|
|000018f0| 65 20 56 49 42 52 41 54 | 4f 20 64 65 6c 61 79 20 |e VIBRAT|O delay |
|00001900| 74 69 6d 65 20 69 6e 64 | 65 78 0a 58 20 20 20 20 |time ind|ex.X    |
|00001910| 28 30 2e 2e 39 39 29 20 | 69 6e 74 6f 20 61 20 77 |(0..99) |into a w|
|00001920| 6f 72 64 20 72 65 70 72 | 65 73 65 6e 74 69 6e 67 |ord repr|esenting|
|00001930| 20 74 68 65 20 73 65 63 | 6f 6e 64 20 74 77 6f 20 | the sec|ond two |
|00001940| 62 79 74 65 73 20 6f 66 | 20 74 68 65 0a 58 20 20 |bytes of| the.X  |
|00001950| 20 20 76 69 62 72 61 74 | 6f 20 64 65 6c 61 79 20 |  vibrat|o delay |
|00001960| 67 72 6f 75 70 2e 20 20 | 41 73 20 75 73 75 61 6c |group.  |As usual|
|00001970| 2c 20 74 68 69 73 20 72 | 65 70 72 65 73 65 6e 74 |, this r|epresent|
|00001980| 73 20 73 6f 6d 65 20 72 | 65 61 6c 6c 79 20 77 69 |s some r|eally wi|
|00001990| 65 72 64 0a 58 20 20 20 | 20 65 6e 63 6f 64 69 6e |erd.X   | encodin|
|000019a0| 67 2e 0a 58 2a 2f 0a 58 | 0a 58 55 53 48 4f 52 54 |g..X*/.X|.XUSHORT|
|000019b0| 20 76 44 65 6c 61 79 54 | 61 62 6c 65 5b 31 30 30 | vDelayT|able[100|
|000019c0| 5d 20 3d 20 7b 0a 58 2f | 2a 20 30 30 20 2a 2f 20 |] = {.X/|* 00 */ |
|000019d0| 20 20 20 30 78 30 30 30 | 30 2c 20 30 78 30 30 30 |   0x000|0, 0x000|
|000019e0| 31 2c 20 30 78 30 30 30 | 32 2c 20 30 78 30 30 30 |1, 0x000|2, 0x000|
|000019f0| 33 2c 20 30 78 30 30 30 | 34 2c 0a 58 2f 2a 20 30 |3, 0x000|4,.X/* 0|
|00001a00| 35 20 2a 2f 20 20 20 20 | 30 78 30 30 30 35 2c 20 |5 */    |0x0005, |
|00001a10| 30 78 30 30 30 36 2c 20 | 30 78 30 30 30 37 2c 20 |0x0006, |0x0007, |
|00001a20| 30 78 30 30 30 38 2c 20 | 30 78 30 30 30 39 2c 0a |0x0008, |0x0009,.|
|00001a30| 58 2f 2a 20 31 30 20 2a | 2f 20 20 20 20 30 78 30 |X/* 10 *|/    0x0|
|00001a40| 30 30 61 2c 20 30 78 30 | 30 30 62 2c 20 30 78 30 |00a, 0x0|00b, 0x0|
|00001a50| 30 30 63 2c 20 30 78 30 | 30 30 64 2c 20 30 78 30 |00c, 0x0|00d, 0x0|
|00001a60| 30 30 65 2c 0a 58 2f 2a | 20 31 35 20 2a 2f 20 20 |00e,.X/*| 15 */  |
|00001a70| 20 20 30 78 30 30 30 66 | 2c 20 30 78 30 30 31 30 |  0x000f|, 0x0010|
|00001a80| 2c 20 30 78 30 30 31 31 | 2c 20 30 78 30 30 31 32 |, 0x0011|, 0x0012|
|00001a90| 2c 20 30 78 30 30 31 33 | 2c 0a 58 2f 2a 20 32 30 |, 0x0013|,.X/* 20|
|00001aa0| 20 2a 2f 20 20 20 20 30 | 78 30 30 31 34 2c 20 30 | */    0|x0014, 0|
|00001ab0| 78 30 30 31 35 2c 20 30 | 78 30 30 31 36 2c 20 30 |x0015, 0|x0016, 0|
|00001ac0| 78 30 30 31 37 2c 20 30 | 78 30 30 31 38 2c 0a 58 |x0017, 0|x0018,.X|
|00001ad0| 2f 2a 20 32 35 20 2a 2f | 20 20 20 20 30 78 30 30 |/* 25 */|    0x00|
|00001ae0| 31 39 2c 20 30 78 30 30 | 31 61 2c 20 30 78 30 30 |19, 0x00|1a, 0x00|
|00001af0| 31 62 2c 20 30 78 30 30 | 31 63 2c 20 30 78 30 30 |1b, 0x00|1c, 0x00|
|00001b00| 31 64 2c 0a 58 2f 2a 20 | 33 30 20 2a 2f 20 20 20 |1d,.X/* |30 */   |
|00001b10| 20 30 78 30 30 31 65 2c | 20 30 78 30 30 31 66 2c | 0x001e,| 0x001f,|
|00001b20| 20 30 78 30 30 32 31 2c | 20 30 78 30 30 32 33 2c | 0x0021,| 0x0023,|
|00001b30| 20 30 78 30 30 32 35 2c | 20 2f 2a 20 3c 3d 3d 20 | 0x0025,| /* <== |
|00001b40| 63 68 61 6e 67 65 20 62 | 65 67 69 6e 73 20 2a 2f |change b|egins */|
|00001b50| 0a 58 2f 2a 20 33 35 20 | 2a 2f 20 20 20 20 30 78 |.X/* 35 |*/    0x|
|00001b60| 30 30 32 37 2c 20 30 78 | 30 30 32 39 2c 20 30 78 |0027, 0x|0029, 0x|
|00001b70| 30 30 32 62 2c 20 30 78 | 30 30 32 64 2c 20 30 78 |002b, 0x|002d, 0x|
|00001b80| 30 30 32 66 2c 0a 58 2f | 2a 20 34 30 20 2a 2f 20 |002f,.X/|* 40 */ |
|00001b90| 20 20 20 30 78 30 30 33 | 31 2c 20 30 78 30 30 33 |   0x003|1, 0x003|
|00001ba0| 33 2c 20 30 78 30 30 33 | 35 2c 20 30 78 30 30 33 |3, 0x003|5, 0x003|
|00001bb0| 37 2c 20 30 78 30 30 33 | 39 2c 0a 58 2f 2a 20 34 |7, 0x003|9,.X/* 4|
|00001bc0| 35 20 2a 2f 20 20 20 20 | 30 78 30 30 33 62 2c 20 |5 */    |0x003b, |
|00001bd0| 30 78 30 30 33 64 2c 20 | 30 78 30 30 33 66 2c 20 |0x003d, |0x003f, |
|00001be0| 30 78 30 30 34 33 2c 20 | 30 78 30 30 34 37 2c 0a |0x0043, |0x0047,.|
|00001bf0| 58 2f 2a 20 35 30 20 2a | 2f 20 20 20 20 30 78 30 |X/* 50 *|/    0x0|
|00001c00| 30 34 62 2c 20 30 78 30 | 30 34 66 2c 20 30 78 30 |04b, 0x0|04f, 0x0|
|00001c10| 30 35 33 2c 20 30 78 30 | 30 35 37 2c 20 30 78 30 |053, 0x0|057, 0x0|
|00001c20| 30 35 62 2c 0a 58 2f 2a | 20 35 35 20 2a 2f 20 20 |05b,.X/*| 55 */  |
|00001c30| 20 20 30 78 30 30 35 66 | 2c 20 30 78 30 30 36 33 |  0x005f|, 0x0063|
|00001c40| 2c 20 30 78 30 30 36 37 | 2c 20 30 78 30 30 36 62 |, 0x0067|, 0x006b|
|00001c50| 2c 20 30 78 30 30 36 66 | 2c 0a 58 2f 2a 20 36 30 |, 0x006f|,.X/* 60|
|00001c60| 20 2a 2f 20 20 20 20 30 | 78 30 30 37 33 2c 20 30 | */    0|x0073, 0|
|00001c70| 78 30 30 37 37 2c 20 30 | 78 30 30 37 62 2c 20 30 |x0077, 0|x007b, 0|
|00001c80| 78 30 30 37 66 2c 20 30 | 78 30 30 38 37 2c 0a 58 |x007f, 0|x0087,.X|
|00001c90| 2f 2a 20 36 35 20 2a 2f | 20 20 20 20 30 78 30 30 |/* 65 */|    0x00|
|00001ca0| 38 66 2c 20 30 78 30 30 | 39 37 2c 20 30 78 30 30 |8f, 0x00|97, 0x00|
|00001cb0| 39 66 2c 20 30 78 30 30 | 61 37 2c 20 30 78 30 30 |9f, 0x00|a7, 0x00|
|00001cc0| 61 66 2c 0a 58 2f 2a 20 | 37 30 20 2a 2f 20 20 20 |af,.X/* |70 */   |
|00001cd0| 20 30 78 30 30 62 37 2c | 20 30 78 30 30 62 66 2c | 0x00b7,| 0x00bf,|
|00001ce0| 20 30 78 30 30 63 37 2c | 20 30 78 30 30 64 37 2c | 0x00c7,| 0x00d7,|
|00001cf0| 20 30 78 30 30 64 66 2c | 0a 58 2f 2a 20 37 35 20 | 0x00df,|.X/* 75 |
|00001d00| 2a 2f 20 20 20 20 30 78 | 30 30 65 37 2c 20 30 78 |*/    0x|00e7, 0x|
|00001d10| 30 30 65 66 2c 20 30 78 | 30 30 66 37 2c 20 30 78 |00ef, 0x|00f7, 0x|
|00001d20| 30 30 66 66 2c 20 30 78 | 30 30 30 66 2c 0a 58 2f |00ff, 0x|000f,.X/|
|00001d30| 2a 20 38 30 20 2a 2f 20 | 20 20 20 30 78 30 31 30 |* 80 */ |   0x010|
|00001d40| 66 2c 20 30 78 30 31 31 | 66 2c 20 30 78 30 31 32 |f, 0x011|f, 0x012|
|00001d50| 66 2c 20 30 78 30 31 33 | 66 2c 20 30 78 30 31 34 |f, 0x013|f, 0x014|
|00001d60| 66 2c 0a 58 2f 2a 20 38 | 35 20 2a 2f 20 20 20 20 |f,.X/* 8|5 */    |
|00001d70| 30 78 30 31 35 66 2c 20 | 30 78 30 31 36 66 2c 20 |0x015f, |0x016f, |
|00001d80| 30 78 30 31 37 66 2c 20 | 30 78 30 31 38 66 2c 20 |0x017f, |0x018f, |
|00001d90| 30 78 30 31 39 66 2c 0a | 58 2f 2a 20 39 30 20 2a |0x019f,.|X/* 90 *|
|00001da0| 2f 20 20 20 20 30 78 30 | 31 61 66 2c 20 30 78 30 |/    0x0|1af, 0x0|
|00001db0| 31 62 66 2c 20 30 78 30 | 31 63 66 2c 20 30 78 30 |1bf, 0x0|1cf, 0x0|
|00001dc0| 31 64 66 2c 20 30 78 30 | 31 65 66 2c 0a 58 2f 2a |1df, 0x0|1ef,.X/*|
|00001dd0| 20 39 35 20 2a 2f 20 20 | 20 20 30 78 30 31 66 66 | 95 */  |  0x01ff|
|00001de0| 2c 20 30 78 30 32 31 66 | 2c 20 30 78 30 32 33 66 |, 0x021f|, 0x023f|
|00001df0| 2c 20 30 78 30 32 35 66 | 2c 20 30 78 30 31 37 66 |, 0x025f|, 0x017f|
|00001e00| 0a 58 7d 3b 0a 58 0a 58 | 2f 2a 20 20 54 68 65 20 |.X};.X.X|/*  The |
|00001e10| 66 6f 6c 6c 6f 77 69 6e | 67 20 74 61 62 6c 65 20 |followin|g table |
|00001e20| 63 6f 6e 76 65 72 74 73 | 20 61 20 73 69 6d 70 6c |converts| a simpl|
|00001e30| 65 20 56 49 42 52 41 54 | 4f 20 72 61 74 65 20 69 |e VIBRAT|O rate i|
|00001e40| 6e 64 65 78 20 28 30 2e | 2e 39 39 29 0a 58 20 20 |ndex (0.|.99).X  |
|00001e50| 20 20 69 6e 74 6f 20 74 | 68 65 20 76 61 6c 75 65 |  into t|he value|
|00001e60| 20 6f 66 20 62 79 74 65 | 73 20 31 2d 32 20 6f 66 | of byte|s 1-2 of|
|00001e70| 20 74 68 65 20 76 69 62 | 72 61 74 6f 20 72 61 74 | the vib|rato rat|
|00001e80| 65 20 67 72 6f 75 70 2e | 20 2a 2f 0a 58 55 53 48 |e group.| */.XUSH|
|00001e90| 4f 52 54 20 76 52 61 74 | 65 54 61 62 6c 65 5b 31 |ORT vRat|eTable[1|
|00001ea0| 30 30 5d 20 3d 20 7b 0a | 58 2f 2a 20 30 30 20 2a |00] = {.|X/* 00 *|
|00001eb0| 2f 20 20 20 20 30 78 30 | 30 32 30 2c 20 30 78 30 |/    0x0|020, 0x0|
|00001ec0| 30 34 30 2c 20 30 78 30 | 30 36 30 2c 20 30 78 30 |040, 0x0|060, 0x0|
|00001ed0| 30 38 30 2c 20 30 78 30 | 30 61 30 2c 0a 58 2f 2a |080, 0x0|0a0,.X/*|
|00001ee0| 20 30 35 20 2a 2f 20 20 | 20 20 30 78 30 30 63 30 | 05 */  |  0x00c0|
|00001ef0| 2c 20 30 78 30 30 65 30 | 2c 20 30 78 30 31 30 30 |, 0x00e0|, 0x0100|
|00001f00| 2c 20 30 78 30 31 32 30 | 2c 20 30 78 30 31 34 30 |, 0x0120|, 0x0140|
|00001f10| 2c 0a 58 2f 2a 20 31 30 | 20 2a 2f 20 20 20 20 30 |,.X/* 10| */    0|
|00001f20| 78 30 31 36 30 2c 20 30 | 78 30 31 38 30 2c 20 30 |x0160, 0|x0180, 0|
|00001f30| 78 30 31 61 30 2c 20 30 | 78 30 31 63 30 2c 20 30 |x01a0, 0|x01c0, 0|
|00001f40| 78 30 31 65 30 2c 0a 58 | 2f 2a 20 31 35 20 2a 2f |x01e0,.X|/* 15 */|
|00001f50| 20 20 20 20 30 78 30 32 | 30 30 2c 20 30 78 30 32 |    0x02|00, 0x02|
|00001f60| 32 30 2c 20 30 78 30 32 | 34 30 2c 20 30 78 30 32 |20, 0x02|40, 0x02|
|00001f70| 36 30 2c 20 30 78 30 32 | 38 30 2c 0a 58 2f 2a 20 |60, 0x02|80,.X/* |
|00001f80| 32 30 20 2a 2f 20 20 20 | 20 30 78 30 32 61 30 2c |20 */   | 0x02a0,|
|00001f90| 20 30 78 30 32 63 30 2c | 20 30 78 30 32 65 30 2c | 0x02c0,| 0x02e0,|
|00001fa0| 20 30 78 30 33 30 30 2c | 20 30 78 30 33 32 30 2c | 0x0300,| 0x0320,|
|00001fb0| 0a 58 2f 2a 20 32 35 20 | 2a 2f 20 20 20 20 30 78 |.X/* 25 |*/    0x|
|00001fc0| 30 33 34 30 2c 20 30 78 | 30 33 36 30 2c 20 30 78 |0340, 0x|0360, 0x|
|00001fd0| 30 33 38 30 2c 20 30 78 | 30 33 61 30 2c 20 30 78 |0380, 0x|03a0, 0x|
|00001fe0| 30 33 63 30 2c 0a 58 2f | 2a 20 33 30 20 2a 2f 20 |03c0,.X/|* 30 */ |
|00001ff0| 20 20 20 30 78 30 33 65 | 30 2c 20 30 78 30 34 30 |   0x03e|0, 0x040|
|00002000| 30 2c 20 30 78 30 34 36 | 30 2c 20 30 78 30 34 61 |0, 0x046|0, 0x04a|
|00002010| 30 2c 20 30 78 30 34 65 | 30 2c 0a 58 2f 2a 20 33 |0, 0x04e|0,.X/* 3|
|00002020| 35 20 2a 2f 20 20 20 20 | 30 78 30 35 32 30 2c 20 |5 */    |0x0520, |
|00002030| 30 78 30 35 36 30 2c 20 | 30 78 30 35 61 30 2c 20 |0x0560, |0x05a0, |
|00002040| 30 78 30 35 65 30 2c 20 | 30 78 30 36 32 30 2c 0a |0x05e0, |0x0620,.|
|00002050| 58 2f 2a 20 34 30 20 2a | 2f 20 20 20 20 30 78 30 |X/* 40 *|/    0x0|
|00002060| 36 36 30 2c 20 30 78 30 | 36 61 30 2c 20 30 78 30 |660, 0x0|6a0, 0x0|
|00002070| 36 65 30 2c 20 30 78 30 | 37 32 30 2c 20 30 78 30 |6e0, 0x0|720, 0x0|
|00002080| 37 36 30 2c 0a 58 2f 2a | 20 34 35 20 2a 2f 20 20 |760,.X/*| 45 */  |
|00002090| 20 20 30 78 30 37 61 30 | 2c 20 30 78 30 37 65 30 |  0x07a0|, 0x07e0|
|000020a0| 2c 20 30 78 30 38 32 30 | 2c 20 30 78 30 38 65 30 |, 0x0820|, 0x08e0|
|000020b0| 2c 20 30 78 30 39 36 30 | 2c 0a 58 2f 2a 20 35 30 |, 0x0960|,.X/* 50|
|000020c0| 20 2a 2f 20 20 20 20 30 | 78 30 39 65 30 2c 20 30 | */    0|x09e0, 0|
|000020d0| 78 30 61 36 30 2c 20 30 | 78 30 61 65 30 2c 20 30 |x0a60, 0|x0ae0, 0|
|000020e0| 78 30 62 36 30 2c 20 30 | 78 30 62 65 30 2c 0a 58 |x0b60, 0|x0be0,.X|
|000020f0| 2f 2a 20 35 35 20 2a 2f | 20 20 20 20 30 78 30 63 |/* 55 */|    0x0c|
|00002100| 36 30 2c 20 30 78 30 63 | 65 30 2c 20 30 78 30 64 |60, 0x0c|e0, 0x0d|
|00002110| 36 30 2c 20 30 78 30 64 | 65 30 2c 20 30 78 30 65 |60, 0x0d|e0, 0x0e|
|00002120| 36 30 2c 0a 58 2f 2a 20 | 36 30 20 2a 2f 20 20 20 |60,.X/* |60 */   |
|00002130| 20 30 78 30 65 65 30 2c | 20 30 78 30 66 36 30 2c | 0x0ee0,| 0x0f60,|
|00002140| 20 30 78 30 66 65 30 2c | 20 30 78 31 30 36 30 2c | 0x0fe0,| 0x1060,|
|00002150| 20 30 78 31 31 65 30 2c | 0a 58 2f 2a 20 36 35 20 | 0x11e0,|.X/* 65 |
|00002160| 2a 2f 20 20 20 20 30 78 | 31 32 65 30 2c 20 30 78 |*/    0x|12e0, 0x|
|00002170| 31 33 65 30 2c 20 30 78 | 31 34 65 30 2c 20 30 78 |13e0, 0x|14e0, 0x|
|00002180| 31 35 65 30 2c 20 30 78 | 31 36 65 30 2c 0a 58 2f |15e0, 0x|16e0,.X/|
|00002190| 2a 20 37 30 20 2a 2f 20 | 20 20 20 30 78 31 37 65 |* 70 */ |   0x17e|
|000021a0| 30 2c 20 30 78 31 38 65 | 30 2c 20 30 78 31 39 65 |0, 0x18e|0, 0x19e|
|000021b0| 30 2c 20 30 78 31 61 65 | 30 2c 20 30 78 31 62 65 |0, 0x1ae|0, 0x1be|
|000021c0| 30 2c 0a 58 2f 2a 20 37 | 35 20 2a 2f 20 20 20 20 |0,.X/* 7|5 */    |
|000021d0| 30 78 31 63 65 30 2c 20 | 30 78 31 64 65 30 2c 20 |0x1ce0, |0x1de0, |
|000021e0| 30 78 31 65 65 30 2c 20 | 30 78 31 66 65 30 2c 20 |0x1ee0, |0x1fe0, |
|000021f0| 30 78 32 30 65 30 2c 0a | 58 2f 2a 20 38 30 20 2a |0x20e0,.|X/* 80 *|
|00002200| 2f 20 20 20 20 30 78 32 | 33 65 30 2c 20 30 78 32 |/    0x2|3e0, 0x2|
|00002210| 35 65 30 2c 20 30 78 32 | 37 65 30 2c 20 30 78 32 |5e0, 0x2|7e0, 0x2|
|00002220| 39 65 30 2c 20 30 78 32 | 62 65 30 2c 0a 58 2f 2a |9e0, 0x2|be0,.X/*|
|00002230| 20 38 35 20 2a 2f 20 20 | 20 20 30 78 32 64 33 30 | 85 */  |  0x2d30|
|00002240| 2c 20 30 78 32 66 65 30 | 2c 20 30 78 33 31 65 30 |, 0x2fe0|, 0x31e0|
|00002250| 2c 20 30 78 33 33 65 30 | 2c 20 30 78 33 35 65 30 |, 0x33e0|, 0x35e0|
|00002260| 2c 0a 58 2f 2a 20 39 30 | 20 2a 2f 20 20 20 20 30 |,.X/* 90| */    0|
|00002270| 78 33 37 65 30 2c 20 30 | 78 33 39 65 30 2c 20 30 |x37e0, 0|x39e0, 0|
|00002280| 78 33 62 65 30 2c 20 30 | 78 33 64 65 30 2c 20 30 |x3be0, 0|x3de0, 0|
|00002290| 78 33 66 65 30 2c 0a 58 | 2f 2a 20 39 35 20 2a 2f |x3fe0,.X|/* 95 */|
|000022a0| 20 20 20 20 30 78 34 31 | 65 30 2c 20 30 78 34 37 |    0x41|e0, 0x47|
|000022b0| 65 30 2c 20 30 78 34 62 | 65 30 2c 20 30 78 34 66 |e0, 0x4b|e0, 0x4f|
|000022c0| 65 30 2c 20 30 78 35 33 | 65 30 0a 58 7d 3b 0a 58 |e0, 0x53|e0.X};.X|
|000022d0| 0a 58 0a 58 0a 58 2f 2a | 20 20 46 55 4e 43 54 49 |.X.X.X/*|  FUNCTI|
|000022e0| 4f 4e 0a 58 20 20 20 20 | 20 20 20 20 63 7a 31 64 |ON.X    |    cz1d|
|000022f0| 69 6e 20 2d 20 63 6f 6e | 76 65 72 74 20 43 5a 31 |in - con|vert CZ1|
|00002300| 20 64 61 74 61 20 74 6f | 20 70 72 6f 67 72 61 6d | data to| program|
|00002310| 20 66 6f 72 6d 61 74 2e | 0a 58 0a 58 20 20 20 20 | format.|.X.X    |
|00002320| 53 59 4e 4f 50 53 49 53 | 0a 58 20 20 20 20 20 20 |SYNOPSIS|.X      |
|00002330| 20 20 69 6e 74 20 63 7a | 31 64 69 6e 28 64 61 74 |  int cz|1din(dat|
|00002340| 61 29 0a 58 20 20 20 20 | 20 20 20 20 20 20 20 20 |a).X    |        |
|00002350| 20 20 20 20 73 74 72 75 | 63 74 20 54 6f 6e 65 44 |    stru|ct ToneD|
|00002360| 61 74 61 20 2a 64 61 74 | 61 3b 0a 58 0a 58 20 20 |ata *dat|a;.X.X  |
|00002370| 20 20 44 45 53 43 52 49 | 50 54 49 4f 4e 0a 58 20 |  DESCRI|PTION.X |
|00002380| 20 20 20 20 20 20 20 54 | 61 6b 65 20 69 6e 66 6f |       T|ake info|
|00002390| 20 66 72 6f 6d 20 3c 64 | 61 74 61 3e 20 61 6e 64 | from <d|ata> and|
|000023a0| 20 73 74 75 66 66 20 76 | 61 6c 75 65 73 20 69 6e | stuff v|alues in|
|000023b0| 74 6f 20 74 68 65 20 50 | 20 61 72 72 61 79 2c 20 |to the P| array, |
|000023c0| 75 73 69 6e 67 0a 58 20 | 20 20 20 20 20 20 20 74 |using.X |       t|
|000023d0| 68 65 20 73 65 74 76 61 | 6c 20 61 6e 64 20 73 65 |he setva|l and se|
|000023e0| 74 6f 70 76 61 6c 20 66 | 75 6e 63 74 69 6f 6e 73 |topval f|unctions|
|000023f0| 2e 0a 58 2a 2f 0a 58 69 | 6e 74 0a 58 63 7a 31 64 |..X*/.Xi|nt.Xcz1d|
|00002400| 69 6e 28 64 61 74 61 29 | 0a 58 20 20 20 20 73 74 |in(data)|.X    st|
|00002410| 72 75 63 74 20 54 6f 6e | 65 44 61 74 61 20 2a 64 |ruct Ton|eData *d|
|00002420| 61 74 61 3b 0a 58 7b 0a | 58 20 20 20 20 72 65 67 |ata;.X{.|X    reg|
|00002430| 69 73 74 65 72 20 69 6e | 74 20 20 20 20 20 76 61 |ister in|t     va|
|00002440| 6c 75 65 3b 0a 58 0a 58 | 20 20 20 20 73 65 74 76 |lue;.X.X|    setv|
|00002450| 61 6c 28 22 6c 69 6e 65 | 22 2c 20 28 49 4e 54 31 |al("line|", (INT1|
|00002460| 36 29 64 61 74 61 2d 3e | 6c 69 6e 65 41 6e 64 4f |6)data->|lineAndO|
|00002470| 63 74 61 76 65 20 26 20 | 33 29 3b 0a 58 20 20 20 |ctave & |3);.X   |
|00002480| 20 76 61 6c 75 65 20 3d | 20 28 64 61 74 61 2d 3e | value =| (data->|
|00002490| 77 61 76 65 46 6f 72 6d | 73 31 5b 31 5d 20 3e 3e |waveForm|s1[1] >>|
|000024a0| 20 33 29 20 26 20 37 3b | 0a 58 20 20 20 20 69 66 | 3) & 7;|.X    if|
|000024b0| 20 28 76 61 6c 75 65 20 | 3d 3d 20 34 29 0a 58 20 | (value |== 4).X |
|000024c0| 20 20 20 20 20 20 20 76 | 61 6c 75 65 20 3d 20 52 |       v|alue = R|
|000024d0| 49 4e 47 3b 0a 58 20 20 | 20 20 65 6c 73 65 20 69 |ING;.X  |  else i|
|000024e0| 66 20 28 76 61 6c 75 65 | 20 3d 3d 20 33 29 0a 58 |f (value| == 3).X|
|000024f0| 20 20 20 20 20 20 20 20 | 76 61 6c 75 65 20 3d 20 |        |value = |
|00002500| 4e 4f 49 53 45 3b 0a 58 | 20 20 20 20 73 65 74 76 |NOISE;.X|    setv|
|00002510| 61 6c 28 22 6d 6f 64 22 | 2c 20 28 49 4e 54 31 36 |al("mod"|, (INT16|
|00002520| 29 76 61 6c 75 65 29 3b | 0a 58 20 20 20 20 76 61 |)value);|.X    va|
|00002530| 6c 75 65 20 3d 20 28 64 | 61 74 61 2d 3e 6c 69 6e |lue = (d|ata->lin|
|00002540| 65 41 6e 64 4f 63 74 61 | 76 65 20 3e 3e 20 32 29 |eAndOcta|ve >> 2)|
|00002550| 20 26 20 33 3b 0a 58 20 | 20 20 20 69 66 20 28 76 | & 3;.X |   if (v|
|00002560| 61 6c 75 65 20 3d 3d 20 | 32 29 20 76 61 6c 75 65 |alue == |2) value|
|00002570| 20 3d 20 2d 31 3b 20 20 | 20 20 20 2f 2a 20 32 20 | = -1;  |   /* 2 |
|00002580| 3d 3e 20 2d 31 20 2a 2f | 0a 58 20 20 20 20 73 65 |=> -1 */|.X    se|
|00002590| 74 76 61 6c 28 22 6f 63 | 74 22 2c 20 28 49 4e 54 |tval("oc|t", (INT|
|000025a0| 31 36 29 76 61 6c 75 65 | 29 3b 0a 58 0a 58 20 20 |16)value|);.X.X  |
|000025b0| 20 20 2f 2a 20 45 78 74 | 72 61 63 74 20 74 68 65 |  /* Ext|ract the|
|000025c0| 20 44 45 54 55 4e 45 20 | 69 6e 66 6f 72 6d 61 74 | DETUNE |informat|
|000025d0| 69 6f 6e 3a 20 2a 2f 0a | 58 20 20 20 20 73 65 74 |ion: */.|X    set|
|000025e0| 76 61 6c 28 22 64 65 74 | 73 69 67 6e 22 2c 20 28 |val("det|sign", (|
|000025f0| 49 4e 54 31 36 29 64 61 | 74 61 2d 3e 64 65 74 75 |INT16)da|ta->detu|
|00002600| 6e 65 53 69 67 6e 29 3b | 0a 58 0a 58 20 20 20 20 |neSign);|.X.X    |
|00002610| 2f 2a 20 54 68 65 20 46 | 49 4e 45 20 64 65 74 75 |/* The F|INE detu|
|00002620| 6e 65 20 69 6e 66 6f 20 | 6d 75 73 74 20 68 61 76 |ne info |must hav|
|00002630| 65 20 61 20 63 6f 72 72 | 65 63 74 69 6f 6e 20 66 |e a corr|ection f|
|00002640| 61 63 74 6f 72 20 61 70 | 70 6c 69 65 64 3a 20 2a |actor ap|plied: *|
|00002650| 2f 0a 58 20 20 20 20 76 | 61 6c 75 65 20 3d 20 64 |/.X    v|alue = d|
|00002660| 61 74 61 2d 3e 64 65 74 | 75 6e 65 46 69 6e 65 20 |ata->det|uneFine |
|00002670| 3e 3e 20 32 3b 0a 58 20 | 20 20 20 69 66 20 28 76 |>> 2;.X |   if (v|
|00002680| 61 6c 75 65 20 3e 20 34 | 37 29 20 76 61 6c 75 65 |alue > 4|7) value|
|00002690| 20 2d 3d 20 33 3b 0a 58 | 20 20 20 20 65 6c 73 65 | -= 3;.X|    else|
|000026a0| 20 69 66 20 28 76 61 6c | 75 65 20 3e 20 33 31 29 | if (val|ue > 31)|
|000026b0| 20 76 61 6c 75 65 20 2d | 3d 20 32 3b 0a 58 20 20 | value -|= 2;.X  |
|000026c0| 20 20 65 6c 73 65 20 69 | 66 20 28 76 61 6c 75 65 |  else i|f (value|
|000026d0| 20 3e 20 31 35 29 20 76 | 61 6c 75 65 20 2d 3d 20 | > 15) v|alue -= |
|000026e0| 31 3b 0a 58 20 20 20 20 | 73 65 74 76 61 6c 28 22 |1;.X    |setval("|
|000026f0| 64 65 74 66 69 6e 65 22 | 2c 20 28 49 4e 54 31 36 |detfine"|, (INT16|
|00002700| 29 76 61 6c 75 65 29 3b | 0a 58 0a 58 20 20 20 20 |)value);|.X.X    |
|00002710| 2f 2a 20 54 68 65 20 4e | 4f 54 45 20 61 6e 64 20 |/* The N|OTE and |
|00002720| 4f 43 54 41 56 45 20 64 | 65 74 75 6e 65 20 69 6e |OCTAVE d|etune in|
|00002730| 66 6f 20 61 72 65 20 6f | 62 74 61 69 6e 65 64 20 |fo are o|btained |
|00002740| 62 79 20 66 61 63 74 6f | 72 69 6e 67 20 74 68 65 |by facto|ring the|
|00002750| 0a 58 20 20 20 20 20 20 | 20 73 65 6d 69 74 6f 6e |.X      | semiton|
|00002760| 65 20 69 6e 66 6f 20 69 | 6e 20 64 65 74 75 6e 65 |e info i|n detune|
|00002770| 43 6f 61 72 73 65 3a 20 | 2a 2f 0a 58 0a 58 20 20 |Coarse: |*/.X.X  |
|00002780| 20 20 73 65 74 76 61 6c | 28 22 64 65 74 6e 6f 74 |  setval|("detnot|
|00002790| 65 22 2c 20 28 49 4e 54 | 31 36 29 64 61 74 61 2d |e", (INT|16)data-|
|000027a0| 3e 64 65 74 75 6e 65 43 | 6f 61 72 73 65 20 25 20 |>detuneC|oarse % |
|000027b0| 31 32 29 3b 0a 58 20 20 | 20 20 73 65 74 76 61 6c |12);.X  |  setval|
|000027c0| 28 22 64 65 74 6f 63 74 | 22 2c 20 28 49 4e 54 31 |("detoct|", (INT1|
|000027d0| 36 29 64 61 74 61 2d 3e | 64 65 74 75 6e 65 43 6f |6)data->|detuneCo|
|000027e0| 61 72 73 65 20 2f 20 31 | 32 29 3b 0a 58 0a 58 20 |arse / 1|2);.X.X |
|000027f0| 20 20 20 2f 2a 20 47 65 | 74 20 74 68 65 20 56 49 |   /* Ge|t the VI|
|00002800| 42 52 41 54 4f 20 69 6e | 66 6f 3a 20 2a 2f 0a 58 |BRATO in|fo: */.X|
|00002810| 20 20 20 20 76 61 6c 75 | 65 20 3d 20 64 61 74 61 |    valu|e = data|
|00002820| 2d 3e 76 69 62 72 61 74 | 6f 57 61 76 65 20 26 20 |->vibrat|oWave & |
|00002830| 30 78 32 45 3b 0a 58 20 | 20 20 20 73 77 69 74 63 |0x2E;.X |   switc|
|00002840| 68 20 28 76 61 6c 75 65 | 29 20 7b 0a 58 20 20 20 |h (value|) {.X   |
|00002850| 20 63 61 73 65 20 32 3a | 0a 58 20 20 20 20 20 20 | case 2:|.X      |
|00002860| 20 20 76 61 6c 75 65 20 | 3d 20 34 3b 0a 58 20 20 |  value |= 4;.X  |
|00002870| 20 20 20 20 20 20 62 72 | 65 61 6b 3b 0a 58 20 20 |      br|eak;.X  |
|00002880| 20 20 63 61 73 65 20 34 | 3a 0a 58 20 20 20 20 20 |  case 4|:.X     |
|00002890| 20 20 20 76 61 6c 75 65 | 20 3d 20 32 3b 0a 58 20 |   value| = 2;.X |
|000028a0| 20 20 20 20 20 20 20 62 | 72 65 61 6b 3b 0a 58 20 |       b|reak;.X |
|000028b0| 20 20 20 63 61 73 65 20 | 38 3a 0a 58 20 20 20 20 |   case |8:.X    |
|000028c0| 20 20 20 20 76 61 6c 75 | 65 20 3d 20 31 3b 0a 58 |    valu|e = 1;.X|
|000028d0| 20 20 20 20 20 20 20 20 | 62 72 65 61 6b 3b 0a 58 |        |break;.X|
|000028e0| 0a 58 20 20 20 20 63 61 | 73 65 20 33 32 3a 0a 58 |.X    ca|se 32:.X|
|000028f0| 20 20 20 20 20 20 20 20 | 76 61 6c 75 65 20 3d 20 |        |value = |
|00002900| 33 3b 0a 58 20 20 20 20 | 20 20 20 20 62 72 65 61 |3;.X    |    brea|
|00002910| 6b 3b 0a 58 0a 58 20 20 | 20 20 64 65 66 61 75 6c |k;.X.X  |  defaul|
|00002920| 74 3a 0a 58 20 20 20 20 | 20 20 20 20 76 61 6c 75 |t:.X    |    valu|
|00002930| 65 20 3d 20 31 3b 0a 58 | 20 20 20 20 20 20 20 20 |e = 1;.X|        |
|00002940| 62 72 65 61 6b 3b 0a 58 | 0a 58 20 20 20 20 7d 0a |break;.X|.X    }.|
|00002950| 58 20 20 20 20 73 65 74 | 76 61 6c 28 22 76 77 61 |X    set|val("vwa|
|00002960| 76 65 22 2c 20 20 20 20 | 20 28 49 4e 54 31 36 29 |ve",    | (INT16)|
|00002970| 76 61 6c 75 65 29 3b 0a | 58 20 20 20 20 73 65 74 |value);.|X    set|
|00002980| 76 61 6c 28 22 76 64 65 | 6c 61 79 22 2c 20 20 20 |val("vde|lay",   |
|00002990| 20 28 49 4e 54 31 36 29 | 64 61 74 61 2d 3e 76 69 | (INT16)|data->vi|
|000029a0| 62 72 61 74 6f 54 69 6d | 65 5b 30 5d 29 3b 0a 58 |bratoTim|e[0]);.X|
|000029b0| 20 20 20 20 73 65 74 76 | 61 6c 28 22 76 72 61 74 |    setv|al("vrat|
|000029c0| 65 22 2c 20 20 20 20 20 | 28 49 4e 54 31 36 29 64 |e",     |(INT16)d|
|000029d0| 61 74 61 2d 3e 76 69 62 | 72 61 74 6f 52 61 74 65 |ata->vib|ratoRate|
|000029e0| 5b 30 5d 29 3b 0a 58 20 | 20 20 20 73 65 74 76 61 |[0]);.X |   setva|
|000029f0| 6c 28 22 76 64 65 70 74 | 68 22 2c 20 20 20 20 28 |l("vdept|h",    (|
|00002a00| 49 4e 54 31 36 29 64 61 | 74 61 2d 3e 76 69 62 72 |INT16)da|ta->vibr|
|00002a10| 61 74 6f 44 65 70 74 68 | 5b 30 5d 29 3b 0a 58 0a |atoDepth|[0]);.X.|
|00002a20| 58 20 20 20 20 2f 2a 20 | 53 65 74 20 6f 6e 73 63 |X    /* |Set onsc|
|00002a30| 72 65 65 6e 20 70 61 72 | 61 6d 65 74 65 72 73 20 |reen par|ameters |
|00002a40| 66 6f 72 20 70 61 74 63 | 68 20 61 72 65 61 20 31 |for patc|h area 1|
|00002a50| 2e 20 2a 2f 0a 58 20 20 | 20 20 73 65 74 77 61 76 |. */.X  |  setwav|
|00002a60| 65 66 6f 72 6d 73 28 22 | 6f 31 22 2c 20 64 61 74 |eforms("|o1", dat|
|00002a70| 61 2d 3e 77 61 76 65 46 | 6f 72 6d 73 31 29 3b 0a |a->waveF|orms1);.|
|00002a80| 58 0a 58 20 20 20 20 2f | 2a 20 73 65 74 65 6e 76 |X.X    /|* setenv|
|00002a90| 65 6c 6f 70 65 20 73 65 | 74 73 20 61 6c 6c 20 72 |elope se|ts all r|
|00002aa0| 61 74 65 73 20 61 6e 64 | 20 6c 65 76 65 6c 73 20 |ates and| levels |
|00002ab0| 66 6f 72 20 61 6e 20 65 | 6e 76 65 6c 6f 70 65 2e |for an e|nvelope.|
|00002ac0| 20 2a 2f 0a 58 20 20 20 | 20 73 65 74 65 6e 76 65 | */.X   | setenve|
|00002ad0| 6c 6f 70 65 28 22 6f 31 | 22 2c 20 64 61 74 61 2d |lope("o1|", data-|
|00002ae0| 3e 44 43 4f 5f 45 6e 76 | 65 6c 6f 70 65 31 2c 20 |>DCO_Env|elope1, |
|00002af0| 64 61 74 61 2d 3e 44 43 | 4f 5f 45 6e 64 53 74 65 |data->DC|O_EndSte|
|00002b00| 70 31 29 3b 0a 58 20 20 | 20 20 73 65 74 65 6e 76 |p1);.X  |  setenv|
|00002b10| 65 6c 6f 70 65 28 22 77 | 31 22 2c 20 64 61 74 61 |elope("w|1", data|
|00002b20| 2d 3e 44 43 57 5f 45 6e | 76 65 6c 6f 70 65 31 2c |->DCW_En|velope1,|
|00002b30| 20 64 61 74 61 2d 3e 44 | 43 57 5f 45 6e 64 53 74 | data->D|CW_EndSt|
|00002b40| 65 70 31 29 3b 0a 58 20 | 20 20 20 73 65 74 65 6e |ep1);.X |   seten|
|00002b50| 76 65 6c 6f 70 65 28 22 | 61 31 22 2c 20 64 61 74 |velope("|a1", dat|
|00002b60| 61 2d 3e 44 43 41 5f 45 | 6e 76 65 6c 6f 70 65 31 |a->DCA_E|nvelope1|
|00002b70| 2c 20 64 61 74 61 2d 3e | 44 43 41 5f 45 6e 64 53 |, data->|DCA_EndS|
|00002b80| 74 65 70 31 29 3b 0a 58 | 0a 58 20 20 20 20 2f 2a |tep1);.X|.X    /*|
|00002b90| 20 53 65 74 20 6b 65 79 | 20 66 6f 6c 6c 6f 77 20 | Set key| follow |
|00002ba0| 70 61 72 61 6d 65 74 65 | 72 73 20 66 6f 72 20 61 |paramete|rs for a|
|00002bb0| 72 65 61 20 31 2e 20 2a | 2f 0a 58 0a 58 20 20 20 |rea 1. *|/.X.X   |
|00002bc0| 20 73 65 74 76 61 6c 28 | 22 77 66 31 22 2c 20 28 | setval(|"wf1", (|
|00002bd0| 49 4e 54 31 36 29 64 61 | 74 61 2d 3e 44 43 57 31 |INT16)da|ta->DCW1|
|00002be0| 5f 4b 65 79 46 6f 6c 6c | 6f 77 5b 30 5d 20 26 20 |_KeyFoll|ow[0] & |
|00002bf0| 30 78 66 29 3b 0a 58 20 | 20 20 20 73 65 74 76 61 |0xf);.X |   setva|
|00002c00| 6c 28 22 61 66 31 22 2c | 20 28 49 4e 54 31 36 29 |l("af1",| (INT16)|
|00002c10| 64 61 74 61 2d 3e 44 43 | 41 31 5f 4b 65 79 46 6f |data->DC|A1_KeyFo|
|00002c20| 6c 6c 6f 77 5b 30 5d 20 | 26 20 30 78 66 29 3b 0a |llow[0] |& 0xf);.|
|00002c30| 58 0a 58 20 20 20 20 76 | 61 6c 75 65 20 3d 20 31 |X.X    v|alue = 1|
|00002c40| 35 20 2d 20 28 64 61 74 | 61 2d 3e 44 43 41 31 5f |5 - (dat|a->DCA1_|
|00002c50| 4b 65 79 46 6f 6c 6c 6f | 77 5b 30 5d 20 3e 3e 20 |KeyFollo|w[0] >> |
|00002c60| 34 29 3b 0a 58 20 20 20 | 20 73 65 74 76 61 6c 28 |4);.X   | setval(|
|00002c70| 22 6c 65 76 65 6c 31 22 | 2c 20 28 49 4e 54 31 36 |"level1"|, (INT16|
|00002c80| 29 76 61 6c 75 65 29 3b | 0a 58 0a 58 20 20 20 20 |)value);|.X.X    |
|00002c90| 2f 2a 20 53 65 74 20 6f | 6e 73 63 72 65 65 6e 20 |/* Set o|nscreen |
|00002ca0| 70 61 72 61 6d 65 74 65 | 72 73 20 66 6f 72 20 70 |paramete|rs for p|
|00002cb0| 61 74 63 68 20 61 72 65 | 61 20 32 2e 20 2a 2f 0a |atch are|a 2. */.|
|00002cc0| 58 20 20 20 20 73 65 74 | 77 61 76 65 66 6f 72 6d |X    set|waveform|
|00002cd0| 73 28 22 6f 32 22 2c 20 | 64 61 74 61 2d 3e 77 61 |s("o2", |data->wa|
|00002ce0| 76 65 46 6f 72 6d 73 32 | 29 3b 0a 58 0a 58 20 20 |veForms2|);.X.X  |
|00002cf0| 20 20 2f 2a 20 53 65 74 | 20 74 68 65 20 65 6e 76 |  /* Set| the env|
|00002d00| 65 6c 6f 70 65 20 70 61 | 72 61 6d 65 74 65 72 73 |elope pa|rameters|
|00002d10| 20 66 6f 72 20 70 61 74 | 63 68 20 61 72 65 61 20 | for pat|ch area |
|00002d20| 32 2e 20 2a 2f 0a 58 20 | 20 20 20 73 65 74 65 6e |2. */.X |   seten|
|00002d30| 76 65 6c 6f 70 65 28 22 | 6f 32 22 2c 20 64 61 74 |velope("|o2", dat|
|00002d40| 61 2d 3e 44 43 4f 5f 45 | 6e 76 65 6c 6f 70 65 32 |a->DCO_E|nvelope2|
|00002d50| 2c 20 64 61 74 61 2d 3e | 44 43 4f 5f 45 6e 64 53 |, data->|DCO_EndS|
|00002d60| 74 65 70 32 29 3b 0a 58 | 20 20 20 20 73 65 74 65 |tep2);.X|    sete|
|00002d70| 6e 76 65 6c 6f 70 65 28 | 22 77 32 22 2c 20 64 61 |nvelope(|"w2", da|
|00002d80| 74 61 2d 3e 44 43 57 5f | 45 6e 76 65 6c 6f 70 65 |ta->DCW_|Envelope|
|00002d90| 32 2c 20 64 61 74 61 2d | 3e 44 43 57 5f 45 6e 64 |2, data-|>DCW_End|
|00002da0| 53 74 65 70 32 29 3b 0a | 58 20 20 20 20 73 65 74 |Step2);.|X    set|
|00002db0| 65 6e 76 65 6c 6f 70 65 | 28 22 61 32 22 2c 20 64 |envelope|("a2", d|
|00002dc0| 61 74 61 2d 3e 44 43 41 | 5f 45 6e 76 65 6c 6f 70 |ata->DCA|_Envelop|
|00002dd0| 65 32 2c 20 64 61 74 61 | 2d 3e 44 43 41 5f 45 6e |e2, data|->DCA_En|
|00002de0| 64 53 74 65 70 32 29 3b | 0a 58 0a 58 20 20 20 20 |dStep2);|.X.X    |
|00002df0| 2f 2a 20 53 65 74 20 6b | 65 79 20 66 6f 6c 6c 6f |/* Set k|ey follo|
|00002e00| 77 20 70 61 72 61 6d 65 | 74 65 72 73 20 66 6f 72 |w parame|ters for|
|00002e10| 20 61 72 65 61 20 32 2e | 20 2a 2f 0a 58 0a 58 20 | area 2.| */.X.X |
|00002e20| 20 20 20 73 65 74 76 61 | 6c 28 22 77 66 32 22 2c |   setva|l("wf2",|
|00002e30| 20 28 49 4e 54 31 36 29 | 64 61 74 61 2d 3e 44 43 | (INT16)|data->DC|
|00002e40| 57 32 5f 4b 65 79 46 6f | 6c 6c 6f 77 5b 30 5d 20 |W2_KeyFo|llow[0] |
|00002e50| 26 20 30 78 66 29 3b 0a | 58 20 20 20 20 73 65 74 |& 0xf);.|X    set|
|00002e60| 76 61 6c 28 22 61 66 32 | 22 2c 20 28 49 4e 54 31 |val("af2|", (INT1|
|00002e70| 36 29 64 61 74 61 2d 3e | 44 43 41 32 5f 4b 65 79 |6)data->|DCA2_Key|
|00002e80| 46 6f 6c 6c 6f 77 5b 30 | 5d 20 26 20 30 78 66 29 |Follow[0|] & 0xf)|
|00002e90| 3b 0a 58 0a 58 20 20 20 | 20 76 61 6c 75 65 20 3d |;.X.X   | value =|
|00002ea0| 20 31 35 20 2d 20 28 64 | 61 74 61 2d 3e 44 43 41 | 15 - (d|ata->DCA|
|00002eb0| 32 5f 4b 65 79 46 6f 6c | 6c 6f 77 5b 30 5d 20 3e |2_KeyFol|low[0] >|
|00002ec0| 3e 20 34 29 3b 0a 58 20 | 20 20 20 73 65 74 76 61 |> 4);.X |   setva|
|00002ed0| 6c 28 22 6c 65 76 65 6c | 32 22 2c 20 28 49 4e 54 |l("level|2", (INT|
|00002ee0| 31 36 29 76 61 6c 75 65 | 29 3b 0a 58 20 20 20 20 |16)value|);.X    |
|00002ef0| 72 65 74 75 72 6e 20 30 | 3b 0a 58 7d 0a 58 0a 58 |return 0|;.X}.X.X|
|00002f00| 2f 2a 20 20 46 55 4e 43 | 54 49 4f 4e 0a 58 20 20 |/*  FUNC|TION.X  |
|00002f10| 20 20 20 20 20 20 63 7a | 31 64 6f 75 74 20 2d 20 |      cz|1dout - |
|00002f20| 63 6f 6e 76 65 72 74 20 | 70 72 6f 67 72 61 6d 20 |convert |program |
|00002f30| 64 61 74 61 20 74 6f 20 | 43 5a 31 20 66 6f 72 6d |data to |CZ1 form|
|00002f40| 61 74 2e 0a 58 0a 58 20 | 20 20 20 53 59 4e 4f 50 |at..X.X |   SYNOP|
|00002f50| 53 49 53 0a 58 20 20 20 | 20 20 20 20 20 69 6e 74 |SIS.X   |     int|
|00002f60| 20 63 7a 31 64 6f 75 74 | 28 64 61 74 61 29 0a 58 | cz1dout|(data).X|
|00002f70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002f80| 73 74 72 75 63 74 20 54 | 6f 6e 65 44 61 74 61 20 |struct T|oneData |
|00002f90| 2a 64 61 74 61 3b 0a 58 | 0a 58 20 20 20 20 44 45 |*data;.X|.X    DE|
|00002fa0| 53 43 52 49 50 54 49 4f | 4e 0a 58 20 20 20 20 20 |SCRIPTIO|N.X     |
|00002fb0| 20 20 20 43 7a 31 64 6f | 75 74 20 74 61 6b 65 73 |   Cz1do|ut takes|
|00002fc0| 20 64 61 74 61 20 66 72 | 6f 6d 20 74 68 65 20 50 | data fr|om the P|
|00002fd0| 20 61 72 72 61 79 20 61 | 6e 64 20 63 6f 6e 76 65 | array a|nd conve|
|00002fe0| 72 74 73 20 69 74 20 74 | 6f 20 43 5a 31 20 66 6f |rts it t|o CZ1 fo|
|00002ff0| 72 6d 61 74 2c 0a 58 20 | 20 20 20 20 20 20 20 73 |rmat,.X |       s|
|00003000| 74 6f 72 69 6e 67 20 69 | 74 20 69 6e 20 74 68 65 |toring i|t in the|
|00003010| 20 70 61 74 63 68 20 61 | 72 65 61 20 64 65 66 69 | patch a|rea defi|
|00003020| 6e 65 64 20 62 79 20 3c | 64 61 74 61 3e 2e 0a 58 |ned by <|data>..X|
|00003030| 0a 58 2a 2f 0a 58 69 6e | 74 0a 58 63 7a 31 64 6f |.X*/.Xin|t.Xcz1do|
|00003040| 75 74 28 64 61 74 61 29 | 0a 58 20 20 20 20 73 74 |ut(data)|.X    st|
|00003050| 72 75 63 74 20 54 6f 6e | 65 44 61 74 61 20 2a 64 |ruct Ton|eData *d|
|00003060| 61 74 61 3b 0a 58 7b 0a | 58 20 20 20 20 69 6e 74 |ata;.X{.|X    int|
|00003070| 20 76 61 6c 75 65 2c 20 | 76 61 6c 75 65 32 3b 0a | value, |value2;.|
|00003080| 58 0a 58 20 20 20 20 76 | 61 6c 75 65 20 3d 20 67 |X.X    v|alue = g|
|00003090| 65 74 76 61 6c 28 22 6f | 63 74 22 29 3b 20 20 20 |etval("o|ct");   |
|000030a0| 20 20 20 20 20 20 20 2f | 2a 20 47 65 74 2c 20 63 |       /|* Get, c|
|000030b0| 6f 72 72 65 63 74 20 6f | 63 74 61 76 65 20 76 61 |orrect o|ctave va|
|000030c0| 6c 75 65 2e 20 2a 2f 0a | 58 20 20 20 20 69 66 20 |lue. */.|X    if |
|000030d0| 28 76 61 6c 75 65 20 3c | 20 30 29 20 76 61 6c 75 |(value <| 0) valu|
|000030e0| 65 20 3d 20 32 3b 0a 58 | 20 20 20 20 64 61 74 61 |e = 2;.X|    data|
|000030f0| 2d 3e 6c 69 6e 65 41 6e | 64 4f 63 74 61 76 65 20 |->lineAn|dOctave |
|00003100| 3d 20 67 65 74 76 61 6c | 28 22 6c 69 6e 65 22 29 |= getval|("line")|
|00003110| 20 7c 20 28 76 61 6c 75 | 65 20 3c 3c 20 32 29 3b | | (valu|e << 2);|
|00003120| 0a 58 20 20 20 20 64 61 | 74 61 2d 3e 64 65 74 75 |.X    da|ta->detu|
|00003130| 6e 65 53 69 67 6e 20 3d | 20 67 65 74 76 61 6c 28 |neSign =| getval(|
|00003140| 22 64 65 74 73 69 67 6e | 22 29 3b 0a 58 20 20 20 |"detsign|");.X   |
|00003150| 20 2f 2a 20 54 68 65 20 | 44 45 54 55 4e 45 20 63 | /* The |DETUNE c|
|00003160| 6f 61 72 73 65 20 64 61 | 74 61 20 69 73 20 63 6f |oarse da|ta is co|
|00003170| 6e 76 65 72 74 65 64 20 | 66 72 6f 6d 20 4f 43 54 |nverted |from OCT|
|00003180| 20 61 6e 64 20 4e 4f 54 | 45 20 69 6e 74 6f 20 61 | and NOT|E into a|
|00003190| 0a 58 20 20 20 20 20 20 | 20 73 65 6d 69 74 6f 6e |.X      | semiton|
|000031a0| 65 20 76 61 6c 75 65 20 | 72 61 6e 67 69 6e 67 20 |e value |ranging |
|000031b0| 66 72 6f 6d 20 30 20 74 | 6f 20 34 37 28 32 46 29 |from 0 t|o 47(2F)|
|000031c0| 2e 20 20 49 74 20 69 73 | 20 74 68 65 6e 20 73 74 |.  It is| then st|
|000031d0| 6f 72 65 64 0a 58 20 20 | 20 20 20 20 20 69 6e 20 |ored.X  |     in |
|000031e0| 74 68 65 20 68 69 67 68 | 20 62 79 74 65 20 6f 66 |the high| byte of|
|000031f0| 20 74 68 65 20 70 61 69 | 72 2e 0a 58 20 20 20 20 | the pai|r..X    |
|00003200| 2a 2f 0a 58 20 20 20 20 | 76 61 6c 75 65 20 3d 20 |*/.X    |value = |
|00003210| 67 65 74 76 61 6c 28 22 | 64 65 74 6f 63 74 22 29 |getval("|detoct")|
|00003220| 20 2a 20 31 32 20 2b 20 | 67 65 74 76 61 6c 28 22 | * 12 + |getval("|
|00003230| 64 65 74 6e 6f 74 65 22 | 29 3b 0a 58 20 20 20 20 |detnote"|);.X    |
|00003240| 64 61 74 61 2d 3e 64 65 | 74 75 6e 65 43 6f 61 72 |data->de|tuneCoar|
|00003250| 73 65 20 3d 20 76 61 6c | 75 65 3b 0a 58 0a 58 20 |se = val|ue;.X.X |
|00003260| 20 20 20 2f 2a 20 54 68 | 65 20 44 45 54 55 4e 45 |   /* Th|e DETUNE|
|00003270| 20 66 69 6e 65 20 64 61 | 74 61 20 68 61 73 20 61 | fine da|ta has a|
|00003280| 20 63 6f 72 72 65 63 74 | 69 6f 6e 20 66 61 63 74 | correct|ion fact|
|00003290| 6f 72 20 61 70 70 6c 69 | 65 64 20 74 6f 20 69 74 |or appli|ed to it|
|000032a0| 2c 0a 58 20 20 20 20 20 | 20 20 61 6e 64 20 69 73 |,.X     |  and is|
|000032b0| 20 74 68 65 6e 20 73 68 | 69 66 74 65 64 20 74 6f | then sh|ifted to|
|000032c0| 20 66 69 74 20 69 6e 74 | 6f 20 62 69 74 73 20 37 | fit int|o bits 7|
|000032d0| 2d 32 20 6f 66 20 74 68 | 65 20 74 68 65 20 6c 6f |-2 of th|e the lo|
|000032e0| 77 20 62 79 74 65 2e 0a | 58 20 20 20 20 2a 2f 0a |w byte..|X    */.|
|000032f0| 58 20 20 20 20 76 61 6c | 75 65 20 3d 20 67 65 74 |X    val|ue = get|
|00003300| 76 61 6c 28 22 64 65 74 | 66 69 6e 65 22 29 3b 0a |val("det|fine");.|
|00003310| 58 20 20 20 20 69 66 20 | 28 76 61 6c 75 65 20 3e |X    if |(value >|
|00003320| 20 34 35 29 20 76 61 6c | 75 65 20 2b 3d 20 33 3b | 45) val|ue += 3;|
|00003330| 0a 58 20 20 20 20 65 6c | 73 65 20 69 66 20 28 76 |.X    el|se if (v|
|00003340| 61 6c 75 65 20 3e 20 33 | 30 29 20 76 61 6c 75 65 |alue > 3|0) value|
|00003350| 20 2b 3d 20 32 3b 0a 58 | 20 20 20 20 65 6c 73 65 | += 2;.X|    else|
|00003360| 20 69 66 20 28 76 61 6c | 75 65 20 3e 20 31 35 29 | if (val|ue > 15)|
|00003370| 20 76 61 6c 75 65 20 2b | 3d 20 31 3b 0a 58 20 20 | value +|= 1;.X  |
|00003380| 20 20 64 61 74 61 2d 3e | 64 65 74 75 6e 65 46 69 |  data->|detuneFi|
|00003390| 6e 65 20 3d 20 76 61 6c | 75 65 20 3c 3c 20 32 3b |ne = val|ue << 2;|
|000033a0| 0a 58 0a 58 20 20 20 20 | 76 61 6c 75 65 20 3d 20 |.X.X    |value = |
|000033b0| 67 65 74 76 61 6c 28 22 | 64 65 74 6e 6f 74 65 22 |getval("|detnote"|
|000033c0| 29 3b 0a 58 20 20 20 20 | 76 61 6c 75 65 20 2b 3d |);.X    |value +=|
|000033d0| 20 67 65 74 76 61 6c 28 | 22 64 65 74 6f 63 74 22 | getval(|"detoct"|
|000033e0| 29 20 2a 20 31 32 3b 0a | 58 20 20 20 20 64 61 74 |) * 12;.|X    dat|
|000033f0| 61 2d 3e 64 65 74 75 6e | 65 43 6f 61 72 73 65 20 |a->detun|eCoarse |
|00003400| 3d 20 76 61 6c 75 65 3b | 0a 58 0a 58 20 20 20 20 |= value;|.X.X    |
|00003410| 2f 2a 20 56 49 42 52 41 | 54 4f 20 69 6e 66 6f 72 |/* VIBRA|TO infor|
|00003420| 6d 61 74 69 6f 6e 3a 20 | 2a 2f 0a 58 20 20 20 20 |mation: |*/.X    |
|00003430| 76 61 6c 75 65 20 3d 20 | 67 65 74 76 61 6c 28 22 |value = |getval("|
|00003440| 76 77 61 76 65 22 29 3b | 0a 58 20 20 20 20 73 77 |vwave");|.X    sw|
|00003450| 69 74 63 68 20 28 76 61 | 6c 75 65 29 20 7b 0a 58 |itch (va|lue) {.X|
|00003460| 20 20 20 20 63 61 73 65 | 20 31 3a 0a 58 20 20 20 |    case| 1:.X   |
|00003470| 20 20 20 20 20 76 61 6c | 75 65 20 3d 20 38 3b 0a |     val|ue = 8;.|
|00003480| 58 20 20 20 20 20 20 20 | 20 62 72 65 61 6b 3b 0a |X       | break;.|
|00003490| 58 20 20 20 20 63 61 73 | 65 20 32 3a 0a 58 20 20 |X    cas|e 2:.X  |
|000034a0| 20 20 20 20 20 20 76 61 | 6c 75 65 20 3d 20 34 3b |      va|lue = 4;|
|000034b0| 0a 58 20 20 20 20 20 20 | 20 20 62 72 65 61 6b 3b |.X      |  break;|
|000034c0| 0a 58 20 20 20 20 63 61 | 73 65 20 33 3a 0a 58 20 |.X    ca|se 3:.X |
|000034d0| 20 20 20 20 20 20 20 76 | 61 6c 75 65 20 3d 20 33 |       v|alue = 3|
|000034e0| 32 3b 0a 58 20 20 20 20 | 20 20 20 20 62 72 65 61 |2;.X    |    brea|
|000034f0| 6b 3b 0a 58 20 20 20 20 | 64 65 66 61 75 6c 74 3a |k;.X    |default:|
|00003500| 0a 58 20 20 20 20 20 20 | 20 20 62 72 65 61 6b 3b |.X      |  break;|
|00003510| 0a 58 20 20 20 20 7d 0a | 58 20 20 20 20 64 61 74 |.X    }.|X    dat|
|00003520| 61 2d 3e 76 69 62 72 61 | 74 6f 57 61 76 65 20 3d |a->vibra|toWave =|
|00003530| 20 64 61 74 61 2d 3e 76 | 69 62 72 61 74 6f 57 61 | data->v|ibratoWa|
|00003540| 76 65 20 3d 20 76 61 6c | 75 65 3b 0a 58 0a 58 20 |ve = val|ue;.X.X |
|00003550| 20 20 20 2f 2a 20 47 65 | 74 20 76 69 62 72 61 74 |   /* Ge|t vibrat|
|00003560| 6f 20 64 65 6c 61 79 2e | 20 2a 2f 0a 58 20 20 20 |o delay.| */.X   |
|00003570| 20 76 61 6c 75 65 20 3d | 20 67 65 74 76 61 6c 28 | value =| getval(|
|00003580| 22 76 64 65 6c 61 79 22 | 29 3b 0a 58 20 20 20 20 |"vdelay"|);.X    |
|00003590| 64 61 74 61 2d 3e 76 69 | 62 72 61 74 6f 54 69 6d |data->vi|bratoTim|
|000035a0| 65 5b 30 5d 20 3d 20 76 | 61 6c 75 65 3b 0a 58 20 |e[0] = v|alue;.X |
|000035b0| 20 20 20 76 61 6c 75 65 | 20 3d 20 76 44 65 6c 61 |   value| = vDela|
|000035c0| 79 54 61 62 6c 65 5b 76 | 61 6c 75 65 5d 3b 0a 58 |yTable[v|alue];.X|
|000035d0| 20 20 20 20 64 61 74 61 | 2d 3e 76 69 62 72 61 74 |    data|->vibrat|
|000035e0| 6f 54 69 6d 65 5b 31 5d | 20 3d 20 76 61 6c 75 65 |oTime[1]| = value|
|000035f0| 3b 0a 58 20 20 20 20 64 | 61 74 61 2d 3e 76 69 62 |;.X    d|ata->vib|
|00003600| 72 61 74 6f 54 69 6d 65 | 5b 32 5d 20 3d 20 76 61 |ratoTime|[2] = va|
|00003610| 6c 75 65 3e 3e 38 3b 0a | 58 0a 58 20 20 20 20 2f |lue>>8;.|X.X    /|
|00003620| 2a 20 47 65 74 20 76 69 | 62 72 61 74 6f 20 72 61 |* Get vi|brato ra|
|00003630| 74 65 2e 20 2a 2f 0a 58 | 20 20 20 20 76 61 6c 75 |te. */.X|    valu|
|00003640| 65 20 3d 20 67 65 74 76 | 61 6c 28 22 76 72 61 74 |e = getv|al("vrat|
|00003650| 65 22 29 3b 0a 58 20 20 | 20 20 64 61 74 61 2d 3e |e");.X  |  data->|
|00003660| 76 69 62 72 61 74 6f 52 | 61 74 65 5b 30 5d 20 3d |vibratoR|ate[0] =|
|00003670| 20 76 61 6c 75 65 3b 0a | 58 20 20 20 20 76 61 6c | value;.|X    val|
|00003680| 75 65 20 3d 20 76 52 61 | 74 65 54 61 62 6c 65 5b |ue = vRa|teTable[|
|00003690| 76 61 6c 75 65 5d 3b 0a | 58 20 20 20 20 64 61 74 |value];.|X    dat|
|000036a0| 61 2d 3e 76 69 62 72 61 | 74 6f 52 61 74 65 5b 31 |a->vibra|toRate[1|
|000036b0| 5d 20 3d 20 76 61 6c 75 | 65 3b 0a 58 20 20 20 20 |] = valu|e;.X    |
|000036c0| 64 61 74 61 2d 3e 76 69 | 62 72 61 74 6f 52 61 74 |data->vi|bratoRat|
|000036d0| 65 5b 32 5d 20 3d 20 76 | 61 6c 75 65 20 3e 3e 20 |e[2] = v|alue >> |
|000036e0| 38 20 3b 0a 58 0a 58 20 | 20 20 20 2f 2a 20 47 65 |8 ;.X.X |   /* Ge|
|000036f0| 74 20 76 69 62 72 61 74 | 6f 20 64 65 70 74 68 2e |t vibrat|o depth.|
|00003700| 20 2a 2f 0a 58 20 20 20 | 20 76 61 6c 75 65 20 3d | */.X   | value =|
|00003710| 20 67 65 74 76 61 6c 28 | 22 76 64 65 70 74 68 22 | getval(|"vdepth"|
|00003720| 29 3b 0a 58 20 20 20 20 | 64 61 74 61 2d 3e 76 69 |);.X    |data->vi|
|00003730| 62 72 61 74 6f 44 65 70 | 74 68 5b 30 5d 20 3d 20 |bratoDep|th[0] = |
|00003740| 76 61 6c 75 65 3b 0a 58 | 20 20 20 20 76 61 6c 75 |value;.X|    valu|
|00003750| 65 20 3d 20 76 44 65 70 | 74 68 54 61 62 6c 65 5b |e = vDep|thTable[|
|00003760| 76 61 6c 75 65 5d 3b 20 | 20 20 20 20 2f 2a 20 47 |value]; |    /* G|
|00003770| 65 74 20 62 79 74 65 73 | 20 31 2c 20 32 20 66 72 |et bytes| 1, 2 fr|
|00003780| 6f 6d 20 74 61 62 6c 65 | 2e 20 2a 2f 0a 58 20 20 |om table|. */.X  |
|00003790| 20 20 64 61 74 61 2d 3e | 76 69 62 72 61 74 6f 44 |  data->|vibratoD|
|000037a0| 65 70 74 68 5b 31 5d 20 | 3d 20 76 61 6c 75 65 3b |epth[1] |= value;|
|000037b0| 0a 58 20 20 20 20 64 61 | 74 61 2d 3e 76 69 62 72 |.X    da|ta->vibr|
|000037c0| 61 74 6f 44 65 70 74 68 | 5b 32 5d 20 3d 20 76 61 |atoDepth|[2] = va|
|000037d0| 6c 75 65 20 3e 3e 20 38 | 3b 0a 58 0a 58 20 20 20 |lue >> 8|;.X.X   |
|000037e0| 20 2f 2a 20 47 65 74 20 | 65 6e 76 65 6c 6f 70 65 | /* Get |envelope|
|000037f0| 20 76 61 6c 75 65 73 3a | 20 2a 2f 0a 58 20 20 20 | values:| */.X   |
|00003800| 20 67 65 74 65 6e 76 65 | 6c 6f 70 65 28 22 6f 31 | getenve|lope("o1|
|00003810| 22 2c 20 64 61 74 61 2d | 3e 44 43 4f 5f 45 6e 76 |", data-|>DCO_Env|
|00003820| 65 6c 6f 70 65 31 2c 20 | 26 64 61 74 61 2d 3e 44 |elope1, |&data->D|
|00003830| 43 4f 5f 45 6e 64 53 74 | 65 70 31 29 3b 0a 58 20 |CO_EndSt|ep1);.X |
|00003840| 20 20 20 67 65 74 65 6e | 76 65 6c 6f 70 65 28 22 |   geten|velope("|
|00003850| 77 31 22 2c 20 64 61 74 | 61 2d 3e 44 43 57 5f 45 |w1", dat|a->DCW_E|
|00003860| 6e 76 65 6c 6f 70 65 31 | 2c 20 26 64 61 74 61 2d |nvelope1|, &data-|
|00003870| 3e 44 43 57 5f 45 6e 64 | 53 74 65 70 31 29 3b 0a |>DCW_End|Step1);.|
|00003880| 58 20 20 20 20 67 65 74 | 65 6e 76 65 6c 6f 70 65 |X    get|envelope|
|00003890| 28 22 61 31 22 2c 20 64 | 61 74 61 2d 3e 44 43 41 |("a1", d|ata->DCA|
|000038a0| 5f 45 6e 76 65 6c 6f 70 | 65 31 2c 20 26 64 61 74 |_Envelop|e1, &dat|
|000038b0| 61 2d 3e 44 43 41 5f 45 | 6e 64 53 74 65 70 31 29 |a->DCA_E|ndStep1)|
|000038c0| 3b 0a 58 20 20 20 20 67 | 65 74 77 61 76 65 66 6f |;.X    g|etwavefo|
|000038d0| 72 6d 73 28 22 6f 31 22 | 2c 20 64 61 74 61 2d 3e |rms("o1"|, data->|
|000038e0| 77 61 76 65 46 6f 72 6d | 73 31 29 3b 0a 58 20 20 |waveForm|s1);.X  |
|000038f0| 20 20 76 61 6c 75 65 20 | 3d 20 67 65 74 76 61 6c |  value |= getval|
|00003900| 28 22 77 66 31 22 29 3b | 0a 58 20 20 20 20 64 61 |("wf1");|.X    da|
|00003910| 74 61 2d 3e 44 43 57 31 | 5f 4b 65 79 46 6f 6c 6c |ta->DCW1|_KeyFoll|
|00003920| 6f 77 5b 30 5d 20 3d 20 | 76 61 6c 75 65 3b 0a 58 |ow[0] = |value;.X|
|00003930| 20 20 20 20 64 61 74 61 | 2d 3e 44 43 57 31 5f 4b |    data|->DCW1_K|
|00003940| 65 79 46 6f 6c 6c 6f 77 | 5b 31 5d 20 3d 20 6b 65 |eyFollow|[1] = ke|
|00003950| 79 46 6f 6c 6c 6f 77 4d | 49 44 49 5b 76 61 6c 75 |yFollowM|IDI[valu|
|00003960| 65 5d 3b 0a 58 0a 58 20 | 20 20 20 2f 2a 20 54 68 |e];.X.X |   /* Th|
|00003970| 65 20 61 6d 70 20 6c 65 | 76 65 6c 20 61 6e 64 20 |e amp le|vel and |
|00003980| 6b 65 79 20 66 6f 6c 6c | 6f 77 20 76 61 6c 75 65 |key foll|ow value|
|00003990| 73 20 73 68 61 72 65 20 | 74 68 65 20 44 43 41 78 |s share |the DCAx|
|000039a0| 5f 4b 65 79 46 6f 6c 6c | 6f 77 0a 58 20 20 20 20 |_KeyFoll|ow.X    |
|000039b0| 20 20 20 66 69 65 6c 64 | 2e 20 20 20 20 20 20 20 |   field|.       |
|000039c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000039d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000039e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000039f0| 2a 2f 0a 58 0a 58 20 20 | 20 20 76 61 6c 75 65 20 |*/.X.X  |  value |
|00003a00| 3d 20 67 65 74 76 61 6c | 28 22 61 66 31 22 29 3b |= getval|("af1");|
|00003a10| 0a 58 20 20 20 20 76 61 | 6c 75 65 32 20 3d 20 67 |.X    va|lue2 = g|
|00003a20| 65 74 76 61 6c 28 22 6c | 65 76 65 6c 31 22 29 3b |etval("l|evel1");|
|00003a30| 0a 58 20 20 20 20 76 61 | 6c 75 65 32 20 3d 20 28 |.X    va|lue2 = (|
|00003a40| 31 35 20 2d 20 76 61 6c | 75 65 32 29 20 3c 3c 20 |15 - val|ue2) << |
|00003a50| 34 3b 0a 58 20 20 20 20 | 64 61 74 61 2d 3e 44 43 |4;.X    |data->DC|
|00003a60| 41 31 5f 4b 65 79 46 6f | 6c 6c 6f 77 5b 30 5d 20 |A1_KeyFo|llow[0] |
|00003a70| 3d 20 76 61 6c 75 65 20 | 7c 20 76 61 6c 75 65 32 |= value || value2|
|00003a80| 3b 0a 58 20 20 20 20 64 | 61 74 61 2d 3e 44 43 41 |;.X    d|ata->DCA|
|00003a90| 31 5f 4b 65 79 46 6f 6c | 6c 6f 77 5b 31 5d 20 3d |1_KeyFol|low[1] =|
|00003aa0| 20 61 6d 70 4c 65 76 65 | 6c 4d 49 44 49 5b 76 61 | ampLeve|lMIDI[va|
|00003ab0| 6c 75 65 5d 3b 0a 58 0a | 58 20 20 20 20 67 65 74 |lue];.X.|X    get|
|00003ac0| 65 6e 76 65 6c 6f 70 65 | 28 22 6f 32 22 2c 20 64 |envelope|("o2", d|
|00003ad0| 61 74 61 2d 3e 44 43 4f | 5f 45 6e 76 65 6c 6f 70 |ata->DCO|_Envelop|
|00003ae0| 65 32 2c 20 26 64 61 74 | 61 2d 3e 44 43 4f 5f 45 |e2, &dat|a->DCO_E|
|00003af0| 6e 64 53 74 65 70 32 29 | 3b 0a 58 20 20 20 20 67 |ndStep2)|;.X    g|
|00003b00| 65 74 65 6e 76 65 6c 6f | 70 65 28 22 77 32 22 2c |etenvelo|pe("w2",|
|00003b10| 20 64 61 74 61 2d 3e 44 | 43 57 5f 45 6e 76 65 6c | data->D|CW_Envel|
|00003b20| 6f 70 65 32 2c 20 26 64 | 61 74 61 2d 3e 44 43 57 |ope2, &d|ata->DCW|
|00003b30| 5f 45 6e 64 53 74 65 70 | 32 29 3b 0a 58 20 20 20 |_EndStep|2);.X   |
|00003b40| 20 67 65 74 65 6e 76 65 | 6c 6f 70 65 28 22 61 32 | getenve|lope("a2|
|00003b50| 22 2c 20 64 61 74 61 2d | 3e 44 43 41 5f 45 6e 76 |", data-|>DCA_Env|
|00003b60| 65 6c 6f 70 65 32 2c 20 | 26 64 61 74 61 2d 3e 44 |elope2, |&data->D|
|00003b70| 43 41 5f 45 6e 64 53 74 | 65 70 32 29 3b 0a 58 20 |CA_EndSt|ep2);.X |
|00003b80| 20 20 20 67 65 74 77 61 | 76 65 66 6f 72 6d 73 28 |   getwa|veforms(|
|00003b90| 22 6f 32 22 2c 20 64 61 | 74 61 2d 3e 77 61 76 65 |"o2", da|ta->wave|
|00003ba0| 46 6f 72 6d 73 32 29 3b | 0a 58 20 20 20 20 64 61 |Forms2);|.X    da|
|00003bb0| 74 61 2d 3e 44 43 57 32 | 5f 4b 65 79 46 6f 6c 6c |ta->DCW2|_KeyFoll|
|00003bc0| 6f 77 5b 30 5d 20 3d 20 | 76 61 6c 75 65 20 3d 20 |ow[0] = |value = |
|00003bd0| 67 65 74 76 61 6c 28 22 | 77 66 32 22 29 3b 0a 58 |getval("|wf2");.X|
|00003be0| 20 20 20 20 64 61 74 61 | 2d 3e 44 43 57 32 5f 4b |    data|->DCW2_K|
|00003bf0| 65 79 46 6f 6c 6c 6f 77 | 5b 31 5d 20 3d 20 6b 65 |eyFollow|[1] = ke|
|00003c00| 79 46 6f 6c 6c 6f 77 4d | 49 44 49 5b 76 61 6c 75 |yFollowM|IDI[valu|
|00003c10| 65 5d 3b 0a 58 0a 58 20 | 20 20 20 76 61 6c 75 65 |e];.X.X |   value|
|00003c20| 20 3d 20 67 65 74 76 61 | 6c 28 22 61 66 32 22 29 | = getva|l("af2")|
|00003c30| 3b 0a 58 20 20 20 20 76 | 61 6c 75 65 32 20 3d 20 |;.X    v|alue2 = |
|00003c40| 67 65 74 76 61 6c 28 22 | 6c 65 76 65 6c 32 22 29 |getval("|level2")|
|00003c50| 3b 0a 58 20 20 20 20 76 | 61 6c 75 65 32 20 3d 20 |;.X    v|alue2 = |
|00003c60| 28 31 35 20 2d 20 76 61 | 6c 75 65 32 29 20 3c 3c |(15 - va|lue2) <<|
|00003c70| 20 34 3b 0a 58 20 20 20 | 20 64 61 74 61 2d 3e 44 | 4;.X   | data->D|
|00003c80| 43 41 32 5f 4b 65 79 46 | 6f 6c 6c 6f 77 5b 30 5d |CA2_KeyF|ollow[0]|
|00003c90| 20 3d 20 76 61 6c 75 65 | 20 7c 20 76 61 6c 75 65 | = value| | value|
|00003ca0| 32 3b 0a 58 20 20 20 20 | 64 61 74 61 2d 3e 44 43 |2;.X    |data->DC|
|00003cb0| 41 32 5f 4b 65 79 46 6f | 6c 6c 6f 77 5b 31 5d 20 |A2_KeyFo|llow[1] |
|00003cc0| 3d 20 61 6d 70 4c 65 76 | 65 6c 4d 49 44 49 5b 76 |= ampLev|elMIDI[v|
|00003cd0| 61 6c 75 65 5d 3b 0a 58 | 0a 58 20 20 20 20 72 65 |alue];.X|.X    re|
|00003ce0| 74 75 72 6e 20 30 3b 0a | 58 7d 0a 58 0a 58 2f 2a |turn 0;.|X}.X.X/*|
|00003cf0| 20 20 46 55 4e 43 54 49 | 4f 4e 0a 58 20 20 20 20 |  FUNCTI|ON.X    |
|00003d00| 20 20 20 20 63 7a 31 6e | 6f 66 20 2d 20 72 65 74 |    cz1n|of - ret|
|00003d10| 75 72 6e 20 61 20 70 6f | 69 6e 74 65 72 20 74 6f |urn a po|inter to|
|00003d20| 20 61 20 70 61 74 63 68 | 20 69 6e 74 65 72 6e 61 | a patch| interna|
|00003d30| 6c 20 6e 61 6d 65 2e 0a | 58 0a 58 20 20 20 20 53 |l name..|X.X    S|
|00003d40| 59 4e 4f 50 53 49 53 0a | 58 20 20 20 20 20 20 20 |YNOPSIS.|X       |
|00003d50| 20 63 68 61 72 20 2a 63 | 7a 31 6e 6f 66 28 64 61 | char *c|z1nof(da|
|00003d60| 74 61 29 0a 58 20 20 20 | 20 20 20 20 20 20 20 20 |ta).X   |        |
|00003d70| 20 20 20 73 74 72 75 63 | 74 20 54 6f 6e 65 44 61 |   struc|t ToneDa|
|00003d80| 74 61 20 2a 64 61 74 61 | 3b 0a 58 0a 58 20 20 20 |ta *data|;.X.X   |
|00003d90| 20 44 45 53 43 52 49 50 | 54 49 4f 4e 0a 58 20 20 | DESCRIP|TION.X  |
|00003da0| 20 20 20 20 20 20 43 7a | 31 6e 6f 66 20 65 78 74 |      Cz|1nof ext|
|00003db0| 72 61 63 74 73 20 61 20 | 6c 6f 63 61 6c 20 63 6f |racts a |local co|
|00003dc0| 70 79 20 6f 66 20 74 68 | 65 20 76 6f 69 63 65 20 |py of th|e voice |
|00003dd0| 6e 61 6d 65 20 28 69 6e | 20 3c 64 61 74 61 3e 29 |name (in| <data>)|
|00003de0| 20 61 6e 64 0a 58 20 20 | 20 20 20 20 20 20 72 65 | and.X  |      re|
|00003df0| 74 75 72 6e 73 20 61 20 | 70 6f 69 6e 74 65 72 20 |turns a |pointer |
|00003e00| 74 6f 20 69 74 2e 0a 58 | 0a 58 2a 2f 0a 58 0a 58 |to it..X|.X*/.X.X|
|00003e10| 63 68 61 72 20 2a 0a 58 | 63 7a 31 6e 6f 66 28 64 |char *.X|cz1nof(d|
|00003e20| 61 74 61 29 0a 58 20 20 | 20 20 73 74 72 75 63 74 |ata).X  |  struct|
|00003e30| 20 54 6f 6e 65 44 61 74 | 61 20 2a 64 61 74 61 3b | ToneDat|a *data;|
|00003e40| 0a 58 7b 0a 58 20 20 20 | 20 73 74 61 74 69 63 20 |.X{.X   | static |
|00003e50| 63 68 61 72 20 6e 61 6d | 65 5b 31 37 5d 3b 0a 58 |char nam|e[17];.X|
|00003e60| 20 20 20 20 55 42 59 54 | 45 20 2a 6e 3b 0a 58 20 |    UBYT|E *n;.X |
|00003e70| 20 20 20 69 6e 74 20 69 | 3b 0a 58 0a 58 20 20 20 |   int i|;.X.X   |
|00003e80| 20 66 6f 72 20 28 69 3d | 30 2c 20 6e 20 3d 20 64 | for (i=|0, n = d|
|00003e90| 61 74 61 2d 3e 6e 61 6d | 65 3b 20 69 20 3c 20 31 |ata->nam|e; i < 1|
|00003ea0| 36 3b 20 2b 2b 69 29 0a | 58 20 20 20 20 20 20 20 |6; ++i).|X       |
|00003eb0| 20 6e 61 6d 65 5b 69 5d | 20 3d 20 2a 6e 2b 2b 3b | name[i]| = *n++;|
|00003ec0| 0a 58 0a 58 20 20 20 20 | 6e 61 6d 65 5b 31 36 5d |.X.X    |name[16]|
|00003ed0| 20 3d 20 27 5c 30 27 3b | 0a 58 20 20 20 20 72 65 | = '\0';|.X    re|
|00003ee0| 74 75 72 6e 20 6e 61 6d | 65 3b 0a 58 7d 0a 58 0a |turn nam|e;.X}.X.|
|00003ef0| 58 2f 2a 20 20 46 55 4e | 43 54 49 4f 4e 0a 58 20 |X/*  FUN|CTION.X |
|00003f00| 20 20 20 20 20 20 20 63 | 7a 31 73 6e 6f 66 20 2d |       c|z1snof -|
|00003f10| 20 73 74 6f 72 65 20 61 | 20 76 6f 69 63 65 20 6e | store a| voice n|
|00003f20| 61 6d 65 2e 0a 58 0a 58 | 20 20 20 20 53 59 4e 4f |ame..X.X|    SYNO|
|00003f30| 50 53 49 53 0a 58 20 20 | 20 20 20 20 20 20 69 6e |PSIS.X  |      in|
|00003f40| 74 20 63 7a 31 73 6e 6f | 66 28 64 61 74 61 2c 20 |t cz1sno|f(data, |
|00003f50| 6e 61 6d 65 29 0a 58 20 | 20 20 20 20 20 20 20 20 |name).X |        |
|00003f60| 20 20 20 20 20 20 20 73 | 74 72 75 63 74 20 54 6f |       s|truct To|
|00003f70| 6e 65 44 61 74 61 20 2a | 64 61 74 61 2c 20 2a 6e |neData *|data, *n|
|00003f80| 61 6d 65 3b 0a 58 0a 58 | 20 20 20 20 44 45 53 43 |ame;.X.X|    DESC|
|00003f90| 52 49 50 54 49 4f 4e 0a | 58 20 20 20 20 20 20 20 |RIPTION.|X       |
|00003fa0| 20 43 7a 31 73 6e 6f 66 | 20 73 74 6f 72 65 73 20 | Cz1snof| stores |
|00003fb0| 74 68 65 20 6e 65 77 20 | 76 6f 69 63 65 20 3c 6e |the new |voice <n|
|00003fc0| 61 6d 65 3e 20 69 6e 74 | 6f 20 74 68 65 20 70 61 |ame> int|o the pa|
|00003fd0| 74 63 68 20 61 72 65 61 | 20 64 65 66 69 6e 65 64 |tch area| defined|
|00003fe0| 0a 58 20 20 20 20 20 20 | 20 20 62 79 20 3c 64 61 |.X      |  by <da|
|00003ff0| 74 61 3e 2e 0a 58 0a 58 | 2a 2f 0a 58 69 6e 74 0a |ta>..X.X|*/.Xint.|
|00004000| 58 63 7a 31 73 6e 6f 66 | 28 64 61 74 61 2c 20 6e |Xcz1snof|(data, n|
|00004010| 61 6d 65 29 0a 58 20 20 | 20 20 73 74 72 75 63 74 |ame).X  |  struct|
|00004020| 20 54 6f 6e 65 44 61 74 | 61 20 2a 64 61 74 61 3b | ToneDat|a *data;|
|00004030| 20 63 68 61 72 20 2a 6e | 61 6d 65 3b 0a 58 0a 58 | char *n|ame;.X.X|
|00004040| 7b 0a 58 20 20 20 20 69 | 6e 74 20 20 20 20 20 69 |{.X    i|nt     i|
|00004050| 3b 0a 58 20 20 20 20 55 | 42 59 54 45 20 20 20 2a |;.X    U|BYTE   *|
|00004060| 6e 3b 0a 58 0a 58 20 20 | 20 20 66 6f 72 20 28 69 |n;.X.X  |  for (i|
|00004070| 20 3d 20 30 2c 20 6e 20 | 3d 20 64 61 74 61 2d 3e | = 0, n |= data->|
|00004080| 6e 61 6d 65 3b 20 28 69 | 20 3c 20 31 36 29 20 26 |name; (i| < 16) &|
|00004090| 26 20 2a 6e 61 6d 65 3b | 20 2b 2b 69 29 0a 58 20 |& *name;| ++i).X |
|000040a0| 20 20 20 20 20 20 20 2a | 6e 2b 2b 20 3d 20 2a 6e |       *|n++ = *n|
|000040b0| 61 6d 65 2b 2b 3b 0a 58 | 0a 58 20 20 20 20 77 68 |ame++;.X|.X    wh|
|000040c0| 69 6c 65 20 28 69 20 3c | 20 31 36 29 20 7b 0a 58 |ile (i <| 16) {.X|
|000040d0| 20 20 20 20 20 20 20 20 | 2a 6e 2b 2b 20 3d 20 27 |        |*n++ = '|
|000040e0| 20 27 3b 0a 58 20 20 20 | 20 20 20 20 20 2b 2b 69 | ';.X   |     ++i|
|000040f0| 3b 0a 58 20 20 20 20 7d | 0a 58 7d 0a 58 0a 58 23 |;.X    }|.X}.X.X#|
|00004100| 69 66 64 65 66 20 43 5a | 31 53 42 55 4c 4b 0a 58 |ifdef CZ|1SBULK.X|
|00004110| 2f 2a 20 20 46 55 4e 43 | 54 49 4f 4e 0a 58 20 20 |/*  FUNC|TION.X  |
|00004120| 20 20 20 20 20 20 63 7a | 31 73 62 75 6c 6b 20 2d |      cz|1sbulk -|
|00004130| 20 73 65 6e 64 20 62 75 | 6c 6b 20 70 61 74 63 68 | send bu|lk patch|
|00004140| 20 64 61 74 61 20 74 6f | 20 74 68 65 20 43 5a 31 | data to| the CZ1|
|00004150| 2e 0a 58 0a 58 20 20 20 | 20 53 59 4e 4f 50 53 49 |..X.X   | SYNOPSI|
|00004160| 53 0a 58 20 20 20 20 20 | 20 20 20 69 6e 74 20 63 |S.X     |   int c|
|00004170| 7a 31 73 62 75 6c 6b 28 | 64 61 74 61 29 0a 58 20 |z1sbulk(|data).X |
|00004180| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 73 |        |       s|
|00004190| 74 72 75 63 74 20 54 6f | 6e 65 44 61 74 61 20 2a |truct To|neData *|
|000041a0| 64 61 74 61 3b 0a 58 0a | 58 20 20 20 20 44 45 53 |data;.X.|X    DES|
|000041b0| 43 52 49 50 54 49 4f 4e | 0a 58 20 20 20 20 20 20 |CRIPTION|.X      |
|000041c0| 20 20 43 7a 31 73 62 75 | 6c 6b 20 73 65 6e 64 73 |  Cz1sbu|lk sends|
|000041d0| 20 36 34 20 76 6f 69 63 | 65 20 70 61 74 63 68 65 | 64 voic|e patche|
|000041e0| 73 20 74 6f 20 74 68 65 | 20 43 5a 31 2e 0a 58 0a |s to the| CZ1..X.|
|000041f0| 58 2a 2f 0a 58 0a 58 69 | 6e 74 0a 58 63 7a 31 73 |X*/.X.Xi|nt.Xcz1s|
|00004200| 62 75 6c 6b 28 64 61 74 | 61 29 0a 58 20 20 20 20 |bulk(dat|a).X    |
|00004210| 73 74 72 75 63 74 20 54 | 6f 6e 65 44 61 74 61 20 |struct T|oneData |
|00004220| 2a 64 61 74 61 3b 0a 58 | 7b 0a 58 20 20 20 20 72 |*data;.X|{.X    r|
|00004230| 65 74 75 72 6e 20 30 3b | 0a 58 7d 0a 58 23 65 6e |eturn 0;|.X}.X#en|
|00004240| 64 69 66 0a 58 0a 58 2f | 2a 20 20 46 55 4e 43 54 |dif.X.X/|*  FUNCT|
|00004250| 49 4f 4e 0a 58 20 20 20 | 20 20 20 20 20 63 7a 31 |ION.X   |     cz1|
|00004260| 67 62 75 6c 6b 20 2d 20 | 67 65 74 20 62 75 6c 6b |gbulk - |get bulk|
|00004270| 20 70 61 74 63 68 20 64 | 61 74 61 20 66 72 6f 6d | patch d|ata from|
|00004280| 20 43 5a 31 2e 0a 58 0a | 58 20 20 20 20 53 59 4e | CZ1..X.|X    SYN|
|00004290| 4f 50 53 49 53 0a 58 20 | 20 20 20 20 20 20 20 69 |OPSIS.X |       i|
|000042a0| 6e 74 20 63 7a 31 67 62 | 75 6c 6b 28 64 61 74 61 |nt cz1gb|ulk(data|
|000042b0| 29 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).X     |        |
|000042c0| 20 20 20 63 68 61 72 20 | 2a 64 61 74 61 3b 0a 58 |   char |*data;.X|
|000042d0| 0a 58 20 20 20 20 44 45 | 53 43 52 49 50 54 49 4f |.X    DE|SCRIPTIO|
|000042e0| 4e 0a 58 20 20 20 20 20 | 20 20 20 43 7a 31 67 62 |N.X     |   Cz1gb|
|000042f0| 75 6c 6b 20 72 65 61 64 | 73 20 36 34 20 76 6f 69 |ulk read|s 64 voi|
|00004300| 63 65 73 20 6f 66 20 70 | 61 74 63 68 20 64 61 74 |ces of p|atch dat|
|00004310| 61 20 66 72 6f 6d 20 74 | 68 65 20 43 5a 31 20 69 |a from t|he CZ1 i|
|00004320| 6e 74 6f 20 3c 64 61 74 | 61 3e 2e 0a 58 0a 58 2a |nto <dat|a>..X.X*|
|00004330| 2f 0a 58 69 6e 74 0a 58 | 63 7a 31 67 62 75 6c 6b |/.Xint.X|cz1gbulk|
|00004340| 28 64 61 74 61 29 0a 58 | 20 20 20 20 63 68 61 72 |(data).X|    char|
|00004350| 20 2a 64 61 74 61 3b 0a | 58 7b 0a 58 20 20 20 20 | *data;.|X{.X    |
|00004360| 63 68 61 72 20 20 20 20 | 2a 61 64 64 72 3b 0a 58 |char    |*addr;.X|
|00004370| 20 20 20 20 69 6e 74 20 | 20 20 20 20 69 3b 0a 58 |    int |    i;.X|
|00004380| 20 20 20 20 63 68 61 72 | 20 20 20 20 6d 73 67 5b |    char|    msg[|
|00004390| 34 30 5d 3b 0a 58 20 20 | 20 20 69 6e 74 20 20 20 |40];.X  |  int   |
|000043a0| 20 20 72 65 73 75 6c 74 | 2c 20 76 6f 69 63 65 3b |  result|, voice;|
|000043b0| 0a 58 0a 58 20 20 20 20 | 2f 2a 20 21 21 21 20 49 |.X.X    |/* !!! I|
|000043c0| 20 77 61 6e 74 20 74 6f | 20 63 68 61 6e 67 65 20 | want to| change |
|000043d0| 74 68 69 73 20 73 6f 20 | 77 65 20 63 61 6e 20 61 |this so |we can a|
|000043e0| 63 63 65 73 73 20 74 68 | 65 20 63 61 72 74 72 69 |ccess th|e cartri|
|000043f0| 64 67 65 20 70 61 63 6b | 0a 58 20 20 20 20 20 2a |dge pack|.X     *|
|00004400| 20 21 21 21 20 61 73 20 | 77 65 6c 6c 2e 20 20 41 | !!! as |well.  A|
|00004410| 20 73 69 6d 70 6c 65 20 | 66 6c 61 67 20 73 68 6f | simple |flag sho|
|00004420| 75 6c 64 20 64 6f 20 69 | 74 2e 0a 58 20 20 20 20 |uld do i|t..X    |
|00004430| 20 2a 2f 0a 58 0a 58 20 | 20 20 20 66 6f 72 20 28 | */.X.X |   for (|
|00004440| 76 6f 69 63 65 20 3d 20 | 46 49 52 53 54 5f 49 4e |voice = |FIRST_IN|
|00004450| 54 45 52 4e 41 4c 3b 20 | 76 6f 69 63 65 20 3c 3d |TERNAL; |voice <=|
|00004460| 20 4c 41 53 54 5f 49 4e | 54 45 52 4e 41 4c 3b 20 | LAST_IN|TERNAL; |
|00004470| 2b 2b 76 6f 69 63 65 29 | 20 7b 0a 58 20 20 20 20 |++voice)| {.X    |
|00004480| 20 20 20 20 61 64 64 72 | 20 3d 20 64 61 74 61 20 |    addr| = data |
|00004490| 2b 20 76 6f 69 63 65 20 | 2a 20 73 69 7a 65 6f 66 |+ voice |* sizeof|
|000044a0| 28 73 74 72 75 63 74 20 | 54 6f 6e 65 44 61 74 61 |(struct |ToneData|
|000044b0| 29 3b 0a 58 20 20 20 20 | 20 20 20 20 28 76 6f 69 |);.X    |    (voi|
|000044c0| 64 29 73 70 72 69 6e 74 | 66 28 6d 73 67 2c 20 22 |d)sprint|f(msg, "|
|000044d0| 52 65 61 64 69 6e 67 20 | 43 5a 31 20 76 6f 69 63 |Reading |CZ1 voic|
|000044e0| 65 20 25 64 2e 22 2c 20 | 76 6f 69 63 65 29 3b 0a |e %d.", |voice);.|
|000044f0| 58 20 20 20 20 20 20 20 | 20 77 69 6e 64 67 6f 74 |X       | windgot|
|00004500| 6f 28 33 2c 31 30 29 3b | 0a 58 20 20 20 20 20 20 |o(3,10);|.X      |
|00004510| 20 20 77 69 6e 64 73 74 | 72 28 6d 73 67 29 3b 0a |  windst|r(msg);.|
|00004520| 58 20 20 20 20 20 20 20 | 20 77 69 6e 64 72 65 66 |X       | windref|
|00004530| 72 65 73 68 28 29 3b 0a | 58 20 20 20 20 20 20 20 |resh();.|X       |
|00004540| 20 69 66 20 28 72 65 73 | 75 6c 74 20 3d 20 52 65 | if (res|ult = Re|
|00004550| 63 65 69 76 65 43 5a 50 | 61 74 63 68 28 28 73 74 |ceiveCZP|atch((st|
|00004560| 72 75 63 74 20 54 6f 6e | 65 44 61 74 61 20 2a 29 |ruct Ton|eData *)|
|00004570| 61 64 64 72 2c 0a 58 09 | 09 09 09 09 28 55 42 59 |addr,.X.|....(UBY|
|00004580| 54 45 29 43 68 61 6e 6e | 65 6c 2c 20 28 55 42 59 |TE)Chann|el, (UBY|
|00004590| 54 45 29 76 6f 69 63 65 | 29 29 20 7b 0a 58 20 20 |TE)voice|)) {.X  |
|000045a0| 20 20 20 20 20 20 20 20 | 20 20 28 76 6f 69 64 29 |        |  (void)|
|000045b0| 73 70 72 69 6e 74 66 28 | 6d 73 67 2c 20 22 46 61 |sprintf(|msg, "Fa|
|000045c0| 69 6c 65 64 20 74 6f 20 | 72 65 61 64 20 43 5a 31 |iled to |read CZ1|
|000045d0| 20 76 6f 69 63 65 20 25 | 64 21 22 2c 20 76 6f 69 | voice %|d!", voi|
|000045e0| 63 65 29 3b 0a 58 20 20 | 20 20 20 20 20 20 20 20 |ce);.X  |        |
|000045f0| 20 20 77 69 6e 64 67 6f | 74 6f 28 33 2c 20 31 30 |  windgo|to(3, 10|
|00004600| 29 3b 0a 58 20 20 20 20 | 20 20 20 20 20 20 20 20 |);.X    |        |
|00004610| 77 69 6e 64 73 74 72 28 | 6d 73 67 29 3b 0a 58 20 |windstr(|msg);.X |
|00004620| 20 20 20 20 20 20 20 20 | 20 20 20 77 69 6e 64 72 |        |   windr|
|00004630| 65 66 72 65 73 68 28 29 | 3b 0a 58 20 20 20 20 20 |efresh()|;.X     |
|00004640| 20 20 20 20 20 20 20 72 | 65 74 75 72 6e 20 72 65 |       r|eturn re|
|00004650| 73 75 6c 74 3b 0a 58 20 | 20 20 20 20 20 20 20 7d |sult;.X |       }|
|00004660| 0a 58 20 20 20 20 7d 0a | 58 20 20 20 20 66 6f 72 |.X    }.|X    for|
|00004670| 20 28 69 20 3d 20 30 3b | 20 69 20 3c 20 33 39 3b | (i = 0;| i < 39;|
|00004680| 20 2b 2b 69 29 20 6d 73 | 67 5b 69 5d 20 3d 20 27 | ++i) ms|g[i] = '|
|00004690| 20 27 3b 0a 58 20 20 20 | 20 6d 73 67 5b 69 5d 20 | ';.X   | msg[i] |
|000046a0| 3d 20 27 5c 30 27 3b 0a | 58 20 20 20 20 77 69 6e |= '\0';.|X    win|
|000046b0| 64 67 6f 74 6f 28 33 2c | 20 31 30 29 3b 0a 58 20 |dgoto(3,| 10);.X |
|000046c0| 20 20 20 77 69 6e 64 73 | 74 72 28 6d 73 67 29 3b |   winds|tr(msg);|
|000046d0| 0a 58 20 20 20 20 77 69 | 6e 64 72 65 66 72 65 73 |.X    wi|ndrefres|
|000046e0| 68 28 29 3b 0a 58 20 20 | 20 20 72 65 74 75 72 6e |h();.X  |  return|
|000046f0| 20 30 3b 0a 58 7d 0a 58 | 0a 58 2f 2a 20 20 46 55 | 0;.X}.X|.X/*  FU|
|00004700| 4e 43 54 49 4f 4e 0a 58 | 20 20 20 20 20 20 20 20 |NCTION.X|        |
|00004710| 63 7a 31 73 65 64 69 74 | 20 2d 20 73 65 6e 64 20 |cz1sedit| - send |
|00004720| 61 20 73 69 6e 67 6c 65 | 20 76 6f 69 63 65 20 74 |a single| voice t|
|00004730| 6f 20 74 68 65 20 43 5a | 31 20 65 64 69 74 20 62 |o the CZ|1 edit b|
|00004740| 75 66 66 65 72 2e 0a 58 | 0a 58 20 20 20 20 53 59 |uffer..X|.X    SY|
|00004750| 4e 4f 50 53 49 53 0a 58 | 20 20 20 20 20 20 20 20 |NOPSIS.X|        |
|00004760| 69 6e 74 20 63 7a 31 73 | 65 64 69 74 28 64 61 74 |int cz1s|edit(dat|
|00004770| 61 29 0a 58 20 20 20 20 | 20 20 20 20 20 20 20 20 |a).X    |        |
|00004780| 20 20 20 20 73 74 72 75 | 63 74 20 54 6f 6e 65 44 |    stru|ct ToneD|
|00004790| 61 74 61 20 2a 64 61 74 | 61 3b 0a 58 0a 58 20 20 |ata *dat|a;.X.X  |
|000047a0| 20 20 44 45 53 43 52 49 | 50 54 49 4f 4e 0a 58 20 |  DESCRI|PTION.X |
|000047b0| 20 20 20 20 20 20 20 43 | 7a 31 73 65 64 69 74 20 |       C|z1sedit |
|000047c0| 73 65 6e 64 73 20 61 20 | 73 69 6e 67 6c 65 20 76 |sends a |single v|
|000047d0| 6f 69 63 65 20 74 6f 20 | 74 68 65 20 43 5a 31 20 |oice to |the CZ1 |
|000047e0| 65 64 69 74 20 62 75 66 | 66 65 72 2e 0a 58 0a 58 |edit buf|fer..X.X|
|000047f0| 2a 2f 0a 58 0a 58 69 6e | 74 0a 58 63 7a 31 73 65 |*/.X.Xin|t.Xcz1se|
|00004800| 64 69 74 28 64 61 74 61 | 29 0a 58 20 20 20 20 73 |dit(data|).X    s|
|00004810| 74 72 75 63 74 20 54 6f | 6e 65 44 61 74 61 20 2a |truct To|neData *|
|00004820| 64 61 74 61 3b 0a 58 7b | 0a 58 20 20 20 20 72 65 |data;.X{|.X    re|
|00004830| 74 75 72 6e 20 53 65 6e | 64 43 5a 50 61 74 63 68 |turn Sen|dCZPatch|
|00004840| 28 64 61 74 61 2c 20 43 | 68 61 6e 6e 65 6c 2c 20 |(data, C|hannel, |
|00004850| 53 4f 55 4e 44 5f 44 41 | 54 41 29 3b 0a 58 7d 0a |SOUND_DA|TA);.X}.|
|00004860| 58 0a 58 2f 2a 20 20 46 | 55 4e 43 54 49 4f 4e 0a |X.X/*  F|UNCTION.|
|00004870| 58 20 20 20 20 20 20 20 | 20 63 7a 31 73 6f 6e 65 |X       | cz1sone|
|00004880| 20 2d 20 73 65 6e 64 20 | 6f 6e 65 20 76 6f 69 63 | - send |one voic|
|00004890| 65 20 74 6f 20 74 68 65 | 20 43 5a 31 2e 0a 58 0a |e to the| CZ1..X.|
|000048a0| 58 20 20 20 20 53 59 4e | 4f 50 53 49 53 0a 58 20 |X    SYN|OPSIS.X |
|000048b0| 20 20 20 20 20 20 20 69 | 6e 74 20 63 7a 31 73 6f |       i|nt cz1so|
|000048c0| 6e 65 28 76 78 2c 20 64 | 61 74 61 29 0a 58 20 20 |ne(vx, d|ata).X  |
|000048d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000048e0| 20 20 69 6e 74 20 20 20 | 20 20 20 20 20 20 20 20 |  int   |        |
|000048f0| 20 20 76 78 3b 0a 58 20 | 20 20 20 20 20 20 20 20 |  vx;.X |        |
|00004900| 20 20 20 20 20 20 20 20 | 20 20 20 73 74 72 75 63 |        |   struc|
|00004910| 74 20 54 6f 6e 65 44 61 | 74 61 20 2a 64 61 74 61 |t ToneDa|ta *data|
|00004920| 3b 0a 58 0a 58 20 20 20 | 20 44 45 53 43 52 49 50 |;.X.X   | DESCRIP|
|00004930| 54 49 4f 4e 0a 58 20 20 | 20 20 20 20 20 20 43 7a |TION.X  |      Cz|
|00004940| 31 73 6f 6e 65 20 73 65 | 6e 64 73 20 6f 6e 65 20 |1sone se|nds one |
|00004950| 76 6f 69 63 65 20 28 6e | 75 6d 62 65 72 20 73 70 |voice (n|umber sp|
|00004960| 65 63 69 66 69 65 64 20 | 62 79 20 3c 76 78 3e 29 |ecified |by <vx>)|
|00004970| 20 74 6f 20 74 68 65 20 | 43 5a 31 2e 0a 58 20 20 | to the |CZ1..X  |
|00004980| 20 20 20 20 20 20 54 68 | 65 20 3c 64 61 74 61 3e |      Th|e <data>|
|00004990| 20 61 72 67 75 6d 65 6e | 74 20 70 6f 69 6e 74 73 | argumen|t points|
|000049a0| 20 74 6f 20 74 68 65 20 | 70 61 74 63 68 20 64 61 | to the |patch da|
|000049b0| 74 61 20 74 6f 20 62 65 | 20 73 65 6e 74 2e 0a 58 |ta to be| sent..X|
|000049c0| 0a 58 20 20 20 20 20 20 | 20 20 43 7a 31 73 6f 6e |.X      |  Cz1son|
|000049d0| 65 20 72 65 74 75 72 6e | 73 20 30 20 6f 6e 20 73 |e return|s 0 on s|
|000049e0| 75 63 63 65 73 73 2c 20 | 2d 31 20 6f 6e 20 66 61 |uccess, |-1 on fa|
|000049f0| 69 6c 75 72 65 2e 0a 58 | 0a 58 2a 2f 0a 58 0a 58 |ilure..X|.X*/.X.X|
|00004a00| 69 6e 74 0a 58 63 7a 31 | 73 6f 6e 65 28 76 78 2c |int.Xcz1|sone(vx,|
|00004a10| 20 64 61 74 61 29 0a 58 | 20 20 20 20 69 6e 74 20 | data).X|    int |
|00004a20| 20 20 20 20 76 78 3b 0a | 58 20 20 20 20 63 68 61 |    vx;.|X    cha|
|00004a30| 72 20 20 20 20 2a 64 61 | 74 61 3b 0a 58 7b 0a 58 |r    *da|ta;.X{.X|
|00004a40| 20 20 20 20 72 65 74 75 | 72 6e 20 53 65 6e 64 43 |    retu|rn SendC|
|00004a50| 5a 50 61 74 63 68 28 28 | 73 74 72 75 63 74 20 54 |ZPatch((|struct T|
|00004a60| 6f 6e 65 44 61 74 61 20 | 2a 29 64 61 74 61 2c 20 |oneData |*)data, |
|00004a70| 43 68 61 6e 6e 65 6c 2c | 20 76 78 29 3b 0a 58 7d |Channel,| vx);.X}|
|00004a80| 0a 58 0a 58 2f 2a 20 20 | 46 55 4e 43 54 49 4f 4e |.X.X/*  |FUNCTION|
|00004a90| 0a 58 20 20 20 20 20 20 | 20 20 47 65 74 43 5a 53 |.X      |  GetCZS|
|00004aa0| 79 73 45 78 20 2d 20 77 | 61 69 74 20 66 6f 72 20 |ysEx - w|ait for |
|00004ab0| 73 79 73 74 65 6d 20 65 | 78 63 6c 75 73 69 76 65 |system e|xclusive|
|00004ac0| 20 62 79 74 65 20 6f 72 | 20 74 69 6d 65 2d 6f 75 | byte or| time-ou|
|00004ad0| 74 2e 0a 58 0a 58 20 20 | 20 20 53 59 4e 4f 50 53 |t..X.X  |  SYNOPS|
|00004ae0| 49 53 0a 58 20 20 20 20 | 20 20 20 20 69 6e 74 20 |IS.X    |    int |
|00004af0| 47 65 74 43 5a 45 6e 64 | 53 79 73 45 78 28 29 3b |GetCZEnd|SysEx();|
|00004b00| 0a 58 0a 58 20 20 20 20 | 44 45 53 43 52 49 50 54 |.X.X    |DESCRIPT|
|00004b10| 49 4f 4e 0a 58 20 20 20 | 20 20 20 20 20 47 65 74 |ION.X   |     Get|
|00004b20| 43 5a 53 79 73 45 78 20 | 77 61 69 74 73 20 66 6f |CZSysEx |waits fo|
|00004b30| 72 20 61 20 73 79 73 74 | 65 6d 20 65 78 63 6c 75 |r a syst|em exclu|
|00004b40| 73 69 76 65 20 62 79 74 | 65 20 66 72 6f 6d 20 74 |sive byt|e from t|
|00004b50| 68 65 20 43 5a 31 2e 0a | 58 20 20 20 20 20 20 20 |he CZ1..|X       |
|00004b60| 20 49 66 20 74 68 65 20 | 6e 65 78 74 20 62 79 74 | If the |next byt|
|00004b70| 65 20 72 65 63 65 69 76 | 65 64 20 69 73 20 61 20 |e receiv|ed is a |
|00004b80| 73 79 73 74 65 6d 20 65 | 78 63 6c 75 73 69 76 65 |system e|xclusive|
|00004b90| 2c 20 61 20 7a 65 72 6f | 0a 58 20 20 20 20 20 20 |, a zero|.X      |
|00004ba0| 20 20 72 65 73 75 6c 74 | 20 69 73 20 72 65 74 75 |  result| is retu|
|00004bb0| 72 6e 65 64 2c 20 69 6e | 64 69 63 61 74 69 6e 67 |rned, in|dicating|
|00004bc0| 20 73 75 63 63 65 73 73 | 2e 20 20 49 66 20 74 68 | success|.  If th|
|00004bd0| 65 20 62 79 74 65 20 72 | 65 63 65 69 76 65 64 0a |e byte r|eceived.|
|00004be0| 58 20 20 20 20 20 20 20 | 20 69 73 20 6e 6f 74 20 |X       | is not |
|00004bf0| 61 20 73 79 73 65 78 2c | 20 6f 72 20 69 66 20 61 |a sysex,| or if a|
|00004c00| 20 74 69 6d 65 6f 75 74 | 20 6f 63 63 75 72 73 2c | timeout| occurs,|
|00004c10| 20 61 20 6f 6e 65 20 28 | 31 29 20 69 73 20 72 65 | a one (|1) is re|
|00004c20| 74 75 72 6e 65 64 0a 58 | 20 20 20 20 20 20 20 20 |turned.X|        |
|00004c30| 61 6e 64 20 74 68 65 20 | 65 72 72 6f 72 20 72 65 |and the |error re|
|00004c40| 61 73 6f 6e 2c 20 52 65 | 61 73 6f 6e 2c 20 69 73 |ason, Re|ason, is|
|00004c50| 20 73 65 74 20 61 70 70 | 72 6f 70 72 69 61 74 65 | set app|ropriate|
|00004c60| 6c 79 2e 0a 58 0a 58 2a | 2f 0a 58 69 6e 74 0a 58 |ly..X.X*|/.Xint.X|
|00004c70| 47 65 74 43 5a 45 6e 64 | 53 79 73 45 78 28 29 0a |GetCZEnd|SysEx().|
|00004c80| 58 7b 0a 58 20 20 20 20 | 75 6e 73 69 67 6e 65 64 |X{.X    |unsigned|
|00004c90| 20 63 68 61 72 20 20 20 | 20 63 3b 0a 58 20 20 20 | char   | c;.X   |
|00004ca0| 20 6c 6f 6e 67 20 20 20 | 20 62 65 67 69 6e 2c 20 | long   | begin, |
|00004cb0| 74 6f 6f 6c 6f 6e 67 3b | 0a 58 20 20 20 20 73 74 |toolong;|.X    st|
|00004cc0| 61 74 69 63 20 63 68 61 | 72 20 20 20 20 6d 73 67 |atic cha|r    msg|
|00004cd0| 5b 34 30 5d 3b 0a 58 0a | 58 20 20 20 20 62 65 67 |[40];.X.|X    beg|
|00004ce0| 69 6e 20 3d 20 6d 69 6c | 6c 69 63 6c 6f 63 6b 28 |in = mil|liclock(|
|00004cf0| 29 3b 0a 58 20 20 20 20 | 74 6f 6f 6c 6f 6e 67 20 |);.X    |toolong |
|00004d00| 3d 20 62 65 67 69 6e 20 | 2b 20 32 30 30 30 3b 20 |= begin |+ 2000; |
|00004d10| 20 20 20 20 2f 2a 20 57 | 61 69 74 20 66 6f 72 20 |    /* W|ait for |
|00004d20| 32 20 73 65 63 6f 6e 64 | 73 2e 20 2a 2f 0a 58 0a |2 second|s. */.X.|
|00004d30| 58 20 20 20 20 77 68 69 | 6c 65 20 28 6d 69 6c 6c |X    whi|le (mill|
|00004d40| 69 63 6c 6f 63 6b 28 29 | 20 3c 20 74 6f 6f 6c 6f |iclock()| < toolo|
|00004d50| 6e 67 29 20 7b 0a 58 20 | 20 20 20 20 20 20 20 69 |ng) {.X |       i|
|00004d60| 66 20 28 53 54 41 54 4d | 49 44 49 29 20 7b 0a 58 |f (STATM|IDI) {.X|
|00004d70| 20 20 20 20 20 20 20 20 | 20 20 20 20 63 20 3d 20 |        |    c = |
|00004d80| 67 65 74 6d 69 64 69 28 | 29 20 26 20 30 78 46 46 |getmidi(|) & 0xFF|
|00004d90| 3b 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 20 69 |;.X     |       i|
|00004da0| 66 20 28 63 20 21 3d 20 | 45 4e 44 5f 53 59 53 54 |f (c != |END_SYST|
|00004db0| 45 4d 5f 45 58 43 4c 55 | 53 49 56 45 29 20 7b 0a |EM_EXCLU|SIVE) {.|
|00004dc0| 58 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |X       |        |
|00004dd0| 20 28 76 6f 69 64 29 73 | 70 72 69 6e 74 66 28 6d | (void)s|printf(m|
|00004de0| 73 67 2c 22 57 61 69 74 | 65 64 20 66 6f 72 20 25 |sg,"Wait|ed for %|
|00004df0| 30 32 78 78 2c 20 67 6f | 74 20 25 30 32 78 78 22 |02xx, go|t %02xx"|
|00004e00| 2c 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,.X     |        |
|00004e10| 20 20 20 20 20 20 20 20 | 20 20 20 45 4e 44 5f 53 |        |   END_S|
|00004e20| 59 53 54 45 4d 5f 45 58 | 43 4c 55 53 49 56 45 2c |YSTEM_EX|CLUSIVE,|
|00004e30| 20 63 20 26 20 30 78 46 | 46 29 3b 0a 58 20 20 20 | c & 0xF|F);.X   |
|00004e40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 52 65 61 |        |     Rea|
|00004e50| 73 6f 6e 20 3d 20 6d 73 | 67 3b 0a 58 20 20 20 20 |son = ms|g;.X    |
|00004e60| 20 20 20 20 20 20 20 20 | 20 20 20 20 72 65 74 75 |        |    retu|
|00004e70| 72 6e 20 31 3b 0a 58 20 | 20 20 20 20 20 20 20 20 |rn 1;.X |        |
|00004e80| 20 20 20 7d 0a 58 20 20 | 20 20 20 20 20 20 20 20 |   }.X  |        |
|00004e90| 20 20 72 65 74 75 72 6e | 20 30 3b 0a 58 20 20 20 |  return| 0;.X   |
|00004ea0| 20 20 20 20 20 7d 0a 58 | 20 20 20 20 7d 0a 58 20 |     }.X|    }.X |
|00004eb0| 20 20 20 52 65 61 73 6f | 6e 20 3d 20 22 54 69 6d |   Reaso|n = "Tim|
|00004ec0| 65 64 20 6f 75 74 20 77 | 61 69 74 69 6e 67 20 66 |ed out w|aiting f|
|00004ed0| 6f 72 20 65 6e 64 20 73 | 79 73 65 78 2e 22 3b 0a |or end s|ysex.";.|
|00004ee0| 58 20 20 20 20 72 65 74 | 75 72 6e 20 31 3b 0a 58 |X    ret|urn 1;.X|
|00004ef0| 7d 0a 58 0a 58 2f 2a 20 | 20 46 55 4e 43 54 49 4f |}.X.X/* | FUNCTIO|
|00004f00| 4e 0a 58 20 20 20 20 20 | 20 20 20 53 65 6e 64 43 |N.X     |   SendC|
|00004f10| 5a 50 61 74 63 68 20 2d | 20 73 65 6e 64 20 6f 6e |ZPatch -| send on|
|00004f20| 65 20 76 6f 69 63 65 20 | 74 6f 20 74 68 65 20 43 |e voice |to the C|
|00004f30| 5a 31 0a 58 0a 58 20 20 | 20 20 53 59 4e 4f 50 53 |Z1.X.X  |  SYNOPS|
|00004f40| 49 53 0a 58 20 20 20 20 | 20 20 20 20 69 6e 74 20 |IS.X    |    int |
|00004f50| 53 65 6e 64 43 5a 50 61 | 74 63 68 28 74 6f 6e 65 |SendCZPa|tch(tone|
|00004f60| 64 61 74 61 2c 20 63 68 | 61 6e 6e 65 6c 2c 20 76 |data, ch|annel, v|
|00004f70| 6f 69 63 65 29 0a 58 20 | 20 20 20 20 20 20 20 20 |oice).X |        |
|00004f80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 73 |        |       s|
|00004f90| 74 72 75 63 74 20 54 6f | 6e 65 44 61 74 61 20 2a |truct To|neData *|
|00004fa0| 74 6f 6e 65 64 61 74 61 | 3b 0a 58 20 20 20 20 20 |tonedata|;.X     |
|00004fb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004fc0| 20 20 20 69 6e 74 20 63 | 68 61 6e 6e 65 6c 2c 20 |   int c|hannel, |
|00004fd0| 76 6f 69 63 65 3b 0a 58 | 0a 58 20 20 20 20 44 45 |voice;.X|.X    DE|
|00004fe0| 53 43 52 49 50 54 49 4f | 4e 0a 58 20 20 20 20 20 |SCRIPTIO|N.X     |
|00004ff0| 20 20 20 53 65 6e 64 43 | 7a 50 61 74 63 68 20 73 |   SendC|zPatch s|
|00005000| 65 6e 64 73 20 6f 6e 65 | 20 76 6f 69 63 65 20 70 |ends one| voice p|
|00005010| 61 74 63 68 20 28 3c 74 | 6f 6e 65 64 61 74 61 3e |atch (<t|onedata>|
|00005020| 29 20 74 6f 20 74 68 65 | 20 43 5a 31 2c 0a 58 20 |) to the| CZ1,.X |
|00005030| 20 20 20 20 20 20 20 75 | 73 69 6e 67 20 74 68 65 |       u|sing the|
|00005040| 20 73 70 65 63 69 66 69 | 65 64 20 3c 63 68 61 6e | specifi|ed <chan|
|00005050| 6e 65 6c 3e 2e 20 20 54 | 68 65 20 3c 76 6f 69 63 |nel>.  T|he <voic|
|00005060| 65 3e 20 61 72 67 75 6d | 65 6e 74 20 64 65 74 65 |e> argum|ent dete|
|00005070| 72 6d 69 6e 65 73 0a 58 | 20 20 20 20 20 20 20 20 |rmines.X|        |
|00005080| 77 68 69 63 68 20 73 79 | 6e 74 68 65 73 69 7a 65 |which sy|nthesize|
|00005090| 72 20 70 72 6f 67 72 61 | 6d 20 61 72 65 61 20 74 |r progra|m area t|
|000050a0| 68 65 20 64 61 74 61 20 | 77 69 6c 6c 20 62 65 20 |he data |will be |
|000050b0| 73 65 6e 74 20 74 6f 2e | 0a 58 0a 58 20 20 20 20 |sent to.|.X.X    |
|000050c0| 20 20 20 20 4e 6f 74 65 | 20 74 68 61 74 20 74 68 |    Note| that th|
|000050d0| 65 20 43 5a 20 66 61 6d | 69 6c 79 20 62 65 68 61 |e CZ fam|ily beha|
|000050e0| 76 65 73 20 69 6e 20 61 | 20 77 69 65 72 64 20 77 |ves in a| wierd w|
|000050f0| 61 79 2c 20 73 70 6c 69 | 74 74 69 6e 67 20 61 6c |ay, spli|tting al|
|00005100| 6c 0a 58 20 20 20 20 20 | 20 20 20 74 6f 6e 65 20 |l.X     |   tone |
|00005110| 64 61 74 61 20 62 79 74 | 65 73 20 69 6e 74 6f 20 |data byt|es into |
|00005120| 74 77 6f 20 70 69 65 63 | 65 73 2e 20 20 53 65 6e |two piec|es.  Sen|
|00005130| 64 54 6f 6e 65 44 61 74 | 61 20 73 70 6c 69 74 73 |dToneDat|a splits|
|00005140| 20 74 68 65 20 62 79 74 | 65 73 0a 58 20 20 20 20 | the byt|es.X    |
|00005150| 20 20 20 20 74 6f 20 61 | 20 6c 6f 63 61 6c 20 62 |    to a| local b|
|00005160| 75 66 66 65 72 20 70 72 | 69 6f 72 20 74 6f 20 74 |uffer pr|ior to t|
|00005170| 72 61 6e 73 6d 69 74 74 | 69 6e 67 20 74 68 65 6d |ransmitt|ing them|
|00005180| 2e 0a 58 2a 2f 0a 58 73 | 74 61 74 69 63 20 69 6e |..X*/.Xs|tatic in|
|00005190| 74 0a 58 53 65 6e 64 43 | 5a 50 61 74 63 68 28 74 |t.XSendC|ZPatch(t|
|000051a0| 6f 6e 65 64 61 74 61 2c | 20 63 68 61 6e 6e 65 6c |onedata,| channel|
|000051b0| 2c 20 76 6f 69 63 65 29 | 0a 58 73 74 72 75 63 74 |, voice)|.Xstruct|
|000051c0| 20 54 6f 6e 65 44 61 74 | 61 20 2a 74 6f 6e 65 64 | ToneDat|a *toned|
|000051d0| 61 74 61 3b 0a 58 69 6e | 74 20 63 68 61 6e 6e 65 |ata;.Xin|t channe|
|000051e0| 6c 2c 76 6f 69 63 65 3b | 0a 58 7b 0a 58 20 20 20 |l,voice;|.X{.X   |
|000051f0| 20 6c 6f 6e 67 20 20 20 | 20 62 65 67 69 6e 2c 20 | long   | begin, |
|00005200| 74 6f 6f 6c 6f 6e 67 3b | 20 20 20 20 20 20 20 20 |toolong;|        |
|00005210| 20 20 20 20 20 2f 2a 20 | 74 69 6d 65 72 20 76 61 |     /* |timer va|
|00005220| 6c 75 65 73 20 2a 2f 0a | 58 0a 58 23 69 66 64 65 |lues */.|X.X#ifde|
|00005230| 66 20 43 5a 31 30 31 0a | 58 2f 2a 20 52 65 63 65 |f CZ101.|X/* Rece|
|00005240| 69 76 65 20 72 65 71 75 | 65 73 74 20 31 20 73 79 |ive requ|est 1 sy|
|00005250| 73 74 65 6d 20 65 78 63 | 6c 75 73 69 76 65 20 2a |stem exc|lusive *|
|00005260| 2f 0a 58 0a 58 73 74 61 | 74 69 63 20 55 42 59 54 |/.X.Xsta|tic UBYT|
|00005270| 45 20 72 65 63 65 69 76 | 65 5f 72 65 71 75 65 73 |E receiv|e_reques|
|00005280| 74 5b 5d 20 3d 20 7b 0a | 58 20 20 20 20 30 78 46 |t[] = {.|X    0xF|
|00005290| 30 2c 30 78 34 34 2c 30 | 78 30 30 2c 30 78 30 30 |0,0x44,0|x00,0x00|
|000052a0| 2c 30 78 37 30 2c 30 78 | 32 30 2c 30 78 30 30 20 |,0x70,0x|20,0x00 |
|000052b0| 7d 3b 0a 58 23 65 6e 64 | 69 66 0a 58 0a 58 23 69 |};.X#end|if.X.X#i|
|000052c0| 66 64 65 66 20 43 5a 31 | 0a 58 73 74 61 74 69 63 |fdef CZ1|.Xstatic|
|000052d0| 20 55 42 59 54 45 20 72 | 65 63 65 69 76 65 5f 72 | UBYTE r|eceive_r|
|000052e0| 65 71 75 65 73 74 5b 5d | 20 3d 20 7b 0a 58 20 20 |equest[]| = {.X  |
|000052f0| 20 20 20 20 20 20 30 78 | 46 30 2c 30 78 34 34 2c |      0x|F0,0x44,|
|00005300| 30 78 30 30 2c 30 78 30 | 30 2c 30 78 37 30 2c 30 |0x00,0x0|0,0x70,0|
|00005310| 78 32 31 2c 30 78 30 30 | 20 7d 3b 0a 58 23 65 6e |x21,0x00| };.X#en|
|00005320| 64 69 66 0a 58 0a 58 20 | 20 20 20 55 42 59 54 45 |dif.X.X |   UBYTE|
|00005330| 20 64 61 74 61 5b 35 31 | 32 5d 3b 0a 58 20 20 20 | data[51|2];.X   |
|00005340| 20 55 42 59 54 45 20 2a | 70 74 72 3b 0a 58 0a 58 | UBYTE *|ptr;.X.X|
|00005350| 20 20 20 20 69 6e 74 20 | 69 3b 0a 58 0a 58 20 20 |    int |i;.X.X  |
|00005360| 20 20 2f 2a 20 43 6c 65 | 61 72 20 74 68 65 20 73 |  /* Cle|ar the s|
|00005370| 65 72 69 61 6c 20 62 75 | 66 66 65 72 20 6f 66 20 |erial bu|ffer of |
|00005380| 61 6e 79 20 75 6e 72 65 | 61 64 20 64 61 74 61 20 |any unre|ad data |
|00005390| 2a 2f 0a 58 20 20 69 66 | 20 28 21 73 79 6e 74 68 |*/.X  if| (!synth|
|000053a0| 6f 75 74 66 69 6c 65 66 | 6c 61 67 29 0a 58 20 20 |outfilef|lag).X  |
|000053b0| 20 20 66 6c 75 73 68 6d | 69 64 69 28 29 3b 0a 58 |  flushm|idi();.X|
|000053c0| 0a 58 20 20 20 20 2f 2a | 20 46 69 6c 6c 20 69 6e |.X    /*| Fill in|
|000053d0| 20 63 68 61 6e 6e 65 6c | 20 61 6e 64 20 76 6f 69 | channel| and voi|
|000053e0| 63 65 2c 20 74 68 65 6e | 20 73 65 6e 64 20 72 65 |ce, then| send re|
|000053f0| 71 75 65 73 74 2e 20 2a | 2f 0a 58 0a 58 20 20 20 |quest. *|/.X.X   |
|00005400| 20 72 65 63 65 69 76 65 | 5f 72 65 71 75 65 73 74 | receive|_request|
|00005410| 20 5b 34 5d 20 3d 20 30 | 78 37 30 20 7c 20 28 28 | [4] = 0|x70 | ((|
|00005420| 63 68 61 6e 6e 65 6c 20 | 2d 20 31 29 20 26 20 30 |channel |- 1) & 0|
|00005430| 78 30 46 29 3b 0a 58 20 | 20 20 20 72 65 63 65 69 |x0F);.X |   recei|
|00005440| 76 65 5f 72 65 71 75 65 | 73 74 20 5b 36 5d 20 3d |ve_reque|st [6] =|
|00005450| 20 76 6f 69 63 65 3b 0a | 58 0a 58 20 20 20 20 73 | voice;.|X.X    s|
|00005460| 65 6e 64 6d 75 6c 74 69 | 28 72 65 63 65 69 76 65 |endmulti|(receive|
|00005470| 5f 72 65 71 75 65 73 74 | 2c 20 73 69 7a 65 6f 66 |_request|, sizeof|
|00005480| 28 72 65 63 65 69 76 65 | 5f 72 65 71 75 65 73 74 |(receive|_request|
|00005490| 29 29 3b 0a 58 0a 58 20 | 20 20 20 2f 2a 20 47 65 |));.X.X |   /* Ge|
|000054a0| 74 20 74 68 65 20 72 65 | 70 6c 79 20 6d 65 73 73 |t the re|ply mess|
|000054b0| 61 67 65 2e 20 49 74 27 | 73 20 73 69 78 20 62 79 |age. It'|s six by|
|000054c0| 74 65 73 20 63 6f 6e 73 | 69 73 74 69 6e 67 20 6f |tes cons|isting o|
|000054d0| 66 3a 0a 58 20 20 20 20 | 20 20 20 20 20 20 20 20 |f:.X    |        |
|000054e0| 46 30 20 34 34 20 30 30 | 20 30 30 20 37 4e 20 33 |F0 44 00| 00 7N 3|
|000054f0| 30 20 20 77 68 65 72 65 | 20 4e 20 69 73 20 74 68 |0  where| N is th|
|00005500| 65 20 63 68 61 6e 6e 65 | 6c 20 6e 75 6d 62 65 72 |e channe|l number|
|00005510| 2e 0a 58 20 20 20 20 20 | 2a 2f 0a 58 0a 58 20 20 |..X     |*/.X.X  |
|00005520| 20 20 62 65 67 69 6e 20 | 3d 20 6d 69 6c 6c 69 63 |  begin |= millic|
|00005530| 6c 6f 63 6b 28 29 3b 0a | 58 20 20 20 20 74 6f 6f |lock();.|X    too|
|00005540| 6c 6f 6e 67 20 3d 20 62 | 65 67 69 6e 20 2b 20 35 |long = b|egin + 5|
|00005550| 30 30 30 4c 3b 0a 58 20 | 20 69 66 20 28 21 73 79 |000L;.X | if (!sy|
|00005560| 6e 74 68 6f 75 74 66 69 | 6c 65 66 6c 61 67 29 0a |nthoutfi|leflag).|
|00005570| 58 20 20 20 20 66 6f 72 | 20 28 69 20 3d 20 30 3b |X    for| (i = 0;|
|00005580| 20 69 20 3c 20 36 3b 20 | 29 20 7b 0a 58 20 20 20 | i < 6; |) {.X   |
|00005590| 20 20 20 20 20 69 66 20 | 28 53 54 41 54 4d 49 44 |     if |(STATMID|
|000055a0| 49 29 20 7b 20 20 20 20 | 20 20 20 20 20 20 20 20 |I) {    |        |
|000055b0| 20 20 20 20 20 2f 2a 20 | 53 6f 6d 65 74 68 69 6e |     /* |Somethin|
|000055c0| 67 20 61 76 61 69 6c 61 | 62 6c 65 3f 20 2a 2f 0a |g availa|ble? */.|
|000055d0| 58 20 20 20 20 20 20 20 | 20 20 20 20 20 64 61 74 |X       |     dat|
|000055e0| 61 5b 69 2b 2b 5d 20 3d | 20 67 65 74 6d 69 64 69 |a[i++] =| getmidi|
|000055f0| 28 29 3b 0a 58 20 20 20 | 20 20 20 20 20 7d 0a 58 |();.X   |     }.X|
|00005600| 20 20 20 20 20 20 20 20 | 65 6c 73 65 20 69 66 20 |        |else if |
|00005610| 28 6d 69 6c 6c 69 63 6c | 6f 63 6b 28 29 20 3e 20 |(millicl|ock() > |
|00005620| 74 6f 6f 6c 6f 6e 67 29 | 20 7b 0a 58 20 20 20 20 |toolong)| {.X    |
|00005630| 20 20 20 20 20 20 20 20 | 52 65 61 73 6f 6e 20 3d |        |Reason =|
|00005640| 20 22 54 69 6d 65 6f 75 | 74 20 77 61 69 74 69 6e | "Timeou|t waitin|
|00005650| 67 20 66 6f 72 20 72 65 | 63 65 69 76 65 20 72 65 |g for re|ceive re|
|00005660| 71 75 65 73 74 20 31 20 | 72 65 70 6c 79 2e 22 3b |quest 1 |reply.";|
|00005670| 0a 58 20 20 20 20 20 20 | 20 20 20 20 20 20 72 65 |.X      |      re|
|00005680| 74 75 72 6e 20 31 3b 0a | 58 20 20 20 20 20 20 20 |turn 1;.|X       |
|00005690| 20 7d 0a 58 20 20 20 20 | 7d 0a 58 0a 58 20 20 20 | }.X    |}.X.X   |
|000056a0| 20 2f 2a 20 53 70 6c 69 | 74 20 74 68 65 20 64 61 | /* Spli|t the da|
|000056b0| 74 61 20 69 6e 74 6f 20 | 34 2d 62 69 74 20 6e 79 |ta into |4-bit ny|
|000056c0| 62 62 6c 65 73 2e 20 2a | 2f 0a 58 0a 58 20 20 20 |bbles. *|/.X.X   |
|000056d0| 20 70 74 72 20 3d 20 28 | 55 42 59 54 45 20 2a 29 | ptr = (|UBYTE *)|
|000056e0| 20 74 6f 6e 65 64 61 74 | 61 3b 0a 58 0a 58 20 20 | tonedat|a;.X.X  |
|000056f0| 20 20 66 6f 72 20 28 69 | 3d 30 3b 20 69 3c 73 69 |  for (i|=0; i<si|
|00005700| 7a 65 6f 66 28 73 74 72 | 75 63 74 20 54 6f 6e 65 |zeof(str|uct Tone|
|00005710| 44 61 74 61 29 2a 32 3b | 20 69 2b 3d 32 29 20 7b |Data)*2;| i+=2) {|
|00005720| 0a 58 20 20 20 20 20 20 | 20 20 64 61 74 61 5b 69 |.X      |  data[i|
|00005730| 5d 20 3d 20 2a 70 74 72 | 20 26 20 30 78 30 46 3b |] = *ptr| & 0x0F;|
|00005740| 0a 58 20 20 20 20 20 20 | 20 20 64 61 74 61 5b 69 |.X      |  data[i|
|00005750| 2b 31 5d 20 3d 20 28 2a | 70 74 72 20 3e 3e 20 34 |+1] = (*|ptr >> 4|
|00005760| 29 20 26 20 30 78 30 46 | 3b 0a 58 20 20 20 20 20 |) & 0x0F|;.X     |
|00005770| 20 20 20 2b 2b 70 74 72 | 3b 0a 58 20 20 20 20 7d |   ++ptr|;.X    }|
|00005780| 0a 58 0a 58 20 20 20 20 | 2f 2a 20 41 64 64 20 22 |.X.X    |/* Add "|
|00005790| 65 6e 64 2d 73 79 73 74 | 65 6d 2d 65 78 63 6c 75 |end-syst|em-exclu|
|000057a0| 73 69 76 65 22 20 74 6f | 20 74 6f 6e 65 20 64 61 |sive" to| tone da|
|000057b0| 74 61 20 62 75 66 66 65 | 72 20 2a 2f 0a 58 0a 58 |ta buffe|r */.X.X|
|000057c0| 20 20 20 20 64 61 74 61 | 5b 69 5d 20 3d 20 45 4e |    data|[i] = EN|
|000057d0| 44 5f 53 59 53 54 45 4d | 5f 45 58 43 4c 55 53 49 |D_SYSTEM|_EXCLUSI|
|000057e0| 56 45 3b 0a 58 0a 58 20 | 20 20 20 2f 2a 20 53 65 |VE;.X.X |   /* Se|
|000057f0| 6e 64 20 74 6f 6e 65 20 | 64 61 74 61 20 74 6f 20 |nd tone |data to |
|00005800| 73 79 6e 74 68 20 2a 2f | 0a 58 0a 58 20 20 20 20 |synth */|.X.X    |
|00005810| 73 65 6e 64 6d 75 6c 74 | 69 28 64 61 74 61 2c 20 |sendmult|i(data, |
|00005820| 73 69 7a 65 6f 66 28 73 | 74 72 75 63 74 20 54 6f |sizeof(s|truct To|
|00005830| 6e 65 44 61 74 61 29 20 | 2a 20 32 20 2b 20 31 29 |neData) |* 2 + 1)|
|00005840| 3b 0a 58 0a 58 20 20 20 | 20 2f 2a 20 52 65 61 64 |;.X.X   | /* Read|
|00005850| 20 22 65 6e 64 2d 73 79 | 73 74 65 6d 2d 65 78 63 | "end-sy|stem-exc|
|00005860| 6c 75 73 69 76 65 22 20 | 66 72 6f 6d 20 73 79 6e |lusive" |from syn|
|00005870| 74 68 20 2a 2f 0a 58 0a | 58 20 20 69 66 20 28 21 |th */.X.|X  if (!|
|00005880| 73 79 6e 74 68 6f 75 74 | 66 69 6c 65 66 6c 61 67 |synthout|fileflag|
|00005890| 29 0a 58 20 20 20 20 72 | 65 74 75 72 6e 20 47 65 |).X    r|eturn Ge|
|000058a0| 74 43 5a 45 6e 64 53 79 | 73 45 78 28 29 3b 0a 58 |tCZEndSy|sEx();.X|
|000058b0| 20 20 65 6c 73 65 20 72 | 65 74 75 72 6e 20 30 3b |  else r|eturn 0;|
|000058c0| 0a 58 7d 0a 58 0a 58 2f | 2a 20 20 46 55 4e 43 54 |.X}.X.X/|*  FUNCT|
|000058d0| 49 4f 4e 0a 58 20 20 20 | 20 20 20 20 20 52 65 63 |ION.X   |     Rec|
|000058e0| 65 69 76 65 43 5a 50 61 | 74 63 68 20 2d 20 72 65 |eiveCZPa|tch - re|
|000058f0| 63 65 69 76 65 20 6f 6e | 65 20 43 5a 31 20 76 6f |ceive on|e CZ1 vo|
|00005900| 69 63 65 20 70 61 74 63 | 68 2e 0a 58 0a 58 20 20 |ice patc|h..X.X  |
|00005910| 20 20 53 59 4e 4f 50 53 | 49 53 0a 58 20 20 20 20 |  SYNOPS|IS.X    |
|00005920| 20 20 20 20 69 6e 74 20 | 52 65 63 65 69 76 65 43 |    int |ReceiveC|
|00005930| 5a 50 61 74 63 68 28 74 | 6f 6e 65 64 61 74 61 2c |ZPatch(t|onedata,|
|00005940| 20 63 68 61 6e 6e 65 6c | 2c 20 76 6f 69 63 65 29 | channel|, voice)|
|00005950| 3b 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;.X     |        |
|00005960| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 73 74 |        |      st|
|00005970| 72 75 63 74 20 54 6f 6e | 65 44 61 74 61 20 2a 74 |ruct Ton|eData *t|
|00005980| 6f 6e 65 64 61 74 61 3b | 0a 58 20 20 20 20 20 20 |onedata;|.X      |
|00005990| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000059a0| 20 20 20 20 20 69 6e 74 | 20 63 68 61 6e 6e 65 6c |     int| channel|
|000059b0| 2c 20 76 6f 69 63 65 3b | 0a 58 0a 58 20 20 20 20 |, voice;|.X.X    |
|000059c0| 44 45 53 43 52 49 50 54 | 49 4f 4e 0a 58 20 20 20 |DESCRIPT|ION.X   |
|000059d0| 20 20 20 20 20 52 65 63 | 65 69 76 65 43 5a 50 61 |     Rec|eiveCZPa|
|000059e0| 74 63 68 20 72 65 71 75 | 65 73 74 73 20 6f 6e 65 |tch requ|ests one|
|000059f0| 20 43 5a 31 20 76 6f 69 | 63 65 20 70 61 74 63 68 | CZ1 voi|ce patch|
|00005a00| 2e 20 49 74 20 63 6f 6d | 62 69 6e 65 73 20 74 68 |. It com|bines th|
|00005a10| 65 0a 58 20 20 20 20 20 | 20 20 20 76 6f 69 63 65 |e.X     |   voice|
|00005a20| 20 6e 79 62 62 6c 65 73 | 20 73 65 6e 74 20 62 79 | nybbles| sent by|
|00005a30| 20 74 68 65 20 43 5a 31 | 20 69 6e 74 6f 20 61 20 | the CZ1| into a |
|00005a40| 6e 6f 72 6d 61 6c 20 54 | 6f 6e 65 44 61 74 61 20 |normal T|oneData |
|00005a50| 73 74 72 75 63 74 75 72 | 65 2e 0a 58 0a 58 20 20 |structur|e..X.X  |
|00005a60| 20 20 20 20 20 20 52 65 | 63 65 69 76 65 43 5a 50 |      Re|ceiveCZP|
|00005a70| 61 74 63 68 20 72 65 74 | 75 72 6e 73 20 7a 65 72 |atch ret|urns zer|
|00005a80| 6f 20 6f 6e 20 73 75 63 | 63 65 73 73 2e 20 20 4f |o on suc|cess.  O|
|00005a90| 6e 20 66 61 69 6c 75 72 | 65 2c 20 69 74 20 72 65 |n failur|e, it re|
|00005aa0| 74 75 72 6e 73 0a 58 20 | 20 20 20 20 20 20 20 6f |turns.X |       o|
|00005ab0| 6e 65 20 28 31 29 20 61 | 66 74 65 72 20 73 65 74 |ne (1) a|fter set|
|00005ac0| 74 69 6e 67 20 52 65 61 | 73 6f 6e 20 74 6f 20 61 |ting Rea|son to a|
|00005ad0| 20 73 74 72 69 6e 67 20 | 64 65 73 63 72 69 62 69 | string |describi|
|00005ae0| 6e 67 20 74 68 65 20 66 | 61 69 6c 75 72 65 2e 0a |ng the f|ailure..|
|00005af0| 58 2a 2f 0a 58 0a 58 69 | 6e 74 0a 58 52 65 63 65 |X*/.X.Xi|nt.XRece|
|00005b00| 69 76 65 43 5a 50 61 74 | 63 68 28 74 6f 6e 65 64 |iveCZPat|ch(toned|
|00005b10| 61 74 61 2c 20 63 68 61 | 6e 6e 65 6c 2c 20 76 6f |ata, cha|nnel, vo|
|00005b20| 69 63 65 29 0a 58 73 74 | 72 75 63 74 20 54 6f 6e |ice).Xst|ruct Ton|
|00005b30| 65 44 61 74 61 20 2a 74 | 6f 6e 65 64 61 74 61 3b |eData *t|onedata;|
|00005b40| 0a 58 55 42 59 54 45 20 | 63 68 61 6e 6e 65 6c 2c |.XUBYTE |channel,|
|00005b50| 76 6f 69 63 65 3b 0a 58 | 7b 0a 58 23 69 66 64 65 |voice;.X|{.X#ifde|
|00005b60| 66 20 43 5a 31 30 31 0a | 58 2f 2a 20 53 65 6e 64 |f CZ101.|X/* Send|
|00005b70| 20 52 65 71 75 65 73 74 | 20 31 20 73 79 73 74 65 | Request| 1 syste|
|00005b80| 6d 20 65 78 63 6c 75 73 | 69 76 65 20 64 61 74 61 |m exclus|ive data|
|00005b90| 20 2a 2f 0a 58 0a 58 73 | 74 61 74 69 63 20 55 42 | */.X.Xs|tatic UB|
|00005ba0| 59 54 45 20 73 65 6e 64 | 5f 72 65 71 75 65 73 74 |YTE send|_request|
|00005bb0| 5f 31 41 20 5b 5d 20 3d | 20 7b 0a 58 20 20 20 20 |_1A [] =| {.X    |
|00005bc0| 30 78 46 30 2c 30 78 34 | 34 2c 30 78 30 30 2c 30 |0xF0,0x4|4,0x00,0|
|00005bd0| 78 30 30 2c 30 78 37 30 | 2c 30 78 31 30 2c 30 78 |x00,0x70|,0x10,0x|
|00005be0| 30 30 20 7d 3b 0a 58 0a | 58 73 74 61 74 69 63 20 |00 };.X.|Xstatic |
|00005bf0| 55 42 59 54 45 20 73 65 | 6e 64 5f 72 65 71 75 65 |UBYTE se|nd_reque|
|00005c00| 73 74 5f 31 42 20 5b 5d | 20 3d 20 7b 0a 58 20 20 |st_1B []| = {.X  |
|00005c10| 20 20 30 78 37 30 2c 30 | 78 33 31 20 7d 3b 0a 58 |  0x70,0|x31 };.X|
|00005c20| 23 65 6e 64 69 66 0a 58 | 0a 58 23 69 66 64 65 66 |#endif.X|.X#ifdef|
|00005c30| 20 43 5a 31 0a 58 73 74 | 61 74 69 63 20 55 42 59 | CZ1.Xst|atic UBY|
|00005c40| 54 45 20 73 65 6e 64 5f | 72 65 71 75 65 73 74 5f |TE send_|request_|
|00005c50| 31 41 20 5b 5d 20 3d 20 | 7b 0a 58 20 20 20 20 20 |1A [] = |{.X     |
|00005c60| 20 20 20 30 78 46 30 2c | 30 78 34 34 2c 30 78 30 |   0xF0,|0x44,0x0|
|00005c70| 30 2c 30 78 30 30 2c 30 | 78 37 30 2c 30 78 31 31 |0,0x00,0|x70,0x11|
|00005c80| 2c 30 78 30 30 20 7d 3b | 0a 58 0a 58 73 74 61 74 |,0x00 };|.X.Xstat|
|00005c90| 69 63 20 55 42 59 54 45 | 20 73 65 6e 64 5f 72 65 |ic UBYTE| send_re|
|00005ca0| 71 75 65 73 74 5f 31 42 | 20 5b 5d 20 3d 20 7b 0a |quest_1B| [] = {.|
|00005cb0| 58 20 20 20 20 20 20 20 | 20 30 78 37 30 2c 30 78 |X       | 0x70,0x|
|00005cc0| 33 31 20 7d 3b 0a 58 23 | 65 6e 64 69 66 0a 58 0a |31 };.X#|endif.X.|
|00005cd0| 58 20 20 20 20 6c 6f 6e | 67 20 20 20 20 62 65 67 |X    lon|g    beg|
|00005ce0| 69 6e 2c 20 74 6f 6f 6c | 6f 6e 67 3b 0a 58 20 20 |in, tool|ong;.X  |
|00005cf0| 20 20 55 42 59 54 45 20 | 20 20 64 61 74 61 5b 35 |  UBYTE |  data[5|
|00005d00| 31 32 5d 3b 0a 58 20 20 | 20 20 55 42 59 54 45 20 |12];.X  |  UBYTE |
|00005d10| 20 20 2a 70 74 72 3b 0a | 58 0a 58 20 20 20 20 69 |  *ptr;.|X.X    i|
|00005d20| 6e 74 20 69 3b 0a 58 0a | 58 20 20 20 20 2f 2a 20 |nt i;.X.|X    /* |
|00005d30| 43 6c 65 61 72 20 74 68 | 65 20 73 65 72 69 61 6c |Clear th|e serial|
|00005d40| 20 62 75 66 66 65 72 20 | 6f 66 20 61 6e 79 20 75 | buffer |of any u|
|00005d50| 6e 72 65 61 64 20 64 61 | 74 61 20 2a 2f 0a 58 0a |nread da|ta */.X.|
|00005d60| 58 20 20 20 20 66 6c 75 | 73 68 6d 69 64 69 28 29 |X    flu|shmidi()|
|00005d70| 3b 0a 58 0a 58 20 20 20 | 20 2f 2a 20 53 65 74 20 |;.X.X   | /* Set |
|00005d80| 63 68 61 6e 6e 65 6c 20 | 61 6e 64 20 76 6f 69 63 |channel |and voic|
|00005d90| 65 20 69 6e 66 6f 2c 20 | 74 68 65 6e 20 73 65 6e |e info, |then sen|
|00005da0| 64 20 74 68 65 20 72 65 | 71 75 65 73 74 20 74 6f |d the re|quest to|
|00005db0| 20 74 68 65 20 43 5a 31 | 2e 20 2a 2f 0a 58 0a 58 | the CZ1|. */.X.X|
|00005dc0| 20 20 20 20 73 65 6e 64 | 5f 72 65 71 75 65 73 74 |    send|_request|
|00005dd0| 5f 31 41 20 5b 34 5d 20 | 3d 20 30 78 37 30 20 7c |_1A [4] |= 0x70 ||
|00005de0| 20 28 28 63 68 61 6e 6e | 65 6c 20 2d 20 31 29 20 | ((chann|el - 1) |
|00005df0| 26 20 30 78 30 46 29 3b | 0a 58 20 20 20 20 73 65 |& 0x0F);|.X    se|
|00005e00| 6e 64 5f 72 65 71 75 65 | 73 74 5f 31 41 20 5b 36 |nd_reque|st_1A [6|
|00005e10| 5d 20 3d 20 76 6f 69 63 | 65 3b 0a 58 0a 58 20 20 |] = voic|e;.X.X  |
|00005e20| 20 20 73 65 6e 64 6d 75 | 6c 74 69 28 73 65 6e 64 |  sendmu|lti(send|
|00005e30| 5f 72 65 71 75 65 73 74 | 5f 31 41 2c 20 73 69 7a |_request|_1A, siz|
|00005e40| 65 6f 66 28 73 65 6e 64 | 5f 72 65 71 75 65 73 74 |eof(send|_request|
|00005e50| 5f 31 41 29 29 3b 0a 58 | 0a 58 20 20 20 20 2f 2a |_1A));.X|.X    /*|
|00005e60| 20 47 65 74 20 74 68 65 | 20 72 65 70 6c 79 20 6d | Get the| reply m|
|00005e70| 65 73 73 61 67 65 2e 20 | 49 74 27 73 20 73 69 78 |essage. |It's six|
|00005e80| 20 62 79 74 65 73 20 63 | 6f 6e 73 69 73 74 69 6e | bytes c|onsistin|
|00005e90| 67 20 6f 66 3a 0a 58 20 | 20 20 20 20 20 20 20 20 |g of:.X |        |
|00005ea0| 20 20 20 46 30 20 34 34 | 20 30 30 20 30 30 20 37 |   F0 44| 00 00 7|
|00005eb0| 4e 20 33 30 20 20 77 68 | 65 72 65 20 4e 20 69 73 |N 30  wh|ere N is|
|00005ec0| 20 74 68 65 20 63 68 61 | 6e 6e 65 6c 20 6e 75 6d | the cha|nnel num|
|00005ed0| 62 65 72 2e 0a 58 20 20 | 20 20 20 2a 2f 0a 58 0a |ber..X  |   */.X.|
|00005ee0| 58 20 20 20 20 62 65 67 | 69 6e 20 3d 20 6d 69 6c |X    beg|in = mil|
|00005ef0| 6c 69 63 6c 6f 63 6b 28 | 29 3b 0a 58 20 20 20 20 |liclock(|);.X    |
|00005f00| 74 6f 6f 6c 6f 6e 67 20 | 3d 20 62 65 67 69 6e 20 |toolong |= begin |
|00005f10| 2b 20 35 30 30 30 4c 3b | 0a 58 20 20 20 20 66 6f |+ 5000L;|.X    fo|
|00005f20| 72 20 28 69 20 3d 20 30 | 3b 20 69 20 3c 20 36 3b |r (i = 0|; i < 6;|
|00005f30| 20 29 20 7b 0a 58 20 20 | 20 20 20 20 20 20 69 66 | ) {.X  |      if|
|00005f40| 20 28 53 54 41 54 4d 49 | 44 49 29 20 7b 20 20 20 | (STATMI|DI) {   |
|00005f50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2f 2a |        |      /*|
|00005f60| 20 53 6f 6d 65 74 68 69 | 6e 67 20 61 76 61 69 6c | Somethi|ng avail|
|00005f70| 61 62 6c 65 3f 20 2a 2f | 0a 58 20 20 20 20 20 20 |able? */|.X      |
|00005f80| 20 20 20 20 20 20 64 61 | 74 61 5b 69 2b 2b 5d 20 |      da|ta[i++] |
|00005f90| 3d 20 67 65 74 6d 69 64 | 69 28 29 3b 0a 58 20 20 |= getmid|i();.X  |
|00005fa0| 20 20 20 20 20 20 7d 0a | 58 20 20 20 20 20 20 20 |      }.|X       |
|00005fb0| 20 65 6c 73 65 20 69 66 | 20 28 6d 69 6c 6c 69 63 | else if| (millic|
|00005fc0| 6c 6f 63 6b 28 29 20 3e | 20 74 6f 6f 6c 6f 6e 67 |lock() >| toolong|
|00005fd0| 29 20 7b 0a 58 20 20 20 | 20 20 20 20 20 20 20 20 |) {.X   |        |
|00005fe0| 20 52 65 61 73 6f 6e 20 | 3d 20 22 54 69 6d 65 6f | Reason |= "Timeo|
|00005ff0| 75 74 20 77 61 69 74 69 | 6e 67 20 66 6f 72 20 73 |ut waiti|ng for s|
|00006000| 65 6e 64 20 72 65 71 75 | 65 73 74 20 31 20 72 65 |end requ|est 1 re|
|00006010| 70 6c 79 2e 22 3b 0a 58 | 20 20 20 20 20 20 20 20 |ply.";.X|        |
|00006020| 20 20 20 20 72 65 74 75 | 72 6e 20 31 3b 0a 58 20 |    retu|rn 1;.X |
|00006030| 20 20 20 20 20 20 20 7d | 0a 58 20 20 20 20 7d 0a |       }|.X    }.|
|00006040| 58 09 2f 2a 20 69 66 20 | 66 72 6f 6d 20 66 69 6c |X./* if |from fil|
|00006050| 65 2c 20 6f 6e 65 20 6d | 6f 72 65 20 62 79 74 65 |e, one m|ore byte|
|00006060| 20 6f 66 20 68 65 61 64 | 65 72 20 74 6f 20 72 65 | of head|er to re|
|00006070| 61 64 20 2d 2d 20 67 6c | 20 2a 2f 0a 58 09 69 66 |ad -- gl| */.X.if|
|00006080| 20 28 73 79 6e 74 68 69 | 6e 66 69 6c 65 66 6c 61 | (synthi|nfilefla|
|00006090| 67 29 20 28 76 6f 69 64 | 29 67 65 74 6d 69 64 69 |g) (void|)getmidi|
|000060a0| 28 29 3b 0a 58 0a 58 20 | 20 20 20 2f 2a 20 53 65 |();.X.X |   /* Se|
|000060b0| 6e 64 20 73 65 63 6f 6e | 64 61 72 79 20 72 65 71 |nd secon|dary req|
|000060c0| 75 65 73 74 20 2a 2f 0a | 58 0a 58 20 20 20 20 73 |uest */.|X.X    s|
|000060d0| 65 6e 64 5f 72 65 71 75 | 65 73 74 5f 31 42 20 5b |end_requ|est_1B [|
|000060e0| 30 5d 20 3d 20 30 78 37 | 30 20 7c 20 28 28 63 68 |0] = 0x7|0 | ((ch|
|000060f0| 61 6e 6e 65 6c 20 2d 20 | 31 29 20 26 20 30 78 30 |annel - |1) & 0x0|
|00006100| 46 29 3b 0a 58 20 20 20 | 20 73 65 6e 64 6d 75 6c |F);.X   | sendmul|
|00006110| 74 69 28 73 65 6e 64 5f | 72 65 71 75 65 73 74 5f |ti(send_|request_|
|00006120| 31 42 2c 20 73 69 7a 65 | 6f 66 28 73 65 6e 64 5f |1B, size|of(send_|
|00006130| 72 65 71 75 65 73 74 5f | 31 42 29 29 3b 0a 58 0a |request_|1B));.X.|
|00006140| 58 20 20 20 20 2f 2a 20 | 52 65 61 64 20 74 6f 6e |X    /* |Read ton|
|00006150| 65 20 64 61 74 61 20 61 | 6e 64 20 22 65 6e 64 2d |e data a|nd "end-|
|00006160| 73 79 73 74 65 6d 2d 65 | 78 63 6c 75 73 69 76 65 |system-e|xclusive|
|00006170| 22 20 66 72 6f 6d 20 73 | 79 6e 74 68 20 2a 2f 0a |" from s|ynth */.|
|00006180| 58 0a 58 20 20 20 20 62 | 65 67 69 6e 20 3d 20 6d |X.X    b|egin = m|
|00006190| 69 6c 6c 69 63 6c 6f 63 | 6b 28 29 3b 0a 58 20 20 |illicloc|k();.X  |
|000061a0| 20 20 74 6f 6f 6c 6f 6e | 67 20 3d 20 62 65 67 69 |  toolon|g = begi|
|000061b0| 6e 20 2b 20 54 49 4d 45 | 4f 55 54 2a 31 30 30 30 |n + TIME|OUT*1000|
|000061c0| 3b 0a 58 20 20 20 20 66 | 6f 72 20 28 69 20 3d 20 |;.X    f|or (i = |
|000061d0| 30 3b 20 69 20 3c 20 28 | 73 69 7a 65 6f 66 28 73 |0; i < (|sizeof(s|
|000061e0| 74 72 75 63 74 20 54 6f | 6e 65 44 61 74 61 29 20 |truct To|neData) |
|000061f0| 2a 20 32 29 20 2b 20 31 | 3b 20 29 20 7b 0a 58 20 |* 2) + 1|; ) {.X |
|00006200| 20 20 20 20 20 20 20 69 | 66 20 28 53 54 41 54 4d |       i|f (STATM|
|00006210| 49 44 49 29 20 7b 0a 58 | 20 20 20 20 20 20 20 20 |IDI) {.X|        |
|00006220| 20 20 20 20 64 61 74 61 | 5b 69 2b 2b 5d 20 3d 20 |    data|[i++] = |
|00006230| 67 65 74 6d 69 64 69 28 | 29 3b 0a 58 20 20 20 20 |getmidi(|);.X    |
|00006240| 20 20 20 20 7d 0a 58 20 | 20 20 20 20 20 20 20 65 |    }.X |       e|
|00006250| 6c 73 65 20 69 66 20 28 | 6d 69 6c 6c 69 63 6c 6f |lse if (|milliclo|
|00006260| 63 6b 28 29 20 3e 20 74 | 6f 6f 6c 6f 6e 67 29 20 |ck() > t|oolong) |
|00006270| 7b 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 20 52 |{.X     |       R|
|00006280| 65 61 73 6f 6e 20 3d 20 | 22 54 69 6d 65 64 20 6f |eason = |"Timed o|
|00006290| 75 74 20 77 61 69 74 69 | 6e 67 20 66 6f 72 20 70 |ut waiti|ng for p|
|000062a0| 61 74 63 68 20 64 61 74 | 61 2e 22 3b 0a 58 20 20 |atch dat|a.";.X  |
|000062b0| 20 20 20 20 20 20 20 20 | 20 20 72 65 74 75 72 6e |        |  return|
|000062c0| 20 31 3b 0a 58 20 20 20 | 20 20 20 20 20 7d 0a 58 | 1;.X   |     }.X|
|000062d0| 20 20 20 20 7d 0a 58 0a | 58 20 20 20 20 2f 2a 20 |    }.X.|X    /* |
|000062e0| 50 61 63 6b 20 74 68 65 | 20 34 2d 62 69 74 20 6e |Pack the| 4-bit n|
|000062f0| 79 62 62 6c 65 73 20 69 | 6e 74 6f 20 61 20 54 6f |ybbles i|nto a To|
|00006300| 6e 65 44 61 74 61 20 73 | 74 72 75 63 74 75 72 65 |neData s|tructure|
|00006310| 2e 20 2a 2f 0a 58 0a 58 | 20 20 20 20 70 74 72 20 |. */.X.X|    ptr |
|00006320| 3d 20 28 55 42 59 54 45 | 20 2a 29 20 74 6f 6e 65 |= (UBYTE| *) tone|
|00006330| 64 61 74 61 3b 0a 58 0a | 58 20 20 20 20 66 6f 72 |data;.X.|X    for|
|00006340| 20 28 69 3d 30 3b 20 69 | 3c 73 69 7a 65 6f 66 28 | (i=0; i|<sizeof(|
|00006350| 73 74 72 75 63 74 20 54 | 6f 6e 65 44 61 74 61 29 |struct T|oneData)|
|00006360| 2a 32 3b 20 69 2b 3d 32 | 29 0a 58 20 20 20 20 20 |*2; i+=2|).X     |
|00006370| 20 20 20 2a 28 70 74 72 | 2b 2b 29 20 3d 20 28 64 |   *(ptr|++) = (d|
|00006380| 61 74 61 5b 69 5d 20 7c | 20 28 64 61 74 61 5b 69 |ata[i] || (data[i|
|00006390| 2b 31 5d 20 3c 3c 20 34 | 29 29 3b 0a 58 0a 58 20 |+1] << 4|));.X.X |
|000063a0| 20 20 20 2f 2a 20 45 63 | 68 6f 20 22 65 6e 64 2d |   /* Ec|ho "end-|
|000063b0| 73 79 73 74 65 6d 2d 65 | 78 63 6c 75 73 69 76 65 |system-e|xclusive|
|000063c0| 22 20 2a 2f 0a 58 0a 58 | 20 20 20 20 73 65 6e 64 |" */.X.X|    send|
|000063d0| 6d 69 64 69 28 45 4e 44 | 5f 53 59 53 54 45 4d 5f |midi(END|_SYSTEM_|
|000063e0| 45 58 43 4c 55 53 49 56 | 45 29 3b 0a 58 20 20 20 |EXCLUSIV|E);.X   |
|000063f0| 20 72 65 74 75 72 6e 20 | 30 3b 0a 58 7d 0a 58 0a | return |0;.X}.X.|
+--------+-------------------------+-------------------------+--------+--------+