API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Oct 19th, 2022
68
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 13.12 KB | None | 0 0
raw download clone embed print report
  1. ; Trantor beeper engine
  2. ; disassembled by Oleg Origin
  3. ;
  4. ;
  5. ; FOR REAL MICROBEE.
  6. ;
  7. ; Microbee does not support IM2 interrupt mode.
  8. ; Vector Table and interrupt routine needs to be removed.
  9. ;
  10.  
  11.  
  12.  
  13. ORG $8000
  14.  
  15. STARTFORSNA
  16.  
  17. ; LD BC,0
  18. ; CALL 7997 ;pause
  19. ;
  20. ; ; óñòàíîâêà ïðåðûâàíèé
  21. ; ; interrupt setup
  22. ; DI
  23. ; LD A,$C3 ; óñòàíîâêà ïåðåõîäà
  24. ; ; installation of transition
  25. ; LD ($a6FE),A
  26. ; LD HL,TR_IRQ ; íà ïðîöåäóðó ïðåðûâíèé
  27. ; ; on interrupt procedure
  28. ;; LD ($a6FF),HL
  29. ;
  30. ; LD HL,$a500 ; $FD00
  31. ; LD B,0
  32. ; LD C, $a6 ; $FE
  33. ;IMLOOP1 LD (HL),C
  34. ; INC HL
  35. ; DJNZ IMLOOP1
  36. ; LD (HL),C
  37. ; LD A, $a5 ; $FD
  38. ; LD I,A
  39. ; IM 2
  40. ; EI
  41.  
  42. CALL TR_MUSX
  43. RET
  44.  
  45. ;--------------------------------------------------------------
  46.  
  47. TR_MUS
  48. ; LD (L_C68C),A
  49. TR_MUSX
  50. DI
  51. CALL SETSTART
  52. LD A,(HL)
  53. LD (L_C516),A
  54. LD (L_C526),A
  55. LD (L_C5D7),A
  56. INC HL
  57.  
  58. LD (RESTSP1+1),SP
  59. LD SP,HL
  60. POP HL
  61. LD (L_C623+1),HL
  62. POP HL
  63. LD (L_C641+1),HL
  64. POP HL
  65. LD (L_C661+1),HL
  66. RESTSP1 LD SP,$0000
  67.  
  68. LD A,$00
  69. L_C3C8 EQU $-1
  70. LD (L_C449),A
  71. LD (L_C498),A
  72. LD (L_C580),A
  73. LD (L_C59C),A
  74. LD (L_C590),A
  75. LD (L_C440),A
  76. LD (L_C48F),A
  77. ; â îðèãèíàëå óñòàíîâêà àäðåñà
  78. ; ïðîöåäóðû ïðåðûâàíèé áûëà çäåñü
  79. ;
  80. ; the original address setting
  81. ; interrupt procedures were here
  82. CALL L_C623
  83. CALL L_C641
  84. CALL L_C661
  85. LD C,$01
  86. EXX
  87. EI
  88. LD BC,$0101
  89. HALT
  90. L_C3FA CALL C,L_C5F0
  91. LD A,B
  92. AND A
  93. JR NZ,L_C430
  94. L_C401 LD HL,$0001
  95. L_C402 EQU $-2
  96. L_C404 LD A,(HL)
  97. OR A
  98. JP M,L_C4D1
  99. CALL L_C687
  100. LD (L_C439),A
  101. LD D,A
  102. RRCA
  103. RRCA
  104. RRCA
  105. AND $1F
  106. LD (L_C444),A
  107. XOR A
  108. LD (L_C5F1),A
  109. INC A
  110. LD (L_C43B),A
  111. LD A,(L_C440)
  112. OR $18
  113. LD (L_C440),A
  114. INC HL
  115. L_C429 LD (L_C402),HL
  116. LD B,$01
  117. L_C42D EQU $-1
  118. JR L_C435
  119.  
  120. L_C430 LD A,$03
  121. L_C432 DEC A
  122. JR NZ,L_C432
  123. L_C435 DEC D
  124. JR NZ,L_C44C
  125. LD D,$00
  126. L_C439 EQU $-1
  127. LD A,$01
  128. L_C43B EQU $-1
  129. L_C43C DEC A
  130. JR NZ,L_C43C
  131. LD A,64
  132. L_C440 EQU $-1
  133.  
  134.  
  135. LD A,64
  136. out ($2), A
  137.  
  138. LD A,$00
  139. L_C444 EQU $-1
  140. L_C445 DEC A
  141. JR NZ,L_C445
  142. LD A,64 ;$02
  143. L_C449 EQU $-1
  144.  
  145. out ($2), A
  146.  
  147.  
  148. L_C44C LD A,C
  149. AND A
  150. JR NZ,L_C47E
  151. L_C450 LD HL,$0001
  152. L_C451 EQU $-2
  153. L_C453 LD A,(HL)
  154. OR A
  155. JP M,L_C4B9
  156. CALL L_C687
  157. LD (L_C488),A
  158. LD E,A
  159. RRCA
  160. RRCA
  161. AND $3F
  162. LD (L_C493),A
  163. XOR A
  164. LD (L_C60A),A
  165. INC A
  166. LD (L_C48A),A
  167. LD A,(L_C48F)
  168. OR $18
  169. LD (L_C48F),A
  170. INC HL
  171. L_C477 LD (L_C451),HL
  172. LD C,$01
  173. L_C47B EQU $-1
  174. JR L_C483
  175.  
  176. L_C47E LD A,$03
  177. L_C480 DEC A
  178. JR NZ,L_C480
  179. L_C483 DEC E
  180. JP NZ,L_C3FA
  181. LD E,$00
  182. L_C488 EQU $-1
  183. LD A,$01
  184. L_C48A EQU $-1
  185. L_C48B DEC A
  186. JR NZ,L_C48B
  187. LD A,64
  188. L_C48F EQU $-1
  189.  
  190. LD A,64
  191. out ($2), A
  192.  
  193.  
  194. LD A,$00
  195. L_C493 EQU $-1
  196. L_C494 DEC A
  197. JR NZ,L_C494
  198. LD A,0;$01
  199. L_C498 EQU $-1
  200.  
  201. out ($2), A
  202.  
  203.  
  204. JP L_C3FA
  205.  
  206. TR_IRQ PUSH AF
  207. PUSH HL
  208. PUSH DE
  209. DEC C
  210. DEC B
  211. EXX
  212. DEC C
  213. CALL Z,TR_DRUM ; óäàðíûå
  214. ; drums
  215.  
  216. ;---------------------------------------
  217. ; LD (TRSMC1+1),BC
  218. ; â îðèãèíàëå çäåñü âûçîâ ìåíþ
  219. ; here in the original call to menu
  220. ;TRSMC1 LD BC,$0000
  221. ;---------------------------------------
  222.  
  223. EXX
  224. POP DE
  225. POP HL
  226. POP AF
  227. SCF
  228. EI
  229. RET
  230.  
  231. L_C4B9 INC HL
  232. PUSH HL
  233. AND $7F
  234. CALL L_C5E6
  235. JP L_C533
  236. JP L_C4FB
  237. JP L_C4E9
  238. JP L_C523
  239. JP L_C54A
  240. POP HL
  241. RET
  242.  
  243. L_C4D1 INC HL
  244. PUSH HL
  245. AND $7F
  246. CALL L_C5E6
  247. JP L_C53A
  248. JP L_C507
  249. JP L_C4F2
  250. JP L_C513
  251. JP L_C541
  252. POP HL
  253. RET
  254.  
  255. L_C4E9 POP HL
  256. LD A,(HL)
  257. LD (L_C610),A
  258. INC HL
  259. JP L_C453
  260.  
  261. L_C4F2 POP HL
  262. LD A,(HL)
  263. LD (L_C5F8),A
  264. INC HL
  265. JP L_C404
  266.  
  267. L_C4FB POP HL
  268. LD A,(L_C48F)
  269. AND $07
  270. LD (L_C48F),A
  271. JP L_C477
  272.  
  273. L_C507 POP HL
  274. LD A,(L_C440)
  275. AND $07
  276. LD (L_C440),A
  277. JP L_C429
  278.  
  279. L_C513 POP HL
  280. PUSH BC
  281. LD B,$01
  282. L_C516 EQU $-1
  283. XOR A
  284. L_C518 ADD A,(HL)
  285. DJNZ L_C518
  286. LD (L_C42D),A
  287. INC HL
  288. POP BC
  289. JP L_C404
  290.  
  291. L_C523 POP HL
  292. PUSH BC
  293. LD B,$01
  294. L_C526 EQU $-1
  295. XOR A
  296. L_C528 ADD A,(HL)
  297. DJNZ L_C528
  298. LD (L_C47B),A
  299. INC HL
  300. POP BC
  301. JP L_C453
  302.  
  303. L_C533 POP HL
  304. CALL L_C641
  305. JP L_C450
  306.  
  307. L_C53A POP HL
  308. CALL L_C623
  309. JP L_C401
  310.  
  311. L_C541 POP HL
  312. LD A,(HL)
  313. INC HL
  314. LD (L_C68C),A
  315. JP L_C404
  316.  
  317. L_C54A POP HL
  318. LD A,(HL)
  319. INC HL
  320. LD (L_C68C),A
  321. JP L_C453
  322.  
  323. ;------------Drumset-------------------
  324.  
  325. TR_DRUM LD C,$01 ; (SMC)
  326. L_C555 LD HL,$0001 ; DJM
  327. L_C556 EQU $-2
  328. LD A,(HL)
  329. INC HL
  330. LD (L_C556),HL
  331. AND $7F
  332. CALL L_C5E6
  333. JP L_C5A6
  334. RET
  335.  
  336. NOP
  337. NOP
  338. JP L_C596
  339. JP L_C5D3
  340. JP L_C57A
  341. RET
  342.  
  343. NOP
  344. NOP
  345. JP L_C587
  346. JP L_C5AB
  347. L_C57A LD B,$80
  348. L_C57C LD A,(HL)
  349. AND 64
  350. OR $00
  351. L_C580 EQU $-1
  352.  
  353. out ($2), A
  354.  
  355.  
  356. DEC L
  357. DJNZ L_C57C
  358. RET
  359.  
  360. L_C587 LD HL,$005C
  361. L_C58A LD A,(HL)
  362. OR A
  363. RET Z
  364. AND 64
  365. OR $00
  366. L_C590 EQU $-1
  367.  
  368. out ($2), A
  369.  
  370.  
  371. INC HL
  372. JR L_C58A
  373.  
  374. L_C596 LD B,$20
  375. L_C598 LD A,(HL)
  376. AND 64
  377. OR $00
  378. L_C59C EQU $-1
  379.  
  380. out ($2), A
  381.  
  382.  
  383. L_C59F DEC A
  384. JR NZ,L_C59F
  385. DEC L
  386. DJNZ L_C598
  387. RET
  388.  
  389. L_C5A6 CALL L_C661
  390. JR L_C555
  391.  
  392. L_C5AB LD HL,(L_C556)
  393. LD A,(HL)
  394. INC HL
  395. LD (L_C556),HL
  396. LD B,$1E
  397. LD L,A
  398. RRCA
  399. LD H,A
  400. L_C5B8 LD A,(L_C3C8)
  401.  
  402. out ($2), A
  403.  
  404.  
  405. DEC L
  406. LD A,L
  407. L_C5BF DEC A
  408. JR NZ,L_C5BF
  409. LD A,(L_C3C8)
  410. OR 64
  411.  
  412. out ($2), A
  413.  
  414.  
  415. LD A,$04
  416. ADD A,H
  417. LD H,A
  418. L_C5CD DEC A
  419. JR NZ,L_C5CD
  420. DJNZ L_C5B8
  421. RET
  422.  
  423. L_C5D3 LD HL,(L_C556)
  424. LD B,$01
  425. L_C5D7 EQU $-1
  426. XOR A
  427. L_C5D9 ADD A,(HL)
  428. DJNZ L_C5D9
  429. LD (TR_DRUM+1),A
  430. INC HL
  431. LD (L_C556),HL
  432. JP TR_DRUM
  433.  
  434. L_C5E6 LD L,A
  435. ADD A,A
  436. ADD A,L
  437. POP HL
  438. ADD A,L
  439. LD L,A
  440. JR NC,L_C5EF
  441. INC H
  442. L_C5EF JP (HL)
  443. ;
  444. L_C5F0 LD A,$00
  445. L_C5F1 EQU $-1
  446. INC A
  447. LD (L_C5F1),A
  448. PUSH HL
  449. CP $02
  450. L_C5F8 EQU $-1
  451. JR C,L_C609
  452. XOR A
  453. LD (L_C5F1),A
  454. LD HL,L_C444
  455. DEC (HL)
  456. JR Z,L_C608
  457. LD HL,L_C43B
  458. L_C608 INC (HL)
  459. L_C609 LD A,$00
  460. L_C60A EQU $-1
  461. INC A
  462. LD (L_C60A),A
  463. CP $04
  464. L_C610 EQU $-1
  465. JR C,L_C621
  466. XOR A
  467. LD (L_C60A),A
  468. LD HL,L_C493
  469. DEC (HL)
  470. JR Z,L_C620
  471. LD HL,L_C48A
  472. L_C620 INC (HL)
  473. L_C621 POP HL
  474. RET
  475.  
  476. L_C623 LD HL,0 ; (SMC) chan 1 pat addr
  477. LD E,(HL)
  478. INC HL
  479. LD D,(HL)
  480. INC HL
  481. LD (L_C623+1),HL
  482. LD (L_C402),DE
  483. LD A,D ; êîíåö ïàòòåðíîâ äëÿ êàíàëà?
  484. ; the end of the pattern for the channel?
  485. OR E
  486. RET NZ
  487. CALL SETSTART ; ïåðåõîä íà íà÷àëî òðåêà
  488. ; the transition to the beginning of the track
  489. INC HL
  490. LD E,(HL)
  491. INC HL
  492. LD D,(HL)
  493. LD (L_C623+1),DE
  494. JR L_C623
  495.  
  496. L_C641 LD HL,0 ; (SMC) chan 1 pat addr
  497. LD E,(HL)
  498. INC HL
  499. LD D,(HL)
  500. INC HL
  501. LD (L_C641+1),HL
  502. LD (L_C451),DE
  503. LD A,D ; êîíåö ïàòòåðíîâ äëÿ êàíàëà?
  504. ; the end of the pattern for the channel?
  505. OR E
  506. RET NZ
  507. CALL SETSTART ; ïåðåõîä íà íà÷àëî òðåêà
  508. ; the transition to the beginning of the track
  509. INC HL
  510. INC HL
  511. INC HL
  512. LD E,(HL)
  513. INC HL
  514. LD D,(HL)
  515. LD (L_C641+1),DE
  516. JR L_C641
  517.  
  518. L_C661 LD HL,0 ; (SMC) drm chan pat addr
  519. LD E,(HL)
  520. INC HL
  521. LD D,(HL)
  522. INC HL
  523. LD (L_C661+1),HL
  524. LD (L_C556),DE
  525. LD A,D ; êîíåö ïàòòåðíîâ äëÿ êàíàëà?
  526. ; the end of the pattern for the channel?
  527. OR E
  528. RET NZ
  529. CALL SETSTART ; ïåðåõîä íà íà÷àëî òðåêà
  530. ; the transition to the beginning of the track
  531. INC HL
  532. INC HL
  533. INC HL
  534. INC HL
  535. INC HL
  536. LD E,(HL)
  537. INC HL
  538. LD D,(HL)
  539. LD (L_C661+1),DE
  540. JR L_C661
  541.  
  542. SETSTART
  543. LD HL,TR_DATA_START
  544. RET
  545.  
  546. L_C687 PUSH HL
  547. LD HL,TR_NOTETABLE
  548. ADD A,$00
  549. L_C68C EQU $-1
  550. ADD A,L
  551. LD L,A
  552. JR NC,L_C692
  553. INC H
  554. L_C692 LD A,(HL)
  555. POP HL
  556. RET
  557.  
  558. ;--------------------------------------------------
  559.  
  560. TR_NOTETABLE
  561.  
  562. DB $EE, $E1, $D4, $C8, $BD, $B2, $A8, $9F
  563. DB $96, $8E, $86, $7E, $77, $70, $6A, $64
  564. DB $5E, $59, $54, $4F, $4B, $47, $43, $3F
  565. DB $3B, $38, $35, $32, $2F, $2C, $2A, $27
  566. DB $25, $23, $21, $1F, $1D, $1C, $1A, $19
  567. DB $17, $16, $15, $13, $12, $11, $10, $0F
  568. DB $0E, $0E, $0D, $0C, $0B, $0B, $0A, $09
  569. DB $09, $08, $08, $07
  570.  
  571. TR_DATA_START
  572.  
  573. DB 3 ; tempo (actual 3)
  574. DW CH1PAT ; addr of channel 1 pattern list
  575. DW CH2PAT ; addr of channel 2 pattern list
  576. DW CHDPAT ; addr of drum pattern list
  577.  
  578. CH1PAT DW P_C7F8, P_CA95, P_C801, P_C801
  579. DW P_C830, P_C830, P_C801, P_C801
  580. DW P_C830, P_C830, P_C801, P_C801
  581. DW P_C830, P_C830, P_C801, P_C801
  582. DW P_C830, P_C830, P_C85F, P_C85F
  583. DW P_C884, P_C884, P_C85F, P_C85F
  584. DW P_C884, P_C884, P_CA9C, P_C85F
  585. DW P_C85F, P_C884, P_C884, P_C85F
  586. DW P_C85F, P_C884, P_C884, P_CA99
  587. DW P_C85F, P_C85F, P_C884, P_C884
  588. DW P_C85F, P_C85F, P_C884, P_C884
  589. DW P_CA9C, P_C884, P_C884, P_C8A9
  590. DW P_C8A9, P_C884, P_C884, P_C8A9
  591. DW P_C8A9, P_C884, P_C884, P_C8A9
  592. DW P_C8A9, P_C884, P_C884, P_C8A9
  593. DW P_C8A9
  594.  
  595. DW $0000 ; end of patterns for channel 1
  596.  
  597.  
  598. CH2PAT DW P_C8CE, P_C8CE, P_C913, P_C913
  599. DW P_CA95, P_C954, P_C954, P_C990
  600. DW P_C990, P_C990, P_C990, P_CA9C
  601. DW P_C990, P_C990, P_C990, P_C990
  602. DW P_CA99, P_C9C9, P_C9C9, P_CA9C
  603. DW P_CA4E, P_CA99
  604.  
  605. DW $0000 ; end of patterns for channel 2
  606.  
  607. CHDPAT DW P_CA8E, P_CA95, DRMPAT, DRMPAT
  608. DW DRMPAT, DRMPAT, DRMPAT, DRMPAT
  609. DW DRMPAT, DRMPAT, DRMPAT, DRMPAT
  610. DW DRMPAT, DRMPAT, DRMPAT, DRMPAT
  611. DW DRMPAT, DRMPAT, DRMPAT, DRMPAT
  612. DW DRMPAT, DRMPAT, DRMPAT, DRMPAT
  613. DW DRMPAT, DRMPAT, DRMPAT, DRMPAT
  614. DW DRMPAT, DRMPAT, DRMPAT, DRMPAT
  615. DW DRMPAT, DRMPAT, DRMPAT, DRMPAT
  616. DW DRMPAT, DRMPAT, DRMPAT, DRMPAT
  617. DW DRMPAT, DRMPAT, DRMPAT, DRMPAT
  618. DW DRMPAT, DRMPAT, DRMPAT, DRMPAT
  619. DW DRMPAT, DRMPAT, DRMPAT, DRMPAT
  620. DW DRMPAT, DRMPAT, DRMPAT, DRMPAT
  621. DW DRMPAT, DRMPAT
  622.  
  623. DW $0000 ; end of patterns for drum channel
  624.  
  625. ;--------------------------------------------------
  626. ; Patterns Data
  627. ; 0..59 = Note
  628. ; 128 = End of Pattern
  629. ; 129 = Note Off
  630. ; 130 = Set Volume Fading
  631. ; 131 = Set Note Length
  632. ; 132 = Set Global Tone Shift
  633. ;--------------------------------------------------
  634.  
  635. P_C7F8 DB 130, 6, 131, 64, 9, 9, 9, 9
  636. DB 128
  637.  
  638. P_C801 DB 130, 1, 131, 2, 9, 131, 1
  639. DB 24, 129, 28, 129, 24, 129, 131, 2
  640. DB 9, 131, 1, 24, 129, 28, 129, 24
  641. DB 129, 131, 2, 9, 131, 1, 24, 129
  642. DB 28, 129, 24, 129, 131, 2, 19, 131
  643. DB 1, 24, 129, 28, 129, 24, 129, 128
  644.  
  645. P_C830 DB 130, 1, 131, 2, 0, 131, 1, 28
  646. DB 129, 31, 129, 28, 129, 131, 2, 0
  647. DB 131, 1, 28, 129, 31, 129, 28, 129
  648. DB 131, 2, 0, 131, 1, 28, 129, 31
  649. DB 129, 28, 129, 131, 2, 23, 131, 1
  650. DB 28, 129, 31, 129, 28, 129, 128
  651.  
  652. P_C85F DB 130
  653. DB 1, 131, 1, 9, 129, 9, 129, 9
  654. DB 129, 9, 129, 9, 129, 9, 129, 9
  655. DB 129, 9, 129, 9, 129, 9, 129, 9
  656. DB 129, 9, 129, 9, 129, 9, 129, 9
  657. DB 129, 7, 129, 128
  658.  
  659. P_C884 DB 130, 1, 131, 1
  660. DB 0, 129, 0, 129, 0, 129, 0, 129
  661. DB 0, 129, 0, 129, 0, 129, 0, 129
  662. DB 0, 129, 0, 129, 0, 129, 0, 129
  663. DB 0, 129, 0, 129, 0, 129, 11, 129
  664. DB 128
  665.  
  666. P_C8A9 DB 130, 1, 131, 1, 5, 129, 5
  667. DB 129, 5, 129, 5, 129, 5, 129, 5
  668. DB 129, 5, 129, 5, 129, 5, 129, 5
  669. DB 129, 5, 129, 5, 129, 5, 129, 5
  670. DB 129, 5, 129, 4, 129, 128
  671.  
  672. P_C8CE DB 130, 1, 131, 1
  673. DB 24, 129, 24, 129, 21, 129
  674. DB 21, 129, 16, 129, 16, 129, 24, 129
  675. DB 24, 129, 21, 129, 21, 129, 16, 129
  676. DB 16, 129, 23, 129, 23, 129, 19, 129
  677. DB 19, 129, 14, 129, 14, 129, 23, 129
  678. DB 23, 129, 19, 129, 19, 129, 14, 129
  679. DB 14, 129, 21, 129, 21, 129, 17, 129
  680. DB 17, 129, 12, 129, 12, 129, 17, 129
  681. DB 17, 129, 128
  682.  
  683. P_C913 DB 12, 129, 12, 129, 9
  684. DB 129, 9, 129, 4, 129, 4, 129, 12
  685. DB 129, 12, 129, 9, 129, 9, 129, 4
  686. DB 129, 4, 129, 11, 129, 11, 129, 7
  687. DB 129, 7, 129, 2, 129, 2, 129, 11
  688. DB 129, 11, 129, 7, 129, 7, 129, 2
  689. DB 129, 2, 129, 9, 129, 9, 129, 5
  690. DB 129, 5, 129, 0, 129, 0, 129, 5
  691. DB 129, 5, 129, 128
  692.  
  693. P_C954 DB 130, 2, 131, 28
  694. DB 4, 131, 4, 7, 131, 28, 9, 131
  695. DB 4, 11, 131, 26, 12, 131, 1, 13
  696. DB 14, 15, 16, 17, 18, 131, 32, 19
  697. DB 130, 3, 131, 28, 24, 131, 4, 23
  698. DB 131, 28, 19, 131, 4, 21, 131, 52
  699. DB 16, 131, 1, 15, 14, 13, 12, 11
  700. DB 10, 9, 8, 7, 6, 5, 4, 128
  701.  
  702. P_C990 DB 130, 1, 131, 11, 16, 131, 1, 129
  703. DB 131, 7, 9, 131, 1, 129, 131, 3
  704. DB 9, 131, 1, 129, 131, 11, 16, 131
  705. DB 1, 129, 131, 7, 9, 131, 1, 129
  706. DB 131, 7, 9, 131, 1, 129, 131, 3
  707. DB 9, 131, 1, 129, 131, 3, 12, 131
  708. DB 1, 129, 131, 3, 14, 131, 1, 129
  709. DB 128
  710.  
  711. P_C9C9 DB 130, 1, 131, 1, 21, 129, 21
  712. DB 129, 21, 129, 21, 129, 21, 129, 21
  713. DB 129, 19, 129, 19, 129, 19, 129, 19
  714. DB 129, 19, 129, 19, 129, 21, 129, 21
  715. DB 129, 21, 129, 21, 129, 21, 129, 21
  716. DB 129, 19, 129, 19, 129, 19, 129, 19
  717. DB 129, 21, 129, 21, 129, 21, 129, 21
  718. DB 129, 19, 129, 19, 129, 21, 129, 21
  719. DB 129, 22, 129, 22, 129, 21, 129, 21
  720. DB 129, 21, 129, 21, 129, 21, 129, 21
  721. DB 129, 19, 129, 19, 129, 19, 129, 19
  722. DB 129, 19, 129, 19, 129, 21, 129, 21
  723. DB 129, 21, 129, 21, 129, 21, 129, 21
  724. DB 129, 19, 129, 19, 129, 19, 129, 19
  725. DB 129, 21, 129, 21, 129, 21, 129, 21
  726. DB 129, 19, 129, 19, 129, 21, 129, 21
  727. DB 129, 22, 129, 22, 129, 128
  728.  
  729. P_CA4E DB 130, 5
  730. DB 131, 60, 19, 131, 4, 20, 131, 60
  731. DB 21, 131, 4, 20, 131, 60, 19, 131
  732. DB 4, 20, 131, 60, 21, 131, 4, 20
  733. DB 131, 60, 19, 131, 4, 18, 131, 60
  734. DB 17, 131, 4, 18, 131, 60, 19, 131
  735. DB 4, 18, 131, 60, 17, 131, 4, 18
  736. DB 128
  737.  
  738. ;-------Drum Pattern Data-----------
  739.  
  740. DRMPAT DB 131, 4, 135, 30, 130, 134
  741. DB 135, 30, 130, 134, 130, 134
  742. DB 128
  743.  
  744. ;-------Special Patterns------------
  745.  
  746. P_CA8E DB 131, 64, 129, 129 ; Empty Patterns
  747. DB 129, 129, 128 ; (used for drums begin)
  748. P_CA95 DB 131, 8, 129, 128 ; Short Empty (for pause)
  749. P_CA99 DB 132, 0, 128 ; Set Tone Shift = 0
  750. P_CA9C DB 132, 1, 128 ; Set Tone Shift + 1
  751.  
  752.  
  753.  
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!