API tools faq
paste
Advertisement
vladikcomper

Thunder Force IV Stanger -- Source Code

vladikcomper
Feb 26th, 2015
385
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Motorola 68000 HiSoft Dev 16.39 KB | None | 0 0
raw download clone embed print report
  1.  
  2. ; ---------------------------------------------------------------
  3. ; Created by Techosoft-2-SMPS v.2.0
  4. ; 2014, Vladikcomper
  5. ; ---------------------------------------------------------------
  6.  
  7.     include '_s1smps2asm_inc.asm'   ; SMPS macro definitions
  8.  
  9. _Kick = $81
  10. _Snare = $82
  11. _SnareLo = $8C
  12.  
  13. ; ---------------------------------------------------------------
  14. ; Music Header
  15. ; ---------------------------------------------------------------
  16.  
  17.     dc.w    Voices          ; Voice bank offset
  18.     dc.w    $8600           ; Number of FM/PSG channels
  19.     dc.w    $0100           ; Tempo modifier
  20.  
  21.     dc.w    DAC, $0000
  22.     dc.w    FM2, $0000+$10
  23.     dc.w    FM3, $0005+$10
  24.     dc.w    FM4, $0005+$10
  25.     dc.w    FM5, $0007+$10
  26.     dc.w    FM6, $0007+$10
  27.  
  28. ; ---------------------------------------------------------------
  29. ; Music Tracks
  30. ; ---------------------------------------------------------------
  31.  
  32. DAC:
  33. @Loop:  smpsCall    Pattern_02
  34.     smpsCall    Pattern_02
  35.     smpsCall    Pattern_17
  36.     smpsCall    Pattern_0A
  37.     smpsJump    @Loop
  38.  
  39. ; ---------------------------------------------------------------
  40. FM2:
  41.     smpsFMvoice $01
  42. @Loop:  smpsCall    Pattern_00
  43.     smpsCall    Pattern_0B
  44.     smpsCall    Pattern_00
  45.     smpsCall    Pattern_0B
  46.     smpsCall    Pattern_00
  47.     smpsCall    Pattern_00
  48.     smpsCall    Pattern_0C
  49.     smpsCall    Pattern_15
  50.     smpsCall    Pattern_0E
  51.     smpsJump    @Loop
  52.  
  53. ; ---------------------------------------------------------------
  54. FM3:
  55.     dc.b    $FB, $01        ; set portamento speed (advanced SMPS only!)
  56.     smpsFMvoice $00
  57. @Loop:  smpsCall    Pattern_01
  58.     smpsCall    Pattern_06
  59.     smpsCall    Pattern_01
  60.     smpsCall    Pattern_06
  61.     smpsCall    Pattern_01
  62.     smpsCall    Pattern_01
  63.     smpsCall    Pattern_0F
  64.     smpsCall    Pattern_13
  65.     smpsCall    Pattern_14
  66.     smpsCall    Pattern_13
  67.     smpsCall    Pattern_18
  68.     smpsJump    @Loop
  69.  
  70. ; ---------------------------------------------------------------
  71. FM4:
  72.     dc.b    $FB, $01        ; set portamento speed (advanced SMPS only!)
  73. ;   dc.b    $EB, $FC        ; unsupported coordination flag
  74.     smpsFMvoice $02
  75. @Loop:  smpsCall    Pattern_01
  76.     smpsCall    Pattern_06
  77.     smpsCall    Pattern_01
  78.     smpsCall    Pattern_06
  79.     smpsCall    Pattern_01
  80.     smpsCall    Pattern_01
  81.     smpsCall    Pattern_0F
  82.     smpsCall    Pattern_13
  83.     smpsCall    Pattern_14
  84.     smpsCall    Pattern_13
  85.     smpsCall    Pattern_18
  86.     smpsJump    @Loop
  87.  
  88. ; ---------------------------------------------------------------
  89. FM5:
  90. ;   dc.b    $EB, $FC        ; unsupported coordination flag
  91.     smpsFMvoice $00
  92. @Loop:  smpsCall    Pattern_05
  93.     smpsCall    Pattern_08
  94.     smpsCall    Pattern_05
  95.     smpsCall    Pattern_08
  96.     smpsCall    Pattern_05
  97.     smpsCall    Pattern_05
  98.     smpsCall    Pattern_11
  99.     smpsCall    Pattern_01
  100.     smpsCall    Pattern_01
  101.     smpsCall    Pattern_13
  102.     smpsCall    Pattern_1D
  103.     smpsJump    @Loop
  104.  
  105. ; ---------------------------------------------------------------
  106. FM6:
  107.     dc.b    $FB, $01        ; set portamento speed (advanced SMPS only!)
  108.     smpsFMvoice $02
  109. @Loop:  smpsCall    Pattern_03
  110.     smpsCall    Pattern_07
  111.     smpsCall    Pattern_03
  112.     smpsCall    Pattern_07
  113.     smpsCall    Pattern_03
  114.     smpsCall    Pattern_03
  115.     smpsCall    Pattern_11
  116.     smpsCall    Pattern_1B
  117.     smpsCall    Pattern_1B
  118.     smpsCall    Pattern_13
  119.     smpsCall    Pattern_1E
  120.     smpsJump    @Loop
  121.  
  122. ; ---------------------------------------------------------------
  123. ; Patterns
  124. ; ---------------------------------------------------------------
  125.  
  126. Pattern_00:
  127. @0:
  128.     dc.b    $9C, $0A, $80, $02
  129.     dc.b    $9C, $04, $80, $02
  130.     dc.b    $9C, $04, $80, $02
  131.     smpsLoop    0, 3, @0
  132.     dc.b    $9C, $0A, $80, $02
  133.     dc.b    $9A, $0A, $80, $02
  134. @1:
  135.     dc.b    $9C, $0A, $80, $02
  136.     dc.b    $9C, $04, $80, $02
  137.     dc.b    $9C, $04, $80, $02
  138.     smpsLoop    0, 4, @1
  139.     smpsReturn
  140.  
  141. ; ---------------------------------------------------------------
  142. Pattern_01:
  143.     dc.b    $A8, $0B, $80, $01
  144.     dc.b    $9C, $02, $80, $04
  145.     dc.b    $9C, $80, $02
  146. @0:
  147.     dc.b    $9C, $0A, $80, $02
  148.     dc.b    $9C, $80, $04
  149.     dc.b    $9C, $80, $02
  150.     smpsLoop    0, 2, @0
  151.     dc.b    $9C, $0A, $80, $02
  152.     dc.b    $A6, $0A, $80, $02
  153.     dc.b    $A8, $0A, $80, $02
  154.     dc.b    $9C, $80, $04
  155.     dc.b    $9C, $80, $02
  156. @1:
  157.     dc.b    $9C, $0A, $80, $02
  158.     dc.b    $9C, $80, $04
  159.     dc.b    $9C, $80, $02
  160.     smpsLoop    0, 3, @1
  161.     smpsReturn
  162.  
  163. ; ---------------------------------------------------------------
  164. Pattern_02:
  165.     dc.b    _Snare, $01, $80, $17
  166.     dc.b    _Kick, $04, $80, $14
  167.     dc.b    _Kick, $04, $80, $14
  168.     dc.b    _Kick, $04, $80, $08
  169.     dc.b    _Snare, $01, $80, $0B
  170.     dc.b    _Snare, $01, $80, $0B
  171.     dc.b    _Kick, $04, $80, $08
  172.     dc.b    _Kick, $04, $80, $14
  173.     dc.b    _Kick, $04, $80, $14
  174.     dc.b    _Kick, $04, $80, $14
  175. @0:
  176.     dc.b    _Snare, $01, $80, $0B
  177.     dc.b    _Kick, $03, $80
  178.     dc.b    _Kick, $80
  179.     dc.b    _Kick, $04, $80, $08
  180.     smpsLoop    0, 2, @0
  181.     dc.b    _Snare, $01, $80, $0B
  182.     dc.b    _Kick, $04, $80, $08
  183. @1:
  184.     dc.b    _Snare, $01, $80, $0B
  185.     dc.b    _Kick, $04, $80, $08
  186.     dc.b    _Kick, $04, $80, $08
  187.     smpsLoop    0, 2, @1
  188.     dc.b    _Snare, $01, $80, $0B
  189.     dc.b    _Snare, $01, $80, $05
  190.     dc.b    _Snare, $01, $80, $05
  191.     smpsReturn
  192.  
  193. ; ---------------------------------------------------------------
  194. Pattern_03:
  195.     smpsPan     $C0, 0
  196.     dc.b    $A3, $0B, $80, $01
  197.     smpsPan     $80, 0
  198.     dc.b    $9C, $02, $80, $04
  199.     dc.b    $9C, $80, $02
  200. @0:
  201.     dc.b    $9C, $0A, $80, $02
  202.     dc.b    $9C, $80, $04
  203.     dc.b    $9C, $80, $02
  204.     smpsLoop    0, 2, @0
  205.     dc.b    $9C, $0A, $80, $02
  206.     smpsPan     $C0, 0
  207.     dc.b    $A1, $0A, $80, $02
  208.     dc.b    $A3, $0A, $80, $02
  209.     smpsPan     $80, 0
  210.     dc.b    $9C, $80, $04
  211.     dc.b    $9C, $80, $02
  212. @1:
  213.     dc.b    $9C, $0A, $80, $02
  214.     dc.b    $9C, $80, $04
  215.     dc.b    $9C, $80, $02
  216.     smpsLoop    0, 3, @1
  217.     smpsReturn
  218.  
  219. ; ---------------------------------------------------------------
  220. Pattern_04:
  221.     ; This pattern is unused
  222.     ; This pattern is undefined
  223.     smpsReturn
  224.  
  225. ; ---------------------------------------------------------------
  226. Pattern_05:
  227.     smpsPan     $C0, 0
  228.     dc.b    $A8, $0B, $80, $01
  229.     smpsPan     $40, 0
  230.     dc.b    $9C, $02, $80, $04
  231.     dc.b    $9C, $80, $02
  232. @0:
  233.     dc.b    $9C, $0A, $80, $02
  234.     dc.b    $9C, $80, $04
  235.     dc.b    $9C, $80, $02
  236.     smpsLoop    0, 2, @0
  237.     dc.b    $9C, $0A, $80, $02
  238.     smpsPan     $C0, 0
  239.     dc.b    $A6, $0A, $80, $02
  240.     dc.b    $A8, $0A, $80, $02
  241.     smpsPan     $40, 0
  242.     dc.b    $9C, $80, $04
  243.     dc.b    $9C, $80, $02
  244. @1:
  245.     dc.b    $9C, $0A, $80, $02
  246.     dc.b    $9C, $04, $80, $02
  247.     dc.b    $9C, $04, $80, $02
  248.     smpsLoop    0, 3, @1
  249.     smpsReturn
  250.  
  251. ; ---------------------------------------------------------------
  252. Pattern_06:
  253.     dc.b    $A8, $0A, $80, $02
  254.     dc.b    $A3, $80, $04
  255.     dc.b    $A1, $80, $02
  256.     dc.b    $9C, $0B, $80, $01
  257.     dc.b    $A6, $0A, $80, $02
  258.     dc.b    $9F, $80, $04
  259.     dc.b    $9E, $80, $02
  260.     dc.b    $9C, $0A, $80, $02
  261.     dc.b    $AA, $0B, $80, $01
  262.     dc.b    $9C, $0B, $80, $01
  263.     dc.b    $AB, $0A, $80, $02
  264.     dc.b    $9C, $80, $04
  265.     dc.b    $9C, $80, $02
  266.     dc.b    $9C, $0B, $80, $01
  267.     dc.b    $AD, $0A, $80, $02
  268.     dc.b    $9C, $80, $04
  269.     dc.b    $9C, $80, $02
  270.     dc.b    $9C, $0A, $80, $02
  271.     dc.b    $AF, $0B, $80, $01
  272.     dc.b    $9C, $0A, $80, $02
  273.     smpsReturn
  274.  
  275. ; ---------------------------------------------------------------
  276. Pattern_07:
  277.     smpsPan     $C0, 0
  278.     dc.b    $A4, $0A, $80, $02
  279.     smpsPan     $80, 0
  280.     dc.b    $A3, $80, $04
  281.     dc.b    $A1, $80, $02
  282.     dc.b    $9C, $0B, $80, $01
  283.     smpsPan     $C0, 0
  284.     dc.b    $A3, $0A, $80, $02
  285.     smpsPan     $80, 0
  286.     dc.b    $9F, $80, $04
  287.     dc.b    $9E, $80, $02
  288.     dc.b    $9C, $0A, $80, $02
  289.     smpsPan     $C0, 0
  290.     dc.b    $A6, $0B, $80, $01
  291.     smpsPan     $80, 0
  292.     dc.b    $9C, $0B, $80, $01
  293.     smpsPan     $C0, 0
  294.     dc.b    $AB, $0A, $80, $02
  295.     smpsPan     $80, 0
  296.     dc.b    $9C, $80, $04
  297.     dc.b    $9C, $80, $02
  298.     dc.b    $9C, $0B, $80, $01
  299.     smpsPan     $C0, 0
  300.     dc.b    $AA, $0A, $80, $02
  301.     smpsPan     $80, 0
  302.     dc.b    $9C, $80, $04
  303.     dc.b    $9C, $80, $02
  304.     dc.b    $9C, $0A, $80, $02
  305.     smpsPan     $C0, 0
  306.     dc.b    $AB, $0B, $80, $01
  307.     smpsPan     $80, 0
  308.     dc.b    $9C, $0A, $80, $02
  309.     smpsReturn
  310.  
  311. ; ---------------------------------------------------------------
  312. Pattern_08:
  313.     smpsPan     $C0, 0
  314.     dc.b    $A4, $0A, $80, $02
  315.     smpsPan     $40, 0
  316.     dc.b    $A3, $80, $04
  317.     dc.b    $A1, $80, $02
  318.     dc.b    $9C, $0B, $80, $01
  319.     smpsPan     $C0, 0
  320.     dc.b    $A3, $0A, $80, $02
  321.     smpsPan     $40, 0
  322.     dc.b    $9F, $80, $04
  323.     dc.b    $9E, $80, $02
  324.     dc.b    $9C, $0A, $80, $02
  325.     smpsPan     $C0, 0
  326.     dc.b    $A6, $0B, $80, $01
  327.     smpsPan     $40, 0
  328.     dc.b    $9C, $0B, $80, $01
  329.     smpsPan     $C0, 0
  330.     dc.b    $AB, $0A, $80, $02
  331.     smpsPan     $40, 0
  332.     dc.b    $9C, $80, $04
  333.     dc.b    $9C, $80, $02
  334.     dc.b    $9C, $0A, $80, $02
  335.     smpsPan     $C0, 0
  336.     dc.b    $AA, $0A, $80, $02
  337.     smpsPan     $40, 0
  338.     dc.b    $9C, $80, $04
  339.     dc.b    $9C, $80, $02
  340.     dc.b    $9C, $0A, $80, $02
  341.     smpsPan     $C0, 0
  342.     dc.b    $AB, $0B, $80, $01
  343.     smpsPan     $40, 0
  344.     dc.b    $9C, $0A, $80, $02
  345.     smpsReturn
  346.  
  347. ; ---------------------------------------------------------------
  348. Pattern_09:
  349.     ; This pattern is unused
  350.     ; This pattern is undefined
  351.     smpsReturn
  352.  
  353. ; ---------------------------------------------------------------
  354. Pattern_0A:
  355. @0:
  356.     dc.b    _Kick, $01, $80, $0B
  357.     dc.b    _Kick, $01, $80, $05
  358.     dc.b    _Kick, $01, $80, $05
  359.     dc.b    _Snare, $01, $80, $0B
  360.     dc.b    _Kick, $01, $80, $05
  361.     dc.b    _Kick, $01, $80, $05
  362.     smpsLoop    0, 4, @0
  363. @1:
  364.     dc.b    _Snare, $01, $80, $0B
  365. @2:
  366.     dc.b    _Kick, $04, $80, $02
  367.     smpsLoop    1, 6, @2
  368.     smpsLoop    0, 2, @1
  369. @3:
  370.     dc.b    $B4, $01, $80, $0B
  371.     dc.b    _Kick, $04, $80, $02
  372.     dc.b    _Kick, $04, $80, $02
  373.     smpsLoop    0, 2, @3
  374.     dc.b    _Kick, $04, $80, $02
  375. @4:
  376.     dc.b    _Snare, $01, $80, $05
  377.     smpsLoop    0, 7, @4
  378.     smpsReturn
  379.  
  380. ; ---------------------------------------------------------------
  381. Pattern_0B:
  382.     dc.b    $9C, $0A, $80, $02
  383.     dc.b    $A3, $04, $80, $02
  384.     dc.b    $A1, $04, $80, $02
  385.     dc.b    $9C, $0A, $80, $02
  386.     dc.b    $9A, $0A, $80, $02
  387.     dc.b    $9F, $04, $80, $02
  388.     dc.b    $9E, $04, $80, $02
  389.     dc.b    $9C, $0A, $80, $02
  390.     dc.b    $9E, $0A, $80, $02
  391.     dc.b    $9C, $0A, $80, $02
  392.     dc.b    $9F, $0A, $80, $02
  393.     dc.b    $9C, $04, $80, $02
  394.     dc.b    $9C, $04, $80, $02
  395.     dc.b    $9C, $0A, $80, $02
  396.     dc.b    $A1, $0A, $80, $02
  397.     dc.b    $9C, $04, $80, $02
  398.     dc.b    $9C, $04, $80, $02
  399.     dc.b    $9C, $0A, $80, $02
  400.     dc.b    $A3, $0A, $80, $02
  401.     dc.b    $9C, $0A, $80, $02
  402.     smpsReturn
  403.  
  404. ; ---------------------------------------------------------------
  405. Pattern_0C:
  406. @0:
  407.     dc.b    $A3, $0A, $80, $02
  408.     dc.b    $A3, $04, $80, $02
  409.     dc.b    $A3, $04, $80, $02
  410.     smpsLoop    0, 4, @0
  411. @1:
  412.     dc.b    $9F, $0A, $80, $02
  413.     dc.b    $9F, $04, $80, $02
  414.     dc.b    $9F, $04, $80, $02
  415.     smpsLoop    0, 2, @1
  416. @2:
  417.     dc.b    $9C, $0A, $80, $02
  418.     dc.b    $9C, $04, $80, $02
  419.     dc.b    $9C, $04, $80, $02
  420.     smpsLoop    0, 2, @2
  421. @3:
  422.     dc.b    $A1, $0A, $80, $02
  423.     dc.b    $A1, $04, $80, $02
  424.     dc.b    $A1, $04, $80, $02
  425.     smpsLoop    0, 4, @3
  426. @4:
  427.     dc.b    $9E, $0A, $80, $02
  428.     dc.b    $9E, $04, $80, $02
  429.     dc.b    $9E, $04, $80, $02
  430.     smpsLoop    0, 2, @4
  431. @5:
  432.     dc.b    $9A, $0A, $80, $02
  433.     dc.b    $9A, $04, $80, $02
  434.     dc.b    $9A, $04, $80, $02
  435.     smpsLoop    0, 2, @5
  436.     smpsReturn
  437.  
  438. ; ---------------------------------------------------------------
  439. Pattern_0D:
  440.     ; This pattern is unused
  441.     ; This pattern is undefined
  442.     smpsReturn
  443.  
  444. ; ---------------------------------------------------------------
  445. Pattern_0E:
  446. @0:
  447.     dc.b    $9C, $0A, $80, $02
  448.     dc.b    $9C, $04, $80, $02
  449.     dc.b    $9C, $04, $80, $02
  450.     smpsLoop    0, 8, @0
  451. @1:
  452.     dc.b    $9A, $0A, $80, $02
  453.     dc.b    $9A, $04, $80, $02
  454.     dc.b    $9A, $04, $80, $02
  455.     smpsLoop    0, 8, @1
  456.     smpsReturn
  457.  
  458. ; ---------------------------------------------------------------
  459. Pattern_0F:
  460.     dc.b    $A8, $01, $E7
  461.     dc.b    $FB, $63        ; set portamento speed (advanced SMPS only!)
  462.     dc.b    $AA, $5E, $80, $01
  463.     dc.b    $FB, $01        ; set portamento speed (advanced SMPS only!)
  464.     dc.b    $AB, $0A, $80, $02
  465.     dc.b    $9C, $80, $04
  466.     dc.b    $9C, $80, $02
  467.     dc.b    $A6, $0A, $80, $02
  468.     dc.b    $9C, $80, $04
  469.     dc.b    $9C, $80, $02
  470.     dc.b    $A8, $08, $80, $04
  471.     dc.b    $A3, $06, $E7
  472.     dc.b    $AD, $04, $80, $02
  473.     dc.b    $9F, $0A, $80, $02
  474.     dc.b    $9C, $06, $E7
  475.     dc.b    $A6, $04, $80, $02
  476.     dc.b    $AB, $01, $E7
  477.     dc.b    $FB, $63        ; set portamento speed (advanced SMPS only!)
  478.     dc.b    $AD, $5E, $80, $01
  479.     dc.b    $FB, $01        ; set portamento speed (advanced SMPS only!)
  480.     dc.b    $AD, $E7
  481.     dc.b    $FB, $5A        ; set portamento speed (advanced SMPS only!)
  482.     dc.b    $AF, $2E, $80, $01
  483.     dc.b    $FB, $00        ; set portamento speed (advanced SMPS only!)
  484.     dc.b    $B2, $2E, $80, $02
  485.     dc.b    $FB, $01        ; set portamento speed (advanced SMPS only!)
  486.     smpsReturn
  487.  
  488. ; ---------------------------------------------------------------
  489. Pattern_10:
  490.     ; This pattern is unused
  491.     ; This pattern is undefined
  492.     smpsReturn
  493.  
  494. ; ---------------------------------------------------------------
  495. Pattern_11:
  496.     dc.b    $AA, $5E, $80, $02
  497. @0:
  498.     dc.b    $A6, $0A, $80, $02
  499.     dc.b    $A6, $80, $04
  500.     dc.b    $A6, $80, $02
  501.     smpsLoop    0, 2, @0
  502. @1:
  503.     dc.b    $A3, $0A, $80, $02
  504.     dc.b    $A3, $80, $04
  505.     dc.b    $A3, $80, $02
  506.     smpsLoop    0, 2, @1
  507.     dc.b    $A8, $5E, $80, $02
  508. @2:
  509.     dc.b    $A7, $0A, $80, $02
  510.     dc.b    $A7, $80, $04
  511.     dc.b    $A7, $80, $02
  512.     smpsLoop    0, 2, @2
  513. @3:
  514.     dc.b    $AD, $0A, $80, $02
  515.     dc.b    $AD, $80, $04
  516.     dc.b    $AD, $80, $02
  517.     smpsLoop    0, 2, @3
  518.     smpsReturn
  519.  
  520. ; ---------------------------------------------------------------
  521. Pattern_12:
  522.     ; This pattern is unused
  523.     ; This pattern is undefined
  524.     smpsReturn
  525.  
  526. ; ---------------------------------------------------------------
  527. Pattern_13:
  528. @0:
  529.     dc.b    $A6, $0B, $80, $01
  530.     dc.b    $9C, $02, $80, $04
  531.     dc.b    $9C, $80, $02
  532.     dc.b    $9C, $0B, $80, $01
  533.     dc.b    $9C, $02, $80, $04
  534.     dc.b    $9C, $80, $02
  535.     dc.b    $A8, $0B, $80, $01
  536.     dc.b    $9C, $04, $80, $02
  537.     dc.b    $9C, $04, $80, $02
  538.     dc.b    $9C, $0B, $80, $01
  539.     dc.b    $9C, $02, $80, $04
  540.     dc.b    $9C, $80, $02
  541.     smpsLoop    0, 2, @0
  542.     smpsReturn
  543.  
  544. ; ---------------------------------------------------------------
  545. Pattern_14:
  546.     dc.b    $A6, $0B, $80, $01
  547.     dc.b    $9C, $02, $80, $04
  548.     dc.b    $9C, $80, $02
  549.     dc.b    $9C, $0B, $80, $01
  550.     dc.b    $9C, $02, $80, $04
  551.     dc.b    $9C, $80, $02
  552.     dc.b    $A8, $0B, $80, $01
  553.     dc.b    $9C, $04, $80, $02
  554.     dc.b    $9C, $04, $80, $02
  555.     dc.b    $9C, $0B, $80, $01
  556.     dc.b    $9C, $02, $80, $04
  557.     dc.b    $9C, $80, $02
  558.     dc.b    $A6, $0B, $80, $01
  559.     dc.b    $9C, $02, $80, $04
  560.     dc.b    $9C, $80, $02
  561.     dc.b    $9C, $0B, $80, $01
  562.     dc.b    $9C, $02, $80, $04
  563.     dc.b    $9C, $80, $02
  564.     dc.b    $A8, $0B, $80, $01
  565.     dc.b    $AF, $22, $80, $02
  566.     smpsReturn
  567.  
  568. ; ---------------------------------------------------------------
  569. Pattern_15:
  570. @0:
  571.     dc.b    $9C, $0A, $80, $02
  572.     dc.b    $9C, $04, $80, $02
  573.     dc.b    $9C, $04, $80, $02
  574.     smpsLoop    0, 14, @0
  575.     dc.b    $9C, $0A, $80, $02
  576.     dc.b    $A3, $22, $80, $02
  577.     smpsReturn
  578.  
  579. ; ---------------------------------------------------------------
  580. Pattern_16:
  581.     ; This pattern is unused
  582.     ; This pattern is undefined
  583.     smpsReturn
  584.  
  585. ; ---------------------------------------------------------------
  586. Pattern_17:
  587. @0:
  588.     dc.b    _Kick, $01, $80, $0B
  589.     dc.b    _Kick, $01, $80, $05
  590.     dc.b    _Kick, $01, $80, $05
  591.     dc.b    _Snare, $01, $80, $0B
  592.     dc.b    _Kick, $01, $80, $05
  593.     dc.b    _Kick, $01, $80, $05
  594.     smpsLoop    0, 23, @0
  595.     dc.b    _SnareLo, $01, $80, $0B
  596.     dc.b    _Snare, $01, $80, $17
  597.     dc.b    _Kick, $01, $80, $05
  598.     dc.b    _Kick, $01, $80, $05
  599.     smpsReturn
  600.  
  601. ; ---------------------------------------------------------------
  602. Pattern_18:
  603.     dc.b    $A6, $2E, $80, $02
  604.     dc.b    $A6, $2E, $80, $02
  605.     dc.b    $A6, $16, $80, $02
  606.     dc.b    $A6, $16, $80, $02
  607. @0:
  608.     dc.b    $9A, $04, $80, $02
  609.     smpsLoop    0, 8, @0
  610.     smpsReturn
  611.  
  612. ; ---------------------------------------------------------------
  613. Pattern_19:
  614.     ; This pattern is unused
  615.     ; This pattern is undefined
  616.     smpsReturn
  617.  
  618. ; ---------------------------------------------------------------
  619. Pattern_1A:
  620.     ; This pattern is unused
  621.     ; This pattern is undefined
  622.     smpsReturn
  623.  
  624. ; ---------------------------------------------------------------
  625. Pattern_1B:
  626.     dc.b    $A3, $0B, $80, $01
  627.     dc.b    $9C, $02, $80, $04
  628.     dc.b    $9C, $80, $02
  629. @0:
  630.     dc.b    $9C, $0A, $80, $02
  631.     dc.b    $9C, $80, $04
  632.     dc.b    $9C, $80, $02
  633.     smpsLoop    0, 2, @0
  634.     dc.b    $9C, $0A, $80, $02
  635.     dc.b    $A1, $0A, $80, $02
  636.     dc.b    $A3, $0A, $80, $02
  637.     dc.b    $9C, $80, $04
  638.     dc.b    $9C, $80, $02
  639. @1:
  640.     dc.b    $9C, $0A, $80, $02
  641.     dc.b    $9C, $80, $04
  642.     dc.b    $9C, $80, $02
  643.     smpsLoop    0, 3, @1
  644.     smpsReturn
  645.  
  646. ; ---------------------------------------------------------------
  647. Pattern_1C:
  648.     ; This pattern is unused
  649.     ; This pattern is undefined
  650.     smpsReturn
  651.  
  652. ; ---------------------------------------------------------------
  653. Pattern_1D:
  654.     dc.b    $A1, $2E, $80, $02
  655.     dc.b    $A1, $2E, $80, $02
  656.     dc.b    $A1, $16, $80, $02
  657.     dc.b    $A1, $16, $80, $02
  658. @0:
  659.     dc.b    $A1, $04, $80, $02
  660.     smpsLoop    0, 8, @0
  661.     smpsReturn
  662.  
  663. ; ---------------------------------------------------------------
  664. Pattern_1E:
  665.     dc.b    $9E, $2E, $80, $02
  666.     dc.b    $9E, $2E, $80, $02
  667.     dc.b    $9E, $16, $80, $02
  668.     dc.b    $9E, $16, $80, $02
  669. @0:
  670.     dc.b    $A1, $04, $80, $02
  671.     smpsLoop    0, 8, @0
  672.     smpsReturn
  673.  
  674. ; ---------------------------------------------------------------
  675. ; Voices
  676. ; ---------------------------------------------------------------
  677.  
  678. Voices:
  679.     ; Voice $00 (FM)
  680.     dc.b    $F8, $53, $51, $51, $51, $DF, $DF, $1F, $1F, $07, $0E, $07, $84, $04, $03, $03, $08, $F7, $31, $71, $61, $1B, $11, $10, $00
  681.     ; Voice $01 (FM)
  682.     dc.b    $EB, $3E, $51, $50, $50, $DF, $DF, $1B, $1F, $07, $0E, $07, $04, $07, $01, $01, $01, $54, $55, $F6, $72, $1F, $1C, $17, $00
  683.     ; Voice $02 (FM)
  684.     dc.b    $E8, $33, $53, $70, $30, $DF, $DC, $1F, $1F, $14, $05, $01, $81, $00, $01, $00, $1D, $11, $21, $10, $F8, $0E, $1B, $12, $00
  685.     ; Voice $03 (FM)
  686.     dc.b    $FE, $3F, $50, $30, $50, $1F, $1F, $1F, $1D, $01, $00, $00, $01, $02, $00, $15, $0B, $02, $07, $F1, $11, $00, $00, $00, $00
  687.     ; Voice $04 (FM)
  688.     dc.b    $EC, $00, $00, $00, $00, $18, $1A, $1A, $1A, $1A, $00, $17, $00, $1F, $00, $1F, $00, $FF, $05, $FF, $05, $00, $00, $14, $00
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!