home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Ghostbusters I…C Atari ST-SS 1989.10.05 / Lowe_GhostbustersIIDiskC_AtariST-SS_1989.10.05.img / STABLE0.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-07-12  |  43.9 KB  |  2,910 lines

  1. ;********************************* stable0.asm ******************************
  2. ;*                                                                          *
  3. ;* Ad Lib Sound Effects Driver                                              *
  4. ;* Copyright 1990, Ad Lib Inc.                                              *
  5. ;*                                                                          *
  6. ;****************************************************************************
  7.  
  8. include    tables.inc
  9.  
  10. _TEXT segment byte public  'code'
  11.     assume CS:_TEXT
  12.     assume DS:_TEXT
  13.  
  14. ;----------------------------------------------------------------------------
  15.  
  16.     public _SoundTable0
  17.  
  18. _SoundTable0    label    byte
  19.     dw    killall            ;0
  20.  
  21. ;** Space Sounds **;
  22.     dw     START,laser4,laser1     ;1,2,3        
  23.     dw    lasgun0,DrWho0,laser2    ;4,5,6
  24.     dw    laser3,null,null        ;7,8,9
  25.     dw    null,warning1,lsabre;10,11,12
  26.     dw    suprise,warning2,wow    ;13,14,15
  27.     dw    landing,plate,spacemetal;16,17,18
  28.     dw    takeoff            ;19
  29.  
  30.     dw    thun,poof,sound1c    ;20,21,22
  31.     dw    sound2,sound14,sound3b    ;23,24,25
  32.     dw    electr3,sound4a,sound5a    ;26,27,28
  33.     dw    sound11,sound10,sound7    ;29,30,31
  34.     dw    sound12,null,sound13    ;32,33,34
  35.     dw    sound5,sound6,sound8     ;35,36,37
  36.     dw    sound9,sound9a,wild      ;38,39,40
  37.     dw    null,radar,null        ;41,42,43
  38.     dw    null,bwoing,bell    ;44,45,46
  39.     dw    cdop,buzzer,shutdown    ;47,48,49
  40.  
  41.      dw    null,glass,tblmod    ;50,51,52
  42.     dw    null,klaxon,null    ;53,54,55
  43.     dw    null,null,null        ;56,57,58
  44.     dw    null,null,null        ;59,60,61
  45.     dw    null,null,null        ;62,63,64
  46.     dw    null,null,null        ;65,66,67
  47.     dw    null,null,null        ;68,69,70
  48.     dw    null,null,null        ;71,72,73
  49.     dw    null,null,null        ;74,75,76
  50.     dw    null,null,null        ;77,78,79
  51.  
  52. ;** Battle Sounds **;
  53.     dw    flyby,capgun,bombfall    ;80      
  54.     dw    cannon,midgun,slowgun    ;83        
  55.     dw    mgun,mgunshort,bomfal1    ;86          
  56.     dw    exp1,exp2a,pistol2    ;89          
  57.     dw    pistol3,explo1,explo2    ;92       
  58.     dw    thunder,crash2,crash4    ;95,96,97
  59.     dw    crash7,explosion,null    ;98,99,100
  60.     dw    null,null,null        ;101,102,103
  61.     dw    null,null,null        ;104,105,106
  62.     dw    null,null,null        ;107,108,109
  63.     dw    null            ;110
  64.  
  65. ;** Sequences **;
  66.     dw    latin,jazz        ;111,112
  67.     dw  Wtell,Leif,null    ;113,114,115
  68.     dw    null,null,null        ;116,117,118
  69.     dw    null,null,null        ;119,120,121
  70.     dw    null,null,null        ;122,123,124
  71.     dw    null,null,null        ;125,126,127
  72.  
  73.                
  74.  
  75. ;** SPACE INTERNALS **;
  76.     dw    lasgun1,lasgun2,lasgun3    ;128,129,130
  77.     dw    null,null,null        ;131,132,133
  78.     dw     DrWho1,DrWho2,DrWho3    ;134,135,136
  79.     dw    null,null,null        ;137,138,139
  80.     dw    null,null,null        ;140,141,142
  81.     dw    null,null,null        ;143,144,145
  82.     dw    null,null,null        ;146,147,148
  83.     dw    null,null,null        ;149,150,151
  84.  
  85. ;** Battle INTERNALS **;
  86.     dw    cgattack,cgattack2,null    ;152,153,154
  87.     dw    dopple,null,null      ;155,156,157
  88.     dw    biggun,null,null      ;158,159,160
  89.     dw    null,null,null        ;161,162,163
  90.     dw    null,null,null        ;164,165,166
  91.     dw    null,null,null        ;167,168,169
  92.     dw    null,null,null        ;170,171,172
  93.     dw    null,null,null        ;173,174,175
  94.  
  95. ;** Sequence Internals **;
  96.     dw    null,null,null        ;176,177,178
  97.     dw    null,null,null        ;179,180,181
  98.     dw    null,null,null        ;182,183,184
  99.     dw    null,null,null        ;185,186,187
  100.     dw    null,null,null        ;188,189,190
  101.     dw    null,null,null        ;191,192,193
  102.  
  103.     dw    electric,bell2,ocean1    ;194,195,196
  104.     dw    alarm1,null,null    ;197,198,199
  105.     dw  null,null,null      ;200,201,202
  106.     dw  null,null,null      ;203,204,205
  107.     dw    null,null,null        ;206,207,208
  108.     dw    null,null,null        ;209,210,211
  109.  
  110.     dw    lbass,lhihat,lkick    ;212,213,214
  111.     dw    lclave,ltoms,null    ;215,216,217
  112.     dw    null,null,null        ;218,219,220
  113.     dw    wtbass,wtarp,null     ;221,222,223
  114.     dw    null,null,null        ;224,225,226
  115.  
  116.     dw    fill1,fill2,filltest        ;227,228,229
  117.     dw    fill32,fill24,fill421        ;230,231,232
  118.     dw    fill421,fill422,null        ;233,234,235
  119.     dw    fill421down,fill421echo,null     ;236,237,238
  120.     dw    null,null,null            ;239,240,241
  121.     dw    null,null,null            ;242,243,244
  122.  
  123.     dw    LeifWind,LeifHands,Leifkick    ;245,246,247
  124.     dw    comp2,comp3,comp4        ;248,249,250
  125.     dw    Leiflead,null,null        ;251,252,253
  126.     dw    null,null            ;254,255
  127.               
  128.  
  129. ;----------------------------------------------------------------------------
  130. ;start address 03b2ah
  131. killall    db    009h,10
  132.         db    0b3h,000h
  133.         db    0b3h,001h
  134.         db    0b3h,002h
  135.         db    0b3h,003h
  136.         db    0b3h,004h
  137.         db    0b3h,005h
  138.         db    0b3h,006h
  139.         db    0b3h,007h
  140.         db    0b3h,008h
  141.         db    0c3h
  142.         db    088h
  143.  
  144. null         db  000h,00h,088h
  145.  
  146.  
  147. laser2        db    0,0    ;this uses 2 pitch deltas of different rates
  148.         db    0abh,08h
  149.         db    090h,0
  150.         db    1,1
  151.         db    090h,34
  152.         db    091h,0ffh,0ffh,0e0h
  153.         db    042h,024h
  154.         db    091h,0ffh,0ffh,0f8h
  155.         db    089h,010h
  156.         db    088h
  157.  
  158. laser3 db    000h,000h    ;pitch delta down
  159.     db    0abh,08h
  160.     db    083h,001h
  161.     db    090h,01eh
  162.     db    001h,002h
  163.     db    090h,43
  164.     db    091h,0ffh,0ffh,0c0h
  165.     db    001h,029h
  166.     db    089h,002h
  167.     db    088h
  168.  
  169.  
  170. laser4    db    000h,000h    ;pitch delta down
  171.     db    0abh,008h
  172.     db    090h,01eh
  173.     db    001h,002h
  174.     db    090h,62
  175.     db    091h,0ffh,0ffh,0d0h
  176.     db    03ah,01ah
  177.     db    088h
  178.  
  179.     ;sound string formatted dump   filename: LASER1
  180. LASER1    db    000h,000h
  181.     db    0abh,008h
  182.     db    001h,002h
  183.     db    090h,31
  184.     db    083h,001h
  185.     db    046h,001h
  186.     db    091h,0ffh,0ffh,0d7h
  187.     db    0a0h,008h
  188.     db    09eh,012h,048h,003h
  189.     db    0a0h,008h
  190.     db    088h
  191.  
  192.  
  193. lasgun0    label    byte
  194.     db    000h,000h
  195.     db    STARTVOICE,128
  196.     db    STARTVOICE,129
  197.     db    STARTVOICE,130
  198.     db    CALLSTRING
  199.     dw    lasgunint
  200.     db    SETCHANNELATTN,014h
  201.     db    CALLSTRING
  202.     dw    lasgunint
  203.     db    ENDOFSTRING
  204.  
  205.  
  206. lasgun1    label    byte
  207.     db    001h,000h
  208.     db    REST,005h
  209.     db    SETCHANNELATTN,005h
  210.     db    CALLSTRING
  211.     dw    lasgunint
  212.     db    SETCHANNELATTN,019h
  213.     db    CALLSTRING
  214.     dw    lasgunint
  215.     db    ENDOFSTRING
  216.  
  217.  
  218. lasgun2    label    byte
  219.     db    002h,000h
  220.     db    REST,00ah
  221.     db    SETCHANNELATTN,00ah
  222.     db    CALLSTRING
  223.     dw    lasgunint
  224.     db    SETCHANNELATTN,01eh
  225.     db    CALLSTRING
  226.     dw    lasgunint
  227.     db    ENDOFSTRING
  228.  
  229.  
  230. lasgun3    label    byte
  231.     db    003h,000h
  232.     db    REST,00fh
  233.     db    SETCHANNELATTN,00fh
  234.     db    CALLSTRING
  235.     dw    lasgunint
  236.     db    SETCHANNELATTN,023h
  237.     db    CALLSTRING
  238.     dw    lasgunint
  239.     db    ENDOFSTRING
  240.  
  241. lasgunint    db    091h,03bh,0f1h,01ch
  242.     db    083h,001h
  243.      db    090h,01eh
  244.     db    001h,002h
  245.     db    090h,041h
  246.     db    071h,01ah
  247.     db    086h
  248.  
  249.  
  250.  
  251.  
  252.  
  253. DrWho0    label    byte
  254.     db    000h,000h
  255.     db    STARTVOICE,134
  256.     db    STARTVOICE,135
  257.     db    STARTVOICE,136
  258.     db    BRANCH
  259.     dw    DrWhoint
  260.  
  261.  
  262. DrWho1    label    byte
  263.     db    001h,000h
  264.     db    REST,00ah
  265.     db    SETCHANNELATTN,00ah
  266.     db    BRANCH
  267.     dw    DrWhoint
  268.  
  269.  
  270. DrWho2    label    byte
  271.     db    002h,000h
  272.     db    REST,014h
  273.     db    SETCHANNELATTN,00fh
  274.     db    BRANCH
  275.     dw    DrWhoint
  276.  
  277.  
  278. DrWho3    label    byte
  279.     db    003h,000h
  280.     db    REST,01eh
  281.     db    SETCHANNELATTN,014h
  282.     db    SETGATETHRESHOLD,001h
  283.     db    SETPATCH,01eh
  284.     db    01h,002h
  285.     db    SETPATCH,041h
  286.     db    PITCHDELTA,001h,000h,001h
  287.     db    71h,0bdh
  288.     db    ENDOFSTRING
  289.  
  290.  
  291. DrWhoint    db    083h,001h
  292.     db    090h,01eh
  293.     db    001h,002h
  294.     db    090h,041h
  295.     db    091h,1,0,1
  296.     db    071h,0bdh
  297.     db    088h
  298.  
  299.  
  300. shutdown    label    byte
  301.     db    000h,000h
  302.     db    SETGATETHRESHOLD,001h
  303.     db    SETPATCH,05ah+100
  304.     db    VIBRATO,0ffh,006h,003h,000h
  305.     db    24h,03ah
  306.     db    PITCHDELTA,0ffh,0ffh,0f9h
  307.     db    STAY,025h
  308.     db    ENDOFSTRING
  309.  
  310.     db    000h,000h
  311.     db    SETGATETHRESHOLD,001h
  312.     db    SETPATCH,048h+100
  313.     db    24h,024h
  314.     db    27h,024h
  315.     db    29h,024h
  316.     db    STAY,012h
  317.     db    24h,024h
  318.     db    27h,024h
  319.     db    2ah,012h
  320.     db    29h,0ffh
  321.     db    STAY,0ffh
  322.     db    VIBRATO,0ffh,006h,003h,000h
  323.     db    STAY,0ffh
  324.     db    STAY,0ffh
  325.     db    STAY,0ffh
  326.     db    STAY,0ffh
  327.     db    ENDOFSTRING
  328.  
  329.  
  330. warning1    label    byte
  331.     db    000h,000h
  332.     db    SETGATETHRESHOLD,001h
  333.     db    SETPATCH,04ah+100
  334.     db    35h,001h
  335.     db    SETLOOP,008h
  336. w1lup    label    byte
  337.     db    PITCHDELTA,0ffh,000h,02dh
  338.     db    RETRIGGER,003h
  339.     db    PITCHDELTA,0ffh,0ffh,0f3h
  340.     db    RETRIGGER,002h
  341.     db    TESTLOOP
  342.     dw    w1lup
  343.     db    ENDOFSTRING
  344.  
  345. warning2    label    byte
  346.     db    000h,000h
  347.     db    SETGATETHRESHOLD,001h
  348.     db    SETPATCH,04ch+100
  349.     db    58h,001h
  350.     db    SETLOOP,02ch
  351. w2lup    label    byte
  352.     db    PITCHDELTA,0ffh,000h,012h
  353.     db    STAY,004h
  354.     db    PITCHDELTA,070h,0ffh,0e8h
  355.     db    STAY,005h
  356.     db    TESTLOOP
  357.     dw    w2lup
  358.     db    ENDOFSTRING
  359.  
  360.  
  361. wow    label    byte
  362.     db    000h,000h
  363.     db    SETGATETHRESHOLD,001h
  364.     db    SETPATCH,05dh+100
  365.     db    0fh,0ffh
  366.     db    PITCHDELTA,0ffh,000h,001h
  367.     db    STAY,0ffh
  368.     db    CLEARPITCHDELTA
  369.     db    STAY,090h
  370.     db    PITCHDELTA,0ffh,000h,00ah
  371.     db    STAY,0ffh
  372.     db    ENDOFSTRING
  373.  
  374.  
  375. landing    label    byte
  376.     db    000h,000h
  377.     db    SETGATETHRESHOLD,001h
  378.     db    SETPATCH,058h+100
  379.     db    14h,001h
  380.     db    ENDOFSTRING
  381.  
  382. plate    label    byte
  383.     db    000h,000h
  384.     db    SETGATETHRESHOLD,001h
  385.     db    SETPATCH,044h
  386.     db    01h,002h
  387.     db    SETPATCH,042h
  388.     db    74h,001h
  389.     db    ENDOFSTRING
  390.  
  391. spacemetal    label    byte
  392.     db    000h,000h
  393.     db    SETGATETHRESHOLD,001h
  394.     db    SETPATCH,01eh
  395.     db    01h,002h
  396.     db    SETPATCH,041h
  397.     db    71h,0bdh
  398.     db    72h,0bdh
  399.     db    73h,0bdh
  400.     db    74h,0bdh
  401.     db    75h,0bdh
  402.     db    ENDOFSTRING
  403.  
  404.  
  405. thun    db    007h,000h
  406.     db    083h,001h
  407.     db    090h,30
  408.     db    001h,002h
  409.     db    090h,33
  410.     db    083h,0ffh
  411.     db    018h,002h
  412.     db    080h,00ah
  413. thunlup    db    091h,0ffh,0ffh,0cfh
  414.     db    0a0h,003h
  415.     db    091h,0ffh,000h,044h
  416.     db    0a0h,002h
  417.     db    081h
  418.     dw    thunlup
  419.     db    089h,001h
  420.     db    092h
  421.     db    0a0h,040h
  422.     db    088h
  423.  
  424.  
  425. poof    label    byte
  426.     db    001h,000h
  427.     db    SETGATETHRESHOLD,001h
  428.     db    SETPATCH,01eh
  429.     db    01h,002h
  430.     db    SETPATCH,018h
  431.     db    SETGATETHRESHOLD,0ffh
  432.     db    30h,001h
  433.     db    SETLOOP,010h
  434. pooflup label byte
  435.     db    08h,002h
  436.     db    10h,002h
  437.     db    TESTLOOP
  438.     dw    pooflup
  439.     db    ENDOFSTRING
  440.  
  441. sound1c    db    000h,000h    ;this uses slow pitch delta at first then faster one
  442.     db    0abh,008h    ;with a fade-out using accent attn.
  443.     db    090h,000h
  444.     db    001h,001h
  445.     db    090h,023h
  446.     db    091h,0ffh,0ffh,0ffh
  447.     db    010h,0c0h
  448.     db    091h,0ffh,007h,0fah
  449.     db    010h,0b0h
  450.     db    09eh,020h
  451.     db    0a0h,040h
  452.     db    09eh,028h
  453.     db    0a0h,020h
  454.     db    09eh,030h
  455.     db    0a0h,020h
  456.     db    09eh,038h
  457.     db    0a0h,020h
  458.     db    088h
  459.  
  460. sound2    db    000h,000h    ;this uses pitch delta on a string of notes after
  461.     db    0abh,08h    ; the 1st long note
  462.     db    083h,001h
  463.     db    090h,01eh
  464.     db    001h,002h
  465.     db    090h,35
  466.     db    004h,080h
  467.     db    091h,0ffh,0ffh,0f0h
  468.     db    030h,030h
  469.     db    040h,010h
  470.     db    020h,010h
  471.     db    050h,010h
  472.     db    010h,010h
  473.     db    032h,040h
  474.     db    088h
  475.  
  476.  
  477. sound3b    db    000h,000h    ;shimmering effect from patch + pitch delta
  478.     db    0abh,008h
  479.     db    083h,001h
  480.     db    090h,01eh
  481.     db    001h,002h
  482.     db    090h,033h
  483.     db    091h,0ffh,002h,0ffh
  484.     db    010h,006h
  485.     db    088h
  486.  
  487. sound4a    db    000h,000h    ;pitch delta down 
  488.     db    0abh,008h
  489.     db    083h,001h
  490.     db    090h,01eh
  491.     db    001h,002h
  492.     db    090h,036h
  493.     db    091h,0ffh,0ffh,0d7h
  494.     db    078h,040h
  495.     db    088h
  496.  
  497. sound5 db    000h,000h    ;wild pitch delta
  498.     db    0abh,008h
  499.     db    083h,001h
  500.     db    090h,01eh
  501.     db    001h,002h
  502.     db    090h,55
  503.     db    091h,0ffh,0b1h,087h
  504.     db    028h,040h
  505.     db    088h
  506.  
  507. sound5a    db    000h,000h    ;
  508.     db    0abh,008h
  509.     db    083h,001h
  510.     db    090h,01eh
  511.     db    001h,002h
  512.     db    090h,037h
  513.     db    093h,071h
  514.     db    060h,040h
  515.     db    088h
  516.  
  517. sound6 db    000h,000h    ;pitch delt down
  518.     db    0abh,008h
  519.     db    083h,001h
  520.     db    090h,01eh
  521.     db    001h,002h
  522.     db    090h,56
  523.     db    091h,0ffh,0feh,0feh
  524.     db    011h,0e0h
  525.     db    088h
  526.  
  527. sound10    db    000h,000h
  528.     db    0abh,008h
  529.     db    083h,001h
  530.     db    090h,01eh
  531.     db    001h,002h
  532.     db    090h,59
  533.     db    093h,038h
  534.     db    060h,040h
  535.     db    088h
  536.  
  537. sound11    db    000h,000h
  538.     db    0abh,008h
  539.     db    083h,001h
  540.     db    090h,01eh
  541.     db    001h,002h
  542.     db    090h,60
  543.     db    093h,0a0h
  544.     db    060h,040h
  545.     db    088h
  546.  
  547. sound12    db    000h,000h    ;slow pitch delta down
  548.     db    0abh,008h
  549.     db    083h,001h
  550.     db    090h,01eh
  551.     db    001h,002h
  552.     db    090h,56
  553.     db    091h,0ffh,0ffh,0feh
  554.     db    040h,07ch
  555.     db    088h
  556.  
  557. sound7    db    000h,000h    ;pitch delta down
  558.     db    0abh,008h
  559.     db    083h,001h
  560.     db    090h,01eh
  561.     db    001h,002h
  562.     db    090h,58
  563.     db    091h,0ffh,0ffh,0fbh
  564.     db    020h,07fh
  565.     db    088h
  566.  
  567. sound8    db    000h,000h    ;pitch delta effect
  568.     db    0abh,008h
  569.     db    083h,001h
  570.     db    090h,01eh
  571.     db    001h,002h
  572.     db    090h,59
  573.     db    091h,0ffh,0f0h,00ch
  574.     db    027h,080h
  575.     db    088h
  576.  
  577. sound9    db    000h,000h    ;wild pitch delta
  578.     db    0abh,008h
  579.     db    083h,001h
  580.     db    090h,01eh
  581.     db    001h,002h
  582.     db    090h,60
  583.     db    091h,0ffh,0ech,0ebh
  584.     db    040h,080h
  585.     db    088h
  586.  
  587. sound9a    db    000h,000h    ;another pitch delta effect
  588.     db    0abh,008h
  589.     db    083h,001h
  590.     db    090h,01eh
  591.     db    001h,002h
  592.     db    090h,03ch
  593.     db    091h,0ffh,008h,000h
  594.     db    040h,080h
  595.     db    089h,070h
  596.     db    088h
  597.  
  598. sound13    db    000h,000h    ;the patch does this one
  599.     db    0abh,004h
  600.     db    083h,001h
  601.     db    090h,01eh
  602.     db    001h,002h
  603.     db    090h,61
  604.     db    030h,040h
  605.     db    088h
  606.  
  607. sound14    db    000h,000h    ;weird pitch delta  
  608.     db    0abh,004h
  609.     db    083h,001h
  610.     db    090h,01eh
  611.     db    001h,002h
  612.     db    090h,44
  613.     db    040h,006h
  614.     db    091h,0ffh,008h,000h
  615.     db    0a0h,080h
  616.     db    088h
  617.  
  618. wild    db    000h,000h
  619.     db    0abh,008h
  620.     db    083h,0ffh
  621.     db    091h,0ffh,000h,004h
  622.     db    090h,63
  623.     db    030h,020h
  624.     db    080h,010h
  625. wildloop db    0b5h,001h,0ffh
  626.     db    0a0h,00bh
  627.     db    081h
  628.     dw    wildloop
  629.     db    091h,0ffh,0ffh,0f8h
  630.     db    0a0h,080h
  631.     db    089h,020h
  632.     db    088h
  633.  
  634. electr3    db    000h,000h    ;noise effect
  635.     db    0abh,008h
  636.     db    083h,001h
  637.     db    090h,01eh
  638.     db    001h,002h
  639.     db    090h,035h
  640.     db    01bh,080h
  641.     db    088h
  642.  
  643.  
  644. BELL    label    byte
  645.     db    000h,000h
  646.     db    SETCHANNELATTN,008h
  647.     db    SETGATETHRESHOLD,001h
  648.     db    SETPATCH,30
  649.     db    01h,002h
  650.     db    SETPATCH,57
  651.     db    PITCHDELTA,0ffh,075h,00fh
  652.     db    30h,001h
  653.     db    ENDOFSTRING
  654.  
  655.     ;sound string formatted dump   filename: boing
  656. BOING    label    byte
  657.     db    000h,004h
  658.     db    SETGATETHRESHOLD,001h
  659.     db    SETPATCH,32
  660.     db    SETGATETHRESHOLD,0ffh
  661.     db    20h,001h
  662.     db    SETLOOP,010h
  663. boinglup    label byte
  664.     db    PITCHDELTA,0c0h,0ffh,0ddh
  665.     db    STAY,004h
  666.     db    PITCHDELTA,0ffh,000h,02bh
  667.     db    STAY,007h
  668.     db    TESTLOOP
  669.     dw    boinglup
  670.     db    REST,001h
  671.     db    STAY,020h
  672.     db    ENDOFSTRING
  673.  
  674.     ;sound string formatted dump   filename: BUZZER
  675. BUZZER    label    byte
  676.     db    000h,004h
  677.     db    SETPATCH,27
  678.     db    OCTAVEOFFSET,0e0h
  679.     db    3ah,01ah
  680.     db    REST,002h
  681.     db    SETACCENTATTN,010h
  682.     db    3ah,008h
  683.     db    REST,005h
  684.     db    ENDOFSTRING
  685.  
  686.     ;sound string formatted dump   filename: CDOP
  687. CDOP    label    byte
  688.     db    000h,000h
  689.     db    SETPATCH,25
  690.     db    SETGATETHRESHOLD,0ffh
  691.     db    30h,001h
  692.     db    SETLOOP,02ch
  693. cdoplup    label byte
  694.     db    08h,002h
  695.     db    10h,002h
  696.     db    TESTLOOP
  697.     dw    cdoplup
  698.     db    SETLOOP,020h
  699. cdoplup1    label byte
  700.     db    07h,002h
  701.     db    0bh,002h
  702.     db    TESTLOOP
  703.     dw    cdoplup1
  704.     db    ENDOFSTRING
  705.  
  706. KLAXON    label    byte
  707.     db    000h,000h
  708.     db    SETPATCH,29
  709.     db    SETGATETHRESHOLD,001h
  710.     db    SETLOOP,010h
  711. klaxlup    label byte
  712.     db    PITCHDELTA,0ffh,000h,01fh
  713.     db    10h,020h
  714.     db    REST,005h
  715.     db    TESTLOOP
  716.     dw    klaxlup
  717.     db    ENDOFSTRING
  718.  
  719. RADAR    label    byte
  720.     db    000h,000h
  721.     db    SETPATCH,26
  722.     db    SETGATETHRESHOLD,001h
  723.     db    OCTAVEOFFSET,000h
  724.     db    3ah,007h
  725.     db    REST,009h
  726.     db    SETACCENTATTN,00dh
  727.     db    3ah,008h
  728.     db    REST,006h
  729.     db    SETACCENTATTN,014h
  730.     db    3ah,008h
  731.     db    REST,008h
  732.     db    ENDOFSTRING
  733.  
  734. GLASS    label    byte
  735.     db    000h,004h
  736.     db    SETCHANNELATTN,002h
  737.     db    SETPATCH,1
  738.     db    01h,002h
  739.     db    SETPATCH,95
  740.     db    PITCHDELTA,0c0h,002h,018h
  741.     db    19h,0ffh
  742.     db    ENDOFSTRING
  743.  
  744.     ;sound string formatted dump   filename: tblmod
  745. tblmod    label    byte
  746.     db    000h,004h
  747.     db    SETCHANNELATTN,008h
  748.     db    SETGATETHRESHOLD,030h
  749.     db    OCTAVEOFFSET,0f0h
  750.     db    SETPATCH,96
  751.     db    TABLEMODOP,05fh,003h,040h
  752.     dw    tblmodtbl
  753.     db    30h,0bbh
  754.     db    32h,0bbh
  755.     db    34h,0bbh
  756.     db    35h,0bbh
  757.     db    37h,0bbh
  758.     db    39h,0bbh
  759.     db    3bh,0bbh
  760.     db    40h,0bbh
  761.     db    ENDOFSTRING
  762. tblmodtbl    db    008h,00bh,00eh,012h
  763. ;tblmod    label    byte
  764.     db    000h,004h
  765.     db    0abh,008h
  766.     db    083h,030h
  767.     db    087h,0f0h
  768.     db    090h,96
  769.     db    08dh,05fh,003h,040h
  770.     dw    tblmodtbl
  771.     db    030h,0bbh
  772.     db    032h,0bbh
  773.     db    034h,0bbh
  774.     db    035h,0bbh
  775.     db    037h,0bbh
  776.     db    039h,0bbh
  777.     db    03bh,0bbh
  778.     db    040h,0bbh
  779.     db    088h
  780.  
  781. BWOING    label    byte
  782.     db    000h,004h
  783.     db    SETCHANNELATTN,008h
  784.     db    SETPATCH,97
  785.     db    OCTAVEOFFSET,0f0h
  786.     db    SETTEMPO,05bh
  787.     db    SETLOOP,004h
  788. bwoinglup    label byte
  789.     db    30h,001h
  790.     db    TEMPODELTA,0f8h
  791.     db    32h,001h
  792.     db    34h,001h
  793.     db    TESTLOOP
  794.     dw    bwoinglup
  795.     db    ENDOFSTRING
  796.  
  797. lsabre    label    byte
  798.     db    000h,000h
  799.     db    SETGATETHRESHOLD,001h
  800.     db    SETPATCH,047h+100
  801.     db    VIBRATO,0ffh,002h,008h,000h
  802.     db    10h,015h
  803.     db    ENDOFSTRING
  804.  
  805. takeoff    db    001h,000h
  806.     db    083h,001h
  807.     db    090h,01eh
  808.     db    001h,002h
  809.     db    090h,69
  810.     db    010h,0ffh
  811.     db    091h,0ffh
  812.     db    000h,001h
  813.     db    0a0h,0ffh
  814.     db    092h
  815.     db    0a0h,090h
  816.     db    091h,0ffh,000h,00ah
  817.     db    0a0h,0ffh
  818.     db    088h
  819.  
  820. suprise    label    byte
  821.     db    000h,000h
  822.     db    SETGATETHRESHOLD,001h
  823.     db    SETPATCH,04ch+100
  824.     db    58h,001h
  825.     db    SETLOOP,02ch
  826. suplup    label byte
  827.     db    PITCHDELTA,0ffh,04eh,012h
  828.     db    STAY,004h
  829.     db    PITCHDELTA,070h,0ffh,0e8h
  830.     db    STAY,005h
  831.     db    TESTLOOP
  832.     dw    suplup
  833.     db    ENDOFSTRING
  834.  
  835. ;** Battle Strings **;
  836. flyby    label    byte
  837.     db    008h,000h
  838.     db    SETCHANNELATTN,008h
  839.     db    SETGATETHRESHOLD,001h
  840.     db    SETPATCH,01eh
  841.     db    01h,002h
  842.     db    SETPATCH,028h
  843.     db    SETACCENTATTN,004h
  844.     db    PITCHDELTA,0ffh,0ffh,0feh
  845.     db    17h,0e6h
  846.     db    ENDOFSTRING
  847.  
  848. capgun    db    007h,000h
  849.     db    082h,152
  850.     db    082h,153
  851.     db    083h,001h
  852.     db    090h,01eh
  853.     db    001h,002h
  854.     db    090h,78
  855.     db    050h,00ah
  856.     db    088h
  857.  
  858. cgattack    db    001h,008h
  859.     db    083h,001h
  860.     db    090h,01eh
  861.     db    001h,002h
  862.     db    090h,79
  863.     db    050h,001h
  864.     db    088h
  865.  
  866. cgattack2    db    002h,008h
  867.     db    083h,001h
  868.     db    090h,01eh
  869.     db    001h,002h
  870.     db    090h,79
  871.     db    050h,001h
  872.     db    088h
  873.  
  874.  
  875. bombfall    label    byte
  876.     db    005h,001h
  877.     db    SETCHANNELATTN,004h
  878.     db    STARTVOICE,155
  879.     db    SETGATETHRESHOLD,001h
  880.     db    SETPATCH,01eh
  881.     db    01h,002h
  882.     db    SETPATCH,055h
  883.     db    SETACCENTATTN,00dh
  884.     db    PITCHDELTA,0ffh,0ffh,0feh
  885.     db    7bh,090h
  886.     db    STARTVOICE,89
  887.     db    STAY,00ah
  888.     db    STARTVOICE,99
  889.     db    SETPATCH,056h
  890.     db    ENDOFSTRING
  891.  
  892.  
  893. dopple    label    byte
  894.     db    001h,002h
  895.     db    SETCHANNELATTN,004h
  896.     db    SETACCENTATTN,005h
  897.     db    REST,070h
  898.     db    SETPATCH,01eh
  899.     db    01h,002h
  900.     db    SETPATCH,057h
  901.     db    PITCHDELTA,0ffh,0ffh,0ffh
  902.     db    SETTEMPO,031h
  903.     db    07h,00ah
  904.     db    ENDOFSTRING
  905.  
  906.  
  907. midgun    label    byte
  908.     db    005h,000h
  909.     db    SETGATETHRESHOLD,001h
  910.     db    SETPATCH,01eh
  911.     db    01h,002h
  912.     db    SETPATCH,058h
  913.     db    SETACCENTATTN,005h
  914.     db    OCTAVEOFFSET,040h
  915.     db    PITCHDELTA,0ffh,0ffh,082h
  916.     db    0ch,007h
  917.     db    ENDOFSTRING
  918.  
  919. slowgun    label    byte
  920.     db    006h,000h
  921.     db    SETGATETHRESHOLD,001h
  922.     db    SETPATCH,01eh
  923.     db    01h,002h
  924.     db    SETPATCH,059h
  925.     db    SETACCENTATTN,00ah
  926.     db    OCTAVEOFFSET,040h
  927.     db    PITCHDELTA,0ffh,0ffh,082h
  928.     db    0ch,009h
  929.     db    0ch,009h
  930.     db    0ch,009h
  931.     db    ENDOFSTRING
  932.  
  933.  
  934.  
  935. biggun    label    byte
  936.     db    003h,000h
  937.     db    SETGATETHRESHOLD,001h
  938.     db    SETPATCH,01eh
  939.     db    01h,002h
  940.     db    SETPATCH,052h
  941.     db    OCTAVEOFFSET,040h
  942.     db    PITCHDELTA,0ffh,0ffh,082h
  943.     db    0ch,008h
  944.     db    0ch,008h
  945.     db    0ch,008h
  946.     db    0ch,008h
  947.     db    0ch,008h
  948.     db    0ch,008h
  949.     db    0ch,008h
  950.     db    0ch,008h
  951.     db    0ch,008h
  952.     db    ENDOFSTRING
  953.  
  954.  
  955. cannon    label    byte
  956.     db    002h,000h
  957.     db    STARTVOICE,158
  958.     db    SETGATETHRESHOLD,001h
  959.     db    SETPATCH,01eh
  960.     db    01h,002h
  961.     db    SETPATCH,053h
  962.     db    OCTAVEOFFSET,040h
  963.     db    PITCHDELTA,0ffh,0ffh,082h
  964.     db    0ch,008h
  965.     db    0ch,008h
  966.     db    0ch,008h
  967.     db    0ch,008h
  968.     db    0ch,008h
  969.     db    0ch,008h
  970.     db    0ch,008h
  971.     db    0ch,008h
  972.     db    0ch,008h
  973.     db    ENDOFSTRING
  974.  
  975.  
  976. mgun    label    byte
  977.     db    004h,000h
  978.     db    SNOP
  979.     db    SNOP
  980.     db    SETGATETHRESHOLD,001h
  981.     db    SETPATCH,01eh
  982.     db    01h,002h
  983.     db    SETPATCH,054h
  984.     db    PITCHDELTA,0ffh,0ffh,082h
  985.     db    SETLOOP,009h
  986. mgunlup label byte
  987.     db    4ch,005h
  988.     db    TESTLOOP
  989.     dw    mgunlup
  990.     db    ENDOFSTRING
  991.  
  992.  
  993. mgunshort    label    byte
  994.     db    004h,000h
  995.     db    SNOP
  996.     db    SNOP
  997.     db    SETGATETHRESHOLD,001h
  998.     db    SETPATCH,01eh
  999.     db    01h,002h
  1000.     db    SETPATCH,054h
  1001.     db    PITCHDELTA,0ffh,0ffh,082h
  1002.     db    4ch,005h
  1003.     db    4ch,005h
  1004.     db    4ch,005h
  1005.     db    ENDOFSTRING
  1006.  
  1007. bomfal1    db    000h,000h    ;this is long slow pitch delta
  1008.     db    0abh,08h
  1009.     db    083h,001h
  1010.     db    090h,01eh
  1011.     db    001h,002h
  1012.     db    090h,37
  1013.     db    091h,0ffh,0ffh,0feh
  1014.     db    020h,0ffh
  1015.     db    089h,040h
  1016.     db    088h
  1017.  
  1018. exp1    label    byte
  1019.     db    006h,000h
  1020.     db    SETCHANNELATTN,008h
  1021.     db    SETPATCH,01eh
  1022.     db    01h,002h
  1023.     db    SETPATCH,026h
  1024.     db    PITCHDELTA,0ffh,0ffh,0ffh
  1025.     db    06h,028h
  1026.     db    ENDOFSTRING
  1027.  
  1028.  
  1029. EXPLO1    label    byte
  1030.     db    000h,004h
  1031.     db    SETPATCH,23
  1032.     db    SETGATETHRESHOLD,0ffh
  1033.     db    16h,002h
  1034.     db    SETLOOP,00ah
  1035. explo1lup    label byte
  1036.     db    PITCHDELTA,0ffh,0ffh,0cfh
  1037.     db    STAY,003h
  1038.     db    PITCHDELTA,0ffh,000h,054h
  1039.     db    STAY,002h
  1040.     db    TESTLOOP
  1041.     dw    explo1lup
  1042.     db    REST,001h
  1043.     db    CLEARPITCHDELTA
  1044.     db    STAY,030h
  1045.     db    ENDOFSTRING
  1046.  
  1047.     ;sound string formatted dump   filename: EXPLO2
  1048. EXPLO2    label    byte
  1049.     db    000h,004h
  1050.     db    SETPATCH,24
  1051.     db    SETGATETHRESHOLD,0ffh
  1052.     db    30h,001h
  1053.     db    SETLOOP,010h
  1054. explo2lup    label byte
  1055.     db    08h,002h
  1056.     db    10h,002h
  1057.     db    TESTLOOP
  1058.     dw    explo2lup
  1059.     db    ENDOFSTRING
  1060.  
  1061. exp2a    db    000h,000h    ;pitch delta down with noise (from patch)
  1062.     db    0abh,008h
  1063.     db    083h,001h
  1064.     db    090h,01eh
  1065.     db    001h,002h
  1066.     db    090h,02ah
  1067.     db    091h,0ffh,0ffh,0ffh
  1068.     db    01ah,030h
  1069.     db    089h,002h
  1070.     db    088h
  1071.  
  1072. pistol2 db    000h,000h    ;noise burst with radical pitch delta
  1073.     db    0abh,008h
  1074.     db    083h,001h
  1075.     db    090h,01eh
  1076.     db    001h,002h
  1077.     db    090h,50
  1078.     db    091h,0ffh,080h,00bh
  1079.     db    010h,003h
  1080.     db    048h,008h
  1081.     db    088h
  1082.  
  1083. pistol3    db    000h,000h    ;pitch delta down on noise
  1084.     db    0abh,008h
  1085.     db    083h,001h
  1086.     db    090h,01eh
  1087.     db    001h,002h
  1088.     db    090h,031h
  1089.     db    091h,0ffh,0ffh,0ffh
  1090.     db    008h,010h
  1091.     db    088h
  1092.  
  1093. THUNDER    label    byte
  1094.     db    000h,004h
  1095.     db    SETPATCH,33
  1096.     db    SETGATETHRESHOLD,0ffh
  1097.     db    18h,002h
  1098.     db    SETLOOP,00ah
  1099. thundlup label byte
  1100.     db    PITCHDELTA,0ffh,0ffh,0cfh
  1101.     db    STAY,003h
  1102.     db    PITCHDELTA,0ffh,000h,044h
  1103.     db    STAY,002h
  1104.     db    TESTLOOP
  1105.     dw    thundlup
  1106.     db    REST,001h
  1107.     db    CLEARPITCHDELTA
  1108.     db    STAY,040h
  1109.     db    ENDOFSTRING
  1110.  
  1111. EXPLOSION    label    byte
  1112.     db    000h,004h
  1113.  
  1114. nukeint    db    0abh,000h
  1115.     db    090h,001h
  1116.     db    001h,002h
  1117.     db    090h,94
  1118.     db    083h,000h
  1119.     db    013h,002h
  1120.     db    080h,0B0h
  1121. explolup    label byte
  1122.     db    0b5h,003h,0FFH
  1123.     db    0a0h,001h
  1124.     db    081h
  1125.     dw    explolup
  1126.     db    088h
  1127.  
  1128. crash2            db    0,0,090h,123,020h,08h,089h,04h,088h
  1129. crash4            db    0,0,090h,122,020h,08h,089h,04h,088h
  1130. crash7            db    0,7
  1131.             db    09eh,10
  1132.             db    090h,121,014h,10h,089h,04h,088h
  1133.  
  1134. ;****** Latin Sequence
  1135. ltempo equ 0d4h
  1136.  
  1137. latin    db    009h,0
  1138.     db    0a9h,ltempo
  1139.  
  1140.     DB    080H,2
  1141.  
  1142.     db    082h,212
  1143.  
  1144. latinint label byte
  1145.     db    082h,213
  1146.     db    082h,214
  1147.     db    082h,215
  1148.     db    082h,216
  1149.     db    0A0h,060h
  1150.     db    0A0h,060h
  1151.     db    0A0h,060h
  1152.     db    0A0h,060h
  1153.  
  1154.     DB    0ACH,8,3
  1155.     DB    0ACH,7,3
  1156.     DB    0ACH,6,3
  1157.     DB    0ACH,5,3
  1158.  
  1159.     db    081h
  1160.     DW    latinint
  1161.     DB    0a0h,03Ch
  1162.     db    088h
  1163.  
  1164. lbass    db    002h,000h
  1165.  
  1166.     db    0a9h,ltempo
  1167.     db    089h,060h
  1168.     db    089h,060h
  1169.     db    089h,060h
  1170.     db    089h,060h
  1171.  
  1172.     db    083h,003h
  1173.     db    090h,01eh
  1174.     db    001h,002h
  1175.  
  1176.     db    09eh,009h
  1177.  
  1178.     db    087H,0e0h
  1179.     db    080H,2
  1180.     db    090h,75
  1181.  
  1182. basslup    db    089h,006h
  1183.     db    089h,006h
  1184.     db    089h,006h
  1185.     db    040h,012h
  1186.     db    045h,00ch
  1187.     db    089h,006h
  1188.     db    089h,006h
  1189.     db    089h,006h
  1190.     db    040h,012h
  1191.     db    035h,00ch
  1192.     db    081H
  1193.     dw    basslup
  1194.  
  1195.     db    089h,006h
  1196.     db    089h,006h
  1197.     db    089h,006h
  1198.     db    042h,012h
  1199.     db    047h,00ch
  1200.     db    089h,006h
  1201.     db    089h,006h
  1202.     db    089h,006h
  1203.     db    042h,012h
  1204.     db    037h,00ch
  1205.  
  1206.     db    09eh,002h
  1207.     db    039h,030h
  1208.  
  1209.     db    087H,000h
  1210.     db    09eh,005h
  1211.  
  1212.     db    089h,006h
  1213.     db    029h,006h
  1214.  
  1215.  
  1216.  
  1217.  
  1218.     db    028h,00Ch
  1219.     db    027h,006h
  1220.     db    025h,00Ch
  1221.     db    020h,006h
  1222.  
  1223.     db    09eh,000h
  1224.     db    083h,0ffh
  1225.     db    022h,00Ch
  1226.     db    091h,0ffh,0ffh,0fdh
  1227.     db    0a0h,030h
  1228.  
  1229.     db    088h
  1230.  
  1231.  
  1232. clave equ 034h
  1233. lclave    db    008h,000h
  1234.     db    083h,001h
  1235.     db    090h,01eh
  1236.     db    001h,002h
  1237.     db    0a9h,ltempo
  1238.  
  1239.     db    09eh,005h
  1240.     db    087h,040h
  1241.  
  1242.     db    080H,3
  1243.  
  1244. clavelup    db    090h,04ch
  1245.     db    091h,0ffh,0ffh,0f5h
  1246.     db    clave,006h
  1247.     db    089h,006h
  1248.     db    clave,006h
  1249.     db    089h,006h
  1250.     db    clave,006h
  1251.     db    clave,006h
  1252.     db    089h,006h
  1253.     db    clave,006h
  1254.     db    089h,006h
  1255.     db    clave,006h
  1256.     db    clave,006h
  1257.     db    089h,006h
  1258.     db    clave,006h
  1259.     db    clave,006h
  1260.     db    089h,006h
  1261.     db    clave,006h
  1262.     db    081H
  1263.     dw    clavelup
  1264.  
  1265.     db    09eh,007h
  1266.     db    090h,10
  1267.     db    091h,0ffh,0ffh,0e8h
  1268.     db    08ch,001h
  1269.     db    087h,000h
  1270.  
  1271.     db    089h,008h
  1272.     db    041h,008h
  1273.     db    041h,008h
  1274.  
  1275.     db    041h,008h
  1276.     db    089h,008h
  1277.     db    034h,008h
  1278.  
  1279.     db    034h,008h
  1280.     db    034h,008h
  1281.     db    089h,008h
  1282.     
  1283.     
  1284.     db    087h,040h
  1285.     db    090h,04ch
  1286.     db    091h,0ffh,0ffh,0f5h
  1287.     db    08ch,000h
  1288.     db    clave,006h
  1289.     db    clave,006h
  1290.     db    clave,006h
  1291.     db    089h,06h
  1292.     
  1293.     db    088h
  1294.  
  1295. Lhh equ 030h
  1296.  
  1297. lhihat    db    006h,000h
  1298.     db    083h,001h
  1299.     db    090h,01eh
  1300.     db    001h,002h
  1301.     db    090h,5
  1302.     db    0a9h,ltempo
  1303.     db    087h,0
  1304.     db    091h,0,0,0
  1305.     db    080H,4
  1306.  
  1307. hhlup    db    089h,00ch
  1308.     db    Lhh,00ch
  1309.     db    089h,00ch
  1310.     db    Lhh,00ch
  1311.     db    089h,00ch
  1312.     db    Lhh,00ch
  1313.     db    089h,00ch
  1314.     db    Lhh,00ch
  1315.     db    081H
  1316.     dw    hhlup
  1317.     db    088h
  1318.  
  1319.  
  1320.  
  1321. ltoms    db    005h,000h
  1322.     db    083h,001h
  1323.     db    090h,01eh
  1324.     db    09eh,010h
  1325.     db    0a9h,ltempo
  1326.     db    001h,002h
  1327.     db    090h,10
  1328.     db    087h,000h
  1329.     db    08ch,005h
  1330.  
  1331.     db    091h,0ffh,0ffh,0e8h
  1332.  
  1333.     db    030h,006h
  1334.     db    089h,006h
  1335.     db    089h,006h
  1336.     db    034h,006h
  1337.  
  1338.     db    089h,006h
  1339.     db    089h,006h
  1340.     db    030h,006h
  1341.     db    089h,006h
  1342.  
  1343.     db    034h,006h
  1344.     db    089h,006h
  1345.     db    089h,006h
  1346.     db    040h,006h
  1347.  
  1348.     db    090h,10
  1349.     db    091h,0ffh,0ffh,0e8h
  1350.     db    089h,006h
  1351.     db    089h,006h
  1352.     db    034h,006h
  1353.     db    089h,006h
  1354.  
  1355.     db    030h,006h
  1356.     db    089h,006h
  1357.     db    089h,006h
  1358.     db    034h,006h
  1359.  
  1360.     db    089h,006h
  1361.     db    089h,006h
  1362.     db    030h,006h
  1363.     db    089h,006h
  1364.  
  1365.     db    034h,006h
  1366.     db    089h,006h
  1367.     db    089h,006h
  1368.     db    034h,006h
  1369.  
  1370.     db    089h,006h
  1371.     db    089h,006h
  1372.     db    030h,006h
  1373.     db    089h,006h
  1374.     db    030h,006h
  1375.     db    089h,006h
  1376.     db    089h,006h
  1377.     db    034h,006h
  1378.  
  1379.     db    089h,006h
  1380.     db    089h,006h
  1381.     db    030h,006h
  1382.     db    089h,006h
  1383.  
  1384.     db    034h,006h
  1385.     db    089h,006h
  1386.     db    089h,006h
  1387.     db    040h,006h
  1388.  
  1389.     db    090h,10
  1390.     db    091h,0ffh,0ffh,0e8h
  1391.     db    089h,006h
  1392.     db    089h,006h
  1393.     db    034h,006h
  1394.     db    09eh,007h
  1395.     db    040h,006h
  1396.  
  1397.     db    09eh,005h
  1398.     db    089h,008h
  1399.     db    040h,008h
  1400.     db    040h,008h
  1401.  
  1402.     db    040h,008h
  1403.     db    089h,008h
  1404.     db    090h,10
  1405.     db    091h,0ffh,0ffh,0e8h
  1406.     db    034h,008h
  1407.  
  1408.     db    034h,008h
  1409.     db    034h,008h
  1410.     db    089h,005h
  1411.     db    089h,003h
  1412.  
  1413.     db    089h,018h
  1414.  
  1415.     db    088h
  1416.  
  1417. kick equ 010h
  1418. lkick    db    007h,000h
  1419.     db    083h,004h
  1420.     db    090h,01eh
  1421.     db    001h,002h
  1422.     db    09eh,010h
  1423.     db    090h,10
  1424.     db    0a9h,ltempo
  1425.     db    087h,0
  1426.     db    091h,0ffh,0ffh,0e8h
  1427.     db    080H,4
  1428.  
  1429. kicklup    db    kick,006h
  1430.     db    089h,00ch
  1431.     db    kick,006h
  1432.  
  1433.     db    09eh,000h
  1434.     db    kick,006h
  1435.     db    09eh,010h
  1436.     db    089h,00ch
  1437.     db    kick,006h
  1438.  
  1439.     db    kick,006h
  1440.     db    089h,00ch
  1441.     db    kick,006h
  1442.  
  1443.     db    09eh,000h
  1444.     db    kick,006h
  1445.     db    09eh,010h
  1446.     db    089h,00ch
  1447.     db    kick,006h
  1448.     db    081H
  1449.     dw    kicklup
  1450.     db    kick,006h
  1451.     db    088h
  1452.  
  1453. ;** Jazz **;
  1454. jazz    db    006h,000h
  1455.  
  1456.     db    0C1h    ;set up Drum Channels
  1457.     ;patches             
  1458.     db        146  ;KICK mod/carrier
  1459.     db        145  ;HH mod  / snare carrier
  1460.     db        144  ;TOM mod / ride carrier
  1461.     ;Frequencies (high,low) 
  1462.     db        006h,000h  ;KICK
  1463.     db        00dh,060h  ;HH/SNARE
  1464.     db        007h,000h  ;TOM/RIDE
  1465.  
  1466.  
  1467.     db    0a9h,0ffh
  1468.     db    083h,0ffh
  1469.     db         0C6h,01Fh,0
  1470.  
  1471.     db         0C6h,00eh,4
  1472.     db         0C6h,010h,08
  1473.  
  1474.     db    08AH,0A8h,0FFh  ;TOM/RIDE
  1475.     
  1476.     db    080h,2
  1477.  
  1478. jazzLUP db    0C2h,012h,0a0h,24
  1479.     db    0C2h,003h,0a0h,15
  1480.     db    0C2h,00ch,0a0h,10
  1481.  
  1482.     db    0C2h,002h,0a0h,24
  1483.     db    0C2h,003h,0a0h,15
  1484.     db    0C2h,002h,0a0h,10
  1485.  
  1486.     db    0C2h,002h,0a0h,24
  1487.     db    0C2h,003h,0a0h,15
  1488.     db    0C2h,002h,0a0h,10
  1489.  
  1490.     db    0C2h,002h,0a0h,15
  1491.     db         0C6h,00ch,0
  1492.     db    0C2h,00ch,0a0h,10
  1493.     db         0C6h,00ch,4
  1494.     db    0C2h,003h,0a0h,15
  1495.     db    0C2h,012h,0a0h,10
  1496.  
  1497. ;bar 2
  1498.     db    0C2h,012h,0a0h,24
  1499.     db    0C2h,003h,0a0h,15
  1500.     db    0C2h,00eh,0a0h,10
  1501.  
  1502.     db    0C2h,002h,0a0h,15
  1503.     db    0C2h,010h,0a0h,10
  1504.     db    0C2h,00fh,0a0h,15
  1505.     db    0C2h,012h,0a0h,10
  1506.  
  1507.     db    0C2h,002h,0a0h,24
  1508.     db    0C2h,003h,0a0h,15
  1509.     db    0C2h,002h,0a0h,10
  1510.  
  1511.     db    0C2h,002h,0a0h,15
  1512.     db    0C2h,00ch,0a0h,10
  1513.     db    0C2h,003h,0a0h,15
  1514.     db    0C2h,012h,0a0h,10
  1515.  
  1516. ;BAR 3
  1517.     db    0C2h,012h,0a0h,24
  1518.     db    0C2h,003h,0a0h,15
  1519.     db    0C2h,00ch,0a0h,10
  1520.  
  1521.     db    0C2h,002h,0a0h,24
  1522.     db    0C2h,003h,0a0h,15
  1523.     db    0C2h,002h,0a0h,10
  1524.  
  1525.     db    0C2h,002h,0a0h,24
  1526.     db    0C2h,003h,0a0h,15
  1527.     db    0C2h,002h,0a0h,10
  1528.  
  1529.     db    0C2h,002h,0a0h,15
  1530.     db    0C2h,00ch,0a0h,10
  1531.     db    0C2h,003h,0a0h,15
  1532.     db    0C2h,00Ch,0a0h,5
  1533.     db    0C2h,00Ch,0a0h,5
  1534.  
  1535. ;BAR 4
  1536.     db    0C2h,012h,0a0h,24
  1537.     db    0C2h,003h,0a0h,15
  1538.     db    0C2h,00eh,0a0h,10
  1539.  
  1540.     db    0C2h,002h,0a0h,15
  1541.     db    0C2h,010h,0a0h,10
  1542.     db    0C2h,00fh,0a0h,15
  1543.     db    0C2h,01Fh,0a0h,10
  1544.  
  1545.     db    0a0h,15
  1546.     db    0C2h,00Ch,0a0h,5
  1547.     db    0C2h,00Ch,0a0h,5
  1548.     db    0C2h,012h,0a0h,15
  1549.     db    0C2h,010h,0a0h,5
  1550.     db    0a0h,1
  1551.     db    0C2h,00Ch,0a0h,4
  1552.  
  1553.     db    0C2h,00Ch,0a0h,15
  1554.     db    0C2h,012h,0a0h,10
  1555.     db    0C2h,00ch,0a0h,8
  1556.     db    0C2h,00ch,0a0h,8
  1557.     db    0C2h,00eh,0a0h,8
  1558.  
  1559.     db    081h
  1560.     DW    jazzLUP
  1561.     db    0C2h,01Fh,0a0h,60
  1562.     db    0c3h
  1563.     db    088h
  1564.  
  1565.     
  1566.  
  1567. ;** Wtell **;
  1568. wtTempo equ 0a0h
  1569.  
  1570. wtell    label    byte
  1571.     db    006h,000h
  1572.     db    083h,001h
  1573.     db    090h,01eh
  1574.     db    001h,002h
  1575.     db    0a6h,094h
  1576.     db    0bah
  1577.     db    0aBh,015h
  1578.     db    090h,74 
  1579.     db    080h,02h
  1580.     db    082h,221
  1581.     db    082h,222
  1582.  
  1583.     db    087h,000h
  1584.     db    095h,080h,2,2,40
  1585. ;    db    0a9h,wtTempo-12
  1586.     
  1587.     db    052h,030h
  1588.     db    054h,00ch
  1589.     db    049h,00ch
  1590.     db    052h,00ch
  1591.     db    054h,00ch
  1592.     db    049h,00ch
  1593.  
  1594.     db    052h,030h
  1595.     db    054h,00ch
  1596.     db    049h,00ch
  1597.     db    052h,00ch
  1598.     db    054h,00ch
  1599.     db    047h,00ch
  1600.  
  1601.     db    050h,030h
  1602.     db    052h,00ch
  1603.     db    054h,00ch
  1604.     db    056h,00ch
  1605.     db    057h,00ch
  1606.     db    059h,00ch
  1607.  
  1608.     db    057h,00ah
  1609.     db    059h,00ah
  1610.  
  1611.     db    057h,009h
  1612.     db    059h,009h
  1613.  
  1614.     db    057h,008h
  1615.     db    059h,008h
  1616.  
  1617.     db    057h,007h
  1618.     db    059h,007h
  1619.  
  1620.     db    057h,006h
  1621.     db    059h,006h
  1622.  
  1623.     db    057h,006h
  1624.     db    059h,007h
  1625.  
  1626.     db    057h,008h
  1627.     db    059h,009h
  1628.  
  1629.     db    057h,00ch
  1630.  
  1631.     db    056h,00dh
  1632.     db    057h,00fh
  1633.     db    09eh,017h
  1634.     db    060h,050h
  1635.     
  1636.     db    088h
  1637.  
  1638. wtarp    label    byte
  1639.     db    007h,000h
  1640.     db    0aBh,011h
  1641.     db    083h,001h
  1642.     db    090h,01eh
  1643.     db    001h,002h
  1644.     db    0bah
  1645. ;    db    0a9h,wtTempo
  1646.     db    090h,020h
  1647.     db    09eh,008h
  1648.     db    080h,02h
  1649.  
  1650.     db    087h,0f0h
  1651.  
  1652. ;    db    0a9h,wtTempo-12
  1653.  
  1654.     db    052h,00ch
  1655.     db    059h,00ch
  1656.     db    062h,00ch
  1657.     db    069h,00ch
  1658.     db    062h,00ch
  1659.     db    059h,00ch
  1660.     db    062h,00ch
  1661.     db    059h,00ch
  1662.     db    049h,00ch
  1663.  
  1664.     db    052h,00ch
  1665.     db    059h,00ch
  1666.     db    062h,00ch
  1667.     db    069h,00ch
  1668.     db    062h,00ch
  1669.     db    059h,00ch
  1670.     db    062h,00ch
  1671.     db    059h,00ch
  1672.     db    047h,00ch
  1673.  
  1674.     db    040h,00ch
  1675.     db    047h,00ch
  1676.     db    050h,00ch
  1677.     db    057h,04ah
  1678.  
  1679.     db    047h,098h
  1680.     db    09eh,00bh
  1681.  
  1682.     db    060h,00ch
  1683.     db    064h,00eh
  1684.     db    067h,013h
  1685.     db    070h,03fh
  1686.  
  1687.     db    088h
  1688.  
  1689. wtbass    label    byte
  1690.     db    008h,000h
  1691.     db    0aBh,003h
  1692.     db    083h,001h
  1693.     db    090h,01eh
  1694.     db    001h,002h
  1695.     db    087h,0E0h
  1696.     db    090h,75 
  1697.     db    09Eh,10
  1698. ;    db    0a9h,wtTempo-12
  1699.     db    0bah
  1700.  
  1701.     db    042h,06ch
  1702.     db    042h,06ch
  1703.     db    040h,06ch
  1704.     db    037h,096h
  1705.     db    040h,060h
  1706.  
  1707.     db    088h
  1708.  
  1709. ;** Leif **;
  1710.  
  1711. Leif    db    009h,0
  1712.      
  1713.     db    0a6h,096h
  1714.     db    0bah
  1715. ;    db    0a9h,Leiftempo
  1716.  
  1717.     db    0C1h    ;set up Drum Channels
  1718.              
  1719.     db        146  ;patch 1: KICK mod/carrier
  1720.     db        145  ;patch 2: HH mod  / snare carrier
  1721.     db        144  ;patch 3: TOM mod / ride carrier
  1722.  
  1723. ;Frequencies for patches (high,low) 
  1724.  
  1725.     db        005h,0a6h  ;KICK
  1726.     db        00dh,060h  ;HH/SNARE
  1727.     db        007h,000h  ;TOM/RIDE
  1728.  
  1729.     db    082h,245 ;wind
  1730.     db    082h,229
  1731.     db    0a0h,156
  1732.  
  1733.     db    082h,245 ;wind
  1734.     db    0a0h,72
  1735.     db    082h,231
  1736.     db    0a0h,84
  1737.  
  1738.     db    0a0h,72
  1739.     db    082h,233
  1740.     db    0a0h,84
  1741.  
  1742.  
  1743.     db    0a0h,156
  1744.     db    082h,228
  1745.     db    0a0h,156
  1746.     db    0a0h,156
  1747.  
  1748.  
  1749.  
  1750.  
  1751. bstart label byte
  1752. ;;    db    080h,1
  1753. blup label byte
  1754.     db    082h,245 ;wind
  1755.     db    082h,251 ;lead
  1756.     db    082h,247 ;kick
  1757.     db    082h,246 ;hand
  1758.     db    0a0h,156
  1759.     db    0a0h,156
  1760.     db    0a0h,156
  1761.     db    0a0h,156
  1762.  
  1763.     db    08Eh,6
  1764.     db    08Eh,7
  1765.     db    082h,227
  1766.     db    082h,245 ;wind
  1767.     db    082h,248 ;comp2
  1768.     db    082h,249 ;comp3
  1769.     db    082h,250 ;comp4 ;bottom
  1770.     db    0a0h,156
  1771.  
  1772.        db    082h,247 ;kick
  1773.     db    082h,246 ;hand
  1774.     db    082h,245 ;wind
  1775.     db    082h,251 ;lead
  1776.     db    082h,248 ;comp2
  1777.     db    082h,249 ;comp3
  1778.     db    082h,250 ;comp4 ;bottom
  1779.     db    0a0h,156
  1780.     db    0a0h,156
  1781.     db    0a0h,156
  1782.     db    0a0h,156
  1783.     db    08Eh,6
  1784.     db    08Eh,7
  1785.     db    082h,227
  1786.     
  1787.     db    0a0h,156
  1788.     
  1789. ;;    db    081h
  1790. ;;    dw    blup
  1791.  
  1792.     db    082h,245 ;wind
  1793.  
  1794.     db    0a0h,72
  1795.     db    082h,231
  1796.     db    0a0h,84
  1797.  
  1798.     db    0a0h,72
  1799.     db    082h,230
  1800.     db    0a0h,84
  1801.  
  1802.  
  1803.     db    0a0h,156
  1804.     db    082h,228
  1805.     db    0a0h,156
  1806.     db    0a0h,156
  1807.     db    084h
  1808.     dw    bstart
  1809.     db    088h
  1810.  
  1811.  
  1812. shot   equ 002h
  1813. accent equ 004h
  1814. tap    equ 008h
  1815. grace  equ 00bh
  1816.  
  1817. fill1    db    008h,000h
  1818.     db    083h,0ffh
  1819.     db    0bah
  1820. ;    db    0a9h,Leiftempo
  1821.     db    0c6h,01fh,0
  1822.  
  1823.     db         0C4h,00ch,accent
  1824.     db    0C2h,01ch,0a0h,006h
  1825.     db         0C4h,00ch,tap
  1826.     db    0C2h,00ch,0a0h,003h
  1827.     db    0C2h,00ch,0a0h,003h
  1828.     db         0C4h,00ch,accent
  1829.     db    0C2h,00ch,0a0h,006h
  1830.     db    0C2h,00ch,0a0h,006h
  1831.          
  1832.     db         0C4h,00ch,tap
  1833.     db         0C2h,00ch,0a0h,003h
  1834.     db    0C2h,00ch,0a0h,003h
  1835.     db    0C2h,00ch,0a0h,003h
  1836.     db    0C2h,00ch,0a0h,003h
  1837.     db         0C4h,00ch,accent
  1838.     db    0C2h,00ch,0a0h,006h
  1839.     db    0C2h,00ch,0a0h,006h
  1840.  
  1841.     db         0C4h,00ch,0
  1842.     db    0C2h,00ch,0a0h,006h
  1843.     db         0C4h,00ch,tap
  1844.     db    0C2h,00ch,0a0h,006h
  1845.     db    0C2h,00ch,0a0h,006h
  1846.     db         0C4h,00ch,0
  1847.     db    0C2h,00ch,0a0h,006h
  1848.          
  1849. ;bar 2
  1850.     db         0C4h,00ch,accent
  1851.     db    0C2h,00ch,0a0h,006h
  1852.     db    0C2h,01ch,0a0h,006h
  1853.     db    0C2h,01ch,0a0h,006h
  1854.     db         0C4h,00ch,tap
  1855.     db         0C2h,00ch,0a0h,003h
  1856.     db    0C2h,00ch,0a0h,003h
  1857.  
  1858.     db         0C4h,00ch,shot
  1859.     db    0C2h,00ch,0a0h,003h
  1860.     db    0C2h,00ch,0a0h,003h
  1861.     db         0C4h,00ch,tap
  1862.     db    0C2h,00ch,0a0h,006h
  1863.     db    0C2h,00ch,0a0h,006h
  1864.     db         0C4h,00ch,shot
  1865.     db    0C2h,00ch,0a0h,003h
  1866.     db    0C2h,00ch,0a0h,003h
  1867.  
  1868.     db    0C2h,010h,0a0h,006h
  1869.     db    0C2h,00ch,0a0h,003h
  1870.     db    0C2h,00ch,0a0h,003h
  1871.     db         0C4h,00ch,shot
  1872.     db    0C2h,00ch,0a0h,006h
  1873.     db    0C2h,00ch,0a0h,006h
  1874.     db    0C2h,00ch,0a0h,006h
  1875.     db    0C2h,00ch,0a0h,006h
  1876.          
  1877.          
  1878. ;release
  1879.     db    0C2h,01fh,0a0h,006h
  1880.  
  1881.  
  1882.     db    088h
  1883.  
  1884. fill2    db    008h,000h
  1885.     db    083h,0ffh
  1886.     db    0c6h,01fh,0
  1887.     db    0bah
  1888. ;    db    0a9h,Leiftempo
  1889.     
  1890.     db    0C2h,010h,0a0h,006h
  1891.     db         0C4h,00ch,tap
  1892.     db    0C2h,00ch,0a0h,002h
  1893.     db         0C4h,00ch,shot
  1894.     db    0C2h,00ch,0a0h,008h
  1895.     db         0C4h,00ch,accent
  1896.     db    0C2h,00ch,0a0h,008h
  1897.  
  1898.     db    0C2h,00ch,0a0h,008h
  1899.     db    0C2h,010h,0a0h,006h
  1900.     db         0C4h,00ch,tap
  1901.     db    0C2h,00ch,0a0h,002h
  1902.     db         0C4h,00ch,shot
  1903.     db    0C2h,00ch,0a0h,008h
  1904.  
  1905.     db         0C4h,00ch,accent
  1906.     db    0C2h,00ch,0a0h,008h
  1907.     db    0C2h,00ch,0a0h,008h
  1908.     db    0C2h,010h,0a0h,008h
  1909.  
  1910.          
  1911. ;bar 2
  1912.     db    0C2h,01Fh,0a0h,18
  1913.     db    0C2h,01Fh,0a0h,006h
  1914.  
  1915.     db         0C4h,00ch,accent
  1916.     db    0a0h,006h
  1917.     db    0C2h,00ch,0a0h,006h
  1918.     db         0C4h,00ch,shot
  1919.     db    0C2h,00ch,0a0h,006h
  1920.     db         0C4h,00ch,tap
  1921.     db    0C2h,00ch,0a0h,003h
  1922.     db    0C2h,00ch,0a0h,003h
  1923.  
  1924.     DB    080H,6
  1925.        
  1926.     db         0C4h,00ch,0
  1927. DECLUP1    label byte
  1928.     DB    0C5H,00CH,005H
  1929.     db    0C2h,00ch,0a0h,003h
  1930.     db    0C2h,00ch,0a0h,003h
  1931.     db    081h
  1932.     DW    DECLUP1
  1933.  
  1934. ;BAR 3
  1935.     DB    080H,6
  1936.  
  1937. inclup    label byte
  1938.     DB    0C5H,00CH,0fbH
  1939.     db    0C2h,00ch,0a0h,003h
  1940.     db    0C2h,00ch,0a0h,003h
  1941.     db    0C2h,00ch,0a0h,003h
  1942.     db    0C2h,00ch,0a0h,003h
  1943.     db    081h
  1944.     DW    inclup
  1945.  
  1946.     
  1947.     
  1948. fill24int label byte    
  1949. ;BAR 4         
  1950.     db         0C4h,00ch,shot
  1951.     db    0C2h,01ch,0a0h,006h
  1952.     db         0C4h,00ch,tap
  1953.     db    0C2h,01ch,0a0h,003h
  1954.     db    0C2h,00ch,0a0h,003h
  1955.     db         0C4h,00ch,shot
  1956.     db    0C2h,00ch,0a0h,006h
  1957.     db    0C2h,00ch,0a0h,006h
  1958.  
  1959.     db         0C4h,00ch,tap
  1960.     db    0C2h,01ch,0a0h,003h
  1961.     db    0C2h,00ch,0a0h,003h
  1962.     db         0C4h,00ch,shot
  1963.     db    0C2h,00ch,0a0h,006h
  1964.     db    0C2h,00ch,0a0h,006h
  1965.     db         0C4h,00ch,tap
  1966.     db    0C2h,01ch,0a0h,003h
  1967.     db    0C2h,00ch,0a0h,003h
  1968.  
  1969.     db         0C4h,00ch,accent
  1970.     db    0C2h,01ch,0a0h,004h
  1971.     db    0C2h,00ch,0a0h,004h
  1972.     db    0C2h,00ch,0a0h,004h
  1973.     db    0C2h,00ch,0a0h,004h
  1974.     db    0C2h,00ch,0a0h,004h
  1975.     db    0C2h,00ch,0a0h,004h
  1976.  
  1977.     db         0C4h,00ch,shot
  1978.     db    0C2h,01ch,0a0h,006h
  1979.     db    0C2h,00ch,0a0h,006h
  1980.  
  1981. ;release
  1982.     db    08AH,0A8h,0FFh  ;TOM/RIDE
  1983.     db    0C2h,017h,0a0h,012h
  1984.     db    08AH,0A8h,000h  ;TOM/RIDE /RESTORE
  1985.  
  1986.     db    088h
  1987.  
  1988.  
  1989. fill24    db    008h,000h
  1990.     db    0c6h,01fh,0
  1991.     db    083h,0ffh
  1992.  
  1993.     db    0bah
  1994. ;    db    0a9h,Leiftempo
  1995.     db    084h
  1996.     dw    fill24int
  1997.  
  1998.  
  1999.  
  2000. fill32    db    008h,000h
  2001.     db    0c6h,01fh,0
  2002.     db    083h,0ffh
  2003.  
  2004.     db    0bah
  2005. ;    db    0a9h,Leiftempo
  2006.  
  2007.     db         0C4h,00ch,accent
  2008.     db    0C2h,00ch,0a0h,003h
  2009.     db    0C2h,00ch,0a0h,003h
  2010.     db    0C2h,010h,0a0h,003h
  2011.     db    0C2h,010h,0a0h,003h
  2012.  
  2013.  
  2014.     db    0C2h,00ch,0a0h,003h
  2015.     db    0C2h,00ch,0a0h,003h
  2016.     db    0C2h,010h,0a0h,003h
  2017.     db    0C2h,010h,0a0h,001h
  2018.     db         0C4h,00ch,2
  2019.     db    0C2h,00ch,0a0h,002h
  2020.  
  2021.  
  2022.     db         0C4h,00ch,0
  2023.     db    0C2h,00dh,0a0h,36
  2024.  
  2025.     db         0C4h,00ch,accent
  2026.  
  2027.     db    0a0h,006h
  2028.     db    0C2h,010h,0a0h,006h
  2029.     db    0C2h,010h,0a0h,006h
  2030.     db    08AH,0A8h,033h  ;TOM/RIDE
  2031.     db    0C2h,00fh,0a0h,006h
  2032. ;release
  2033.     db    08AH,0A8h,0ffh  ;TOM/RIDE
  2034.     db    0C2h,01fh,0a0h,030h
  2035.     db    08AH,0A8h,000h  ;TOM/RIDE /RESTORE
  2036.     db    088h
  2037.  
  2038.  
  2039. fill421    db    005h,000h
  2040.     db    0bah
  2041. ;    db    0a9h,Leiftempo
  2042.  
  2043.     db    082h,234
  2044.     db    082h,236
  2045.     db    082h,237
  2046.  
  2047.     db    087h,000h
  2048.     db    08ch,5
  2049.  
  2050. fill421int label byte
  2051.     db    0ABh,6
  2052.     db    090h,150
  2053.     db    091h,0ffh,0ffh,0e8h
  2054.  
  2055.     db    034h,005h ;********* "Human Rushing"
  2056.     db    09eh,12
  2057.  
  2058.     db    034h,003h
  2059.     db    034h,003h
  2060.  
  2061.     db    09eh,0
  2062.     db    032h,3
  2063.     db    09eh,6
  2064.     db    032h,3
  2065.     db    09eh,0
  2066.     db    032h,4    ;this makes up for the tick lost above
  2067.     db    032h,3
  2068.     
  2069.     db    029h,6
  2070.            db    088h
  2071.     
  2072.  
  2073. fill421echo label byte
  2074.  
  2075.     db    004h,000h
  2076.     db    0bah
  2077. ;    db    0a9h,Leiftempo
  2078.  
  2079.     db    08ch,006h
  2080.            db    084h
  2081.     dw    fill421int
  2082.     
  2083. fill421down label byte
  2084.  
  2085.     db    003h,000h
  2086.     db    0bah
  2087. ;    db    0a9h,Leiftempo
  2088.     db    08ch,004h
  2089.  
  2090.            db    084h
  2091.     dw    fill421int
  2092.     
  2093.  
  2094.  
  2095.  
  2096.  
  2097. fill422 label byte
  2098.     db    8,0    
  2099.  
  2100.     db    0c6h,01fh,0
  2101.     db    083h,0ffh
  2102.  
  2103.     db    0bah
  2104. ;    db    0a9h,Leiftempo
  2105.     db    0c6h,01fh,0
  2106.     db    083h,0ffh
  2107.  
  2108.     db    0C2h,001h,0a0h,12
  2109.     db    0C2h,001h,0a0h,9
  2110.     db         0C4h,010h,2
  2111.     db    0C2h,010h,0a0h,3
  2112.     
  2113.     db         0C4h,010h,0
  2114.     db    0C2h,010h,0a0h,024h
  2115.     db         0C4h,00ch,accent
  2116.  
  2117.     db    0a0h,006h
  2118.     db    0C2h,010h,0a0h,006h
  2119.     db    0C2h,010h,0a0h,006h
  2120.     db    08AH,0A8h,030h  ;TOM/RIDE
  2121.     db    0C2h,00fh,0a0h,006h
  2122.  
  2123. ;release
  2124.     db    0C2h,01fh,0a0h,001h
  2125.  
  2126.     db    0C2h,002h,0a0h,001h
  2127.     db    0C2h,002h,0a0h,001h
  2128.  
  2129.     db         0C4h,002h,1
  2130.     db    0C2h,002h,0a0h,001h
  2131.     db    0C2h,002h,0a0h,001h
  2132.     db    0C2h,002h,0a0h,001h
  2133.     db    0C2h,002h,0a0h,001h
  2134.  
  2135.  
  2136.     db         0C4h,002h,2
  2137.     db    0C2h,002h,0a0h,001h
  2138.     db    0C2h,002h,0a0h,001h
  2139.     db    0C2h,002h,0a0h,001h
  2140.     db    0C2h,002h,0a0h,001h
  2141.  
  2142.     db         0C4h,002h,3
  2143.     db    0C2h,002h,0a0h,001h
  2144.     db    0C2h,002h,0a0h,001h
  2145.     db    0C2h,002h,0a0h,001h
  2146.     db    0C2h,002h,0a0h,001h
  2147.  
  2148.     db         0C4h,002h,5
  2149.     db    0C2h,002h,0a0h,001h
  2150.     db    0C2h,002h,0a0h,001h
  2151.     db    0C2h,002h,0a0h,001h
  2152.     db    0C2h,002h,0a0h,001h
  2153.  
  2154.     db         0C4h,002h,7
  2155.     db    0C2h,002h,0a0h,001h
  2156.     db    0C2h,002h,0a0h,001h
  2157.     db    0C2h,002h,0a0h,001h
  2158.     db    0C2h,002h,0a0h,001h
  2159.  
  2160.     db         0C4h,002h,9
  2161.     db    0C2h,002h,0a0h,001h
  2162.     db    0C2h,002h,0a0h,001h
  2163.     db    0C2h,002h,0a0h,001h
  2164.     db    0C2h,002h,0a0h,001h
  2165.  
  2166.     db         0C4h,002h,13
  2167.     db    0C2h,002h,0a0h,001h
  2168.     db    0C2h,002h,0a0h,001h
  2169.     db    0C2h,002h,0a0h,001h
  2170.     db    0C2h,002h,0a0h,001h
  2171.  
  2172.     db         0C4h,002h,17
  2173.     db    0C2h,002h,0a0h,001h
  2174.     db    0C2h,002h,0a0h,001h
  2175.     db    0C2h,002h,0a0h,001h
  2176.     db    0C2h,002h,0a0h,001h
  2177.  
  2178.     db         0C4h,002h,25
  2179.     db    0C2h,002h,0a0h,001h
  2180.     db    0C2h,002h,0a0h,001h
  2181.     db    0C2h,002h,0a0h,001h
  2182.     db    0C2h,002h,0a0h,001h
  2183.  
  2184.     db         0C4h,002h,30
  2185.     db    0C2h,002h,0a0h,001h
  2186.     db    0C2h,002h,0a0h,001h
  2187.     db    0C2h,002h,0a0h,001h
  2188.     db    0C2h,002h,0a0h,001h
  2189.  
  2190.     db         0C4h,002h,40
  2191.     db    0C2h,002h,0a0h,001h
  2192.     db    0C2h,002h,0a0h,001h
  2193.     db    0C2h,002h,0a0h,001h
  2194.     db    0C2h,002h,0a0h,026h
  2195.  
  2196. ;;    db    0C2h,01fh,0a0h,030h
  2197.     db    08AH,0A8h,000h  ;TOM/RIDE /RESTORE
  2198.     db         0C4h,002h,0    ;restore ride volume
  2199.     db    088h
  2200.     
  2201.  
  2202.     
  2203. filltest label byte
  2204.     db    008h,000h
  2205.     db    0c6h,01fh,0
  2206.     db    083h,0ffh
  2207.  
  2208.     db    0bah
  2209. ;    db    0a9h,Leiftempo
  2210.  
  2211.     db    0C2h,00ch,0a0h,06
  2212.     db    0C2h,010h,0a0h,06
  2213.     db    0C2h,010h,0a0h,06
  2214.     db    0C2h,00ch,0a0h,06
  2215.  
  2216.     db    0a0h,6
  2217.     db    0C2h,001h,0a0h,06
  2218.     db         0C4h,001h,accent
  2219.     db    0C2h,001h,0a0h,03
  2220.     db    0C2h,001h,0a0h,03
  2221.     db    0C2h,001h,0a0h,03
  2222.     db    0C2h,001h,0a0h,03
  2223.     db         0C4h,001h,shot
  2224.      
  2225.     db    0C2h,001h,0a0h,06
  2226.     db    0C2h,001h,0a0h,06
  2227.     db    0a0h,6
  2228.  
  2229.     db    08AH,0A8h,033h  ;TOM/RIDE
  2230.     db    0C2h,012h,0a0h,6
  2231.  
  2232.  
  2233. ;bar 2
  2234.     db    08AH,0A8h,0FFh  ;TOM/RIDE
  2235.     db    0C2h,00010111b,0a0h,006h
  2236.  
  2237.     db    08AH,0A8h,033h  ;TOM/RIDE
  2238.     db    0C2h,00000111b,0a0h,006h
  2239.  
  2240.     db    08AH,0A8h,0FFh  ;TOM/RIDE
  2241.     db    0C2h,00010111b,0a0h,030h
  2242.     
  2243.     db    08AH,0A8h,000h  ;TOM/RIDE  /RESTORE
  2244.  
  2245.     db    088h
  2246.  
  2247.  
  2248.  
  2249.  
  2250.  
  2251.  
  2252.  
  2253.  
  2254. Leifkick    db    006h,000h
  2255.  
  2256.     db    083h,0ffh
  2257.     db    0bah
  2258. ;    db    0a9h,Leiftempo
  2259.  
  2260. CKICKLUP LABEL BYTE
  2261.     db         0C4h,010h,2
  2262.     db    0C2h,010h,0a0h,006h
  2263.     db    0a0h,00ch
  2264.     db    0C2h,010h,0a0h,006h
  2265.  
  2266.     db         0C4h,010h,0
  2267.     db    0C2h,010h,0a0h,006h
  2268.     db         0C4h,010h,2
  2269.     db    0a0h,00ch
  2270.     db    0C2h,010h,0a0h,006h
  2271.  
  2272.     db    0C2h,010h,0a0h,006h
  2273.     db    0a0h,00ch
  2274.     db    0C2h,010h,0a0h,006h
  2275.  
  2276.     
  2277.     db    0C2h,010h,0a0h,006h
  2278.     db    0a0h,00ch
  2279.     db    0C2h,010h,0a0h,006h
  2280.  
  2281.     db         0C4h,010h,0
  2282.     db    0C2h,010h,0a0h,006h
  2283.     db         0C4h,010h,2
  2284.     db    0a0h,00ch
  2285.     db    0C2h,010h,0a0h,006h
  2286.  
  2287.     db    0C2h,010h,0a0h,00ch
  2288.     db    0C2h,010h,0a0h,00ch
  2289.     db    0C2h,010h,0a0h,00ch
  2290.  
  2291.     db    084h
  2292.     DW    CKICKLUP
  2293.  
  2294.  
  2295.  
  2296. Leifhands    db    007h,000h
  2297.  
  2298.     db    0c6h,01fh,0
  2299.     db    083h,0ffh
  2300.     db    0bah
  2301. ;    db    0a9h,Leiftempo
  2302.  
  2303.  
  2304.     db         0C4h,00001011b,004h
  2305.  
  2306. CHLUP    db    0C2h,001h,0a0h,006h
  2307.     db    0C2h,001h,0a0h,006h
  2308.     db    0C2h,001h,0a0h,006h
  2309.     db    0C2h,00Ch,0a0h,006h
  2310.  
  2311.     db    0C2h,001h,0a0h,006h
  2312.     db    0C2h,001h,0a0h,006h
  2313.     db    0C2h,00Ch,0a0h,006h
  2314.     db    0C2h,001h,0a0h,006h
  2315.  
  2316.     db    0C2h,001h,0a0h,006h
  2317.     db    0C2h,001h,0a0h,006h
  2318.     db    0C2h,002h,0a0h,006h
  2319.     db    0C2h,001h,0a0h,006h
  2320.  
  2321.     db    0C2h,001h,0a0h,006h
  2322.     db    0C2h,001h,0a0h,006h
  2323.     db    0C2h,001h,0a0h,006h
  2324.     db    0C2h,00Ch,0a0h,006h
  2325.  
  2326.     db    0C2h,001h,0a0h,006h
  2327.     db    0C2h,001h,0a0h,006h
  2328.     db    0C2h,00Ch,0a0h,006h
  2329.     db    0C2h,001h,0a0h,006h
  2330.  
  2331.     db    0C2h,001h,0a0h,006h
  2332.     db    0C2h,001h,0a0h,006h
  2333.     db    0C2h,01Fh,0a0h,006h
  2334.     db    0C2h,001h,0a0h,006h
  2335.  
  2336.     db    0C2h,00Dh,0a0h,006h
  2337.     db    0C2h,00Dh,0a0h,006h
  2338.          
  2339.     db    084h
  2340.     DW    CHLUP
  2341.     
  2342. Leiflead    db    01,00
  2343.     db    083h,001h
  2344.     db    0abh,008h
  2345.     db    090h,149
  2346.     db    0bah
  2347. ;    db    0a9h,Leiftempo
  2348.  
  2349.     db    095h,0B0h,1,2,010H
  2350.     db    087h,010h
  2351. ;bar 1
  2352.     db    032h,6
  2353.     db    034h,6
  2354.     db    035h,12
  2355.  
  2356.     db    0a0h,24
  2357.  
  2358.     db    089h,12
  2359.     db    034h,12
  2360. ;bar 2
  2361.     db    0a0h,6
  2362.     db    030h,18
  2363.  
  2364.     db    029h,6
  2365.     db    0a0h,18
  2366.     
  2367.     db    0a0h,24
  2368.     db    0a0h,12
  2369.  
  2370. ;bar 3
  2371.     db    032h,6
  2372.     db    034h,6
  2373.     db    035h,12
  2374.  
  2375.     db    0a0h,24
  2376.  
  2377.     db    089h,12
  2378.     db    034h,06
  2379.     db    030h,6
  2380. ;bar 4                ;    ;bar 4
  2381.                 ;        db    0a0h,6
  2382.                 ;        db    030h,18
  2383.                 ;
  2384.     db    039h,6        ;        db    039h,6
  2385.     db    0a0h,18        ;        db    0a0h,18
  2386.  
  2387.     db    0a0h,24        ;
  2388.  
  2389.     db    0a0h,24        ;        db    0a0h,24
  2390.     db    039h,6        ;        db    039h,6
  2391.     db    040h,6        ;        db    040h,6
  2392.  
  2393. ;bar 5
  2394.     db    042h,24
  2395.  
  2396.     db    089h,24
  2397.  
  2398.     db    089h,12
  2399.     db    044h,12
  2400. ;bar 6
  2401.     db    0a0h,6
  2402.     db    040h,18
  2403.  
  2404.     db    039h,6
  2405.     db    0a0h,18
  2406.     
  2407.     db    087h,000h
  2408.     db    089h,6
  2409.     db    03bh,6
  2410.     db    040h,6
  2411.     db    042h,6
  2412.  
  2413.     db    044h,6
  2414.     db    045h,6
  2415.  
  2416. ;bar 7
  2417.     db    047h,24
  2418.  
  2419.     db    089h,24
  2420.  
  2421.     db    089h,12
  2422.     db    045h,12
  2423. ;bar 8
  2424.     db    0a0h,6
  2425.     db    050h,18
  2426.     
  2427.     DB    091H,0FFH,0,1
  2428.     db    0a0h,12
  2429.     DB    092H
  2430.     db    045h,6
  2431.     db    044h,6
  2432.     
  2433.     db    042h,6
  2434.     db    040h,6
  2435.     db    042h,12
  2436.  
  2437.     db    0a0h,12
  2438.  
  2439. ;bar 9
  2440.     db    0A0H,12
  2441.     db    091h,0FFh,0ffh,0ffh
  2442.     db    0A0H,12
  2443.  
  2444.     db    0A0H,24
  2445.     db    0A0H,24
  2446.  
  2447.     DB    092H
  2448.     db    088h
  2449.  
  2450.     
  2451. comp4    db    04,00
  2452.     db    083h,001h
  2453.     db    09eh,15
  2454.     db    090h,4
  2455.     db    0bah
  2456. ;    db    0a9h,Leiftempo
  2457.     db    087h,010h
  2458.  
  2459.  
  2460.  
  2461.     db    08ch,0
  2462.     db    080h,2
  2463. cb1    db    085h
  2464.     dw    compbi1
  2465.     db    085H
  2466.     dw    compbi2
  2467.     db    081h
  2468.     dw    cb1
  2469.     
  2470. ;4    
  2471.     db    08ch,0F9H
  2472.       db    085h
  2473.     dw    compbi1
  2474.     db    08ch,0
  2475.     db    085H
  2476.     dw    compbi2
  2477.  
  2478. ;1
  2479.     db    08ch,0fbh
  2480.       db    085h
  2481.     dw    compbi1
  2482.     db    08ch,0
  2483.     db    085h
  2484.     dw    compbi2
  2485.  
  2486. ;5    
  2487.     db    08ch,0
  2488.       db    085h
  2489.     dw    compbi1
  2490.     db    085h
  2491.     dw    compbi2
  2492.  
  2493.     db    088h
  2494.  
  2495.  
  2496.  
  2497.  
  2498.  
  2499. compbi1    db    089h,18
  2500. ;bar 1
  2501.     db    039h,6
  2502.  
  2503.     db    039h,6
  2504.     db    039h,6
  2505.     db    039h,12
  2506.  
  2507.     db    089h,24
  2508.     db    086h
  2509.  
  2510. ;bar 2
  2511. compbi2    db    089h,18
  2512.     db    039h,6
  2513.  
  2514.     db    039h,6
  2515.     db    039h,6
  2516.     db    039h,12
  2517.  
  2518.     db    089h,24
  2519.     
  2520.     db    089h,12
  2521.     
  2522.     db    086h
  2523.     
  2524.     
  2525. comp2    db    02,00
  2526.     db    09eh,15
  2527.     db    083h,001h
  2528.     db    090h,4
  2529.     db    0bah
  2530. ;    db    0a9h,Leiftempo
  2531.  
  2532.     
  2533.     
  2534.     db    08ch,0
  2535.     db    080h,2
  2536. c21    db    085h
  2537.     dw    compi21
  2538.     db    085H
  2539.     dw    compi22
  2540.     db    081h
  2541.     dw    c21
  2542.     
  2543. ;4    
  2544.     db    08ch,0F9H
  2545.       db    085h
  2546.     dw    compi21
  2547.     db    08ch,0
  2548.     db    085H
  2549.     dw    compi22
  2550.  
  2551. ;1
  2552.     db    08ch,0fbh
  2553.       db    085h
  2554.     dw    compi21
  2555.     db    08ch,0
  2556.     db    085h
  2557.     dw    compi22
  2558.  
  2559. ;5    
  2560.     db    08ch,0
  2561.       db    085h
  2562.     dw    compi21
  2563.     db    085h
  2564.     dw    compi22
  2565.  
  2566.     db    088h
  2567.     
  2568.     
  2569.     
  2570.     
  2571.     
  2572.     db    088h
  2573.  
  2574. compi21    db    087h,020h
  2575. ;bar 1
  2576.     db    089h,18
  2577.     db    039h,6
  2578.  
  2579.     db    039h,6
  2580.     db    039h,6
  2581.     db    037h,12
  2582.  
  2583.     db    089h,24
  2584.     db    086h
  2585. ;bar 2
  2586. compi22    db    089h,18
  2587.     db    039h,6
  2588.  
  2589.     db    039h,6
  2590.     db    039h,6
  2591.     db    037h,12
  2592.  
  2593.     db    089h,24
  2594.     
  2595.     db    089h,12
  2596.     
  2597.     db    086h
  2598.     
  2599. comp3    db    03,00
  2600.     db    09eh,15
  2601.     db    083h,001h
  2602.     db    090h,4
  2603.     db    0bah
  2604. ;    db    0a9h,Leiftempo
  2605.  
  2606.     
  2607.  
  2608.     db    08ch,0
  2609.     db    080h,2
  2610. c31    db    085h
  2611.     dw    compi31
  2612.     db    085H
  2613.     dw    compi32
  2614.     db    081h
  2615.     dw    c31
  2616.     
  2617. ;4    
  2618.     db    08ch,0F9H
  2619.       db    085h
  2620.     dw    compi31
  2621.     db    08ch,0
  2622.     db    085H
  2623.     dw    compi32
  2624.  
  2625. ;1
  2626.     db    08ch,0fbh
  2627.       db    085h
  2628.     dw    compi31
  2629.     db    08ch,0
  2630.     db    085h
  2631.     dw    compi32
  2632.  
  2633. ;5    
  2634.     db    08ch,0
  2635.       db    085h
  2636.     dw    compi31
  2637.     db    085h
  2638.     dw    compi32
  2639.  
  2640.     db    088h
  2641.  
  2642.  
  2643.  
  2644.     
  2645.     
  2646. compi31    db    087h,020h
  2647. ;bar 1
  2648.     db    089h,18
  2649.     db    035h,6
  2650.  
  2651.     db    035h,6
  2652.     db    035h,6
  2653.     db    034h,12
  2654.  
  2655.     db    089h,24
  2656.     db    086h
  2657.  
  2658. ;bar 2
  2659. compi32    db    089h,18
  2660.     db    035h,6
  2661.  
  2662.     db    035h,6
  2663.     db    035h,6
  2664.     db    034h,12
  2665.  
  2666.     db    089h,24
  2667.     
  2668.     db    089h,12
  2669.     
  2670.     db    086h
  2671.  
  2672.     
  2673.     
  2674.     
  2675.     
  2676. Leifwind    db    00,00
  2677.     db    083h,001h
  2678.     db    090h,4
  2679.     db    0bah
  2680. ;    db    0a9h,Leiftempo
  2681.     db    087h,000h
  2682.  
  2683. windlup    db    08ch,0
  2684.     db    080h,2
  2685. w1    db    085h
  2686.     dw    wind1
  2687.     db    085H
  2688.     dw    wind2
  2689.     db    081h
  2690.     dw    w1
  2691.     
  2692. ;4    
  2693.     db    08ch,0F9H
  2694. w2    db    085h
  2695.     dw    wind3
  2696.     db    08ch,0
  2697.     db    085H
  2698.     dw    wind2
  2699.  
  2700. ;1
  2701.     db    08ch,0fbh
  2702. w3    db    085h
  2703.     dw    wind1
  2704.     db    08ch,0
  2705.     db    085h
  2706.     dw    wind2
  2707.  
  2708. ;5    
  2709.     db    08ch,0
  2710. w4    db    085h
  2711.     dw    wind1
  2712.     db    085h
  2713.     dw    wind2
  2714.  
  2715.     db    088h
  2716.  
  2717.  
  2718. wind1    db    032h,6
  2719.     db    029h,6
  2720.     db    034h,6
  2721.     db    035h,6
  2722.  
  2723.     db    029h,6
  2724.     db    032h,6
  2725.     db    029h,6
  2726.     db    034h,6
  2727.  
  2728.     db    035h,6
  2729.     db    029h,6
  2730.     db    030h,6
  2731.     db    029h,6
  2732.     db    086h
  2733.  
  2734. wind2    db    032h,6
  2735.     db    029h,6
  2736.     db    034h,6
  2737.     db    035h,6
  2738.  
  2739.     db    029h,6
  2740.     db    032h,6
  2741.     db    029h,6
  2742.     db    034h,6
  2743.  
  2744.     db    035h,6
  2745.     db    029h,6
  2746.     db    034h,6
  2747.     db    029h,6
  2748.  
  2749.     db    032h,6
  2750.     db    030h,6
  2751.  
  2752.     db    086h
  2753.  
  2754.     
  2755. wind3    db    032h,6
  2756.     db    029h,6
  2757.     db    034h,6
  2758.     db    035h,6
  2759.  
  2760.     db    029h,6
  2761.     db    032h,6
  2762.     db    029h,6
  2763.     db    034h,6
  2764.  
  2765.     db    035h,6
  2766.     db    029h,6
  2767.     db    08ch,0
  2768.     db    030h,6
  2769.     db    029h,6
  2770.     db    086h
  2771.  
  2772. wind4    db    032h,6
  2773.     db    029h,6
  2774.     db    034h,6
  2775.     db    035h,6
  2776.  
  2777.     db    029h,6
  2778.     db    032h,6
  2779.     db    029h,6
  2780.     db    034h,6
  2781.  
  2782.     db    08ch,0f7h
  2783.     db    035h,6
  2784.     db    029h,6
  2785.     db    030h,6
  2786.     db    029h,6
  2787.     db    086h
  2788.     
  2789.  
  2790. ;---------
  2791.  
  2792. alarm1    db    000h,000h    ;this uses pitch delta up with repeated notes
  2793.     db    0abh,08h
  2794.     db    083h,001h
  2795.     db    090h,01eh
  2796.     db    001h,002h
  2797.     db    090h,39
  2798.     db    091h,0ffh,000h,00dh
  2799.     db    001h,028h
  2800.     db    001h,028h
  2801.     db    001h,028h
  2802.     db    001h,028h
  2803.     db    001h,028h
  2804.     db    089h,004h
  2805.     db    088h
  2806.  
  2807.  
  2808. electric    label    byte
  2809.     db    000h,000h
  2810.     db    SETGATETHRESHOLD,001h
  2811.     db    SETPATCH,048h
  2812.     db    30h,40h
  2813.     db    30h,40h
  2814.     db    30h,50h
  2815.     db    30h,40h
  2816.     db    ENDOFSTRING
  2817.  
  2818. ocean1 db    000h,000h    ;noise with slow envelope
  2819.     db    0abh,08h
  2820.     db    083h,001h
  2821.     db    090h,01eh
  2822.     db    001h,002h
  2823.     db    090h,45
  2824.     db    083h,001h
  2825.     db    053h,0ffh
  2826.     db    088h
  2827.  
  2828. bell2    db    000h,000h    ;frac pitch and high multiplier on modulator
  2829.     db    0abh,008h
  2830.     db    083h,001h
  2831.     db    090h,01eh
  2832.     db    001h,002h
  2833.     db    090h,039h
  2834.     db    093h,07fh
  2835.     db    060h,002h
  2836.     db    088h
  2837.  
  2838.  
  2839. ;start address 077bbh
  2840. START    label    byte
  2841.     db    000h
  2842.     db    000h
  2843.     db    0abh
  2844.     db    008h
  2845.     db    083h
  2846.     db    001h
  2847.     db    090h
  2848.     db    000h
  2849.     db    0bbh
  2850.     db    0bbh
  2851.     db    0bbh
  2852.     db    0bbh
  2853.     db    0bbh
  2854.     db    0bbh
  2855.     db    0bbh
  2856.     db    0bbh
  2857.     db    030h
  2858.     db    040h
  2859.     db    037h
  2860.     db    040h
  2861.     db    040h
  2862.     db    040h
  2863.     db    0bbh
  2864.     db    0bbh
  2865.     db    0bbh
  2866.     db    0bbh
  2867.     db    0bbh
  2868.     db    0bbh
  2869.     db    0bbh
  2870.     db    0bbh
  2871.     db    0bbh
  2872.     db    0bbh
  2873.     db    0bbh
  2874.     db    0bbh
  2875.     db    0bbh
  2876.     db    0bbh
  2877.     db    0bbh
  2878.     db    0bbh
  2879.     db    0bbh
  2880.     db    0bbh
  2881.     db    0bbh
  2882.     db    0bbh
  2883.     db    0bbh
  2884.     db    0bbh
  2885.     db    0bbh
  2886.     db    0bbh
  2887.     db    0bbh
  2888.     db    0bbh
  2889.     db    0bbh
  2890.     db    0bbh
  2891.     db    0bbh
  2892.     db    0bbh
  2893.     db    0bbh
  2894.     db    0bbh
  2895.     db    0bbh
  2896.     db    0bbh
  2897.     db    0bbh
  2898.     db    0bbh
  2899.     db    0bbh
  2900.     db    0bbh
  2901.     db    0bbh
  2902.     db    0bbh
  2903.     db    0bbh
  2904.     db    088h
  2905.  
  2906.  
  2907. _TEXT    ends
  2908. end
  2909.  
  2910.