home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Super Street …ghter II PC Format Disk 2 / Lowe_SuperStreetFighterIIPCFormatDisk2.img / CAMMY.DAT < prev    next >
Encoding:
Text File  |  1995-12-02  |  19.0 KB  |  1,162 lines
  1.  
  2.  
  3.  
  4.  
  5. demo    equ 1        ;set to 0 to make returnable demo        
  6. develop    equ 1        ;set to zero for assembling data blks
  7.             ;or testing length of current data
  8.             ;set to 1 for music development
  9.  
  10. select_tunes    equ 1   ; set to 0 for running music on mouse button
  11.  
  12.  
  13.     ifne develop
  14.  
  15.     include c:sf2d/tdriver.s
  16.  
  17.     endc
  18.  
  19.     opt p+
  20.  
  21. ;***********************************************
  22.  
  23.         ;;;  MACROS
  24.  
  25. oct1d    macro
  26.     include c:sf2d/1odequ.blk
  27.     endm
  28.  
  29. oct1u    macro
  30.     include c:sf2d/1ouequ.blk
  31.     endm
  32.  
  33. octn    macro
  34.     include c:sf2d/nequ.blk
  35.     endm
  36.  
  37. noplay    macro
  38.     dc.l    pri-b1
  39.     dc.l    0,end_song
  40.     endm
  41.  
  42.  
  43. bass_guitar    macro
  44.     dc.w    new_env
  45.     dc.l    abass_env-b1
  46.     dc.w    new_snd
  47.     dc.l    abassp-b1
  48.     endm
  49.  
  50. bass_sound    macro
  51.     dc.w    new_env
  52.     dc.l    abass_env-b1
  53.     dc.w    new_snd
  54.     dc.l    abassp-b1
  55.     endm
  56.  
  57.  
  58.  
  59.  
  60. test_sound1    macro
  61.     dc.w    new_env
  62.     dc.l    test1_env-b1
  63.     dc.w    new_snd
  64.     dc.l    test1p-b1
  65.     endm
  66.  
  67. test_sound1_soft    macro
  68.     dc.w    new_env
  69.     dc.l    test1_env_soft-b1
  70.     dc.w    new_snd
  71.     dc.l    test1p-b1
  72.     endm
  73.  
  74.  
  75. test_sound2    macro
  76.     dc.w    new_env
  77.     dc.l    test2_env-b1
  78.     dc.w    new_snd
  79.     dc.l    test2p-b1
  80.     endm
  81.  
  82. test_sound2s    macro
  83.     dc.w    new_env
  84.     dc.l    test2_env-b1
  85.     dc.w    new_snd
  86.     dc.l    test2ps-b1
  87.     endm
  88.  
  89.  
  90.  
  91. chinese_syn    macro
  92.     dc.w    new_env
  93.     dc.l    chinese_syn_env-b1
  94.     dc.w    new_snd
  95.     dc.l    chinese_synp-b1
  96.     endm
  97.  
  98. lead_loop_short_env    macro
  99.     dc.w    new_env
  100.     dc.l    lead_env_short-b1
  101.     dc.w    new_snd
  102.     dc.l    lead_loopp-b1
  103.     endm
  104.  
  105. lead_loopq    macro
  106.     dc.w    new_env
  107.     dc.l    leadloop_envq-b1
  108.     dc.w    new_snd
  109.     dc.l    lead_loopp-b1
  110.     endm
  111.  
  112. lead_loop    macro
  113.     dc.w    new_env
  114.     dc.l    leadloop_env-b1
  115.     dc.w    new_snd
  116.     dc.l    lead_loopp-b1
  117.     endm
  118.  
  119.  
  120. lead_looped    macro
  121.     dc.w    new_env
  122.     dc.l    leadlooped_env-b1
  123.     dc.w    new_snd
  124.     dc.l    lead_loopp-b1
  125.     endm
  126.  
  127. rim        macro
  128.     dc.w    new_env
  129.     dc.l    rim_env-b1
  130.     dc.w    new_snd
  131.     dc.l    rimp-b1
  132.     endm
  133.  
  134. claves        macro
  135.     dc.w    new_env
  136.     dc.l    clave_env-b1
  137.     dc.w    new_snd
  138.     dc.l    clavep-b1
  139.     endm
  140.  
  141. clave        macro
  142.     dc.w    new_env
  143.     dc.l    clave_env-b1
  144.     dc.w    new_snd
  145.     dc.l    clavep-b1
  146.     endm
  147.  
  148. tamb        macro
  149.     dc.w    new_env
  150.     dc.l    tamb_env-b1
  151.     dc.w    new_snd
  152.     dc.l    tambp-b1
  153.     endm
  154.  
  155.  
  156.  
  157. sine_wave16    macro
  158.     dc.w    new_env
  159.     dc.l    sine_env-b1
  160.     dc.w    new_snd
  161.     dc.l    sinep-b1
  162.     endm
  163.  
  164. sine_wave1    macro
  165.     dc.w    new_env
  166.     dc.l    sine_env-b1
  167.     dc.w    new_snd
  168.     dc.l    sine1p-b1
  169.     endm
  170.  
  171.  
  172.  
  173.  
  174. synmaj        macro
  175.     dc.w    new_env
  176.     dc.l    synmaj_env-b1
  177.     dc.w    new_snd
  178.     dc.l    synmajp-b1
  179.     endm
  180.  
  181. synmin        macro
  182.     dc.w    new_env
  183.     dc.l    synmin_env-b1
  184.     dc.w    new_snd
  185.     dc.l    synminp-b1
  186.     endm
  187.  
  188.  
  189.  
  190. heavy_guitar    macro
  191.     dc.w    new_env
  192.     dc.l    hguit_env-b1
  193.     dc.w    new_snd
  194.     dc.l    hguitp-b1
  195.     endm
  196.  
  197. eguitar_short    macro
  198.     dc.w    new_env
  199.     dc.l    egs_env-b1
  200.     dc.w    new_snd
  201.     dc.l    egsp-b1
  202.     endm
  203.  
  204.  
  205.  
  206.  
  207.  
  208. syn1    macro
  209.     dc.w    new_env
  210.     dc.l    syn1_envs-b1
  211.     dc.w    new_snd
  212.     dc.l    syn1p-b1
  213.     endm
  214.  
  215.  
  216.  
  217.  
  218. d    macro            ;kick macro
  219.     dc.w    new_env
  220.     dc.l    kick_env-b1
  221.     dc.w    new_snd
  222.     dc.l    kickp-b1
  223.     endm
  224.  
  225. c    macro            ;kick macro
  226.     dc.w    new_env
  227.     dc.l    kick_env-b1
  228.     dc.w    new_snd
  229.     dc.l    kickp-b1
  230.     endm
  231.  
  232.  
  233.  
  234.  
  235. hd    macro            ;snare macro
  236.     dc.w    new_env
  237.     dc.l    snare_env-b1
  238.     dc.w    new_snd
  239.     dc.l    snarep-b1
  240.     endm
  241.     
  242.  
  243. g    macro            ;snare macro
  244.     dc.w    new_env
  245.     dc.l    hat_env-b1
  246.     dc.w    new_snd
  247.     dc.l    hatp-b1
  248.     endm
  249.  
  250. kick    macro            ;kick macro
  251.     dc.w    new_env
  252.     dc.l    kick_env-b1
  253.     dc.w    new_snd
  254.     dc.l    kickp-b1
  255.     endm
  256.  
  257.  
  258. snare    macro            ;snare macro
  259.     dc.w    new_env
  260.     dc.l    snare_env-b1
  261.     dc.w    new_snd
  262.     dc.l    snarep-b1
  263.     endm
  264.     
  265.  
  266. hat    macro            ;snare macro
  267.     dc.w    new_env
  268.     dc.l    hat_env-b1
  269.     dc.w    new_snd
  270.     dc.l    hatp-b1
  271.     endm
  272.  
  273. clap    macro            ;clap macro
  274.     dc.w    new_env
  275.     dc.l    clap_env-b1
  276.     dc.w    new_snd
  277.     dc.l    clapp-b1
  278.     endm
  279.  
  280.  
  281.  
  282.  
  283.  
  284.  
  285. r    equ r8        ;rim default playback rate
  286. c    equ r20        ;clave playback    
  287. k    equ r16        ;kick default playback rate
  288. s    equ r20        ;clav default playback rate
  289. h    equ r20        ;hat default playback rate
  290. d    equ r16        ;kick default playback rate
  291. hd    equ r16        ;snare default playback rate
  292. g    equ r20        ;hat default playback rate
  293. t    equ r8        ;tambourine default playback rate
  294. cl    equ r16        ;clap default playback rate
  295.  
  296.  
  297.  
  298. ;********************************************************************
  299.  
  300.  
  301.  
  302.             ;SF2  RYU  DATA
  303.  
  304. b1
  305.  
  306.     dc.w    song_table-b1
  307.     dc.w    fxjump_table-b1
  308.  
  309.  
  310.  
  311.     ifeq develop
  312.  
  313.         ;  ALL EQUs
  314.  
  315.  
  316.             include nequ.blk
  317.  
  318.  
  319.  
  320. v equ 0
  321.  
  322. no_loop equ 0
  323. loop equ 0
  324. chann1reg   equ $dff0a0    
  325. chann2reg   equ $dff0b0
  326. chann3reg   equ $dff0c0
  327. chann4reg   equ $dff0d0
  328. dmacon     equ $dff096
  329. int_bf_int   equ   $dff01e
  330. int_bf_w    equ   $dff09a
  331. vhposr     equ   $dff006
  332. in_line    equ   0
  333. new_snd    equ   4
  334. end_song     equ   1
  335. end_patt    equ   8
  336. new_env    equ   12
  337. pbend     equ   16
  338. iff        equ 104
  339.  
  340.  
  341. hi: equ 223
  342. lo:  equ 446
  343.  
  344. r22    equ 134
  345. r20    equ 179        ;correctum
  346. r19    equ 150
  347. r18    equ 178
  348. r17    equ 200
  349. r16:    equ 227        ;correctum
  350. r15:    equ 249
  351. r14    equ 280
  352. r13:    equ 305
  353. r12:    equ 333
  354. r11:    equ 361
  355. r10:    equ 389
  356. r9:    equ 419
  357. r8:    equ 446
  358. r7:    equ 446+112
  359. r6:    equ 446+223
  360. r5:    equ 446+223+112
  361. r4:    equ 446*2
  362. r3:    equ 446*3
  363. r2:    equ 446*4
  364. r1:    equ 446*8
  365.  
  366.  
  367. filter: equ $bfe001
  368. filter_on equ 44
  369. filter_off equ 48
  370.  
  371. modon     equ   20
  372. pboff     equ   24
  373. modoff     equ   28
  374. rest     equ 32
  375. end_fxp  equ 36
  376. end_fx3  equ 36
  377. end_fx4  equ 40
  378. acc    equ 52
  379. repeat    equ 56
  380. down      equ   1
  381. up       equ   2
  382.  
  383. fx    equ 0
  384.  
  385.     endc
  386.  
  387.     ;"""""""""""""""""""""""""""""""""""""""""""""""""
  388.  
  389.  
  390.     ;;; DATA
  391.  
  392. song_table:        
  393.  
  394.     dc.l 3,sb1-b1,sb2-b1,sb3-b1,sb4-b1,0,0,0    ;j1
  395.  
  396.     dc.l 5,ss1-b1,ss1-b1,ss1-b1,ss1-b1,0,0,0        ;j1
  397.  
  398.  
  399. max_songs:    dc.l  3
  400.  
  401.  
  402.  
  403. fxp:
  404.  
  405.  
  406. fxjump_table:  
  407.  
  408. ;max_fx    dc.l    10    ;number + 1 for test routines only
  409. ;______________________________________________________________________
  410.  
  411.  
  412. ;sstart: dc.l 0,end_song
  413.  
  414. ;pstart: dc.w end_patt
  415.  
  416.  
  417. ;----------------------------------
  418.  
  419.     octn
  420.  
  421.  
  422.  
  423. cr  set   12
  424. q set  cr/2
  425. sq set q/2
  426. dsq set sq/4
  427.  
  428. tq1 set      7
  429. tq2 set   6
  430. tsq1 set  3
  431. tsq2 set 4
  432.  
  433. ss1:            ;;;;;;silence tune for test only
  434.  
  435.     dc.l    pri-b1
  436.       dc.l     0,end_song
  437.  
  438.     dc.w    c03,cr*4
  439.     dc.w     end_patt
  440.  
  441. pri:
  442.     dc.w    new_env
  443.     dc.l    rest_env-b1
  444.     dc.w    c03,65000
  445.     dc.w     end_patt
  446.  
  447. ;************************************************
  448. ;;;;;;;;;;;;;;;;;;;;;           MUSIC DATA HERE  ;;;;;;;;;;;;;;;;;;;;;;;
  449.  
  450.  
  451.  
  452. ;--------------------------
  453. ;------
  454.  
  455. cr  set   16
  456. q set  cr/2
  457. sq set q/2
  458. dsq set sq/4
  459.  
  460. tq1 set      8
  461. tq2 set   8
  462.  
  463. tsq1 set  4
  464. tsq2 set 4
  465.  
  466. tcr1 set 16
  467. tcr2 set 16
  468.  
  469.  
  470. oc    set    cr
  471. o6    set    q
  472. i8    set    cr*2
  473. l8    set    cr*2
  474.  
  475.  
  476.  
  477. sb1:
  478.  
  479.     dc.l    bp-b1
  480.  
  481.       dc.l     0,end_song
  482.  
  483. sb2:
  484.  
  485.  
  486.     dc.l    tune1-b1
  487.  
  488.  
  489.         DC.L    0,end_song
  490.  
  491. sb3:
  492.     ;noplay
  493.     dc.l    ds-b1
  494.     dc.l    dp-b1,dp4-b1
  495.     dc.l    dp-b1,dp-b1,dp-b1
  496.     dc.l    dp8-b1
  497.     dc.l    dp-b1,dp-b1,df-b1
  498.     dc.l    dp-b1,dp-b1,dp-b1
  499.     dc.l    dp4-b1
  500.     dc.l    dp-b1,dp-b1,df-b1
  501.     dc.l    dp-b1,dp-b1,df-b1
  502.     dc.l    dp2526-b1
  503.     dc.l    dp2526-b1
  504.     dc.l    dp29-b1
  505.  
  506.     dc.l     0,end_song
  507.  
  508. sb4:
  509.     ;noplay
  510.     dc.l    pattch4-b1
  511.  
  512.     dc.l    hatpatt-b1,hatpatt-b1,hatpatt-b1,hatpatt-b1
  513.     dc.l    hatpatt-b1,hatpatt-b1,hatpatt-b1,hatpatt-b1
  514.     dc.l    hatpatt-b1,hatpatt-b1,hatpatt-b1,hatpatt-b1
  515.     dc.l    hatpatt-b1,hatpatt-b1,hatpatt-b1,hatpatt-b1
  516.     dc.l    hatpatt-b1,hatpatt-b1,hatpatt-b1,hatpatt-b1
  517.     dc.l    hatpatt-b1,hatpatt-b1,hatpatt-b1,hatpatt-b1
  518.  
  519.  
  520.     dc.l     0,end_song
  521.  
  522.  
  523. ;-----------------------------------------------
  524.  
  525. ds
  526.  
  527.     kick
  528.     dc.w    k,q
  529.     hat
  530.     dc.w    h,q
  531.     kick
  532.     dc.w    k,q
  533.     hat
  534.     dc.w    h,q
  535.     kick
  536.     dc.w    k,q
  537.     hat
  538.     dc.w    h,q
  539.     kick
  540.     dc.w    k,q
  541.     hat
  542.     dc.w    h,q
  543.     kick
  544.     dc.w    k,q
  545.     hat
  546.     dc.w    h,q
  547.     kick
  548.     dc.w    k,q
  549.     hat
  550.     dc.w    h,q
  551.  
  552.  
  553.     kick
  554.     dc.w    k,sq    
  555.     snare
  556.     dc.w    s,sq
  557.     kick
  558.     dc.w    k,sq,k,sq    
  559.     snare
  560.     dc.w    s,q,s,sq,s,sq
  561.     dc.w    end_patt
  562.  
  563. df
  564.     kick
  565.     dc.w    k,q
  566.     hat
  567.     dc.w    h,q
  568.     snare
  569.     dc.w    s,q
  570.     hat
  571.     dc.w    h,q
  572.     kick
  573.     dc.w    k,q
  574.     hat
  575.     dc.w    h,q
  576.     snare
  577.     dc.w    s,q
  578.     hat
  579.     dc.w    h,q
  580.     kick
  581.     dc.w    k,q
  582.     hat
  583.     dc.w    h,q
  584.     snare
  585.     dc.w    s,q
  586.     hat
  587.     dc.w    h,q
  588.  
  589.  
  590.     kick
  591.     dc.w    k,sq    
  592.     snare
  593.     dc.w    s,sq
  594.     kick
  595.     dc.w    k,sq,k,sq    
  596.     snare
  597.     dc.w    s,q,s,sq,s,sq
  598.     dc.w    end_patt
  599.  
  600.  
  601.  
  602.  
  603. dp
  604.     kick
  605.     dc.w    k,q
  606.     hat
  607.     dc.w    h,q
  608.     snare
  609.     dc.w    s,q
  610.     hat
  611.     dc.w    h,q
  612.     kick
  613.     dc.w    k,q
  614.     hat
  615.     dc.w    h,q
  616.     snare
  617.     dc.w    s,q
  618.     hat
  619.     dc.w    h,q
  620.     dc.w    end_patt
  621.  
  622. dp4
  623.     kick
  624.     dc.w    k,q
  625.     hat
  626.     dc.w    h,q
  627.     snare
  628.     dc.w    s,q
  629.     hat
  630.     dc.w    h,q
  631.     kick
  632.     dc.w    k,sq
  633.     snare
  634.     dc.w    s,sq,s,sq,s,sq,s,sq,s,sq,s,sq,s,sq
  635.     dc.w    end_patt
  636.  
  637. dp8
  638.     kick
  639.     dc.w    k,sq,k,q,k,sq
  640.     snare
  641.     dc.w    s,sq,s,sq,s,sq,s,sq,s,q
  642.     kick
  643.     dc.w    k,sq
  644.     snare
  645.     dc.w    s,sq+q,s,q
  646.     dc.w    end_patt
  647.  
  648. dp2526
  649.     kick
  650.     dc.w    k,q
  651.     snare
  652.     dc.w    s,sq,s,sq,s,q
  653.     kick
  654.     dc.w    k,cr
  655.     snare
  656.     dc.w    s,q,s,sq,s,sq
  657.     kick
  658.     dc.w    k,cr,k,q
  659.     snare
  660.     dc.w    s,q
  661.     kick
  662.     dc.w    k,q,k,q+sq,k,sq
  663.     snare
  664.     dc.w    s,q,s,sq,s,sq
  665.     dc.w    end_patt
  666.  
  667. dp29
  668.     kick
  669.     dc.w    k,q
  670.     snare
  671.     dc.w    s,sq,s,sq,s,q
  672.     kick
  673.     dc.w    k,cr
  674.     snare
  675.     dc.w    s,q,s,sq,s,sq
  676.     kick
  677.     dc.w    k,cr,k,q
  678.     snare
  679.     dc.w    s,q
  680.     kick
  681.     dc.w    k,q,k,q+sq,k,sq
  682.     snare
  683.     dc.w    s,q
  684.     kick
  685.     dc.w    k,cr,k,q
  686.     snare
  687.     dc.w    s,cr
  688.     kick
  689.     dc.w    k,q,k,q
  690.     snare
  691.     dc.w    s,cr
  692.     kick
  693.     dc.w    k,q
  694.     snare
  695.     dc.w    s,q,s,q
  696.     kick
  697.     dc.w    k,cr
  698.     snare
  699.     dc.w    s,sq,s,sq
  700.     dc.w    s,sq,s,sq
  701.     dc.w    s,sq,s,sq
  702.     dc.w    end_patt
  703.  
  704.  
  705.     octn
  706.  
  707.  
  708. pattch4
  709.     
  710.     lead_loop
  711.     ;heavy_guitar
  712.     
  713.     dc.w    filter_off
  714.  
  715.     dc.w    bb02,$0c+$0c+$10+8
  716.     ;dc.w bb02,$000c,bb02,$000c,bb02,$0010,bb02,$0008
  717.  
  718.     dc.w ab02,$0010
  719.     dc.w bb02,$000c,gb02,$000c,eb02,$0010,bb02,$0008
  720.     ;dc.w    bb02,$0c+$0c+$10+8
  721.  
  722.     dc.w ab02,$0010
  723.     ;dc.w bb02,$000c,bb02,$000c,bb02,$0010,bb02,$0008
  724.     dc.w    bb02,$0c+$0c+$10+8
  725.  
  726.     dc.w ab02,$0010
  727.  
  728.     octn
  729.  
  730.     lead_loop
  731.  
  732.     ;test_sound1
  733.  
  734.     dc.w modon,1,1,1,1,6,6
  735.  
  736.  
  737.     dc.w bb02,$000c,gb02,$000c,eb02,$0010,bb02,$0008,ab02,$0018
  738.     dc.w gb02,$0004,f02,$0008,gb02,$000c,gb02,$000c,bb02,$000c
  739.     dc.w eb02,$0010,db02,$0008,f02,$000c,f02,$0004,f02,$000c
  740.     dc.w gb02,$000c,ab02,$0010,bb02,$0004,gb02,$0004,bb02,$000c
  741.     dc.w bb01,$0004,f02,$000c,gb02,$000c,bb02,$0008,ab02,$000c
  742.     dc.w db03,$000c,db03,$0008,ab02,$000c,db03,$000c,ab02,$0010-q
  743.     dc.w    end_patt
  744.  
  745.  
  746. hatpatt
  747.  
  748.     hat
  749.     dc.w    h-3,sq,h,sq,h,sq,h,sq
  750.     dc.w    h+10,sq,h,sq,h,sq,h,sq
  751.     dc.w    h,sq,h,sq,h-5,sq,h,sq
  752.     dc.w    h,sq,h+3,sq,h,sq,h,sq
  753.     dc.w    end_patt
  754.  
  755.  
  756. ;-------------------
  757. pr:
  758.     dc.w    new_env
  759.     dc.l    rest_env-b1
  760.     dc.w    c03,cr*4
  761.     dc.w     end_patt
  762.  
  763.  
  764.     octn
  765. bp
  766.  
  767.     bass_sound
  768.  
  769.     dc.w eb02,$000c,bb02,$000c,eb03,$0010,db03,$0008,ab02,$0010
  770.     dc.w b02,$000c,gb02,$000c,eb02,$0008,b02,$000c,b02,$000c
  771.     dc.w db03,$0008,eb02,$000c,bb02,$000c,eb03,$0010,db03,$0008
  772.     dc.w ab02,$0010,b02,$000c,gb02,$000c,eb02,$0008,b02,$000c
  773.     dc.w b02,$000c,db03,$0008,ab01,$000c,ab01,$000c,ab01,$0008
  774.     dc.w ab01,$000c,ab01,$000c,ab01,$0008,bb01,$000c,bb01,$000c
  775.     dc.w bb01,$0008,bb01,$000c,bb01,$000c,bb01,$0008,b01,$000c
  776.     dc.w b01,$000c,b01,$0008,b01,$000c,b01,$000c,b01,$0008
  777.     dc.w db02,$0008,db02,$0008,ab01,$0008,ab02,$0008,f02,$000c
  778.     dc.w gb02,$000c,ab02,$0008,eb02,$0008,eb03,$0004,db03,$0004
  779.     dc.w eb02,$0008,eb02,$0008,eb02,$000c,gb02,$000c,eb02,$0008
  780.     dc.w bb01,$0008,bb01,$000c,bb01,$0004,bb01,$0008,bb01,$000c
  781.     dc.w f02,$000c,db02,$0008,ab01,$0008,ab01,$0008,ab01,$0008
  782.     dc.w ab01,$0008,ab01,$000c,b01,$0004,ab01,$0008,eb02,$0008
  783.     dc.w db02,$0008,db02,$0008,db02,$0008,db02,$0008,db02,$000c
  784.     dc.w eb02,$000c,f02,$0008,eb02,$0008,eb03,$0004,db03,$0004
  785.     dc.w eb02,$0008,eb02,$0008,eb02,$000c,gb02,$000c,eb02,$0008
  786.     dc.w bb01,$0008,bb01,$000c,bb01,$0004,bb01,$0008,bb01,$000c
  787.     dc.w f02,$000c,db02,$0008,ab01,$0008,ab01,$0008,ab01,$0008
  788.     dc.w ab01,$0008,ab01,$000c,b01,$0004,ab01,$0008,eb02,$0008
  789.     dc.w db02,$0008,db02,$0008,db02,$0008,db02,$0008,db02,$000c
  790.     dc.w eb02,$000c,f02,$0008,eb02,$0008,eb02,$0008,gb02,$0008
  791.     dc.w eb02,$0008,ab02,$0008,eb02,$0004,bb02,$0008,eb02,$0004
  792.     dc.w ab02,$0008,eb02,$0008,eb02,$0008,gb02,$0008,eb02,$0008
  793.     dc.w ab02,$0008,eb02,$0004,bb02,$0008,eb02,$0004,ab02,$0008
  794.     dc.w eb02,$0008,eb02,$0008,gb02,$0008,eb02,$0008,ab02,$0008
  795.     dc.w eb02,$0004,bb02,$0008,eb02,$0004,ab02,$0008,eb02,$0008
  796.     dc.w eb02,$0008,gb02,$0008,eb02,$0008,ab02,$0008,eb02,$0004
  797.     dc.w bb02,$0008,eb02,$0004,ab02,$0008,eb02,$0008,eb02,$0008
  798.     dc.w gb02,$0008,eb02,$0008,ab02,$0008,eb02,$0004,bb02,$0008
  799.     dc.w eb02,$0004,ab02,$0008,eb02,$0008,eb02,$0008,gb02,$0008
  800.     dc.w eb02,$0008,ab02,$0008,eb02,$0004,bb02,$0008,eb02,$0004
  801.     dc.w ab02,$0008,eb02,$0008,eb02,$0008,gb02,$0008,eb02,$0008
  802.     dc.w ab02,$0008,eb02,$0004,bb02,$0008,eb02,$0004,ab02,$0008
  803.     dc.w eb02,$0008,eb02,$0008,gb02,$0008,eb02,$0008,ab02,$0008
  804.     dc.w eb02,$0004,bb02,$0008,eb02,$0004,ab02,$0008,ab01,$0008
  805.     dc.w ab02,$0008,ab01,$0008,bb01,$0010,bb02,$0008,bb01,$0008
  806.     dc.w b01,$0010,b01,$0008,b01,$0008,b01,$0008,b01,$0008
  807.     dc.w b01,$0008,b01,$0008,b01,$0008,b01,$0008,b02,$0008
  808.     dc.w b01,$0008,db02,$0010,db03,$0008,db02,$0008,eb02,$0010
  809.     dc.w eb02,$0008,eb02,$0008,eb02,$0008,eb02,$0008,eb02,$0008
  810.     dc.w eb02,$0008,eb02,$0008,eb02,$0008,eb03,$0008,eb02,$0008
  811.     dc.w f02,$0010,f03,$0008,f02,$0008,gb02,$0010,gb03,$0008
  812.     dc.w gb02,$0008,ab01,$0008,ab01,$0008,ab01,$0008,ab01,$0008
  813.     dc.w db02,$0010,db02,$0008,db02,$0008,db02,$0008,db02,$0008
  814.     dc.w db02,$0008,db02,$0008,db02,$0008,b01,$0008,b01,$0008
  815.     dc.w b01,$0008,db02,$0010,db02,$0008,db02,$0008,db02,$0008
  816.     dc.w end_patt
  817.  
  818.     octn
  819.  
  820.  
  821. tune1
  822.  
  823.     lead_loop
  824.  
  825.     dc.w modon,1,1,2,2,6,6
  826.  
  827.     dc.w db01,$0004,eb01,$002c,db01,$0010,b00,$0030,db01,$0010
  828.     dc.w db01,$0004,eb01,$002c,db01,$0010,b00,$0030,db01,$0010
  829.     dc.w ab00,$003c,ab00,$0004,bb00,$0040,bb00,$0004,b00,$003c
  830.     dc.w db01,$0018,bb00,$0004,bb00,$0004,db01,$000c,db01,$0004
  831.     dc.w eb01,$0008,db01,$0008,f02,$0028,bb01,$0008,db02,$0008
  832.     dc.w eb02,$0008,e02,$0004,f02,$000c,gb02,$0008,f02,$0018
  833.     dc.w db02,$0010,eb02,$0020,eb02,$000c,f02,$000c,gb02,$0008
  834.     dc.w db02,$000c,ab02,$0004,bb02,$0008,ab02,$0008,gb02,$000c
  835.     dc.w f02,$000c,gb02,$0008,f02,$0018,gb02,$0004,f02,$0004
  836.     dc.w eb02,$0018,bb01,$0008,db02,$000c,f02,$000c,bb02,$0008
  837.     dc.w bb02,$000c,b02,$000c,bb02,$0008,ab02,$0018,gb02,$0018
  838.     dc.w f02,$0010,f02,$0010,gb02,$0008,f02,$0004,ab02,$000c
  839.     dc.w gb02,$0008,f02,$0010,f02,$0028,bb01,$0008,db02,$0008
  840.     dc.w eb02,$0008,eb02,$0004,f02,$000c,gb02,$0008,f02,$0018
  841.     dc.w db02,$0010,eb02,$0020,eb02,$000c,f02,$000c,gb02,$0008
  842.     dc.w db02,$000c,ab02,$0004,bb02,$0008,ab02,$0008,gb02,$000c
  843.     dc.w f02,$000c,gb02,$0008,f02,$0018,gb02,$0004,f02,$0004
  844.     dc.w eb02,$0018,bb01,$0008,db02,$000c,f02,$000c,bb02,$0008
  845.     dc.w bb02,$000c,b02,$000c,db03,$0008,c03,$0004,db03,$000c
  846.     dc.w db03,$0008,b02,$0010,b02,$0010,bb02,$0008,f02,$0010
  847.     dc.w gb02,$0008,ab02,$0010,f02,$0008,gb02,$0008,ab02,$0008
  848.     dc.w ab02,$0004,bb02,$0004,ab02,$0008,gb02,$0008,f02,$0010
  849.     dc.w gb02,$0008,ab02,$0008,f02,$0010,eb02,$0020,eb02,$0008
  850.     dc.w f02,$0008,gb02,$0008,f02,$0004,gb02,$0004,ab02,$0008
  851.     dc.w bb02,$0008,ab02,$0010,gb02,$0008,f02,$0008,db02,$0010
  852.     dc.w eb02,$0008,eb02,$0058,db03,$0020,db03,$0018,eb03,$0018
  853.     dc.w ab02,$0018,ab02,$0010,db03,$0010,ab02,$0010,bb02,$0018
  854.     dc.w ab02,$0028
  855.     dc.w end_patt
  856.  
  857.  
  858.  
  859.  
  860. ;------------------------
  861. iff    equ 104
  862.  
  863.     ; sample parameters
  864.  
  865.  
  866. abassp
  867.         dc.w 1  
  868.              dc.l (abassd+iff)-b1
  869.              dc.w (2822)/2
  870.              dc.l (abassd+iff+2692)-b1
  871.              dc.w (2822-2692)/2
  872.  
  873. ;abassp
  874.         dc.w 1  
  875.              dc.l (abassd+iff)-b1
  876.              dc.w (2992-iff)/2
  877.              dc.l restd-b1
  878.              dc.w 16/2
  879.  
  880.  
  881. hguitp
  882.         dc.w 1  
  883.              dc.l hguitd-b1
  884.              dc.w 4010/2
  885.              dc.l (hguitd+1284)-b1
  886.              dc.w (4010-1284)/2
  887.  
  888.  
  889. sinep
  890.         dc.w 1  
  891.              dc.l sine_datad-b1
  892.              dc.w 16
  893.              dc.l sine_datad-b1
  894.              dc.w 16
  895.  
  896. sine1p
  897.         dc.w 1  
  898.              dc.l sine_data1d-b1
  899.              dc.w 16
  900.              dc.l sine_data1d-b1
  901.              dc.w 16
  902.  
  903.  
  904. snarep
  905.         dc.w 1  
  906.              dc.l (snared)-b1
  907.              dc.w (2240)/2 
  908.              dc.l restd-b1
  909.              dc.w 16/2
  910.  
  911. kickp
  912.         dc.w 1  
  913.              dc.l (kickd)-b1
  914.              dc.w (2272)/2         ;2272
  915.              dc.l restd-b1
  916.              dc.w 16/2
  917.  
  918. hatp
  919.         dc.w 1  
  920.              dc.l (hatd)-b1
  921.              dc.w (2983)/2 
  922.              dc.l restd-b1
  923.              dc.w 16/2
  924.  
  925. clapp
  926.         dc.w 1  
  927.              dc.l (hatd)-b1
  928.              dc.w (2568)/2 
  929.              dc.l restd-b1
  930.              dc.w 16/2
  931.  
  932.  
  933.  
  934. synmajp
  935.         dc.w 1  
  936.              dc.l (synmajd)-b1
  937.              dc.w (4204/2)/2
  938.              dc.l restd-b1
  939.              dc.w 16/2
  940.  
  941. synminp
  942.         dc.w 1  
  943.              dc.l (synmind)-b1
  944.              dc.w ((4032/2))/2 
  945.              dc.l restd-b1
  946.              dc.w 16/2
  947.  
  948. clavep
  949.         dc.w 1  
  950.              dc.l (claved+iff)-b1
  951.              dc.w ((2320/2))/2 
  952.              dc.l restd-b1
  953.              dc.w 16/2
  954.  
  955. tambp
  956.         dc.w 1  
  957.              dc.l (tambd+iff)-b1
  958.              dc.w ((1457/2))/2 
  959.              dc.l restd-b1
  960.              dc.w 16/2
  961.  
  962.  
  963.  
  964. rimp
  965.         dc.w 1  
  966.              dc.l (rimd+iff)-b1
  967.              dc.w ((400/2))/2 
  968.              dc.l restd-b1
  969.              dc.w 16/2
  970.  
  971. chinese_synp
  972.         dc.w 1  
  973.              dc.l (chinese_synd+iff)-b1
  974.              dc.w (8703/2)/2 
  975.              dc.l restd-b1
  976.              dc.w 16/2
  977.  
  978.  
  979. lead_loopp
  980.         dc.w 1  
  981.              dc.l (leadloopd)-b1
  982.              dc.w (4658)/2 
  983.              dc.l (leadloopd+4146)-b1
  984.              dc.w (4658-4146)/2 
  985.  
  986. ;----------------------------
  987. envelopes:
  988.  
  989.  
  990. rest_env:            dc.w 0,0,0,0,0,0,0,0,255
  991. flute_env:            dc.w 0,48,255
  992. dloop_env:            dc.w 0,38,255
  993. strings_env:            dc.w 0,35,255
  994. fhorn_env:            dc.w 0,38,255
  995. abass_env:            dc.w 0,45,255
  996. piano_env:            dc.w 0,48,255
  997. hato_env:            dc.w 0,28,255
  998. hatc_env:            dc.w 0,48,255
  999. hato_envl:            dc.w 0,48,255
  1000. hatc_envl:            dc.w 0,48,255
  1001.  
  1002. clave_env:            dc.w 0,40,255
  1003. rim_env:            dc.w 0,28,255
  1004.  
  1005.  
  1006.  
  1007.  
  1008. flute_envq:            dc.w 0,18,255
  1009. sine_env_short:            dc.w 0,40,39,37,36,34,0,28,25,22,20,0
  1010.                 dc.w 18,17,16,15,14,13,12,11,0,10
  1011.                 dc.w 9,8,7,6,5,4,3,2,1,0,255
  1012.  
  1013. sine_env_vshort:        dc.w 30,25,0,15,10,8,7,255
  1014.  
  1015. sine_env:            dc.w 25,24,23,22,21,20
  1016.                 dc.w 15,14,13,12,0,9,8,7,6,5,4,0,255
  1017. syn1_envs
  1018. sine_envl:            dc.w 60,60,60,60,0,40,30,20
  1019.                 dc.w 17,16,15,14,13,12,11,10,9,8,7,6,5,4,3,2,1,0,255
  1020.  
  1021. snare_env            dc.w 0,15,255
  1022. kick_env            dc.w 0,29,255
  1023. hat_env                dc.w 0,6,255
  1024. clap_env            dc.w 0,38,255
  1025. tamb_env            dc.w 0,20,255
  1026.  
  1027. sine_envloop            dc.w 0,25,255
  1028.  
  1029. chord_env:            dc.w 0,64,255
  1030.  
  1031.  
  1032. hguit_env:            dc.w 0,10,255
  1033. syn1_env:            dc.w 0,52,255
  1034. egs_env:            dc.w 0,22,255
  1035. synmaj_env:            dc.w 0,20,255
  1036. synmin_env:            dc.w 0,19,255
  1037. ;leadloop_env:            dc.w 0,28,255
  1038. leadloop_env
  1039. leadlooped_env            dc.w 0,60
  1040.                 dc.w  60,255
  1041.  
  1042. leadloop_envq
  1043.                 dc.w  40,255
  1044.  
  1045.  
  1046.  
  1047.  
  1048. chinese_syn_env            dc.w 0,30
  1049.                 dc.w  30,255
  1050.  
  1051.  
  1052. lead_env_short            
  1053.                 dc.w 48,45,43,42,40,35,32,28,18,12,8,5,0,255
  1054.  
  1055.  
  1056.  
  1057. ;**************************************************
  1058.  
  1059. ;;THE FX SAMPLES ARE PULLED IN HERE...THis section can be anywhere
  1060. ;; in lower memory,and in any order
  1061.  
  1062.  
  1063. ;abassd            incbin c:sf2d/inst/Cbassloopn.sam     ;bass+drum
  1064. abassd            incbin c:sf2d/inst/fuzzbass.sam 
  1065. snared            incbin c:sf2d/inst/snare.sam 
  1066. kickd            incbin c:sf2d/inst/kick2.sam 
  1067. hatd            incbin c:sf2d/inst/hat2.sam 
  1068. clapd            ;incbin c:sf2d/inst/clap.sam 
  1069. tambd            ;incbin c:sf2d/inst/tamb.sam 
  1070. synmajd            ;incbin c:sf2d/inst/synmajl.sam 
  1071. synmind            ;incbin c:sf2d/inst/synminl.sam 
  1072. hguitd            incbin c:sf2d/inst/hguitnn.sam 
  1073. leadloopd        incbin c:sf2d/inst/leadloopn.sam 
  1074. claved            ;incbin c:sf2d/inst/clave.sam 
  1075. rimd            ;incbin c:sf2d/inst/rim.sam 
  1076. chinese_synd        ;incbin c:sf2d/inst/chinese_syn.sam
  1077.  
  1078.  
  1079.  
  1080.  
  1081. test1p
  1082.         dc.w 1  
  1083.              dc.l (test1d+iff)-b1
  1084.              dc.w (test1_len)/2
  1085.              ;dc.l (test1d+iff+126)-b1
  1086.              ;dc.w (test1_len-126)/2
  1087.  
  1088.              dc.l restd-b1
  1089.              dc.w 16/2
  1090.  
  1091.  
  1092. test2p
  1093.         dc.w 1  
  1094.              dc.l (test2d+iff)-b1
  1095.              dc.w (test2_len)/2
  1096.              dc.l restd-b1
  1097.              dc.w 16/2
  1098.  
  1099. test2ps
  1100.         dc.w 1  
  1101.              dc.l (test2d+iff)-b1
  1102.              dc.w (test2_len)/2
  1103.              dc.l restd-b1
  1104.              dc.w 16/2
  1105.  
  1106.  
  1107.  
  1108.  
  1109. test1_len    equ    7571
  1110. test2_len    equ    3452
  1111.  
  1112. test1_env:            dc.w 0,35,255
  1113. test1_env_soft:            dc.w 0,26,255
  1114. test2_env:            dc.w 0,18,255
  1115.  
  1116.  
  1117. test1d            ;incbin c:sf2d/inst/acoustic.sam 
  1118. test2d            ;incbin c:sf2d/inst/vibe.sam
  1119.  
  1120.  
  1121. ;********************************************
  1122.  
  1123.  
  1124. restd:
  1125. rest_data:
  1126.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1127.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1128.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1129.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1130.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1131.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1132. sine_datad:
  1133.              dc.w 127,80,50,25,0,-25,-50,-100,-127
  1134.              dc.w -127,-100,-50,-35,0,35,50,80,127
  1135.              dc.w 127,80,50,25,0,-25,-50,-100,-127
  1136.              dc.w -127,-100,-50,-35,0,35,50,80,127
  1137.  
  1138.  
  1139. sine_data1d:
  1140.              dc.w 127,120,118,110,100,99,88,77,66,55,44,30,20,5,4,0
  1141.              dc.w 0,-3,-5,-8,-10,-4,-19,-22,-24,-28,-30,-35,-40,-50,-70,-100
  1142.              dc.w 127,120,118,110,100,99,88,77,66,55,44,30,20,5,4,0
  1143.              dc.w 0,-3,-5,-8,-10,-4,-19,-22,-24,-28,-30,-35,-40,-50,-70,-100
  1144.              dc.w 127,120,118,110,100,99,88,77,66,55,44,30,20,5,4,0
  1145.              dc.w 0,-3,-5,-8,-10,1-4,-19,-22,-24,-28,-30,-35,-40,-50,-70,-100
  1146.  
  1147.  
  1148.  
  1149.  
  1150. endb1
  1151. ;*************************************************
  1152.  
  1153.     end
  1154.  
  1155.  
  1156.  
  1157.     dc.w modon,1,1,8,8,6,6
  1158.     dc.w pbend,down,1,60000,32
  1159.  
  1160.  
  1161.  
  1162.