home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Intro 1 of 2 Adlib / Lowe_Intro1of2Adlib.img / DRIVERS / ADVARS.ASM < prev    next >
Encoding:
Assembly Source File  |  1993-01-24  |  17.1 KB  |  551 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.         dw    banjo1
  283.         dw    bass1
  284.         dw    bass2
  285.         dw    bassoon1
  286.         dw    bncebass
  287.         dw    brass1
  288.         dw    clavecin
  289.         dw    eleclav2
  290.         dw    elguit1
  291.         dw    elorgan1    
  292.         dw    fuzzguit2
  293.         dw    gogdad2
  294.         dw    harpsi1
  295.         dw    jazzguit
  296.         dw    marimba1
  297.         dw    popbass1
  298.         dw    steelgt1
  299.         dw    strings1
  300.         dw    syn1
  301.         dw    syn9
  302.         dw    synbass1
  303.         dw    bagpipe1
  304.         dw     fx1
  305.         dw    lazer
  306.         dw    noise1
  307.  
  308.  
  309.  
  310. ;       KSL  MLT  FB   AR   SL   EG   DR   RR   TL   AM   VB   KSR  C    WS
  311.  
  312. ;-----------------------------
  313. adbank:
  314. ;-----------------------------
  315.  
  316. flugel    db 02h,01h,06h,04h,09h,01h,01h,06h,14h,01h,01h,00h,01h,00h
  317.     db 02h,01h,62h,04h,04h,01h,01h,05h,25,00h,01h,00h,01h,00h
  318.  
  319.  
  320.  
  321. ABass    db 000h,001h,005h,002h,002h,000h,005h,00Fh,015h,000h,000h,000h,001h,000h
  322.     db 002h,001h,005h,006h,006h,001h,005h,00Ch,000h,000h,000h,000h,001h,000h
  323.  
  324. AClari    db 002h,002h,006h,005h,001h,001h,001h,00Bh,01Ah,000h,000h,001h,001h,000h
  325.     db 002h,001h,003h,00Ah,003h,001h,002h,00Bh,20,000h,001h,000h,001h,000h
  326.  
  327. AElPia    db 000h,002h,007h,00Fh,001h,000h,002h,003h,022h,000h,000h,000h,001h,000h
  328.     db 000h,002h,000h,00Fh,004h,000h,005h,003h,20,000h,000h,000h,001h,000h
  329.  
  330. APian2    db 002h,001h,003h,00Fh,005h,000h,002h,001h,01Dh,000h,001h,000h,001h,000h
  331.     db 000h,003h,006h,00Fh,00Fh,000h,002h,001h,15,000h,000h,001h,001h,000h
  332.  
  333. APian3    db 001h,001h,003h,00Fh,005h,000h,001h,000h,00Fh,000h,000h,000h,001h,000h
  334.     db 000h,001h,004h,00Dh,007h,000h,002h,00Ch,004h,000h,000h,000h,001h,000h
  335.  
  336. APian4     db 001h,001h,004h,00Fh,006h,000h,001h,000h,00Dh,000h,000h,000h,001h,000h
  337.     db 000h,001h,004h,00Dh,007h,000h,002h,00Bh,00ah,000h,000h,001h,001h,000h
  338.  
  339. ATromb    db 000h,001h,007h,007h,001h,001h,001h,00Fh,01Ch,001h,000h,001h,001h,000h
  340.     db 002h,001h,000h,00Bh,003h,001h,002h,00Bh,000h,000h,001h,000h,001h,000h
  341.  
  342. ATrump    db 000h,001h,007h,004h,000h,001h,001h,00Bh,01Ch,000h,000h,001h,001h,000h
  343.     db 002h,001h,000h,009h,003h,001h,002h,00Bh,000h,000h,001h,000h,001h,000h
  344.  
  345. AVioli    db 002h,001h,003h,006h,002h,000h,004h,007h,008h,001h,001h,000h,001h,000h
  346.     db 002h,002h,000h,005h,002h,000h,003h,007h,25,000h,000h,000h,001h,000h
  347.  
  348. AXylo    db 000h,001h,006h,00Ch,002h,000h,008h,00Fh,02Dh,000h,000h,001h,001h,000h
  349.     db 000h,001h,006h,00Fh,00Fh,001h,005h,005h,000h,000h,000h,001h,001h,000h
  350.  
  351. AStrng    db 002h,001h,003h,006h,002h,001h,004h,009h,008h,001h,001h,000h,001h,000h
  352.     db 002h,002h,000h,005h,002h,001h,003h,00Ch,25,000h,000h,000h,001h,000h
  353.  
  354. ;-----------------
  355. ;;elite.bnk
  356.  
  357.  
  358. celesta    db 02h,03h,04h,00h,01h,01h,01h,00h,07h,00h,00h,01h,01h,00h
  359.     db 02h,04h,62h,07h,03h,00h,0Dh,03h,00h,00h,00h,01h,01h,00h
  360.  
  361. elpiano1 db 01h,01h,03h,0Fh,05h,00h,01h,00h,0Fh,00h,00h,00h,01h,00h
  362.     db 00h,01h,62h,0Dh,07h,00h,02h,0Ch,04h,00h,00h,00h,01h,00h
  363.  
  364. flute2    db 03h,00h,07h,06h,08h,01h,0Eh,0Fh,2Ch,01h,01h,00h,01h,00h
  365.     db 00h,01h,62h,06h,02h,01h,05h,0Ah,10,00h,01h,00h,01h,00h
  366.  
  367. solovln    db 00h,00h,07h,05h,00h,01h,01h,03h,1Ch,00h,01h,01h,01h,02h
  368.     db 00h,00h,62h,05h,06h,01h,04h,07h,00h,00h,00h,00h,01h,02h
  369.     ;1c
  370. trumpet1 db 00h,01h,07h,04h,00h,01h,01h,0Bh,1ch,00h,00h,01h,01h,00h
  371.     db 02h,01h,62h,09h,03h,01h,02h,0Bh,16,00h,01h,00h,01h,00h
  372.  
  373. violin1    db 00h,01h,07h,05h,00h,01h,01h,03h,1Ch,00h,00h,01h,01h,00h
  374.     db 02h,01h,62h,05h,06h,01h,04h,07h,10,00h,01h,00h,01h,00h
  375.  
  376. violin2    db 02h,01h,06h,06h,02h,01h,02h,09h,08h,01h,01h,00h,01h,00h
  377.     db 02h,02h,62h,05h,02h,01h,03h,0Ch,00h,00h,00h,00h,01h,00h
  378.  
  379. violin3    db 02h,01h,03h,06h,02h,01h,04h,09h,08h,01h,01h,00h,01h,00h
  380.     db 02h,02h,62h,05h,02h,01h,03h,0Ch,03h,00h,00h,00h,01h,00h
  381.  
  382.  
  383. bassstrngl db 01h,01h,00h,0Ch,01h,01h,05h,03h,15h,01h,01h,00h,01h,03h
  384.        db 00h,00h,62h,0Eh,02h,01h,09h,04h,15,01h,01h,00h,01h,03h
  385.  
  386. strnlong db 01h,01h,03h,0Fh,00h,01h,01h,03h,0Fh,01h,01h,00h,01h,01h
  387.      db 00h,01h,62h,0Fh,00h,01h,02h,01h,25,00h,00h,00h,01h,00h
  388.  
  389.  
  390.  
  391. bassdrum1    db 00h,00h,00h,0Ah,04h,00h,08h,0Ch,0Bh,00h,00h,00h,01h,00h
  392.     db 00h,00h,62h,0Dh,04h,00h,06h,0Fh,00h,00h,00h,00h,01h,00h
  393.  
  394. elecvibe    db 02h,03h,07h,09h,01h,00h,0Ah,02h,17h,00h,00h,01h,01h,00h
  395.     db 02h,01h,62h,09h,01h,00h,0Bh,01h,25,01h,00h,01h,01h,02h
  396.  
  397. elgiut3    db 02h,07h,06h,08h,07h,00h,02h,0Dh,0Fh,00h,00h,00h,01h,00h
  398.     db 02h,04h,62h,08h,07h,00h,02h,0Dh,33,00h,00h,01h,01h,00h
  399.  
  400. logdrum1    db 01h,02h,07h,0Fh,0Fh,01h,08h,0Fh,04h,00h,00h,01h,01h,00h
  401.     db 00h,01h,62h,0Fh,07h,00h,05h,0Fh,00h,00h,00h,01h,01h,00h
  402.  
  403. mltrdrum    db 00h,0Ch,0A7h,0Ch,0Bh,00h,08h,06h,00h,00h,00h,00h,00h,6Fh
  404.     db 5Dh,4Bh,62h,0A7h,09h,0A7h,03h,00h,01h,03h,00h,05h,00h,01h
  405.  
  406. tromb1    db 00h,01h,07h,04h,01h,01h,01h,0Fh,1Ch,01h,00h,01h,01h,00h
  407.     db 02h,01h,62h,09h,03h,01h,02h,0Bh,00h,00h,01h,00h,01h,00h
  408.  
  409. trumpet3    db 00h,01h,07h,04h,00h,01h,01h,0Bh,1Ch,00h,00h,01h,01h,00h
  410.     db 02h,01h,62h,09h,03h,01h,02h,0Bh,15,00h,01h,00h,01h,00h
  411.  
  412. ;************
  413.  
  414.  
  415. bassdrum2    db 00h,00h,00h,0Ah,04h,00h,08h,0Ch,0Bh,00h,00h,00h,01h,00h
  416.     db 00h,00h,62h,0Dh,04h,00h,06h,0Fh,00h,00h,00h,00h,01h,00h
  417.  
  418. cymbal1    db 00h,01h,0E9h,0Fh,0Bh,00h,05h,05h,00h,00h,00h,00h,00h,65h
  419.     db 5Dh,8Dh,62h,0E9h,07h,0E9h,00h,00h,0FFh,00h,00h,01h,00h,00h
  420.  
  421. hihat1    db 00h,01h,0E9h,0Fh,0Bh,00h,07h,05h,00h,00h,00h,00h,00h,79h
  422.     db 5Dh,8Dh,62h,0E9h,07h,0E9h,01h,00h,01h,01h,00h,05h,00h,00h
  423.  
  424. kevkey2    db 02h,01h,04h,0Fh,07h,00h,03h,0Dh,03h,00h,00h,00h,01h,00h
  425.     db 00h,05h,62h,0Fh,09h,00h,02h,08h,23,0h,00h,00h,01h,00h
  426.  
  427. sax1    db 01h,01h,05h,07h,05h,00h,01h,03h,0Fh,00h,00h,00h,01h,00h
  428.     db 00h,02h,62h,05h,07h,00h,02h,0Ch,25,00h,00h,01h,01h,00h
  429.  
  430. sdrum2    db 00h,06h,07h,0Fh,0Fh,00h,00h,00h,00h,00h,00h,00h,01h,00h
  431.     db 00h,00h,62h,0Fh,4,0,4,4,50,00h,00h,00h,01h,00h
  432.  
  433. tom1    db 00h,04h,0E9h,0Fh,0Bh,00h,07h,05h,00h,00h,00h,00h,00h,6Fh
  434.     db 5Dh,8Dh,62h,0E9h,07h,0E9h,03h,00h,0FFh,03h,00h,00h,00h,00h
  435.  
  436. toxbass1    db 00h,00h,06h,09h,06h,00h,04h,06h,14h,00h,00h,00h,01h,00h
  437.         db 00h,01h,62h,0Fh,0Fh,00h,00h,06h,15,00h,00h,00h,01h,00h
  438.  
  439. toxcord1    db 00h,01h,06h,07h,01h,01h,07h,0Ah,15h,01h,00h,01h,01h,00h
  440.     db 00h,01h,62h,0Dh,01h,01h,09h,0Ch,00h,01h,00h,01h,01h,00h
  441.  
  442. toxsnare    db 00h,0Eh,0E9h,0Ch,05h,00h,06h,06h,00h,01h,00h,00h,00h,6Fh
  443.     db 5Dh,8Dh,62h,0E9h,07h,0E9h,03h,00h,01h,03h,00h,02h,00h,00h
  444.  
  445.  
  446. hi_hat    db 00h,01h,7Bh,0Dh,01h,00h,0Ah,08h,03h,00h,00h,00h,00h,74h
  447.     db 5Dh,1Fh,62h,7Bh,09h,7Bh,01h,00h,0FFh,01h,00h,00h,00h,00h
  448.  
  449.  
  450. qAElPia    db 000h,002h,007h,00Fh,001h,000h,002h,003h,022h,000h,000h,000h,001h,000h
  451.     db 000h,002h,000h,00Fh,004h,000h,005h,003h,40,000h,000h,000h,001h,000h
  452.  
  453.  
  454. qflugel    db 02h,01h,06h,04h,09h,01h,01h,06h,14h,01h,01h,00h,01h,00h
  455.     db 02h,01h,62h,04h,04h,01h,01h,05h,50,00h,01h,00h,01h,00h
  456.  
  457.  
  458.  
  459. qtoxbass1    db 00h,00h,06h,09h,06h,00h,04h,06h,14h,00h,00h,00h,01h,00h
  460.         db 00h,01h,62h,0Fh,0Fh,00h,00h,06h,17h,00h,00h,00h,01h,00h
  461.  
  462.  
  463. fqAElPia    db 000h,002h,007h,00Fh,001h,000h,002h,003h,022h,000h,000h,000h,001h,000h
  464.     db 000h,002h,000h,00Fh,004h,000h,005h,003h,25,000h,000h,000h,001h,000h
  465.  
  466.  
  467.  
  468. banjo1:    db 02h,01h,04h,0Ah,01h,01h,01h,01h,07h,00h,00h,01h,01h,00h
  469.     db 02h,06h,62h,07h,04h,00h,0Dh,03h,00h,00h,00h,01h,01h,00h
  470.  
  471. bass1:    db 00h,01h,05h,02h,02h,00h,05h,0Fh,15h,00h,00h,00h,01h,00h
  472.     db 02h,01h,62h,06h,06h,01h,05h,0Ch,00h,00h,00h,00h,01h,00h
  473.  
  474. bass2:    db 00h,01h,05h,0Fh,0Eh,00h,02h,0Fh,1Dh,00h,00h,00h,01h,00h
  475.     db 00h,01h,62h,0Fh,07h,00h,05h,08h,00h,00h,00h,00h,01h,00h
  476.  
  477. bassoon1:    db 03h,00h,06h,0Dh,01h,01h,05h,09h,08h,00h,00h,01h,01h,00h
  478.     db 02h,01h,62h,06h,01h,01h,01h,0Bh,00h,00h,01h,01h,01h,00h
  479.  
  480. bncebass:    db 01h,00h,07h,07h,00h,00h,0Bh,04h,0Bh,00h,00h,00h,01h,00h
  481.     db 00h,01h,62h,0Fh,07h,00h,05h,0Ah,00h,00h,00h,00h,01h,01h
  482.  
  483. brass1:    db 00h,01h,07h,07h,04h,01h,05h,0Eh,16h,00h,00h,00h,01h,00h
  484.     db 00h,01h,62h,08h,09h,00h,05h,0Eh,10,0,00h,00h,01h,00h
  485.  
  486. clavecin:    db 00h,01h,05h,0Fh,00h,00h,02h,01h,0Dh,00h,00h,01h,01h,00h
  487.     db 00h,05h,62h,0Fh,03h,00h,02h,07h,0Dh,00h,00h,01h,01h,00h
  488.  
  489. eleclav2:    db 01h,01h,03h,0Fh,05h,00h,01h,03h,09h,00h,00h,00h,01h,02h
  490.     db 00h,01h,62h,0Fh,07h,00h,01h,04h,10,00h,00h,01h,01h,01h
  491.  
  492. elguit1:    db 00h,01h,04h,09h,01h,01h,07h,07h,01h,01h,01h,01h,01h,00h
  493.     db 00h,01h,62h,0Fh,01h,01h,01h,08h,20,00h,00h,00h,01h,00h
  494.  
  495. elorgan1    db 03h,02h,04h,09h,02h,01h,01h,0Ah,0Dh,01h,00h,01h,00h,01h
  496.     db 02h,01h,62h,09h,02h,01h,01h,0Ah,00h,01h,00h,01h,00h,02h
  497.  
  498. fuzzguit2:    db 01h,01h,03h,0Fh,05h,01h,01h,03h,08h,00h,00h,01h,01h,02h
  499.     db 00h,02h,62h,0Fh,02h,01h,02h,07h,00h,00h,00h,01h,01h,00h
  500.  
  501. gogdad2:    db 02h,01h,06h,04h,09h,01h,03h,06h,14h,01h,01h,00h,01h,00h
  502.     db 02h,01h,62h,0Ah,00h,01h,0Fh,02h,00h,00h,01h,00h,01h,00h
  503.  
  504. harpsi1:    db 02h,02h,04h,0Ah,01h,01h,01h,00h,07h,00h,00h,01h,01h,00h
  505.     db 02h,06h,62h,07h,03h,00h,0Dh,03h,00h,00h,00h,01h,01h,00h
  506.  
  507. jazzguit:    db 01h,03h,07h,08h,05h,00h,05h,01h,1Eh,00h,00h,00h,01h,00h
  508.     db 00h,01h,62h,0Dh,07h,00h,02h,01h,15,00h,00h,01h,01h,01h
  509.  
  510. marimba1:    db 01h,05h,05h,0Dh,02h,00h,0Ah,05h,0Eh,00h,00h,00h,01h,00h
  511.     db 00h,01h,62h,0Fh,01h,00h,09h,05h,00h,00h,00h,00h,01h,00h
  512.  
  513. popbass1:    db 00h,00h,00h,07h,09h,00h,05h,03h,00h,00h,00h,01h,01h,01h
  514.     db 00h,01h,62h,0Fh,08h,00h,05h,02h,00h,00h,00h,00h,01h,01h
  515.  
  516. steelgt1:    db 01h,01h,03h,0Fh,08h,00h,01h,03h,06h,00h,00h,00h,01h,00h
  517.     db 00h,01h,62h,03h,08h,01h,01h,06h,20,00h,01h,00h,01h,00h
  518.  
  519. strings1:    db 02h,01h,03h,07h,01h,01h,01h,01h,0Bh,01h,00h,01h,01h,01h
  520.     db 01h,01h,62h,04h,01h,01h,02h,05h,15,00h,01h,00h,01h,00h
  521.  
  522. syn1:    db 02h,05h,00h,02h,00h,00h,0Ah,02h,17h,00h,01h,01h,01h,00h
  523.     db 02h,02h,62h,04h,0Fh,00h,02h,03h,15,00h,00h,01h,01h,00h
  524.  
  525. syn9:    db 02h,07h,02h,0Fh,00h,00h,00h,05h,07h,00h,00h,00h,01h,00h
  526.     db 02h,01h,62h,0Fh,00h,00h,00h,05h,8,00h,00h,00h,01h,00h
  527.  
  528. synbass1:    db 02h,00h,06h,0Dh,01h,01h,03h,09h,08h,00h,00h,01h,01h,00h
  529.     db 02h,01h,62h,0Ah,0Bh,01h,03h,0Bh,00h,00h,01h,01h,01h,00h
  530.  
  531.  
  532. bagpipe1:    db 01h,01h,01h,06h,01h,01h,0Eh,07h,03h,00h,00h,01h,01h,02h
  533.     db 00h,02h,62h,08h,00h,01h,0Bh,0Ch,05h,00h,00h,00h,01h,01h
  534.  
  535. fx1:    db 00h,00h,04h,09h,01h,01h,0Eh,01h,00h,01h,01h,01h,01h,01h
  536.     db 03h,02h,62h,0Fh,01h,01h,01h,07h,00h,01h,01h,00h,01h,01h
  537.  
  538. lazer:    db 00h,06h,0E1h,02h,0Bh,01h,05h,05h,00h,01h,01h,00h,00h,6Fh
  539.     db 5Dh,85h,62h,0E1h,09h,0E1h,01h,00h,0FFh,01h,00h,00h,00h,00h
  540.  
  541. noise1:    db 01h,0Eh,07h,0Dh,05h,00h,01h,03h,00h,00h,00h,00h,01h,03h
  542.     db 00h,0Eh,62h,0Fh,07h,00h,02h,0Fh,00h,00h,00h,00h,01h,00h
  543.  
  544.  
  545.  
  546. ;slots for voices
  547.  
  548. VoiceSlots    db 0,3,1,4,2,5,6,9,7,10,8,11,12,15,13,16,14,17
  549. VoiceSlotsPerc    db 0,3,1,4,2,5,6,9,7,10,8,11,12,15,16,-1,14,-1,17,-1,13,-1
  550.  
  551.