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