API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Aug 9th, 2017
98
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
QBasic 21.70 KB | None | 0 0
raw download clone embed print report
  1. DECLARE SUB SetReg (Reg%, Value%)
  2. DECLARE SUB ClearAndInitRegs ()
  3. DECLARE SUB PlayNote (Note$, Octave%, Channel%)
  4. CONST BaseAddr = &H220 'Change if your sound card uses another base address
  5. CONST RegAddr = BaseAddr + 8, DataAddr = BaseAddr + 9
  6.  
  7. DEFINT A-Z
  8.  
  9. ClearAndInitRegs
  10.  
  11. READ NoOfNotes
  12. DIM MOD$(6)
  13. FOR i = 1 TO NoOfNotes
  14.   time! = TIMER
  15.   FOR j = 0 TO 5 'Voices 0 - 5
  16.     READ Octave
  17.     READ Note$
  18.     READ MOD$(j)
  19.     PlayNote Note$, Octave, j
  20.   NEXT j
  21.   DO
  22.   LOOP WHILE time! + .1075 > TIMER
  23.   FOR j = 0 TO 5
  24.     SELECT CASE MOD$(j)
  25.     CASE "L"
  26.       REM DO nothing. Legato.
  27.     CASE "-"
  28.       SetReg &HB0 + j, 0
  29.     END SELECT
  30.   NEXT j
  31. NEXT i
  32.  
  33. END
  34.  
  35. DATA 448:
  36. DATA 2,Bb,L,0,-,-,0,-,-,4,Bb,L,5,D,L,5,F,L
  37. DATA 0,-,L,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  38. DATA 0,-,L,3,Bb,L,0,-,-,0,-,L,0,-,L,0,-,L
  39. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  40. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  41. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  42. DATA 2,C,L,0,-,-,0,-,-,4,C,L,5,E,L,5,G,L
  43. DATA 0,-,L,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  44. DATA 0,-,L,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  45. DATA 0,-,L,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  46. DATA 0,-,L,3,C,L,0,-,-,0,-,L,0,-,L,0,-,L
  47. DATA 0,-,L,0,-,-,0,-,-,0,-,-,0,-,L,0,-,L
  48. DATA 0,-,L,0,-,-,0,-,-,4,C,L,0,-,L,0,-,L
  49. DATA 0,-,L,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  50. DATA 0,-,L,3,C,L,0,-,-,0,-,L,0,-,L,0,-,L
  51. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  52. DATA 2,A,L,0,-,-,0,-,-,4,C,L,5,E,L,5,G,L
  53. DATA 0,-,L,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  54. DATA 0,-,L,3,A,L,0,-,-,0,-,L,0,-,L,0,-,L
  55. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  56. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  57. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  58. DATA 3,D,L,0,-,-,0,-,-,5,D,L,5,F,L,5,A,L
  59. DATA 0,-,L,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  60. DATA 0,-,L,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  61. DATA 0,-,L,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  62. DATA 0,-,L,4,D,L,0,-,-,0,-,L,0,-,L,0,-,L
  63. DATA 0,-,L,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  64. DATA 0,-,L,0,-,-,0,-,-,0,-,-,0,-,-,5,C,-
  65. DATA 0,-,L,0,-,-,0,-,-,0,-,-,0,-,-,5,Bb,-
  66. DATA 0,-,L,4,D,L,0,-,-,0,-,-,0,-,-,5,A,L
  67. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  68. DATA 2,Bb,L,0,-,-,0,-,-,4,Bb,L,5,D,L,5,F,L
  69. DATA 0,-,L,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  70. DATA 0,-,L,3,Bb,L,0,-,-,0,-,L,0,-,L,0,-,L
  71. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  72. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  73. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  74. DATA 2,C,L,0,-,-,0,-,-,4,C,L,5,E,L,5,G,L
  75. DATA 0,-,L,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  76. DATA 0,-,L,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  77. DATA 0,-,L,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  78. DATA 0,-,L,3,C,L,0,-,-,0,-,L,0,-,L,0,-,L
  79. DATA 0,-,L,0,-,-,0,-,-,0,-,-,0,-,L,0,-,L
  80. DATA 0,-,L,0,-,-,0,-,-,4,C,L,0,-,L,0,-,L
  81. DATA 0,-,L,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  82. DATA 0,-,L,3,C,L,0,-,-,0,-,L,0,-,L,0,-,L
  83. DATA 0,-,-,0,-,-,0,-,-,0,-,L,0,-,-,0,-,-
  84. DATA 2,A,L,0,-,-,0,-,-,0,-,L,0,-,-,0,-,-
  85. DATA 0,-,L,0,-,-,0,-,-,0,-,L,0,-,-,0,-,-
  86. DATA 0,-,L,3,A,L,0,-,-,0,-,L,0,-,-,0,-,-
  87. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,-,0,-,-
  88. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,-,0,-,-
  89. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  90. DATA 3,D,L,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  91. DATA 0,-,L,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  92. DATA 0,-,L,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  93. DATA 0,-,L,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  94. DATA 0,-,L,4,D,L,0,-,-,0,-,-,0,-,-,4,C,-
  95. DATA 0,-,L,0,-,-,0,-,-,0,-,-,0,-,-,4,C,-
  96. DATA 0,-,L,0,-,-,0,-,-,0,-,-,0,-,-,5,D,-
  97. DATA 0,-,L,0,-,-,0,-,-,0,-,-,0,-,-,5,F,L
  98. DATA 0,-,L,4,D,L,0,-,-,0,-,-,0,-,-,0,-,-
  99. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,5,F,-
  100. DATA 2,Bb,L,0,-,-,0,-,-,4,Bb,L,5,D,L,5,F,L
  101. DATA 0,-,L,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  102. DATA 0,-,L,3,Bb,L,0,-,-,0,-,L,0,-,L,0,-,L
  103. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  104. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  105. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  106. DATA 2,C,L,0,-,-,0,-,-,4,C,L,5,E,L,5,G,L
  107. DATA 0,-,L,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  108. DATA 0,-,L,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  109. DATA 0,-,L,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  110. DATA 0,-,L,3,C,L,0,-,-,0,-,L,0,-,L,0,-,L
  111. DATA 0,-,L,0,-,-,0,-,-,0,-,-,0,-,L,0,-,L
  112. DATA 0,-,L,0,-,-,0,-,-,4,C,L,0,-,L,0,-,L
  113. DATA 0,-,L,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  114. DATA 0,-,L,3,C,L,0,-,-,0,-,L,0,-,L,0,-,L
  115. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  116. DATA 2,A,L,0,-,-,0,-,-,4,C,L,5,E,L,5,G,L
  117. DATA 0,-,L,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  118. DATA 0,-,L,3,A,L,0,-,-,0,-,L,0,-,L,0,-,L
  119. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  120. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  121. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  122. DATA 3,D,L,0,-,-,0,-,-,5,D,L,5,F,L,5,A,L
  123. DATA 0,-,L,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  124. DATA 0,-,L,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  125. DATA 0,-,L,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  126. DATA 0,-,L,4,D,L,0,-,-,0,-,L,0,-,L,0,-,L
  127. DATA 0,-,L,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  128. DATA 0,-,L,0,-,-,0,-,-,0,-,-,0,-,-,5,C,-
  129. DATA 0,-,L,0,-,-,0,-,-,0,-,-,0,-,-,5,Bb,-
  130. DATA 0,-,L,4,D,L,0,-,-,0,-,-,0,-,-,5,A,L
  131. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  132. DATA 2,Bb,L,0,-,-,0,-,-,4,Bb,L,5,D,L,5,F,L
  133. DATA 0,-,L,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  134. DATA 0,-,L,3,Bb,L,0,-,-,0,-,L,0,-,L,0,-,L
  135. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  136. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  137. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  138. DATA 2,C,L,0,-,-,0,-,-,4,C,L,5,E,L,5,G,L
  139. DATA 0,-,L,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  140. DATA 0,-,L,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  141. DATA 0,-,L,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  142. DATA 0,-,L,3,C,L,0,-,-,0,-,L,0,-,L,0,-,L
  143. DATA 0,-,L,0,-,-,0,-,-,0,-,-,0,-,L,0,-,L
  144. DATA 0,-,L,0,-,-,0,-,-,4,C,L,0,-,L,0,-,L
  145. DATA 0,-,L,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  146. DATA 0,-,L,3,C,L,0,-,-,0,-,L,0,-,L,0,-,L
  147. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  148. DATA 2,A,L,3,A,L,0,-,-,4,C,L,5,E,L,0,-,-
  149. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  150. DATA 0,-,L,0,-,L,0,-,-,0,-,-,5,F,L,0,-,-
  151. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  152. DATA 3,D,L,0,-,-,0,-,-,4,A,L,5,D,L,5,F,L
  153. DATA 0,-,L,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  154. DATA 0,-,L,3,A,L,0,-,-,0,-,L,0,-,L,0,-,L
  155. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  156. DATA 0,-,L,0,-,L,4,D,L,0,-,-,0,-,-,0,-,-
  157. DATA 0,-,L,0,-,L,0,-,L,0,-,-,0,-,-,0,-,-
  158. DATA 0,-,L,0,-,L,0,-,L,0,-,-,0,-,-,0,-,-
  159. DATA 0,-,L,0,-,L,0,-,L,0,-,-,0,-,-,0,-,-
  160. DATA 0,-,L,0,-,L,0,-,L,0,-,-,0,-,-,5,F,-
  161. DATA 0,-,L,0,-,L,0,-,L,0,-,-,0,-,-,5,F,L
  162. DATA 0,-,L,0,-,L,0,-,L,0,-,-,0,-,-,0,-,-
  163. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,5,F,-
  164. DATA 2,Bb,L,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  165. DATA 0,-,L,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  166. DATA 0,-,L,3,F,L,0,-,-,0,-,-,0,-,-,0,-,-
  167. DATA 0,-,L,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  168. DATA 0,-,L,3,Bb,L,0,-,-,4,Bb,L,5,D,L,0,-,-
  169. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,-,0,-,-
  170. DATA 0,-,L,0,-,L,0,-,-,0,-,L,5,E,L,0,-,-
  171. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,-,0,-,-
  172. DATA 0,-,L,0,-,L,0,-,-,0,-,L,5,F,L,0,-,-
  173. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,-,0,-,-
  174. DATA 0,-,L,0,-,L,0,-,-,0,-,L,5,F,L,0,-,-
  175. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  176. DATA 0,-,L,0,-,L,0,-,-,0,-,-,5,G,L,0,-,-
  177. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  178. DATA 2,C,L,3,C,L,0,-,-,4,C,L,5,E,L,0,-,-
  179. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,-
  180. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  181. DATA 0,-,L,0,-,L,0,-,-,0,-,-,5,D,-,0,-,-
  182. DATA 0,-,L,0,-,L,0,-,-,0,-,-,4,C,L,0,-,-
  183. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,L,0,-,-
  184. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,L,0,-,-
  185. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,L,0,-,-
  186. DATA 2,C,L,3,C,L,0,-,-,0,-,-,0,-,L,0,-,-
  187. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,L,0,-,-
  188. DATA 2,C,L,3,C,L,0,-,-,0,-,-,0,-,L,0,-,-
  189. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,L,0,-,-
  190. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,L,0,-,-
  191. DATA 0,-,-,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  192. DATA 2,B,L,3,B,L,0,-,-,0,-,-,0,-,-,0,-,-
  193. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  194. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  195. DATA 0,-,-,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  196. DATA 2,Bb,L,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  197. DATA 0,-,L,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  198. DATA 0,-,L,3,F,L,0,-,-,4,Bb,L,5,D,L,0,-,-
  199. DATA 0,-,L,0,-,-,0,-,-,0,-,L,0,-,-,0,-,-
  200. DATA 0,-,L,3,Bb,L,0,-,-,0,-,L,5,D,L,0,-,-
  201. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,-,0,-,-
  202. DATA 0,-,L,0,-,L,0,-,-,0,-,L,5,E,L,0,-,-
  203. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,-,0,-,-
  204. DATA 0,-,L,0,-,L,0,-,-,0,-,L,5,F,L,0,-,-
  205. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  206. DATA 0,-,L,0,-,L,0,-,-,5,D,L,0,-,-,0,-,-
  207. DATA 0,-,-,0,-,-,0,-,-,0,-,L,0,-,-,0,-,-
  208. DATA 2,Bb,L,3,Bb,L,0,-,-,0,-,L,0,-,-,0,-,-
  209. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  210. DATA 0,-,L,0,-,L,0,-,-,4,C,L,0,-,-,0,-,-
  211. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  212. DATA 2,C,L,3,C,L,0,-,-,4,C,L,5,C,L,0,-,-
  213. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  214. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  215. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  216. DATA 0,-,-,0,-,-,0,-,-,0,-,-,5,C,L,0,-,-
  217. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  218. DATA 0,-,-,0,-,-,0,-,-,0,-,-,5,G,L,0,-,-
  219. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  220. DATA 4,C,L,5,E,L,0,-,-,0,-,-,0,-,-,0,-,-
  221. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  222. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  223. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  224. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  225. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  226. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  227. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  228. DATA 2,Bb,L,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  229. DATA 0,-,L,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  230. DATA 0,-,L,3,F,L,0,-,-,4,Bb,L,5,D,L,0,-,-
  231. DATA 0,-,L,0,-,-,0,-,-,0,-,L,0,-,-,0,-,-
  232. DATA 0,-,L,3,Bb,L,0,-,-,0,-,L,5,D,L,0,-,-
  233. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,-,0,-,-
  234. DATA 0,-,L,0,-,L,0,-,-,0,-,L,5,E,L,0,-,-
  235. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,-,0,-,-
  236. DATA 0,-,L,0,-,L,0,-,-,0,-,L,5,F,L,0,-,-
  237. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  238. DATA 0,-,L,0,-,L,0,-,-,5,D,L,0,-,-,0,-,-
  239. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  240. DATA 2,Bb,L,3,Bb,L,0,-,-,4,Bb,L,5,F,L,0,-,-
  241. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  242. DATA 0,-,L,0,-,L,0,-,-,0,-,-,5,G,L,0,-,-
  243. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  244. DATA 2,C,L,3,C,L,0,-,-,0,-,-,0,-,-,0,-,-
  245. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  246. DATA 0,-,L,0,-,L,0,-,-,4,C,L,5,E,L,0,-,-
  247. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  248. DATA 0,-,L,0,-,L,0,-,-,5,D,L,0,-,-,0,-,-
  249. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  250. DATA 2,C,L,3,C,L,0,-,-,4,C,L,0,-,-,0,-,-
  251. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,-,0,-,-
  252. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,-,0,-,-
  253. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,-,0,-,-
  254. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,-,0,-,-
  255. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  256. DATA 2,B,L,3,B,L,0,-,-,0,-,-,0,-,-,0,-,-
  257. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  258. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  259. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  260. DATA 2,Bb,L,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  261. DATA 0,-,L,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  262. DATA 0,-,L,3,F,L,0,-,-,4,Bb,L,5,D,L,0,-,-
  263. DATA 0,-,L,0,-,-,0,-,-,0,-,L,0,-,-,0,-,-
  264. DATA 0,-,L,3,Bb,L,0,-,-,0,-,L,5,D,L,0,-,-
  265. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  266. DATA 0,-,L,0,-,L,0,-,-,0,-,-,5,E,L,0,-,-
  267. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  268. DATA 2,G,L,3,G,L,0,-,-,4,Bb,L,5,F,L,0,-,-
  269. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  270. DATA 0,-,L,0,-,L,0,-,-,0,-,-,5,D,L,0,-,-
  271. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  272. DATA 0,-,L,0,-,L,0,-,-,4,Bb,L,0,-,-,0,-,-
  273. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,-,0,-,-
  274. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,-,0,-,-
  275. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  276. DATA 2,C,L,3,C,L,0,-,-,4,C,L,5,E,L,5,G,L
  277. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,-
  278. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,5,G,L
  279. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,-
  280. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,5,G,L
  281. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,-
  282. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,5,A,L
  283. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,-
  284. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,5,G,L
  285. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  286. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  287. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  288. DATA 2,B,L,3,B,L,0,-,-,0,-,-,0,-,-,0,-,-
  289. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  290. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  291. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  292. DATA 2,Bb,L,0,-,-,0,-,-,4,Bb,L,5,D,L,5,F,L
  293. DATA 0,-,-,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  294. DATA 3,Bb,L,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  295. DATA 0,-,-,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  296. DATA 2,Bb,L,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  297. DATA 0,-,-,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  298. DATA 3,Bb,L,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  299. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,L
  300. DATA 2,Bb,L,0,-,-,0,-,-,0,-,-,0,-,-,0,-,L
  301. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  302. DATA 3,Bb,L,0,-,-,0,-,-,0,-,-,0,-,-,5,G,L
  303. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  304. DATA 2,Bb,L,0,-,-,0,-,-,0,-,-,0,-,-,5,A,L
  305. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  306. DATA 3,Bb,L,0,-,-,0,-,-,0,-,-,0,-,-,5,F,L
  307. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  308. DATA 2,A,L,0,-,-,0,-,-,4,C,L,5,E,L,5,G,L
  309. DATA 0,-,-,0,-,-,0,-,-,0,-,L,0,-,L,0,-,-
  310. DATA 3,A,L,0,-,-,0,-,-,0,-,L,0,-,L,5,G,L
  311. DATA 0,-,-,0,-,-,0,-,-,0,-,L,0,-,L,0,-,-
  312. DATA 2,A,L,0,-,-,0,-,-,0,-,L,0,-,L,5,G,L
  313. DATA 0,-,-,0,-,-,0,-,-,0,-,L,0,-,L,0,-,-
  314. DATA 3,A,L,0,-,-,0,-,-,0,-,L,0,-,L,5,A,L
  315. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  316. DATA 2,A,L,0,-,-,0,-,-,0,-,-,0,-,-,5,G,L
  317. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,L
  318. DATA 3,A,L,0,-,-,0,-,-,0,-,-,0,-,-,0,-,L
  319. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  320. DATA 2,A,L,0,-,-,0,-,-,0,-,-,0,-,-,4,C,L
  321. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,L
  322. DATA 3,A,L,0,-,-,0,-,-,0,-,-,0,-,-,0,-,L
  323. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  324. DATA 2,Bb,L,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  325. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  326. DATA 3,Bb,L,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  327. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  328. DATA 2,Bb,L,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  329. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  330. DATA 3,Bb,L,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  331. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  332. DATA 2,G,L,0,-,-,0,-,-,4,Bb,L,5,D,L,0,-,-
  333. DATA 0,-,-,0,-,-,0,-,-,0,-,L,0,-,-,0,-,-
  334. DATA 3,G,L,0,-,-,0,-,-,0,-,L,5,E,L,0,-,-
  335. DATA 0,-,-,0,-,-,0,-,-,0,-,L,0,-,-,0,-,-
  336. DATA 2,G,L,0,-,-,0,-,-,0,-,L,5,F,L,0,-,-
  337. DATA 0,-,-,0,-,-,0,-,-,0,-,L,0,-,-,0,-,-
  338. DATA 3,G,L,0,-,-,0,-,-,0,-,L,5,D,L,0,-,-
  339. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  340. DATA 2,C,L,3,C,L,0,-,-,0,-,-,0,-,-,0,-,-
  341. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  342. DATA 0,-,-,0,-,-,0,-,-,4,C,L,5,E,L,5,G,L
  343. DATA 0,-,-,0,-,-,0,-,-,0,-,L,0,-,L,0,-,-
  344. DATA 0,-,-,0,-,-,0,-,-,0,-,L,0,-,L,5,A,L
  345. DATA 0,-,-,0,-,-,0,-,-,0,-,L,0,-,L,0,-,-
  346. DATA 0,-,-,0,-,-,0,-,-,0,-,L,0,-,L,5,G,L
  347. DATA 0,-,-,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  348. DATA 0,-,-,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  349. DATA 0,-,-,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  350. DATA 0,-,-,0,-,-,0,-,-,0,-,L,0,-,L,0,-,L
  351. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  352. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,4,C,-
  353. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,5,D,-
  354. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,5,F,-
  355. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,5,D,-
  356. DATA 2,Bb,L,3,Bb,L,0,-,-,5,D,L,5,F,L,5,A,L
  357. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  358. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  359. DATA 2,Bb,L,3,Bb,L,0,-,-,5,D,L,5,F,L,5,A,L
  360. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  361. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  362. DATA 2,C,L,3,C,L,0,-,-,4,C,L,5,E,L,5,G,L
  363. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  364. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  365. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  366. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  367. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  368. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,4,C,-
  369. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,5,D,-
  370. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,5,F,-
  371. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,5,D,-
  372. DATA 2,A,L,3,A,L,0,-,-,5,C,L,5,E,L,5,G,L
  373. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  374. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  375. DATA 2,A,L,3,A,L,0,-,-,5,C,L,5,E,L,5,G,L
  376. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  377. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  378. DATA 3,D,L,4,D,L,0,-,-,4,A,L,5,D,L,5,F,L
  379. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  380. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  381. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,5,E,L
  382. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,5,D,L
  383. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  384. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,4,C,-
  385. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,5,D,-
  386. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,5,F,-
  387. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,5,D,-
  388. DATA 2,G,L,3,G,L,0,-,-,4,Bb,L,5,D,L,5,F,L
  389. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  390. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  391. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  392. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,5,G,L
  393. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  394. DATA 2,C,L,3,C,L,0,-,-,0,-,-,4,C,L,5,E,L
  395. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,L,0,-,L
  396. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  397. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,5,D,L
  398. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,4,C,L
  399. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,L
  400. DATA 0,-,-,3,C,L,0,-,-,0,-,-,0,-,-,0,-,L
  401. DATA 0,-,-,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  402. DATA 0,-,-,0,-,L,0,-,-,0,-,-,0,-,-,4,C,L
  403. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  404. DATA 3,A,L,4,E,L,0,-,-,4,A,L,4,C,L,5,G,L
  405. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  406. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  407. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  408. DATA 3,D,L,4,D,L,0,-,-,4,A,L,4,D,L,5,F,L
  409. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  410. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  411. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  412. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  413. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  414. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  415. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  416. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,4,C,-
  417. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,5,D,-
  418. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,5,F,-
  419. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,5,D,-
  420. DATA 2,Bb,L,3,Bb,L,0,-,-,5,D,L,5,F,L,5,A,L
  421. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  422. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  423. DATA 2,Bb,L,3,Bb,L,0,-,-,5,D,L,5,F,L,5,A,L
  424. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  425. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  426. DATA 2,C,L,3,C,L,0,-,-,4,C,L,5,E,L,5,G,L
  427. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  428. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  429. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  430. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  431. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  432. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,4,C,-
  433. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,5,D,-
  434. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,5,F,-
  435. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,5,D,-
  436. DATA 2,A,L,3,A,L,0,-,-,4,C,L,5,C,L,0,-,-
  437. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,-
  438. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,-
  439. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  440. DATA 2,A,L,3,A,L,0,-,-,0,-,-,0,-,-,5,E,L
  441. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  442. DATA 3,D,L,4,D,L,0,-,-,4,A,L,5,D,L,5,F,L
  443. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  444. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  445. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,5,E,-
  446. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,5,D,L
  447. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  448. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,4,C,-
  449. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,5,D,-
  450. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,5,F,-
  451. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,5,D,-
  452. DATA 2,G,L,3,G,L,0,-,-,4,Bb,L,5,D,L,5,F,L
  453. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  454. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  455. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  456. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,5,G,L
  457. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  458. DATA 2,C,L,3,C,L,0,-,-,0,-,-,4,C,L,5,E,L
  459. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,L,0,-,L
  460. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  461. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,5,D,L
  462. DATA 0,-,L,0,-,L,0,-,-,0,-,-,0,-,-,4,C,L
  463. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,L
  464. DATA 0,-,-,3,C,L,0,-,-,0,-,-,0,-,-,0,-,L
  465. DATA 0,-,-,0,-,L,0,-,-,0,-,-,0,-,-,0,-,-
  466. DATA 0,-,-,0,-,L,0,-,-,0,-,-,0,-,-,4,C,L
  467. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  468. DATA 3,A,L,4,E,L,0,-,-,4,A,L,4,C,L,5,G,L
  469. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  470. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  471. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  472. DATA 3,D,L,4,D,L,0,-,-,4,A,L,5,D,L,5,F,L
  473. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  474. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  475. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  476. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  477. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  478. DATA 0,-,L,0,-,L,0,-,-,0,-,L,0,-,L,0,-,L
  479. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  480. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  481. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  482. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  483. DATA 0,-,-,0,-,-,0,-,-,0,-,-,0,-,-,0,-,-
  484.  
  485. SUB SetReg (Reg, Value)
  486.   OUT RegAddr, Reg
  487.   OUT DataAddr, Value
  488. END SUB
  489.  
  490. SUB ClearAndInitRegs ()
  491.   FOR i = 0 TO 224
  492.     SetReg i, 0 'Clear all registers
  493.   NEXT i
  494.   FOR c = 0 TO 2 'Channels 0-2
  495.     SetReg &H20 + c, &H1 'Plays carrier note at specified octave ch. 1
  496.     SetReg &H23 + c, &H1 'Plays modulator note at specified octave ch. 1
  497.     SetReg &H40 + c, &H1F 'Set carrier total level to softest ch. 1
  498.     SetReg &H43 + c, &H0 'Set modulator level to loudest ch. 1
  499.     SetReg &H60 + c, &HE2 'Set carrier attack and decay ch. 1
  500.     SetReg &H63 + c, &HE2 'Set modulator attack and decay ch. 1
  501.     SetReg &H80 + c, &H97 'Set carrier sustain and release ch. 1
  502.     SetReg &H83 + c, &H97 'Set modulator sustain and release ch. 1
  503.   NEXT c
  504.   FOR c = 0 TO 2 'Channels 3-5
  505.     SetReg &H28 + c, &H1 'Plays carrier note at specified octave ch. 1
  506.     SetReg &H2B + c, &H1 'Plays modulator note at specified octave ch. 1
  507.     SetReg &H48 + c, &H1F 'Set carrier total level to softest ch. 1
  508.     SetReg &H4B + c, &H0 'Set modulator level to loudest ch. 1
  509.     SetReg &H68 + c, &HE4 'Set carrier attack and decay ch. 1
  510.     SetReg &H6B + c, &HE4 'Set modulator attack and decay ch. 1
  511.     SetReg &H88 + c, &H9D 'Set carrier sustain and release ch. 1
  512.     SetReg &H8B + c, &H9D 'Set modulator sustain and release ch. 1
  513.   NEXT c
  514. END SUB
  515.  
  516. SUB PlayNote (Note$,Octave,Channel)
  517.   SELECT CASE Note$
  518.   CASE "C#", "Db"
  519.     SetReg &HA0 + Channel, &H6B 'Set note number
  520.     SetReg &HB0 + Channel, &H21 + 4 * Octave 'Set octave and turn on voice
  521.   CASE "D"
  522.     SetReg &HA0 + Channel, &H81
  523.     SetReg &HB0 + Channel, &H21 + 4 * Octave
  524.   CASE "D#", "Eb"
  525.     SetReg &HA0 + Channel, &H98
  526.     SetReg &HB0 + Channel, &H21 + 4 * Octave
  527.   CASE "E"
  528.     SetReg &HA0 + Channel, &HB0
  529.     SetReg &HB0 + Channel, &H21 + 4 * Octave
  530.   CASE "F"
  531.     SetReg &HA0 + Channel, &HCA
  532.     SetReg &HB0 + Channel, &H21 + 4 * Octave
  533.   CASE "F#", "Gb"
  534.     SetReg &HA0 + Channel, &HE5
  535.     SetReg &HB0 + Channel, &H21 + 4 * Octave
  536.   CASE "G"
  537.     SetReg &HA0 + Channel, &H2
  538.     SetReg &HB0 + Channel, &H22 + 4 * Octave
  539.   CASE "G#", "Ab"
  540.     SetReg &HA0 + Channel, &H20
  541.     SetReg &HB0 + Channel, &H22 + 4 * Octave
  542.   CASE "A"
  543.     SetReg &HA0 + Channel, &H41
  544.     SetReg &HB0 + Channel, &H22 + 4 * Octave
  545.   CASE "A#", "Bb"
  546.     SetReg &HA0 + Channel, &H63
  547.     SetReg &HB0 + Channel, &H22 + 4 * Octave
  548.   CASE "B"
  549.     SetReg &HA0 + Channel, &H87
  550.     SetReg &HB0 + Channel, &H22 + 4 * Octave
  551.   CASE "C"
  552.     SetReg &HA0 + Channel, &HAE
  553.     SetReg &HB0 + Channel, &H22 + 4 * Octave
  554.   CASE "-"
  555.     REM DO nothing. WAIT.
  556.   END SELECT
  557. END SUB
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!