home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: PCPandemonium Copy Sent To Programmer / Lowe_PCPandemoniumCopySentToProgrammer_1992.09.30.img / ADVARS.ASM < prev    next >
Encoding:
Assembly Source File  |  1992-09-30  |  13.5 KB  |  446 lines
  1. ;------------------------------------------------------------------------------
  2.  
  3. ADLIB_ADDR    equ 388h    ;AdLib output port addr.
  4.  
  5. ;------------------------------------------------------------------------------
  6. ;MIDI play variables
  7. ;------------------------------------------------------------------------------
  8.  
  9. TicksPQ        dw 96        ;ticks per quarter note (Std.96)
  10.  
  11. ;VoiceNotes array gives for each voice
  12. ;the note last played or 0 if off.
  13.  
  14. VoiceNotes    db 11 dup (0)
  15.  
  16. ;VoiceStatus array gives for each voice
  17. ;the time voice was played
  18. ;or 0 if voice is off
  19.  
  20. VoiceStatus    dw 11 dup (0)
  21.  
  22. ;VoiceVolumes array holds the current volume
  23. ;for each voice (0-127)
  24.  
  25. VoiceVolumes    db 11 dup (0)
  26.  
  27. ;ChanVoices gives the allocation of voices
  28. ;to MIDI channels for pseudo-polyphony
  29. ;
  30. ;these are changed each song to the best compromise
  31.  
  32. ChanNVoices    db 0,0,0,0,0,0,0,0 ;no. of voices for each MIDI channel
  33.  
  34. ChanVoices    db 0,0,0,0,0,0,0,0    ;up to 8 per channel
  35.         db 0,0,0,0,0,0,0,0
  36.         db 0,0,0,0,0,0,0,0
  37.         db 0,0,0,0,0,0,0,0
  38.  
  39. AdTransposes    db 0,0,0,0,0,0,0,0,0    ;transpose for each voice
  40.  
  41. ;voice patches for various songs
  42.  
  43. SongV0    db 137,137,137,137,137,137,0,0,0
  44.  
  45. CrntNVoices    dw ChanNVoices
  46. CrntVoices    dw ChanVoices
  47. CrntSPatches    dw SongV0
  48.  
  49. ;percussion voices
  50.  
  51. BD    equ 6    ;bass drum
  52. SD    equ 7    ;snare drum
  53. TOM    equ 8    ;tom
  54. TC    equ 9    ;top cymbal
  55. HH    equ 10    ;hi-hat
  56.  
  57. DrumSounds    db BD,bD,SD,sd,sd,sd,tom,hh,TOM,HH,TOM,hh,tom,TOM,hh,TOM,hh,0,0,0,0,0 
  58.  
  59. ;------------------------------------------------------------------------------
  60.  
  61. PitchBendRange    dw 0        ;pitch bend range in semitones
  62.  
  63. ;AdLib global parameters
  64.  
  65. AmDepth        db 0        ;amplitude vib depth
  66. VibDepth    db 0        ;vibrato depth
  67. NoteSel        db 0        ;key split
  68. Percussion    db 0        ;1 for percussion mode
  69.  
  70. ;note variables
  71.  
  72. Voice        db 0
  73. Note        db 0
  74. PitchBend    dw 0
  75. keyOn        db 0
  76.  
  77. PercBits    db 0        ;keyons for percussion
  78.  
  79. PerckeyOns    db 10h,8,4,2,1        ;BD,SD,TOM,TC,HH
  80. PercPitches    db 10,10,24,40,50    ;pitches of percussion
  81.  
  82. ;register addresses on AdLib board
  83.  
  84. KEYON_BLOCK_FNUM equ 0B0H
  85. FNUM_LOW     equ 0A0H
  86.  
  87. ;table of frequency no.s for AdLib
  88.  
  89. FNumTable dw 02B2h,02B4h,02B7h,02B9h,02BCh,02BEh,02C1h,02C3h,02C6h,02C9h
  90.     dw 02CBh,02CEh,02D0h,02D3h,02D6h,02D8h,02DBh,02DDh,02E0h,02E3h 
  91.     dw 02E5h,02E8h,02EBh,02EDh,02F0h,02F3h,02F6h,02F8h,02FBh,02FEh 
  92.     dw 0301h,0303h,0306h,0309h,030Ch,030Fh,0311h,0314h,0317h,031Ah 
  93.     dw 031Dh,0320h,0323h,0326h,0329h,032Bh,032Eh,0331h,0334h,0337h 
  94.     dw 033Ah,033Dh,0340h,0343h,0346h,0349h,034Ch,034Fh,0352h,0356h 
  95.     dw 0359h,035Ch,035Fh,0362h,0365h,0368h,036Bh,036Fh,0372h,0375h 
  96.     dw 0378h,037Bh,037Fh,0382h,0385h,0388h,038Ch,038Fh,0392h,0395h 
  97.     dw 0399h,039Ch,039Fh,03A3h,03A6h,03A9h,03ADh,03B0h,03B4h,03B7h 
  98.     dw 03BBh,03BEh,03C1h,03C5h,03C8h,03CCh,03CFh,03D3h,03D7h,03DAh 
  99.     dw 03DEh,03E1h,03E5h,03E8h,03ECh,03F0h,03F3h,03F7h,03FBh,03FEh 
  100.     dw 0FE01h,0FE03h,0FE05h,0FE07h,0FE08h,0FE0Ah,0FE0Ch,0FE0Eh,0FE10h,0FE12h
  101.     dw 0FE14h,0FE16h,0FE18h,0FE1Ah,0FE1Ch,0FE1Eh,0FE20h,0FE21h,0FE23h,0FE25h 
  102.     dw 0FE27h,0FE29h,0FE2Bh,0FE2Dh,0FE2Fh,0FE31h,0FE34h,0FE36h,0FE38h,0FE3Ah 
  103.     dw 0FE3Ch,0FE3Eh,0FE40h,0FE42h,0FE44h,0FE46h,0FE48h,0FE4Ah,0FE4Ch,0FE4Fh 
  104.     dw 0FE51h,0FE53h,0FE55h,0FE57h,0FE59h,0FE5Ch,0FE5Eh,0FE60h,0FE62h,0FE64h 
  105.     dw 0FE67h,0FE69h,0FE6Bh,0FE6Dh,0FE6Fh,0FE72h,0FE74h,0FE76h,0FE79h,0FE7Bh 
  106.     dw 0FE7Dh,0FE7Fh,0FE82h,0FE84h,0FE86h,0FE89h,0FE8Bh,0FE8Dh,0FE90h,0FE92h 
  107.     dw 0FE95h,0FE97h,0FE99h,0FE9Ch,0FE9Eh,0FEA1h,0FEA3h,0FEA5h,0FEA8h,0FEAAh 
  108.     dw 0FEADh,0FEAFh 
  109.  
  110. ; Integer division by 12 table (96 entries).  It is used to find the octave
  111. ; for a given note value in the range [0,95].
  112.  
  113. DIV12Tab    db 0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1
  114.         db 1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2 
  115.         db 2,2,3,3,3,3,3,3,3,3,3,3,3,3,4,4,4 
  116.         db 4,4,4,4,4,4,4,4,4,5,5,5,5,5,5,5,5 
  117.         db 5,5,5,5,6,6,6,6,6,6,6,6,6,6,6,6,7 
  118.         db 7,7,7,7,7,7,7,7,7,7,7
  119.  
  120. ; Integer modulo 12 table (96 entries).  It is used to find the half-tone
  121.         ; value of a note ([0, 95]) within an octave.
  122.  
  123. MOD12Tab    db 0,1,2,3,4,5,6,7,8,9,10,11,0,1,2,3,4
  124.         db 5,6,7,8,9,10,11,0,1,2,3,4,5,6,7,8,9
  125.         db 10,11,0,1,2,3,4,5,6,7,8,9,10,11,0,1,2
  126.         db 3,4,5,6,7,8,9,10,11,0,1,2,3,4,5,6,7
  127.         db 8,9,10,11,0,1,2,3,4,5,6,7,8,9,10,11,0
  128.         db 1,2,3,4,5,6,7,8,9,10,11
  129.  
  130. ;------------------------------------------------------------
  131.  
  132. ;slot offsets within AdLib
  133.  
  134. SlotOffsets    db 0,1,2,3,4,5,8,9,10
  135.         db 11,12,13,16,17,18,19,20,21
  136.  
  137. SlotOffs    db 0    ;temporary variable
  138.  
  139. ;slot parameters are:
  140.  
  141. ;0    key scale level        0-3    KSL
  142. ;1    freq. multiplier    0-15    MULTI
  143. ;2    feedback        0-7    FB
  144. ;3    attack rate        0-15    AR
  145. ;4    sustain level        0-15    SL
  146. ;5    sustaining sound    0-1    EG
  147. ;6    decay rate        0-15    DR
  148. ;7    release rate        0-15    RR
  149. ;8    output level        0-63    TL
  150. ;9    amplitude vibrato    0-1    AM
  151. ;10    freq. vibrato        0-1    VIB
  152. ;11    envelope scaling    0-1    KSR
  153. ;12    0=FM 1=Additive synth    0-1    C
  154. ;13    wave select        0-3    WS
  155.  
  156. ;global parameters are
  157.  
  158. ;14    amplitude vib. depth    0-1
  159. ;15    vib. depth        0-1
  160. ;16    note-sel. (split point) 0-1
  161. ;17    percussion select    0-1
  162.  
  163. KSL    equ 0
  164. MULTI    equ 1
  165. FB    equ 2
  166. AR    equ 3
  167. SL    equ 4
  168. EG    equ 5
  169. DR    equ 6
  170. RR    equ 7
  171. TL    equ 8
  172. AM    equ 9
  173. VIB    equ 10
  174. KSR    equ 11
  175. C    equ 12
  176. WS    equ 13
  177.  
  178.  
  179.  
  180. TestNo        dw -1
  181.  
  182. TestOpr0    db 14 dup (0)
  183. TestOpr1    db 14 dup (0)
  184.  
  185. ;         KSL MLT FB  AR  SL EG DR  RR  TL AM VB KSR C WS
  186.  
  187. ;default melodic slot parameters
  188.  
  189. pianoOpr0    db 1,  1, 3, 15,  5, 0, 1,  3, 15, 0, 0, 0, 1, 0
  190. pianoOpr1    db 0,  1, 1, 15,  7, 0, 2,  4,  0, 0, 0, 1, 0, 0
  191.  
  192. ;default percussion slot parameters
  193. bdopr1:
  194. bdOpr0        db 00h,00h,00h,0Ah,04h,00h,08h,0Ch,0bh,00h,00h,00h,01h,00h
  195.         db 00h,00h,62h,0Dh,04h,00h,06h,0Fh,10,00h,00h,00h,01h,00h
  196.  
  197. sdOpr:        db 0,12,0,15,11,0,8,5,10,0,0,0,0,0
  198.  
  199. ;         KSL MLT FB  AR  SL EG DR  RR  TL AM VB KSR C WS
  200. ;        db 0,1,0,15,4,8,5,63,0,0,0,0,0,0
  201.  
  202. ;0    key scale level        0-3    KSL
  203. ;1    freq. multiplier    0-15    MULTI
  204. ;2    feedback        0-7    FB
  205. ;3    attack rate        0-15    AR
  206. ;4    sustain level        0-15    SL
  207. ;5    sustaining sound    0-1    EG
  208. ;6    decay rate        0-15    DR
  209. ;7    release rate        0-15    RR
  210. ;8    output level        0-63    TL
  211. ;9    amplitude vibrato    0-1    AM
  212. ;10    freq. vibrato        0-1    VIB
  213. ;11    envelope scaling    0-1    KSR
  214. ;12    0=FM 1=Additive synth    0-1    C
  215. ;13    wave select        0-3    WS
  216.  
  217.  
  218.  
  219. ;tomOpr        db 0,  4, 0, 15, 11, 0, 7,  5,  0, 0, 0, 0, 0, 0
  220. tomOpr        db 000h,002h,000h,00Ch,009h,000h,008h,007h,000h,000h,000h,000h,000h,000h
  221.  
  222. hhopr:
  223. cymbOpr:    db 000h,001h,004h,00dh,001h,000h,00ah,008h,20,000,000,000,000,000,000,000
  224.  
  225.  
  226.         ;db 0, 1, 0, 15, 11, 0, 5,  5,  30, 0, 0, 0, 0, 0
  227.  
  228.  
  229.  
  230. ;;;;;hhOpr:        ;db 00h,01h,7Bh,0Dh,01h,00h,0Ah,08h,00h,00h,00h,00h,00h,74h
  231.         ;db 5Dh,1Fh,62h,7Bh,09h,7Bh,01h,00h,030h,01h,00h,00h,00h,00h
  232.  
  233.         db 000h,001h,004h,00dh,001h,000h,00ah,008h,030h,000,000,000,000,000,000,000
  234.  
  235. ;various melodic patches
  236.  
  237. AdLibPatches    dw     flugel
  238.         dw     abass
  239.         dw     aclari
  240.         dw     aelpia
  241.         dw     apian2
  242.         dw     apian3
  243.         dw     apian4
  244.         dw     atromb
  245.         dw     atrump
  246.         dw     avioli
  247.         dw     axylo
  248.         dw     astrng
  249.         dw     celesta
  250.         dw     elpiano1
  251.         dw     flute2
  252.         dw     solovln
  253.         dw     trumpet1
  254.         dw     violin1
  255.         dw     violin2
  256.         dw     violin3
  257.         dw     bassstrngl
  258.         dw     strnlong
  259.         dw    bassdrum1    
  260.         dw    elecvibe    
  261.         dw    elgiut3    
  262.         dw    logdrum1    
  263.         dw    mltrdrum    
  264.         dw    tromb1    
  265.         dw    trumpet3    
  266.         dw    bassdrum2    
  267.         dw    cymbal1    
  268.         dw    hihat1    
  269.         dw    kevkey2    
  270.         dw    sax1    
  271.         dw    sdrum2    
  272.         dw    tom1    
  273.         dw    toxbass1    
  274.         dw    toxcord1    
  275.         dw    toxsnare    
  276.         dw    hi_hat
  277.         dw    qaelpia
  278.         dw     qflugel
  279.         dw    qtoxbass1
  280.         dw     fqaelpia
  281.  
  282.  
  283. ;       KSL  MLT  FB   AR   SL   EG   DR   RR   TL   AM   VB   KSR  C    WS
  284.  
  285. ;-----------------------------
  286. adbank:
  287. ;-----------------------------
  288.  
  289. flugel    db 02h,01h,06h,04h,09h,01h,01h,06h,14h,01h,01h,00h,01h,00h
  290.     db 02h,01h,62h,04h,04h,01h,01h,05h,25,00h,01h,00h,01h,00h
  291.  
  292.  
  293.  
  294. ABass    db 000h,001h,005h,002h,002h,000h,005h,00Fh,015h,000h,000h,000h,001h,000h
  295.     db 002h,001h,005h,006h,006h,001h,005h,00Ch,000h,000h,000h,000h,001h,000h
  296.  
  297. AClari    db 002h,002h,006h,005h,001h,001h,001h,00Bh,01Ah,000h,000h,001h,001h,000h
  298.     db 002h,001h,003h,00Ah,003h,001h,002h,00Bh,20,000h,001h,000h,001h,000h
  299.  
  300. AElPia    db 000h,002h,007h,00Fh,001h,000h,002h,003h,022h,000h,000h,000h,001h,000h
  301.     db 000h,002h,000h,00Fh,004h,000h,005h,003h,20,000h,000h,000h,001h,000h
  302.  
  303. APian2    db 002h,001h,003h,00Fh,005h,000h,002h,001h,01Dh,000h,001h,000h,001h,000h
  304.     db 000h,003h,006h,00Fh,00Fh,000h,002h,001h,15,000h,000h,001h,001h,000h
  305.  
  306. APian3    db 001h,001h,003h,00Fh,005h,000h,001h,000h,00Fh,000h,000h,000h,001h,000h
  307.     db 000h,001h,004h,00Dh,007h,000h,002h,00Ch,004h,000h,000h,000h,001h,000h
  308.  
  309. APian4     db 001h,001h,004h,00Fh,006h,000h,001h,000h,00Dh,000h,000h,000h,001h,000h
  310.     db 000h,001h,004h,00Dh,007h,000h,002h,00Bh,00ah,000h,000h,001h,001h,000h
  311.  
  312. ATromb    db 000h,001h,007h,007h,001h,001h,001h,00Fh,01Ch,001h,000h,001h,001h,000h
  313.     db 002h,001h,000h,00Bh,003h,001h,002h,00Bh,000h,000h,001h,000h,001h,000h
  314.  
  315. ATrump    db 000h,001h,007h,004h,000h,001h,001h,00Bh,01Ch,000h,000h,001h,001h,000h
  316.     db 002h,001h,000h,009h,003h,001h,002h,00Bh,000h,000h,001h,000h,001h,000h
  317.  
  318. AVioli    db 002h,001h,003h,006h,002h,000h,004h,007h,008h,001h,001h,000h,001h,000h
  319.     db 002h,002h,000h,005h,002h,000h,003h,007h,25,000h,000h,000h,001h,000h
  320.  
  321. AXylo    db 000h,001h,006h,00Ch,002h,000h,008h,00Fh,02Dh,000h,000h,001h,001h,000h
  322.     db 000h,001h,006h,00Fh,00Fh,001h,005h,005h,000h,000h,000h,001h,001h,000h
  323.  
  324. AStrng    db 002h,001h,003h,006h,002h,001h,004h,009h,008h,001h,001h,000h,001h,000h
  325.     db 002h,002h,000h,005h,002h,001h,003h,00Ch,25,000h,000h,000h,001h,000h
  326.  
  327. ;-----------------
  328. ;;elite.bnk
  329.  
  330.  
  331. celesta    db 02h,03h,04h,00h,01h,01h,01h,00h,07h,00h,00h,01h,01h,00h
  332.     db 02h,04h,62h,07h,03h,00h,0Dh,03h,00h,00h,00h,01h,01h,00h
  333.  
  334. elpiano1 db 01h,01h,03h,0Fh,05h,00h,01h,00h,0Fh,00h,00h,00h,01h,00h
  335.     db 00h,01h,62h,0Dh,07h,00h,02h,0Ch,04h,00h,00h,00h,01h,00h
  336.  
  337. flute2    db 03h,00h,07h,06h,08h,01h,0Eh,0Fh,2Ch,01h,01h,00h,01h,00h
  338.     db 00h,01h,62h,06h,02h,01h,05h,0Ah,20,00h,01h,00h,01h,00h
  339.  
  340. solovln    db 00h,00h,07h,05h,00h,01h,01h,03h,1Ch,00h,01h,01h,01h,02h
  341.     db 00h,00h,62h,05h,06h,01h,04h,07h,00h,00h,00h,00h,01h,02h
  342.     ;1c
  343. trumpet1 db 00h,01h,07h,04h,00h,01h,01h,0Bh,1ch,00h,00h,01h,01h,00h
  344.     db 02h,01h,62h,09h,03h,01h,02h,0Bh,16,00h,01h,00h,01h,00h
  345.  
  346. violin1    db 00h,01h,07h,05h,00h,01h,01h,03h,1Ch,00h,00h,01h,01h,00h
  347.     db 02h,01h,62h,05h,06h,01h,04h,07h,10,00h,01h,00h,01h,00h
  348.  
  349. violin2    db 02h,01h,06h,06h,02h,01h,02h,09h,08h,01h,01h,00h,01h,00h
  350.     db 02h,02h,62h,05h,02h,01h,03h,0Ch,00h,00h,00h,00h,01h,00h
  351.  
  352. violin3    db 02h,01h,03h,06h,02h,01h,04h,09h,08h,01h,01h,00h,01h,00h
  353.     db 02h,02h,62h,05h,02h,01h,03h,0Ch,03h,00h,00h,00h,01h,00h
  354.  
  355.  
  356. bassstrngl db 01h,01h,00h,0Ch,01h,01h,05h,03h,15h,01h,01h,00h,01h,03h
  357.        db 00h,00h,62h,0Eh,02h,01h,09h,04h,15,01h,01h,00h,01h,03h
  358.  
  359. strnlong db 01h,01h,03h,0Fh,00h,01h,01h,03h,0Fh,01h,01h,00h,01h,01h
  360.      db 00h,01h,62h,0Fh,00h,01h,02h,01h,25,00h,00h,00h,01h,00h
  361.  
  362.  
  363.  
  364. bassdrum1    db 00h,00h,00h,0Ah,04h,00h,08h,0Ch,0Bh,00h,00h,00h,01h,00h
  365.     db 00h,00h,62h,0Dh,04h,00h,06h,0Fh,00h,00h,00h,00h,01h,00h
  366.  
  367. elecvibe    db 02h,03h,07h,09h,01h,00h,0Ah,02h,17h,00h,00h,01h,01h,00h
  368.     db 02h,01h,62h,09h,01h,00h,0Bh,01h,25,01h,00h,01h,01h,02h
  369.  
  370. elgiut3    db 02h,07h,06h,08h,07h,00h,02h,0Dh,0Fh,00h,00h,00h,01h,00h
  371.     db 02h,04h,62h,08h,07h,00h,02h,0Dh,33,00h,00h,01h,01h,00h
  372.  
  373. logdrum1    db 01h,02h,07h,0Fh,0Fh,01h,08h,0Fh,04h,00h,00h,01h,01h,00h
  374.     db 00h,01h,62h,0Fh,07h,00h,05h,0Fh,00h,00h,00h,01h,01h,00h
  375.  
  376. mltrdrum    db 00h,0Ch,0A7h,0Ch,0Bh,00h,08h,06h,00h,00h,00h,00h,00h,6Fh
  377.     db 5Dh,4Bh,62h,0A7h,09h,0A7h,03h,00h,50,03h,00h,05h,00h,01h
  378.  
  379. tromb1    db 00h,01h,07h,04h,01h,01h,01h,0Fh,1Ch,01h,00h,01h,01h,00h
  380.     db 02h,01h,62h,09h,03h,01h,02h,0Bh,00h,00h,01h,00h,01h,00h
  381.  
  382. trumpet3    db 00h,01h,07h,04h,00h,01h,01h,0Bh,1Ch,00h,00h,01h,01h,00h
  383.     db 02h,01h,62h,09h,03h,01h,02h,0Bh,15,00h,01h,00h,01h,00h
  384.  
  385. ;************
  386.  
  387.  
  388. bassdrum2    db 00h,00h,00h,0Ah,04h,00h,08h,0Ch,0Bh,00h,00h,00h,01h,00h
  389.     db 00h,00h,62h,0Dh,04h,00h,06h,0Fh,00h,00h,00h,00h,01h,00h
  390.  
  391. cymbal1    db 00h,01h,0E9h,0Fh,0Bh,00h,05h,05h,00h,00h,00h,00h,00h,65h
  392.     db 5Dh,8Dh,62h,0E9h,07h,0E9h,00h,00h,0FFh,00h,00h,01h,00h,00h
  393.  
  394. hihat1    db 00h,01h,0E9h,0Fh,0Bh,00h,07h,05h,00h,00h,00h,00h,00h,79h
  395.     db 5Dh,8Dh,62h,0E9h,07h,0E9h,01h,00h,01h,01h,00h,05h,00h,00h
  396.  
  397. kevkey2    db 02h,01h,04h,0Fh,07h,00h,03h,0Dh,03h,00h,00h,00h,01h,00h
  398.     db 00h,05h,62h,0Fh,09h,00h,02h,08h,23,0h,00h,00h,01h,00h
  399.  
  400. sax1    db 01h,01h,05h,07h,05h,00h,01h,03h,0Fh,00h,00h,00h,01h,00h
  401.     db 00h,02h,62h,05h,07h,00h,02h,0Ch,25,00h,00h,01h,01h,00h
  402.  
  403. sdrum2    db 00h,06h,07h,0Fh,0Fh,00h,00h,00h,00h,00h,00h,00h,01h,00h
  404.     db 00h,00h,62h,0Fh,4,0,4,4,50,00h,00h,00h,01h,00h
  405.  
  406. tom1    db 00h,04h,0E9h,0Fh,0Bh,00h,07h,05h,00h,00h,00h,00h,00h,6Fh
  407.     db 5Dh,8Dh,62h,0E9h,07h,0E9h,03h,00h,0FFh,03h,00h,00h,00h,00h
  408.  
  409. toxbass1    db 00h,00h,06h,09h,06h,00h,04h,06h,14h,00h,00h,00h,01h,00h
  410.         db 00h,01h,62h,0Fh,0Fh,00h,00h,06h,15h,00h,00h,00h,01h,00h
  411.  
  412. toxcord1    db 00h,01h,06h,07h,01h,01h,07h,0Ah,15h,01h,00h,01h,01h,00h
  413.     db 00h,01h,62h,0Dh,01h,01h,09h,0Ch,25,01h,00h,01h,01h,00h
  414.  
  415. toxsnare    db 00h,0Eh,0E9h,0Ch,05h,00h,06h,06h,00h,01h,00h,00h,00h,6Fh
  416.     db 5Dh,8Dh,62h,0E9h,07h,0E9h,03h,00h,01h,03h,00h,02h,00h,00h
  417.  
  418.  
  419. hi_hat    db 00h,01h,7Bh,0Dh,01h,00h,0Ah,08h,03h,00h,00h,00h,00h,74h
  420.     db 5Dh,1Fh,62h,7Bh,09h,7Bh,01h,00h,0FFh,01h,00h,00h,00h,00h
  421.  
  422.  
  423. qAElPia    db 000h,002h,007h,00Fh,001h,000h,002h,003h,022h,000h,000h,000h,001h,000h
  424.     db 000h,002h,000h,00Fh,004h,000h,005h,003h,30,000h,000h,000h,001h,000h
  425.  
  426.  
  427. qflugel    db 02h,01h,06h,04h,09h,01h,01h,06h,14h,01h,01h,00h,01h,00h
  428.     db 02h,01h,62h,04h,04h,01h,01h,05h,50,00h,01h,00h,01h,00h
  429.  
  430.  
  431.  
  432. qtoxbass1    db 00h,00h,06h,09h,06h,00h,04h,06h,14h,00h,00h,00h,01h,00h
  433.         db 00h,01h,62h,0Fh,0Fh,00h,00h,06h,17h,00h,00h,00h,01h,00h
  434.  
  435.  
  436. fqAElPia    db 000h,002h,007h,00Fh,001h,000h,002h,003h,022h,000h,000h,000h,001h,000h
  437.     db 000h,002h,000h,00Fh,004h,000h,005h,003h,25,000h,000h,000h,001h,000h
  438.  
  439.  
  440.  
  441. ;slots for voices
  442.  
  443. VoiceSlots    db 0,3,1,4,2,5,6,9,7,10,8,11,12,15,13,16,14,17
  444. VoiceSlotsPerc    db 0,3,1,4,2,5,6,9,7,10,8,11,12,15,16,-1,14,-1,17,-1,13,-1
  445.  
  446.