home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Amiga Steel Sky Music Samples / Lowe_AmigaSteelSkyMusicSamples.adf / ssfactory.data < prev    next >
Encoding:
Text File  |  1978-10-05  |  13.4 KB  |  937 lines
  1.  
  2. demo    equ 1        ;set to 0 to make returnable demo
  3.  
  4. develop    equ 1        ;set to zero for assembling data blks
  5.             ;or testing length of current data
  6.             ;set to 1 for music development
  7.  
  8.  
  9.  
  10.     ifne develop
  11.  
  12.     include c:ssig/driver.s
  13.  
  14.     endc
  15.  
  16.     opt p+
  17.             ;STEEL SKY FACTORY DATA
  18.  
  19. b1
  20.  
  21.     dc.w    song_table-b1
  22.     dc.w    fxjump_table-b1
  23.  
  24.  
  25.  
  26.     ifeq develop
  27.  
  28.         ;  ALL EQUs
  29.  
  30. c00  equ  428*4
  31. db00  equ  404*4
  32. d00 equ  381*4
  33. eb00  equ  360*4
  34. e00  equ  339*4
  35. f00  equ  320*4
  36. gb00  equ  302*4
  37. g00  equ  285*4
  38. ab00 equ 269*4
  39. a00  equ  508*2
  40. bb00  equ  480*2
  41. b00  equ  453*2
  42.  
  43. c01  equ  428*2
  44. db01  equ  404*2
  45. d01 equ  381*2
  46. eb01  equ  360*2
  47. e01  equ  339*2
  48. f01  equ  320*2
  49. gb01  equ  302*2
  50. g01  equ  285*2
  51. ab01 equ 269*2
  52. a01  equ  508
  53. bb01  equ  480
  54. b01  equ  453
  55.  
  56. c02  equ  428
  57. db02  equ  404
  58. d02  equ  381
  59. eb02  equ  360
  60. e02  equ  339
  61. f02  equ  320
  62. gb02  equ  302
  63. g02  equ  285
  64. ab02 equ 269
  65. a02  equ  254
  66. bb02  equ  240
  67. b02  equ  226
  68.  
  69. c03  equ  214
  70. db03  equ  202
  71. d03  equ  190
  72. eb03  equ  180
  73. e03  equ  170
  74. f03  equ  160
  75. gb03  equ  151
  76. g03  equ  143
  77. ab03 equ 135
  78. a03  equ  127
  79.  
  80. bb03  equ  480*2
  81. b03  equ  453*2
  82.  
  83. c04  equ  428*2
  84. db04  equ  404*2
  85. d04 equ  381*2
  86. eb04  equ  360*2
  87. e04  equ  339*2
  88. f04  equ  320*2
  89. gb04  equ  302*2
  90. g04  equ  285*2
  91. ab04 equ 269*2
  92. a04  equ  508
  93. bb04  equ  480
  94. b04  equ  453
  95.  
  96. c05  equ  428
  97. db05  equ  404
  98. d05  equ  381
  99. eb05  equ  360
  100. e05  equ  339
  101. f05  equ  320
  102. gb05  equ  302
  103. g05  equ  285
  104. ab05 equ 269
  105. a05  equ  254
  106. bb05  equ  240
  107. b05  equ  226
  108.  
  109. c06  equ  214
  110. db06  equ  202
  111. d06  equ  190
  112. eb06  equ  180
  113. e06  equ  170
  114. f06  equ  160
  115. gb06  equ  151
  116. g06  equ  143
  117. ab06 equ 135
  118. a06  equ  127
  119. bb06  equ  480*2
  120. b06  equ  453*2
  121.  
  122. c07  equ  428*2
  123. db07  equ  404*2
  124. d07 equ  381*2
  125. eb07  equ  360*2
  126. e07  equ  339*2
  127. f07  equ  320*2
  128. gb07  equ  302*2
  129. g07  equ  285*2
  130. ab07 equ 269*2
  131. a07  equ  508
  132. bb07  equ  480
  133. b07  equ  453
  134.  
  135. c08  equ  428
  136. db08  equ  404
  137. d08  equ  381
  138. eb08  equ  360
  139. e08  equ  339
  140. f08  equ  320
  141. gb08  equ  302
  142. g08  equ  285
  143. ab08 equ 269
  144. a08  equ  254
  145. bb08  equ  240
  146. b08  equ  226
  147.  
  148.  
  149. v equ 0
  150.  
  151. no_loop equ 0
  152. loop equ 0
  153. chann1reg   equ $dff0a0    
  154. chann2reg   equ $dff0b0
  155. chann3reg   equ $dff0c0
  156. chann4reg   equ $dff0d0
  157. dmacon     equ $dff096
  158. int_bf_int   equ   $dff01e
  159. int_bf_w    equ   $dff09a
  160. vhposr     equ   $dff006
  161. in_line    equ   0
  162. new_snd    equ   4
  163. end_song     equ   1
  164. end_patt    equ   8
  165. new_env    equ   12
  166. pbend     equ   16
  167.  
  168.  
  169.  
  170. hi: equ 223
  171. lo:  equ 446
  172.  
  173. r22    equ 134
  174. r20    equ 179        ;correctum
  175. r19    equ 150
  176. r18    equ 178
  177. r17    equ 200
  178. r16:    equ 227        ;correctum
  179. r15:    equ 249
  180. r14    equ 280
  181. r13:    equ 305
  182. r12:    equ 333
  183. r11:    equ 361
  184. r10:    equ 389
  185. r9:    equ 419
  186. r8:    equ 446
  187. r7:    equ 446+112
  188. r6:    equ 446+223
  189. r5:    equ 446+223+112
  190. r4:    equ 446*2
  191. r3:    equ 446*3
  192. r2:    equ 446*4
  193. r1:    equ 446*8
  194.  
  195.  
  196. filter: equ $bfe001
  197. filter_on equ 44
  198. filter_off equ 48
  199.  
  200. modon     equ   20
  201. pboff     equ   24
  202. modoff     equ   28
  203. rest     equ 32
  204. end_fxp  equ 36
  205. end_fx3  equ 36
  206. end_fx4  equ 40
  207. acc    equ 52
  208. repeat    equ 56
  209. down      equ   1
  210. up       equ   2
  211.  
  212. fx    equ 0
  213.  
  214.     endc
  215.  
  216.     ;"""""""""""""""""""""""""""""""""""""""""""""""""
  217.  
  218. max_songs:    dc.l  3
  219.  
  220.     ;;; DATA
  221.  
  222. song_table:
  223.         dc.l s1_b-b1,s2_b-b1,s3_b-b1,s4_b-b1    ;beach
  224.         dc.l ss1-b1,ss1-b1,ss1-b1,ss1-b1    ;silence
  225.  
  226.  
  227. fxp:
  228.  
  229.  
  230. fxjump_table:  
  231.  
  232. max_fx    dc.l    10    ;number + 1 for test routines only
  233. ;______________________________________________________________________
  234.  
  235.  
  236. ;sstart: dc.l 0,end_song
  237.  
  238. ;pstart: dc.w end_patt
  239.  
  240.  
  241. ;----------------------------------
  242.  
  243. ;;;;;;;;;;;;;;;;;;;;;   Music Data ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  244.  
  245. cr  set   24
  246. q set  cr/2
  247. sq set q/2
  248. dsq set sq/4
  249.  
  250. tq1 set      7
  251. tq2 set   6
  252. tsq1 set  3
  253. tsq2 set 4
  254.  
  255. ss1:            ;;;;;;silence tune for test only
  256.  
  257.     dc.l    pr-b1
  258.       dc.l     0,end_song
  259.  
  260.  
  261.  
  262.  
  263. ;************************************************
  264.  
  265. songs:
  266.  
  267. cr  set   24    
  268. q set  cr/2
  269. sq set q/2
  270. dsq set sq/4
  271.  
  272. tq1 set      9
  273. tq2 set   10
  274. tsq1 set  3
  275. tsq2 set 4
  276.  
  277.  
  278. ;------
  279. s1_b:
  280.  
  281.  
  282.     dc.l    start_horn-b1    
  283.     dc.l    chords_sect1-b1
  284.  
  285.       dc.l     0,end_song
  286.  
  287. s2_b:
  288.  
  289.     dc.l    bass_sndq-b1
  290.     dc.l    start_bass-b1
  291.  
  292.     dc.l    bass_snd-b1
  293.     dc.l    bass-b1
  294.  
  295.         DC.L    0,end_song
  296.  
  297. s3_b:
  298.  
  299.  
  300.     dc.l    start_horn-b1    
  301.  
  302.     dc.l    horn_snd-b1
  303.     dc.l    tune1-b1
  304.  
  305.     dc.l    trumpet_snd-b1
  306.     dc.l    trumpet1-b1
  307.  
  308.     dc.l    horn_snd-b1
  309.     dc.l    tune3-b1
  310.  
  311.  
  312.     dc.l    oboe_snd-b1
  313.     dc.l    oboe_tune-b1
  314.  
  315.  
  316.     dc.l     0,end_song
  317.  
  318. s4_b:
  319.  
  320.     dc.l    pri-b1
  321.  
  322.     dc.l     0,end_song
  323.  
  324. ;----------
  325.  
  326. pr:
  327.     dc.w    new_env
  328.     dc.l    rest_env-b1
  329.     dc.w    c03,cr*4
  330.     dc.w     end_patt
  331.  
  332.  
  333.  
  334. pri:
  335.     dc.w    rest,65000
  336.     dc.w    rest,65000
  337.     dc.w    rest,65000
  338.     dc.w    rest,65000
  339.     dc.w    rest,65000
  340.     dc.w    rest,65000
  341.     dc.w    rest,65000
  342.     dc.w end_patt
  343.  
  344. vr equ 0
  345.  
  346. chords_sect1
  347.     dc.w    new_env
  348.     dc.l    chord_env-b1
  349.  
  350.     dc.w    rest,cr
  351.  
  352.  
  353.     dc.w    new_snd
  354.     dc.l    cebgp-b1
  355.     dc.w    r8,cr*2,r8,cr*2,r8,cr*2,r8,cr*2,r8,cr*2,r8,cr*2
  356.     
  357.     dc.w    new_snd
  358.     dc.l    bbdfp-b1
  359.     dc.w    r8,cr*2,r8,cr*2
  360.  
  361.     dc.w    new_snd
  362.     dc.l    fabcp-b1
  363.     dc.w    r8,cr*2,r8,cr*2
  364.  
  365.     dc.w    new_snd
  366.     dc.l    ebgcp-b1
  367.     dc.w    r8,cr*2,r8,cr*2
  368.  
  369.     dc.w    new_snd
  370.     dc.l    dgbp-b1
  371.     dc.w    r8,cr*2,r8,cr*2
  372.  
  373.     dc.w    new_snd
  374.     dc.l    ebgbbp-b1
  375.     dc.w    r8,cr*2,r8,cr*2
  376.  
  377.     dc.w    new_snd
  378.     dc.l    ebgbbbp-b1
  379.     dc.w    r8,cr*2,r8,cr*2,r8,cr*2,r8,cr*2,r8,cr*2,r8,cr*2
  380.  
  381.     dc.w    new_snd
  382.     dc.l    dbfabp-b1
  383.     dc.w    r8,cr*2,r8,cr*2
  384.  
  385.  
  386.     dc.w    new_snd
  387.     dc.l    fabcp-b1
  388.     dc.w    r8,cr*2,r8,cr*2
  389.  
  390.     dc.w    new_snd
  391.     dc.l    ebgcp-b1
  392.     dc.w    r8,cr*2,r8,cr
  393.     ;------------------------------------
  394.     dc.w    rest,cr*8
  395.     ;------------------------------------
  396.                 ;section 2
  397.     dc.w    rest,cr    
  398.  
  399.     dc.w    new_snd
  400.     dc.l    acebgp-b1
  401.     dc.w    r8,cr*2,r8,cr*2
  402.  
  403.     dc.w    new_snd
  404.     dc.l    abbdfp-b1
  405.     dc.w    r8,cr*2,r8,cr*2
  406.  
  407.     dc.w    new_snd
  408.     dc.l    acebgp-b1
  409.     dc.w    r8,cr*2,r8,cr*2
  410.  
  411.     dc.w    new_snd
  412.     dc.l    abbdfp-b1
  413.     dc.w    r8,cr*2,r8,cr*2
  414.  
  415.     dc.w    new_snd
  416.     dc.l    facep-b1
  417.     dc.w    r8,cr*2,r8,cr*2
  418.  
  419.     dc.w    new_snd
  420.     dc.l    egbdp-b1
  421.     dc.w    r8,cr*2,r8,cr*2
  422.  
  423.     dc.w    new_snd
  424.     dc.l    facep-b1
  425.     dc.w    r8,cr*2,r8,cr
  426.  
  427.     dc.w    rest,cr*4
  428.  
  429.  
  430.     dc.w    end_patt
  431.  
  432.  
  433.  
  434. bass
  435.     dc.w    c02,cr,g01,cr,c02,cr,g01,cr
  436.     dc.w    c02,cr,g01,cr,c02,cr,g01,cr    
  437.     dc.w    c02,cr,g01,cr,c02,cr,g01,cr
  438.  
  439.     dc.w    bb01,cr,f01,cr
  440.     dc.w    bb01,cr,d02,cr
  441.  
  442.  
  443.     dc.w    f02,cr,c02,cr
  444.     dc.w    f02,cr,c02,cr
  445.     
  446.     dc.w    eb02,cr,d02,cr,c02,cr,eb02,cr
  447.     dc.w    g02,cr,d02,cr,g02,cr,d02,cr
  448.     dc.w    gb02,cr,e02,cr,eb02,cr,b01,cr
  449.     dc.w    eb02,cr,bb01,cr,eb02,cr,bb01,cr
  450.  
  451.     dc.w    eb02,cr,bb01,cr,eb02,cr,bb01,cr
  452.     dc.w    eb02,cr,bb01,cr,eb02,cr,bb01,cr
  453.  
  454.     dc.w    db02,cr,ab01,cr,db02,cr,f02,cr
  455.  
  456.     dc.w    f02,cr,c02,cr,f02,cr,c02,cr
  457.     dc.w    eb02,cr,d02,cr,c02,cr,eb02,cr
  458.  
  459.  
  460.     dc.w    g01,q,g01,cr,g01,q,g01,q
  461.     dc.w    g01,cr,g01,q
  462.     dc.w    g01,q,g01,cr,g01,q,g01,cr*2
  463.  
  464.  
  465.     dc.w    a01,cr*2,a01,cr*2
  466.     dc.w    ab01,cr*2,ab01,cr*2
  467.  
  468.     dc.w    a01,cr*2,a01,cr*2
  469.     dc.w    ab01,cr*2,ab01,cr*2
  470.  
  471.     dc.w    f01,cr*2,f01,cr*2
  472.     dc.w    e01,cr*2,e01,cr*2
  473.  
  474.     dc.w    f01,cr*2,f01,cr*2
  475.  
  476.     dc.w    rest,q,g02,q,f02,q,eb02,q,d02,cr
  477.     dc.w    g01,cr
  478.  
  479.  
  480.     dc.w    end_patt
  481.  
  482.  
  483. tune1                        ; horn tune 1
  484.     dc.w modon,1,1,1,1,6,6
  485.     dc.w    c02,q,b01,q,c02,q,d02,q,eb02,cr
  486.     dc.w    g02,cr,c03,cr+q,g02,q+cr*2
  487.     dc.w    c02,q,b01,q,c02,q,d02,q,eb02,cr
  488.     dc.w    g02,cr,f02,cr+q,d02,q+cr*2
  489.     dc.w    f02,cr*2,ab02,cr*2,g02,cr,g02,q
  490.     dc.w    g02,sq,g02,sq
  491.     dc.w    bb02,cr,a02,cr,g02,cr,g02,sq-2,rest,2,g02,q-2,rest,2
  492.     dc.w    g02,sq,g02,cr,g02,cr
  493.     dc.w    b02,cr,b02,sq,b02,q,b02,sq,b02,cr*2
  494.     dc.w    end_patt
  495.  
  496.  
  497. tune3                        ; horn tune 2
  498.     dc.w modon,1,1,2,2,6,6
  499.     dc.w    c02,q,b01,q,c02,q,d02,q,eb02,cr,c02,cr
  500.     dc.w    f02,cr*2,d02,cr*2
  501.     dc.w    c02,q,b01,q,c02,q,d02,q,eb02,cr,c02,cr
  502.     dc.w    f02,cr*2,g02,cr*2
  503.     dc.w    end_patt    
  504.  
  505.  
  506. trumpet1
  507.     dc.w modon,1,1,2,2,6,6
  508.     dc.w    bb02,cr,bb02,q,bb02,sq,bb02,sq
  509.     dc.w    eb03,cr,bb02,cr,eb02,cr*4
  510.  
  511.     dc.w    bb02,cr,bb02,q,bb02,sq,bb02,sq
  512.     dc.w    eb03,cr,bb02,cr
  513.     dc.w    ab02,cr*2,f02,cr*2
  514.  
  515.     dc.w    ab02,cr,f02,sq,ab02,sq,ab02,sq,ab02,sq
  516.     dc.w    c03,cr,ab02,cr,eb03,cr*4
  517.  
  518.     dc.w    b02,q,b02,cr,b02,q
  519.     dc.w    b02,q,b02,cr,b02,q
  520.  
  521.     dc.w    d03,q,b02,q,d03,q,e03,q,g03,cr*2
  522.  
  523.     dc.w    end_patt    
  524.  
  525. oboe_tune
  526.     dc.w    g02,cr*3,f02,q,e02,q
  527.     dc.w    d02,cr,e02,cr,c02,cr,d02,cr,e02,cr*3,rest,cr
  528.     dc.w    rest,q,g02,q,f02,q,eb02,q,d02,cr
  529.     dc.w    g02,cr
  530.     dc.w    end_patt    
  531.  
  532. start_bass
  533.     dc.w    c02,cr,rest,cr
  534.     dc.w    c02,cr,rest,cr
  535.     dc.w    c02,cr,rest,cr
  536.     dc.w    c02,cr,rest,cr
  537.     dc.w    c02,cr,rest,cr
  538.     dc.w    c02,cr,rest,cr
  539.     dc.w    c02,cr,rest,cr
  540.     dc.w    c02,cr,rest,cr
  541.     dc.w    end_patt    
  542.  
  543. start_horn
  544.     dc.w    new_env
  545.     dc.l    chord_envq-b1
  546.  
  547.  
  548.  
  549.     dc.w    new_snd
  550.     dc.l    cebgp-b1
  551.     dc.w    r8,cr,r8,cr,r8,cr,r8,cr
  552.     dc.w    r8,cr,r8,cr,r8,cr,r8,cr
  553.     dc.w    r8,cr,r8,cr,r8,cr,r8,cr
  554.     dc.w    r8,cr,r8,cr,r8,cr,r8,cr
  555.     dc.w    end_patt    
  556.  
  557.  
  558.  
  559.  
  560.  
  561.  
  562.  
  563.  
  564.  
  565.  
  566. ;--------------------
  567.  
  568. sounds:
  569.  
  570.  
  571. string_snd:
  572.     dc.w    new_env
  573.     dc.l    strings_env-b1
  574.     dc.w    new_snd
  575.     dc.l    stringsp-b1
  576.     dc.w     end_patt
  577.  
  578. oboe_snd:
  579.     dc.w    new_env
  580.     dc.l    oboe_env-b1
  581.     dc.w    new_snd
  582.     dc.l    oboep-b1
  583.     dc.w     end_patt
  584.  
  585.  
  586.  
  587.  
  588.  
  589. bass_snd:
  590.     dc.w    new_env
  591.     dc.l    bass_env-b1
  592.     dc.w    new_snd
  593.     dc.l    bassp-b1
  594.     dc.w     end_patt
  595.  
  596. bass_sndq:
  597.     dc.w    new_env
  598.     dc.l    bass_envq-b1
  599.     dc.w    new_snd
  600.     dc.l    bassp-b1
  601.     dc.w     end_patt
  602.  
  603.  
  604. horn_snd:
  605.     dc.w    new_env
  606.     dc.l    horn_env-b1
  607.     dc.w    new_snd
  608.     dc.l    hornp-b1
  609.     dc.w     end_patt
  610.  
  611.  
  612. trumpet_snd:
  613.     dc.w    new_env
  614.     dc.l    trumpet_env-b1
  615.     dc.w    new_snd
  616.     dc.l    trumpetp-b1
  617.     dc.w     end_patt
  618.  
  619.  
  620.  
  621.  
  622.  
  623. ;***********************************************
  624.  
  625. parameters:
  626.  
  627. iff    equ 108
  628.  
  629.     ; sample parameters
  630.  
  631.  
  632.  
  633. stringsp
  634.         dc.w 1
  635.              dc.l strings1d+104-b1
  636.              dc.w (9684-iff)/2 
  637.              dc.l rest_data-b1
  638.              dc.w 16/2 
  639.  
  640.  
  641. cebgp:
  642.         dc.w 1  
  643.              dc.l cebgd+iff-b1
  644.              dc.w (3798-iff)/2 
  645.              dc.l rest_data-b1
  646.              dc.w 16/2 
  647.  
  648. bbdfp:
  649.         dc.w 1  
  650.              dc.l bbdfd+iff-b1
  651.              dc.w (5711-iff)/2 
  652.              dc.l rest_data-b1
  653.              dc.w 16/2 
  654.  
  655.  
  656. fabcp:
  657.         dc.w 1  
  658.              dc.l fabcd+iff-b1
  659.              dc.w (4543-iff)/2 
  660.              dc.l rest_data-b1
  661.              dc.w 16/2 
  662.  
  663.  
  664. ebgcp:
  665.         dc.w 1  
  666.              dc.l ebgcd+iff-b1
  667.              dc.w (4347-iff)/2 
  668.              dc.l rest_data-b1
  669.              dc.w 16/2 
  670.  
  671.  
  672.  
  673.  
  674. dgbp:
  675.         dc.w 1  
  676.              dc.l dgbd+iff-b1
  677.              dc.w (5525-iff)/2 
  678.              dc.l rest_data-b1
  679.              dc.w 16/2 
  680.  
  681.  
  682.  
  683. ebgbbp:
  684.         dc.w 1  
  685.              dc.l ebgbbd+iff-b1
  686.              dc.w (5126-iff)/2 
  687.              dc.l rest_data-b1
  688.              dc.w 16/2 
  689.  
  690.  
  691.  
  692. ebgbbbp:
  693.         dc.w 1  
  694.              dc.l ebgbbbd+iff-b1
  695.              dc.w (5357-iff)/2 
  696.              dc.l rest_data-b1
  697.              dc.w 16/2 
  698.  
  699.  
  700. dbfabp:
  701.         dc.w 1  
  702.              dc.l dbfabd+iff-b1
  703.              dc.w (4475-iff)/2 
  704.              dc.l rest_data-b1
  705.              dc.w 16/2 
  706.  
  707.  
  708.  
  709. acebgp:
  710.         dc.w 1  
  711.              dc.l acebgd+iff-b1
  712.              dc.w (3453-iff)/2 
  713.              dc.l rest_data-b1
  714.              dc.w 16/2 
  715.  
  716.  
  717. abbdfp:
  718.         dc.w 1  
  719.              dc.l abbdfd+iff-b1
  720.              dc.w (3844-iff)/2 
  721.              dc.l rest_data-b1
  722.              dc.w 16/2 
  723.  
  724.  
  725.  
  726. facep:
  727.         dc.w 1  
  728.              dc.l faced+iff-b1
  729.              dc.w (3273-iff)/2 
  730.              dc.l rest_data-b1
  731.              dc.w 16/2 
  732.  
  733. egbdp:
  734.         dc.w 1  
  735.              dc.l egbdd+iff-b1
  736.              dc.w (5186-iff)/2 
  737.              dc.l rest_data-b1
  738.              dc.w 16/2 
  739.  
  740. bassp:
  741.         dc.w 1  
  742.              dc.l bassd+iff-b1
  743.              dc.w (4406-iff)/2 
  744.              dc.l rest_data-b1
  745.              dc.w 16/2 
  746.  
  747.  
  748.  
  749. ;snarep
  750. ;        dc.w 1  
  751. ;             dc.l snared
  752. ;             dc.w 2240/2  
  753. ;             dc.l restd
  754. ;             dc.w 16/2
  755. ;
  756.  
  757.  
  758. ;flutep
  759. ;        dc.w 1  
  760. ;             dc.l fluted+iff
  761. ;             dc.w 7278/2
  762. ;             dc.l fluted+4173+iff
  763. ;             dc.w 3106/2
  764.  
  765. ;sinep
  766. ;        dc.w 1  
  767. ;             dc.l sined
  768. ;             dc.w 16/2 
  769. ;             dc.l sined
  770. ;             dc.w 16/2
  771.  
  772.  
  773. ;orchhitp
  774. ;        dc.w 1  
  775. ;             dc.l orchhit8d+104
  776. ;             dc.w 5214/2 
  777. ;             dc.l restd
  778. ;             dc.w 16/2
  779.  
  780. ;tymprollp
  781. ;        dc.w 1  
  782. ;             dc.l tymprolld+104
  783. ;             dc.w 11234/2 
  784. ;             dc.l restd
  785. ;             dc.w 16/2
  786.  
  787. ;tympp
  788. ;        dc.w 1  
  789. ;             dc.l tymprolld+104+5504
  790. ;             dc.w 5730/2 
  791. ;             dc.l restd
  792. ;             dc.w 16/2
  793.  
  794.  
  795.  
  796.  
  797.  
  798. ;stringsp
  799. ;        dc.w 1  
  800. ;             dc.l strings1d+104+3208
  801. ;             dc.w 6438/2 
  802. ;             dc.l strings1d+104+3208
  803. ;             dc.w 6438/2 
  804.  
  805. oboep
  806.         dc.w 1  
  807.              dc.l oboed+104+300-b1
  808.              dc.w (10514-iff)/2 
  809.              dc.l oboed+104+4002-b1
  810.              dc.w 6512/2 
  811.  
  812. hornp
  813.         dc.w 1  
  814.              dc.l hornd+104-b1
  815.              dc.w (12000-iff)/2 
  816.              dc.l rest_data-b1
  817.              dc.w 16/2 
  818.  
  819. trumpetp
  820.         dc.w 1  
  821.              dc.l trumpetd+104-b1
  822.              dc.w (22961-iff)/2 
  823.              dc.l rest_data-b1
  824.              dc.w 16/2 
  825.  
  826.  
  827.  
  828. ;pizpianop
  829. ;        dc.w 1  
  830. ;             dc.l pizpianod
  831. ;             dc.w 4032/2
  832. ;             dc.l restd
  833. ;             dc.w 16/2 
  834.  
  835. ;cellop
  836. ;        dc.w 1  
  837. ;             dc.l cellod+104
  838. ;             dc.w 9810/2
  839. ;             dc.l restd
  840. ;             dc.w 16/2 
  841.  
  842. ;crashp
  843. ;        dc.w 1  
  844. ;             dc.l crashd+104
  845. ;             dc.w 14701/2
  846. ;             dc.l restd
  847. ;             dc.w 16/2 
  848.  
  849.  
  850.  
  851. ;-----
  852.  
  853.  
  854.  
  855. envelopes:
  856.  
  857. chord_env:            dc.w 0,48,255
  858. chord_envq:            dc.w 0,8,255
  859. bass_env:            dc.w 0,58,255
  860. bass_envq:            dc.w 0,28,255
  861. oboe_env:            dc.w 0,28,255
  862. horn_env:            dc.w 0,38,255
  863. trumpet_env:            dc.w 0,38,255
  864.  
  865.  
  866. rest_env:            dc.w 0,0,0,0,0,0,0,0,255
  867. flute_env:            dc.w 0,48,255
  868. strings_env:            dc.w 0,45,255
  869. fhorn_env:            dc.w 0,18,255
  870.  
  871. flute_envq:            dc.w 0,18,255
  872. sine_env_short:            dc.w 0,50,45,40,35,30,25,20,15,10,0,255
  873.  
  874.  
  875. loop_env:            dc.w 0,60,255
  876.  
  877.  
  878. ;**************************************************
  879.  
  880. ;;THE FX SAMPLES ARE PULLED IN HERE...THis section can be anywhere
  881. ;; in lower memory,and in any order
  882.  
  883.  
  884. cebgd            incbin c:ssig/factory/cebg.sam
  885. bbdfd            incbin c:ssig/factory/bbdf.sam
  886. fabcd            incbin c:ssig/factory/fabc.sam
  887. ebgcd            incbin c:ssig/factory/ebgc.sam
  888. dgbd            incbin c:ssig/factory/dgb.sam
  889. ebgbbd            incbin c:ssig/factory/ebgbb.sam
  890. ebgbbbd            incbin c:ssig/factory/ebgbbb.sam
  891. dbfabd            incbin c:ssig/factory/dbfab.sam
  892.  
  893. acebgd            incbin c:ssig/factory/acebg.sam
  894. abbdfd            incbin c:ssig/factory/abbdf.sam
  895. faced            incbin c:ssig/factory/face.sam
  896. egbdd            incbin c:ssig/factory/egbd.sam
  897.  
  898.  
  899. strings1d        incbin c:instruments/aguit.sam
  900. oboed            incbin c:instruments/oboe.sam
  901. hornd            incbin c:instruments/hornl.sam
  902. trumpetd        incbin c:instruments/trumpeth.sam
  903.  
  904.  
  905. bassd            incbin c:instruments/tromboneh.sam
  906.  
  907.  
  908.  
  909. ;********************************************
  910.  
  911.  
  912. restd:
  913. rest_data:
  914.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  915.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  916.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  917.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  918.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  919. sined:
  920. sine_datad:
  921.              dc.w 127,80,50,25,0,-25,-50,-100,-127
  922.              dc.w -127,-100,-50,-35,0,35,50,80,127
  923.              dc.w 127,80,50,25,0,-25,-50,-100,-127
  924.              dc.w -127,-100,-50,-35,0,35,50,80,127
  925.  
  926. endb1
  927. ;*************************************************
  928.  
  929.     end
  930.  
  931.  
  932.  
  933.  
  934.     dc.w modon,1,1,8,8,6,6
  935.     dc.w pbend,down,1,60000,32
  936.  
  937.