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