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