home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Super Street …ghter II PC Format Disk 2 / Lowe_SuperStreetFighterIIPCFormatDisk2.img / DEEJAY.DAT < prev    next >
Encoding:
Text File  |  1995-12-02  |  18.5 KB  |  1,167 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 0   ; 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 1,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. cr  set   12
  455. q set  cr/2
  456. sq set q/2
  457. dsq set sq/4
  458.  
  459. tq set      4
  460. tq set   4
  461.  
  462. tsq1 set  2
  463. tsq2 set 2
  464.  
  465. tcr set 8
  466. tcr set 8
  467.  
  468.  
  469. oc    set    cr
  470. o6    set    q
  471. i8    set    cr*2
  472. l8    set    cr*2
  473.  
  474.  
  475.  
  476. sb1:
  477.     dc.l    bp-b1
  478.  
  479.       dc.l     0,end_song
  480.  
  481. sb2:
  482.  
  483.     dc.l    tune1-b1
  484.  
  485.         DC.L    0,end_song
  486.  
  487. sb3:
  488.  
  489.  
  490.     dc.l    ds-b1
  491.     dc.l    dp-b1,dp-b1,dp-b1,dp-b1,dp-b1,dp-b1
  492.     dc.l    dpb14-b1    
  493.     dc.l    dpx-b1
  494.     dc.l    dpb17-b1    
  495.     dc.l    dpx-b1
  496.  
  497.     dc.l    dpb14-b1    
  498.  
  499.     dc.l    dpend-b1
  500.  
  501.  
  502.  
  503.     dc.l     0,end_song
  504.  
  505. sb4:
  506.     dc.l    pattch4-b1
  507.  
  508.  
  509.     dc.l    dhstart-b1
  510.     dc.l    dh-b1,dh-b1,dh-b1,dh-b1,dh-b1
  511.     dc.l    dh-b1,dh-b1
  512.     dc.l    dhend-b1
  513.  
  514.     dc.l     0,end_song
  515.  
  516.  
  517. ;-----------------------------------------------
  518.  
  519. dh
  520.     hat
  521.     dc.w    h,sq,h+30,sq,h,sq,h,sq
  522.     dc.w    h,sq,h,sq,h,sq,h,sq
  523.     dc.w    h,sq,h,sq,h,sq,h+10,sq
  524.     dc.w    h-10,sq,h,sq,h,sq,h,sq
  525.     dc.w    end_patt
  526.  
  527. dhstart
  528.     dc.w    rest,cr
  529.     dc.w    end_patt
  530.  
  531.  
  532. dhend
  533.     hat
  534.     dc.w    h,sq,h,sq,h,sq,h,sq
  535.     dc.w    h,sq,h,sq
  536.     snare
  537.  
  538.     dc.w    r4,q
  539.     dc.w    end_patt
  540.  
  541.  
  542.  
  543.  
  544. ds
  545.  
  546.     snare
  547.     
  548.     dc.w    s,tq,s,tq,s,tq
  549.     dc.w    r8,tq,r8,tq,r8,tq
  550.     kick
  551.     dc.w    k,cr
  552.     snare
  553.     dc.w    s,sq,s,sq
  554.  
  555.     dc.w    end_patt
  556.  
  557. dp
  558.     kick
  559.     dc.w    rest,sq,k,sq
  560.     hat
  561.     dc.w    h,sq
  562.     kick
  563.     dc.w     k,q,k,sq
  564.     snare
  565.     dc.w    s,q
  566.     hat
  567.     dc.w    h,sq
  568.     kick
  569.     dc.w    k,sq,k,q+sq,k,sq
  570.     snare
  571.     dc.w    s,q
  572.     hat
  573.     dc.w    h,sq
  574.     kick
  575.     dc.w    k,sq,k,sq
  576.     snare
  577.     dc.w    s,sq
  578.     hat
  579.     dc.w    h,sq
  580.     kick
  581.     dc.w    k,sq
  582.     snare
  583.     dc.w    s,q
  584.     kick
  585.     dc.w    k,sq,k,sq,k,q+sq,k,sq,k,sq
  586.     snare
  587.     dc.w    s,sq
  588.     dc.w    end_patt
  589.  
  590.  
  591. dpx
  592.     kick
  593.     dc.w    k,sq
  594.     hat
  595.     dc.w    h,sq,h,sq
  596.     kick
  597.     dc.w     k,q,k,sq
  598.     snare
  599.     dc.w    s,sq
  600.     hat
  601.     dc.w    h,sq,h,sq
  602.     kick
  603.     dc.w    k,sq,k,q+sq,k,sq
  604.     snare
  605.     dc.w    s,sq
  606.     hat
  607.     dc.w    h,sq,h,sq
  608.     kick
  609.     dc.w    k,sq,k,sq
  610.     snare
  611.     dc.w    s,sq
  612.     hat
  613.     dc.w    h,sq
  614.     kick
  615.     dc.w    k,sq
  616.     snare
  617.     dc.w    s,q
  618.     kick
  619.     dc.w    k,sq,k,sq,k,q+sq
  620.     hat
  621.     dc.w    h,sq,h,sq
  622.     snare
  623.     dc.w    s,sq
  624.     dc.w    end_patt
  625.  
  626.  
  627.  
  628.  
  629.  
  630. dpb14
  631.     snare
  632.     dc.w    s,cr,s,sq,s,sq,s,cr
  633.  
  634.     kick
  635.     dc.w     k,q+sq,k,sq,k,sq
  636.  
  637.     snare
  638.     dc.w    s,sq
  639.  
  640.     dc.w    end_patt
  641.  
  642. dpb17
  643.  
  644.     kick
  645.     dc.w     rest,sq,k,sq,k,sq
  646.     snare
  647.     dc.w    s,sq,s,sq,s,sq,s,q+sq
  648.     kick
  649.     dc.w     k,sq,k,q+sq,k,sq,k,sq
  650.     snare
  651.     dc.w    s,sq
  652.     dc.w    end_patt
  653.  
  654.  
  655.  
  656.  
  657.     dc.w    end_patt
  658.  
  659.  
  660.  
  661.  
  662. dpend
  663.  
  664.     snare
  665.     dc.w    s,tq,s,tcr,rest,cr
  666.     dc.w    s,sq,s,sq,s,sq,s,sq
  667.     dc.w    s,sq,s,sq,s,sq,s,sq
  668.     dc.w    end_patt
  669.  
  670.  
  671.     octn
  672.  
  673.  
  674. pattch4
  675.  
  676.     dc.w    filter_off
  677.  
  678.     lead_loop
  679.  
  680.  
  681.     dc.w e03,$0002,f03,$0002,e03,$0004,d03,$0004
  682.     dc.w e03,$0004,d03,$0004,bb02,$0004
  683.  
  684.  
  685.     test_sound2
  686.  
  687.     dc.w b01,$0003,gb02,$0003
  688.     dc.w b02,$0003,gb03,$0006,b01,$0003,gb03,$0006,db02,$0003
  689.     dc.w e03,$0006,e02,$0003,e03,$0009,db02,$0003,d03,$0009
  690.     dc.w d03,$0006,b01,$0003,d03,$0006,db02,$0003,e03,$0006
  691.     dc.w e02,$0003,e03,$0009,db02,$0003,b01,$0003,gb02,$0003
  692.     dc.w b02,$0003,gb03,$0006,b01,$0003,gb03,$0006,db02,$0003
  693.     dc.w e03,$0006,e02,$0003,e03,$0009,db02,$0003,d03,$0009
  694.     dc.w d03,$0006,b01,$0003,d03,$0006,db02,$0003,e03,$0006
  695.     dc.w e02,$0003,e03,$0009,db02,$0003,b01,$0003,gb02,$0003
  696.     dc.w b02,$0003,gb03,$0006,b01,$0003,gb03,$0006,db02,$0003
  697.     dc.w e03,$0006,e02,$0003,bb02,$0009,db02,$0004,d03,$0008
  698.     dc.w d03,$0006,b01,$0003,d03,$0006,db02,$0003,db03,$0006
  699.     dc.w e02,$0003,e03,$0009,db02,$0003,b01,$0003,gb02,$0003
  700.     dc.w b02,$0003,gb03,$0006,b01,$0003,gb03,$0006,db02,$0003
  701.     dc.w e03,$0006,e02,$0003,bb02,$0009,db02,$0003,e03,$0009
  702.     dc.w e03,$0006,a02,$0003,db03,$0006,g02,$0003,g03,$0006
  703.     dc.w b01,$0004,db03,$0008,gb02,$0003,b01,$0003,gb02,$0003
  704.     dc.w b02,$0003,gb03,$0006,b01,$0003,gb03,$0006,db02,$0003
  705.     dc.w e03,$0006,e02,$0003,bb02,$0009,db02,$0004,d03,$0008
  706.     dc.w d03,$0006,b01,$0003,d03,$0006,db02,$0003,db03,$0006
  707.     dc.w e02,$0003,e03,$0009,db02,$0003,b01,$0003,gb02,$0003
  708.     dc.w b02,$0003,gb03,$0006,b01,$0003,gb03,$0006,db02,$0003
  709.     dc.w e03,$0006,e02,$0003,bb02,$0009,db02,$0003,e03,$0009
  710.     dc.w e03,$0006,a02,$0003,db03,$0006,g02,$0003,g03,$0006
  711.     dc.w b01,$0004,db03,$0008,gb02,$0003,b02,$0009,b02,$0009
  712.     dc.w b02,$0012-q
  713.  
  714.  
  715.     dc.w    end_patt
  716.  
  717.     oct1d
  718.     lead_loop
  719.     dc.w modon,1,1,2,2,6,6
  720.  
  721.  
  722.     dc.w    rest,cr*100
  723.  
  724.     dc.w f02,$000c,e03,$0030,e03,$0030,gb03,$0024
  725.     dc.w f03,$000c,e03,$0030,e03,$0030,f03,$0009,gb03,$0006
  726.     dc.w ab03,$0006,ab03,$0006,bb03,$0018,ab01,$0003,ab01,$0003
  727.     dc.w gb02,$0003,gb02,$0003,d02,$0003,d02,$0003,gb03,$0002
  728.     dc.w gb03,$002b
  729.  
  730.     dc.w end_patt
  731.  
  732.  
  733.  
  734. ;-------------------
  735. pr:
  736.     dc.w    new_env
  737.     dc.l    rest_env-b1
  738.     dc.w    c03,cr*4
  739.     dc.w     end_patt
  740.  
  741.     octn
  742.  
  743. bp                            ;had q rest on front
  744.  
  745.     bass_sound
  746.  
  747.     dc.w f02,$0004,e02,$0004,d02,$0004,e02,$0004
  748.     dc.w d02,$0004,bb01,$0004,b01,$0006,b01,$0004,d02,$0008
  749.     dc.w gb02,$0010,db02,$0008,gb02,$000c,b01,$0004,d02,$0008
  750.     dc.w gb02,$0010,db02,$0008,gb01,$0006,b01,$0006,b01,$0004
  751.     dc.w d02,$0008,gb02,$0010,db02,$0008,gb02,$000c,b01,$0004
  752.     dc.w d02,$0008,gb02,$0010,db02,$0008,gb01,$0006,b01,$0006
  753.     dc.w b01,$0004,d02,$0008,gb02,$0010,db02,$0008,gb02,$000c
  754.     dc.w b01,$0004,d02,$0008,gb02,$0010,db02,$0008,gb02,$0006
  755.     dc.w b01,$0006,b01,$0004,d02,$0008,gb02,$0010,db02,$0008
  756.     dc.w gb02,$000c,a01,$0004,db02,$0008,e02,$0010,g02,$0008
  757.     dc.w gb02,$0006,b01,$0006,b01,$0004,d02,$0008,gb02,$0010
  758.     dc.w db02,$0008,gb02,$000c,b01,$0004,d02,$0008,gb02,$0010
  759.     dc.w db02,$0008,gb02,$0006,b01,$0006,b01,$0004,d02,$0008
  760.     dc.w gb02,$0010,db02,$0008,gb02,$000c,a01,$0004,db02,$0008
  761.     dc.w e02,$0010,g02,$0008,gb02,$0006,b01,$0006,b01,$0004
  762.     dc.w b01,$0008,b01,$0012,bb01,$000c,a01,$000a,e02,$0008
  763.     dc.w a02,$0012,a01,$0006,ab01,$0006,gb01,$000a,db02,$0008
  764.     dc.w gb02,$0012,gb02,$0006,f02,$0006,b01,$000a,gb02,$0008
  765.     dc.w b02,$0012,bb01,$000c,a01,$000a,e02,$0008,a02,$0012
  766.     dc.w a01,$0006,ab01,$0006,gb01,$000a,db02,$0008,gb02,$0012
  767.     dc.w gb02,$0006,f02,$0006,bb01,$000a,b01,$0006,db02,$0006
  768.     dc.w d02,$0006
  769.  
  770.     dc.w pbend,up,8,d03,1
  771.  
  772.  
  773.     dc.w ab01,$0056
  774.  
  775.     dc.w end_patt
  776.  
  777.     octn
  778.  
  779. tune1
  780.  
  781.  
  782.     lead_loop_short_env
  783.  
  784.     dc.w e02,$0001,f02,$0001,f02,$0002,e02,$0002
  785.     dc.w e02,$0002,d02,$0002,d02,$0002,e02,$0002,e02,$0002
  786.     dc.w d02,$0002,d02,$0002,bb01,$0002,bb01,$0002,b01,$0012
  787.     dc.w b01,$0003,a01,$0001,bb01,$0001,b01,$0004,db02,$0009
  788.     dc.w db02,$000d,gb01,$0008,gb02,$0009,gb02,$0009,db02,$0009
  789.     dc.w db02,$000c,b01,$0015,a01,$0001,bb01,$0001,b01,$0004
  790.     dc.w db02,$0009,db02,$000d,gb01,$0008,gb02,$0009,gb02,$0009
  791.     dc.w db02,$0009,db02,$000c
  792.  
  793.     octn
  794.  
  795.     test_sound1
  796.  
  797.     dc.w b01,$0003,gb02,$0006,e02,$0003
  798.     dc.w d02,$0006,e02,$0006,gb02,$0006,db02,18
  799.  
  800.  
  801.     dc.w b01,$0003,e02,$0003,d02,$0006,db02,$0006,e02,$0006
  802.     dc.w gb01,24,db02,$0003,d02,$0003,gb02,$0006
  803.     dc.w e02,$0006,d02,$0006,d02,$0006,db02,$0006,db02,$0009
  804.     dc.w e02,$0006,e02,$0003,d02,$0006,db02,$0006,e02,$0006
  805.     dc.w gb02,$000c,gb01,$000f,d02,$0006,e02,$0003,d02,$0006
  806.     dc.w e02,$0006,gb02,$0006,db02,$0012,b01,$0003,e02,$0003
  807.     dc.w d02,$0006,db02,$0006,e02,$0006,gb01,$0018,gb01,$0003
  808.     dc.w b01,$0003,d02,$0006,e02,$0006,gb02,$0006,e02,$0006
  809.     dc.w db02,$0006,db02,$0009,e02,$0006,e02,$0003,d02,$0006
  810.     dc.w b01,$0006,e02,$0006,gb02,$0015,f02,$0001,gb02,$0001
  811.     dc.w g02,$0001,ab02,$0001,a02,$0001,bb02,$0001,b02,$0009
  812.     dc.w b02,$0009,b02,$0012-sq        ;,d02,$000c
  813.  
  814.  
  815.  
  816.     lead_loop_short_env
  817.  
  818.     dc.w    d02,12
  819.  
  820.  
  821.  
  822.     dc.w db03,$0006,e03,$0003
  823.  
  824.     dc.w d03,$0006,e03,$0006,db03,$0012,db03,$0003,d03,$0003
  825.     dc.w e03,$0003,gb03,$0003,f03,$0003,db03,$0003,db03,$0006
  826.     dc.w bb02,$0006,bb02,$0012,bb02,$0003,b02,$0003,db03,$0003
  827.     dc.w d03,$0003,b02,$0003,gb02,$001e,bb02,$000c,db03,$0006
  828.     dc.w e03,$0003,d03,$0006,e03,$0006,db03,$0012,db03,$0003
  829.     dc.w d03,$0003,e03,$0003,f03,$0003,gb03,$0003,g03,$0003
  830.     dc.w db03,$0006,bb02,$0006,bb02,$0012,bb02,$0003,b02,$0003
  831.     dc.w db03,$0003,e03,$0003,d03,$0003,db03,$0003,db03,$0006
  832.     dc.w e03,$0006,f03,$0006,gb03,$001b,d03,$0006,d03,$0006
  833.  
  834.     dc.w    d03,3
  835.  
  836.     lead_loop
  837.  
  838.     dc.w pbend,down,10,60000,1
  839.     dc.w d02,$002a+sq
  840.  
  841.     dc.w    pboff
  842.  
  843.     dc.w end_patt
  844.  
  845.  
  846.  
  847.  
  848.  
  849.  
  850. ;------------------------
  851. iff    equ 104
  852.  
  853.     ; sample parameters
  854.  
  855.  
  856. abassp
  857.         dc.w 1  
  858.              dc.l (abassd+iff)-b1
  859.              dc.w (2822)/2
  860.              dc.l (abassd+2692+iff)-b1
  861.              dc.w (2822-2692)/2
  862.  
  863. ;abassp                ;slap
  864.         dc.w 1  
  865.              dc.l (abassd+iff)-b1
  866.              dc.w (5632-iff)/2
  867.              dc.l restd-b1
  868.              dc.w 16/2
  869.  
  870.  
  871. hguitp
  872.         dc.w 1  
  873.              dc.l hguitd-b1
  874.              dc.w 4010/2
  875.              dc.l (hguitd+1284)-b1
  876.              dc.w (4010-1284)/2
  877.  
  878.  
  879. sinep
  880.         dc.w 1  
  881.              dc.l sine_datad-b1
  882.              dc.w 16
  883.              dc.l sine_datad-b1
  884.              dc.w 16
  885.  
  886. sine1p
  887.         dc.w 1  
  888.              dc.l sine_data1d-b1
  889.              dc.w 16
  890.              dc.l sine_data1d-b1
  891.              dc.w 16
  892.  
  893.  
  894. snarep
  895.         dc.w 1  
  896.              dc.l (snared)-b1
  897.              dc.w (2240)/2 
  898.              dc.l restd-b1
  899.              dc.w 16/2
  900.  
  901. kickp
  902.         dc.w 1  
  903.              dc.l (kickd)-b1
  904.              dc.w (2272)/2         ;2272
  905.              dc.l restd-b1
  906.              dc.w 16/2
  907.  
  908. hatp
  909.         dc.w 1  
  910.              dc.l (hatd)-b1
  911.              dc.w (2983)/2 
  912.              dc.l restd-b1
  913.              dc.w 16/2
  914.  
  915. clapp
  916.         dc.w 1  
  917.              dc.l (hatd)-b1
  918.              dc.w (2568)/2 
  919.              dc.l restd-b1
  920.              dc.w 16/2
  921.  
  922.  
  923.  
  924. synmajp
  925.         dc.w 1  
  926.              dc.l (synmajd)-b1
  927.              dc.w (4204/2)/2
  928.              dc.l restd-b1
  929.              dc.w 16/2
  930.  
  931. synminp
  932.         dc.w 1  
  933.              dc.l (synmind)-b1
  934.              dc.w ((4032/2))/2 
  935.              dc.l restd-b1
  936.              dc.w 16/2
  937.  
  938. clavep
  939.         dc.w 1  
  940.              dc.l (claved+iff)-b1
  941.              dc.w ((2320/2))/2 
  942.              dc.l restd-b1
  943.              dc.w 16/2
  944.  
  945. tambp
  946.         dc.w 1  
  947.              dc.l (tambd+iff)-b1
  948.              dc.w ((1457/2))/2 
  949.              dc.l restd-b1
  950.              dc.w 16/2
  951.  
  952.  
  953.  
  954. rimp
  955.         dc.w 1  
  956.              dc.l (rimd+iff)-b1
  957.              dc.w ((400/2))/2 
  958.              dc.l restd-b1
  959.              dc.w 16/2
  960.  
  961. chinese_synp
  962.         dc.w 1  
  963.              dc.l (chinese_synd+iff)-b1
  964.              dc.w (8703/2)/2 
  965.              dc.l restd-b1
  966.              dc.w 16/2
  967.  
  968.  
  969. lead_loopp
  970.         dc.w 1  
  971.              dc.l (leadloopd)-b1
  972.              dc.w (4658)/2 
  973.              dc.l (leadloopd+4146)-b1
  974.              dc.w (4658-4146)/2 
  975.  
  976.  
  977. ;lead_loopp
  978.         dc.w 1  
  979.              dc.l (leadloopd)-b1
  980.              dc.w (3452)/2 
  981.  
  982.              dc.l restd-b1
  983.              dc.w 16/2
  984.  
  985.              dc.l (leadloopd+4146)-b1
  986.              dc.w (4658-4146)/2 
  987.  
  988. ;----------------------------
  989. envelopes:
  990.  
  991.  
  992. rest_env:            dc.w 0,0,0,0,0,0,0,0,255
  993. flute_env:            dc.w 0,48,255
  994. dloop_env:            dc.w 0,38,255
  995. strings_env:            dc.w 0,35,255
  996. fhorn_env:            dc.w 0,38,255
  997. abass_env:            dc.w 0,45,255
  998. piano_env:            dc.w 0,48,255
  999. hato_env:            dc.w 0,28,255
  1000. hatc_env:            dc.w 0,48,255
  1001. hato_envl:            dc.w 0,48,255
  1002. hatc_envl:            dc.w 0,48,255
  1003.  
  1004. clave_env:            dc.w 0,40,255
  1005. rim_env:            dc.w 0,28,255
  1006.  
  1007.  
  1008.  
  1009.  
  1010. flute_envq:            dc.w 0,18,255
  1011. sine_env_short:            dc.w 0,40,39,37,36,34,0,28,25,22,20,0
  1012.                 dc.w 18,17,16,15,14,13,12,11,0,10
  1013.                 dc.w 9,8,7,6,5,4,3,2,1,0,255
  1014.  
  1015. sine_env_vshort:        dc.w 30,25,0,15,10,8,7,255
  1016.  
  1017. sine_env:            dc.w 25,24,23,22,21,20
  1018.                 dc.w 15,14,13,12,0,9,8,7,6,5,4,0,255
  1019. syn1_envs
  1020. sine_envl:            dc.w 60,60,60,60,0,40,30,20
  1021.                 dc.w 17,16,15,14,13,12,11,10,9,8,7,6,5,4,3,2,1,0,255
  1022.  
  1023. snare_env            dc.w 0,15,255
  1024. kick_env            dc.w 0,32,255
  1025. hat_env                dc.w 0,9,255
  1026. clap_env            dc.w 0,38,255
  1027. tamb_env            dc.w 0,20,255
  1028.  
  1029. sine_envloop            dc.w 0,25,255
  1030.  
  1031. chord_env:            dc.w 0,64,255
  1032.  
  1033.  
  1034. hguit_env:            dc.w 0,10,255
  1035. syn1_env:            dc.w 0,52,255
  1036. egs_env:            dc.w 0,22,255
  1037. synmaj_env:            dc.w 0,20,255
  1038. synmin_env:            dc.w 0,19,255
  1039. ;leadloop_env:            dc.w 0,28,255
  1040. leadloop_env
  1041. leadlooped_env            dc.w 0,48
  1042.                 dc.w  48,255
  1043.  
  1044. leadloop_envq
  1045.                 dc.w  40,255
  1046.  
  1047.  
  1048.  
  1049.  
  1050. chinese_syn_env            dc.w 0,30
  1051.                 dc.w  30,255
  1052.  
  1053.  
  1054. lead_env_short            
  1055.                 dc.w 48,43,40,32
  1056.     dc.w    0,38,35,33,32,28,25,0
  1057.     dc.w    24,23,22,20,13,10,5,0,255
  1058.  
  1059.  
  1060.  
  1061. ;**************************************************
  1062.  
  1063. ;;THE FX SAMPLES ARE PULLED IN HERE...THis section can be anywhere
  1064. ;; in lower memory,and in any order
  1065.  
  1066.  
  1067. ;abassd            incbin c:sf2d/inst/slapbass.sam     ;bass+drum
  1068. abassd            incbin c:sf2d/inst/fuzzbassn.sam 
  1069. snared            incbin c:sf2d/inst/snare.sam 
  1070. kickd            incbin c:sf2d/inst/kick2.sam 
  1071. hatd            incbin c:sf2d/inst/hat2.sam 
  1072. clapd            ;incbin c:sf2d/inst/clap.sam 
  1073. tambd            ;incbin c:sf2d/inst/tamb.sam 
  1074. synmajd            ;incbin c:sf2d/inst/synmajl.sam 
  1075. synmind            ;incbin c:sf2d/inst/synminl.sam 
  1076. hguitd            ;incbin c:sf2d/inst/hguitnn.sam 
  1077. leadloopd        incbin c:sf2d/inst/leadloopn.sam 
  1078. ;leadloopd        incbin c:sf2d/inst/vibe.sam 
  1079. claved            ;incbin c:sf2d/inst/clave.sam 
  1080. rimd            ;incbin c:sf2d/inst/rim.sam 
  1081. chinese_synd        ;incbin c:sf2d/inst/chinese_syn.sam
  1082.  
  1083.  
  1084.  
  1085.  
  1086. test1p
  1087.         dc.w 1  
  1088.              dc.l (test1d+iff)-b1
  1089.              dc.w (test1_len)/2
  1090.              ;dc.l (test1d+iff+5462)-b1
  1091.              ;dc.w (test1_len-5462)/2
  1092.  
  1093.              dc.l restd-b1
  1094.              dc.w 16/2
  1095.  
  1096.  
  1097. test2p
  1098.         dc.w 1  
  1099.              dc.l (test2d+iff)-b1
  1100.              dc.w (test2_len)/2
  1101.              dc.l restd-b1
  1102.              dc.w 16/2
  1103.  
  1104. test2ps
  1105.         dc.w 1  
  1106.              dc.l (test2d+iff)-b1
  1107.              dc.w (test2_len)/2
  1108.              dc.l restd-b1
  1109.              dc.w 16/2
  1110.  
  1111.  
  1112.  
  1113.  
  1114. test1_len    equ    7406
  1115. test2_len    equ    2312
  1116.  
  1117. test1_env:            dc.w 0,20,255
  1118. test1_env_soft:            dc.w 0,26,255
  1119. test2_env:            dc.w 0,15,255
  1120.  
  1121.  
  1122. test1d            incbin c:sf2d/inst/synbrass.sam 
  1123. test2d            incbin c:sf2d/inst/epiano.sam
  1124.  
  1125.  
  1126. ;********************************************
  1127.  
  1128.  
  1129. restd:
  1130. rest_data:
  1131.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1132.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1133.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1134.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1135.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1136.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1137. sine_datad:
  1138.              dc.w 127,80,50,25,0,-25,-50,-100,-127
  1139.              dc.w -127,-100,-50,-35,0,35,50,80,127
  1140.              dc.w 127,80,50,25,0,-25,-50,-100,-127
  1141.              dc.w -127,-100,-50,-35,0,35,50,80,127
  1142.  
  1143.  
  1144. sine_data1d:
  1145.              dc.w 127,120,118,110,100,99,88,77,66,55,44,30,20,5,4,0
  1146.              dc.w 0,-3,-5,-8,-10,-4,-19,-22,-24,-28,-30,-35,-40,-50,-70,-100
  1147.              dc.w 127,120,118,110,100,99,88,77,66,55,44,30,20,5,4,0
  1148.              dc.w 0,-3,-5,-8,-10,-4,-19,-22,-24,-28,-30,-35,-40,-50,-70,-100
  1149.              dc.w 127,120,118,110,100,99,88,77,66,55,44,30,20,5,4,0
  1150.              dc.w 0,-3,-5,-8,-10,1-4,-19,-22,-24,-28,-30,-35,-40,-50,-70,-100
  1151.  
  1152.  
  1153.  
  1154.  
  1155. endb1
  1156. ;*************************************************
  1157.  
  1158.     end
  1159.  
  1160.  
  1161.  
  1162.     dc.w modon,1,1,8,8,6,6
  1163.     dc.w pbend,down,1,60000,32
  1164.  
  1165.  
  1166.  
  1167.