?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1. ;****************************************************************************
  2. ;** SPECTRUM AY SOUND CHIP MUSIC DRIVER                                    **
  3. ;****************************************************************************
  4.  
  5. ;                IF MUSICALSO=1
  6. ;                OCMD "K7"
  7.  
  8. ;                ORG $E000
  9.  
  10. ;****************************************************************************
  11. ;** INITIALIZE TUNE                                                        **
  12. ;****************************************************************************
  13.  
  14. E000            JP RESETSOUND
  15. E003            JP DOMUSIC
  16. E006            JP INITTUNE
  17. E009            JP MUSICDEMO
  18.  
  19. INITTUNE        PUSH AF:CALL RESETSOUND:LD A,$3F:LD (ENABLE),A:POP AF
  20.                 LD HL,TUNES:LD DE,6:CALL MULT0
  21.                 LD IX,CHANADAT:LD (IX+CHANNEL),0:CALL INITCHAN
  22.                 LD IX,CHANBDAT:LD (IX+CHANNEL),1:CALL INITCHAN
  23.                 LD IX,CHANCDAT:LD (IX+CHANNEL),2:JP INITCHAN
  24.  
  25. ;                ENT
  26.  
  27. MUSICDEMO       XOR A:OUT (254),A:LD R,A
  28.                 CALL RESETSOUND:XOR A:CALL INITTUNE
  29. MUSICDEMOLOOP   LD A,127:IN A,(254):RRA:JR NC,NOHALT
  30.                 EI:HALT:DI
  31. NOHALT          CALL DOMUSIC
  32.                 LD HL,ONETOFIVE:LD A,%11110111:CALL INA
  33.                 LD HL,SIXTOZERO:LD A,%11101111:CALL INA
  34.                 JP MUSICDEMOLOOP
  35.  
  36. INA             IN A,(254):LD C,A
  37.                 RR C:JR NC,GOTU:INC HL
  38.                 RR C:JR NC,GOTU:INC HL
  39.                 RR C:JR NC,GOTU:INC HL
  40.                 RR C:JR NC,GOTU:INC HL
  41.                 RR C:RET C
  42. GOTU            LD A,(HL):JP INITTUNE
  43.  
  44. ONETOFIVE       DB 1,2,3,4,5
  45. SIXTOZERO       DB 0,9,8,7,6
  46.  
  47. MULT0           OR A:RET Z:RRA :JR NC,MULT1:ADD HL,DE
  48. MULT1           EX DE,HL:ADD HL,HL:EX DE,HL:JP MULT0
  49.  
  50. INITCHAN        XOR A:LD (IX+TRNS),A
  51.                 LD E,(HL):INC HL:LD D,(HL):INC HL
  52. INITCHAN1       LD A,(DE):INC DE:CP TRANSPOSE:JR NZ,NITRNS
  53.                 LD A,(DE):INC DE:LD (IX+TRNS),A:JR INITCHAN1
  54. NITRNS          LD (IX+SEQ),E:LD (IX+SEQ+1),D:ADD A,A
  55.                 LD DE,SEQTABLE:ADD A,E:LD E,A:ADC A,D:SUB E:LD D,A
  56.                 LD A,(DE):INC DE:LD (IX+POSI),A
  57.                 LD A,(DE):LD (IX+POSI+1),A
  58.                 XOR A
  59.                 LD (IX+ADSRNUM),A:LD (IX+ADSRADD),A
  60.                 LD (IX+ADSRDIR),A:LD (IX+ADSRCNT),A
  61.                 LD (IX+SLIDDIR),A:LD (IX+SLIDOF),A
  62.                 LD (IX+ARPNUM),A:LD (IX+ARPADD),A:LD (ARPOF),A
  63.                 LD (IX+VIBNUM),A:LD (IX+VIBADD),A
  64.                 LD (IX+VIBDEL),A:LD (IX+VIBOF),A
  65.                 LD (IX+DRMON),A
  66.                 INC A:LD (IX+SLIDDEL),A:LD (IX+SLIDDELAY),A
  67.                 LD (IX+ADSRDEL),A:LD (IX+ADSRDELAY),A
  68.                 LD (IX+VIBTIM),A:LD (IX+VIBTIMER),A
  69.                 LD (IX+DEL),A
  70.                 LD (IX+MASTERVOLUME),15:LD (IX+MASTERVOLDIR),0
  71.                 LD (IX+MASTERVOLDEL),1:LD (IX+MASTERVDELAY),1:RET
  72.  
  73. ;***************************************************************************
  74. ;** AY CHANNEL HANDLER                                                    **
  75. ;***************************************************************************
  76.  
  77. DRUMBITS        CALL DODRUM:LD E,(IX+DRMPIT):LD A,6:CALL SEND1
  78.                 LD A,(IX+CHANNEL):ADD A,3:JP SENDVOLBITS
  79.  
  80. DOMUSIC         LD IX,CHANADAT:CALL DOCHAN
  81.                 LD IX,CHANBDAT:CALL DOCHAN
  82.                 LD IX,CHANCDAT
  83. DOCHAN          CALL GOFORNOTE
  84.                 CALL DOADSR:CALL DOMASTERVOL
  85.                 LD A,(IX+DRMON):OR A:JR NZ,DRUMBITS
  86.                 CALL DOSLIDE:CALL DOARPEGIO:CALL DOVIBRATO
  87. SENONOTE        LD A,(IX+NOTE):ADD A,(IX+ARPOF):ADD A,(IX+TRNS)
  88.                 LD L,A:LD H,0:ADD HL,HL:ADD HL,HL
  89.                 LD A,(IX+SLIDOF):CALL ADDHLAS
  90.                 LD A,(IX+VIBOF):CALL ADDHLAS
  91.                 LD A,L:SRL H:RR L:RES 0,L:AND 3:PUSH AF
  92.                 LD DE,OCT0:ADD HL,DE:LD E,(HL):INC HL:LD D,(HL)
  93.                 LD BC,ST0-OCT0:ADD HL,BC:LD B,(HL):DEC HL:LD C,(HL)
  94.                 EX DE,HL:LD E,C:LD D,B:POP AF:JR Z,NODDY:LD B,A
  95. NADDY           ADD HL,DE:DJNZ NADDY
  96. NODDY           LD A,(IX+CHANNEL):ADD A,A:CALL SEND2
  97.                 LD A,(IX+CHANNEL)
  98. SENDVOLBITS     CALL ENABLER:LD E,A:LD A,7:CALL SEND1
  99.                 LD A,15:SUB (IX+MASTERVOLUME):LD E,A
  100.                 LD A,(IX+VOL):SUB E:JR NC,NOTLESSTHAN:XOR A
  101. NOTLESSTHAN     LD E,A:LD A,(IX+CHANNEL):ADD A,8:JP SEND1
  102.  
  103. ADDHLAS         OR A:JP M,HLMA
  104. HLPA            ADD A,L:LD L,A:ADC A,H:SUB L:LD H,A:RET
  105. HLMA            PUSH BC:NEG:LD C,A:LD A,L:SUB C:LD L,A
  106.                 LD A,H:SBC A,0:LD H,A:POP BC:RET
  107.  
  108. GOFORNOTE       DEC (IX+DEL):RET NZ
  109. GETNOTE         LD L,(IX+POSI):LD H,(IX+POSI+1)
  110. ANOTHERNOTE     LD A,(HL):INC HL:OR A:JP P,GOTNOTE
  111.                 ADD A,A:LD DE,CHANFUNCTIONS
  112.                 ADD A,E:LD E,A:ADC A,D:SUB E:LD D,A
  113.                 LD A,(DE):LD C,A:INC DE:LD A,(DE):LD B,A:PUSH BC:RET
  114.  
  115. GOTNOTE         LD (IX+NOTE),A:LD E,(HL):INC HL:LD (IX+DEL),E
  116.                 LD A,(IX+SLIDDELAY):LD (IX+SLIDDEL),A
  117.                 XOR A:LD (IX+SLIDOF),A:LD (IX+DRMON),A
  118.                 LD (IX+VIBADD),A:LD (IX+VIBOF),A
  119.                 LD (IX+VOL),A:LD (IX+ARPADD),A
  120.                 LD (IX+ADSRADD), A: LD (IX+ADSRCNT),A
  121.                 INC A:LD (IX+VIBDEL),A
  122.                 LD (IX+ADSRDEL),A: LD (IX+ADSRDELAY),A
  123.                 LD (IX+POSI),L:LD (IX+POSI+1),H:RET
  124.  
  125. CHANFUNCTIONS   DW SETEND                ; 128
  126.                 DW SETREST               ; 129
  127.                 DW SETADSR               ; 130
  128.                 DW SETSLIDE              ; 131
  129.                 DW SETARPEG              ; 132
  130.                 DW SETVIBRATO            ; 133
  131.                 DW SETDRUM               ; 134
  132.                 DW SETVOLUME             ; 135
  133.  
  134. SETEND          LD L,(IX+SEQ):LD H,(IX+SEQ+1)
  135. GETEND          LD A,(HL):INC HL
  136.                 CP TRANSPOSE:JR Z,OKTRNS
  137.                 CP STOP:RET Z
  138.                 CP GOTO:JR Z,OKGOTO
  139. OKEND           LD (IX+SEQ),L:LD (IX+SEQ+1),H:ADD A,A
  140.                 LD DE,SEQTABLE:ADD A,E:LD E,A:ADC A,D:SUB E:LD D,A
  141.                 LD A,(DE):LD (IX+POSI),A:INC DE:LD L,A
  142.                 LD A,(DE):LD (IX+POSI+1),A:LD H,A:JP ANOTHERNOTE
  143. OKGOTO          LD A,(HL):INC HL:LD H,(HL):LD L,A:JR GETEND
  144. OKTRNS          LD A, (HL): INC HL:LD (IX+TRNS),A:JR GETEND
  145.  
  146. SETREST         LD A,(HL):INC HL:LD (IX+DEL),A
  147.                 LD (IX+POSI),L:LD (IX+POSI+1),H:RET
  148.  
  149. SETADSR         LD A,(HL):INC HL:LD (IX+ADSRNUM),A:LD (IX+ADSRADD),0
  150.                 LD (IX+VOL),0
  151.                 LD (IX+ADSRDEL),1:LD (IX+ADSRDELAY),1:LD (IX+ADSRCNT),0
  152.                 LD (IX+POSI),L:LD (IX+POSI+1),H:JP ANOTHERNOTE
  153.  
  154. SETSLIDE        LD A,(HL):INC HL:LD (IX+SLIDDIR),A:LD (IX+SLIDOF),0
  155.                 LD A,(HL):INC HL:LD (IX+SLIDDEL),A:LD (IX+SLIDDELAY),A
  156.                 LD (IX+POSI),L:LD (IX+POSI+1),H:JP ANOTHERNOTE
  157.  
  158. SETARPEG        LD A,(HL):INC HL:LD (IX+ARPNUM),A
  159.                 LD (IX+ARPADD),0:LD (IX+ARPOF),0
  160.                 LD (IX+POSI),L:LD (IX+POSI+1),H:JP ANOTHERNOTE
  161.  
  162. SETVIBRATO      LD A,(HL):INC HL:LD (IX+VIBNUM),A
  163.                 XOR A:LD (IX+VIBADD),A:LD (IX+VIBOF),A
  164.                 INC A:LD (IX+VIBDEL),A
  165.                 LD (IX+VIBTIM),A:LD (IX+VIBTIMER), A
  166.                 LD (IX+POSI),L:LD (IX+POSI+1),H:JP ANOTHERNOTE
  167.  
  168. SETDRUM         LD A,(HL):INC HL:LD (IX+DRMNUM),A:LD (IX+DRMON),1
  169.  
  170.                 LD DE,DRUMADSR:ADD A,E:LD E,A:ADC A,D:SUB E:LD D,A
  171.                 LD A,(DE):LD (IX+ADSRNUM),A:LD (IX+ADSRADD),0
  172.                 LD (IX+ADSRDEL),1:LD (IX+ADSRDELAY),1:LD (IX+ADSRCNT),0
  173.  
  174.                 LD (IX+VOL),0
  175.  
  176.                 LD A, (HL):INC HL:LD (IX+DEL),A
  177.                 LD (IX+DRMADD),0:LD (IX+DRMCNT),0
  178.                 LD (IX+DRMDEL),1:LD (IX+DRMDELAY),1
  179.                 LD (IX+DRMPIT),0
  180.                 LD (IX+POSI),L:LD (IX+POSI+1),H:RET
  181.  
  182. SETVOLUME       LD A,(HL):INC HL:LD (IX+MASTERVOLUME),A
  183.                 LD A,(HL):INC HL:LD (IX+MASTERVOLDIR),A
  184.                 LD A,(HL):INC HL:LD (IX+MASTERVOLDEL),A
  185.                 LD (IX+MASTERVDELAY),A
  186.                 LD (IX+POSI),L:LD (IX+POSI+1),H:JP ANOTHERNOTE
  187.  
  188. ;**************************************
  189.  
  190. ENABLER         LD HL,SWITCHOFS:ADD A,L:LD L,A:ADC A,H:SUB L:LD H,A
  191.                 LD DE,ENABLE:LD A,(DE):AND (HL):LD (DE),A
  192.                 LD A,L:ADD A,6:LD L,A:ADC A,H:SUB L:LD H,A
  193.                 LD A,(DE):OR (HL):LD (DE),A:RET
  194.  
  195. ;**************************************
  196.  
  197. DOMASTERVOL     LD A, (IX+MASTERVOLDIR):OR A: RET Z
  198.                 DEC (IX+MASTERVOLDEL):RET NZ
  199.                 LD A,(IX+MASTERVDELAY):LD (IX+MASTERVOLDEL),A
  200.                 LD A,(IX+MASTERVOLUME):ADD A,(IX+MASTERVOLDIR)
  201.                 CP 16:RET Z:CP 255:RET Z
  202.                 LD (IX+MASTERVOLUME), A:RET
  203.  
  204. DOADSR          DEC (IX+ADSRDEL):RET NZ
  205.                 LD A,(IX+ADSRDELAY):LD (IX+ADSRDEL),A
  206.                 DEC (IX+ADSRCNT):JP M,SETNEWADSR
  207.                 LD A,(IX+VOL):ADD A,(IX+ADSRDIR):LD (IX+VOL),A
  208.                 CP 15:RET C:LD (IX+VOL),0:RET M:LD (IX+VOL),15:RET
  209.  
  210. SETNEWADSR      LD A,(IX+ADSRNUM):ADD A,A:LD HL,ADSRTAB:ADD A,L:LD L,A
  211.                 ADC A,H:SUB L:LD H,A
  212.                 LD E,(HL):INC HL:LD D,(HL)
  213.                 LD A,(IX+ADSRADD):ADD A,E:LD E,A:ADC A,D:SUB E:LD D,A
  214.                 LD A,(DE):CP END:JR Z,KILLADSR
  215.                 INC DE:LD (IX+ADSRDIR),A
  216.                 LD A,(DE):INC DE:LD (IX+ADSRDEL),A:LD (IX+ADSRDELAY),A
  217.                 LD A,(DE):LD (IX+ADSRCNT),A
  218.                 LD A,(IX+ADSRADD):ADD A,3:LD (IX+ADSRADD),A:RET
  219. KILLADSR        LD (IX+VOL),0:LD (IX+ADSRDELAY),255:LD (IX+ADSRDEL),255
  220.                 LD (IX+ADSRDIR),0
  221.                 LD (IX+ADSRCNT),0:RET
  222.  
  223. DOSLIDE         DEC (IX+SLIDDEL):RET NZ
  224.                 LD A,(IX+SLIDDELAY):LD (IX+SLIDDEL),A
  225.                 LD A,(IX+SLIDOF):ADD A,(IX+SLIDDIR):LD (IX+SLIDOF),A
  226.                 RET
  227.  
  228. DOARPEGIO       LD A,(IX+ARPNUM):ADD A,A:LD HL,ARPTAB:ADD A,L:LD L,A
  229.                 ADC A,H:SUB L:LD H,A
  230.                 LD E,(HL):INC HL:LD D,(HL)
  231.                 LD A,(IX+ARPADD):ADD A,E:LD E,A:ADC A,D:SUB E:LD D,A
  232.                 LD A,(DE):CP LOP:JR Z,LOPARP
  233.                 LD A,(DE):CP END:RET Z
  234.                 LD (IX+ARPOF),A:INC (IX+ARPADD):RET
  235. LOPARP          LD (IX+ARPOF),0:LD (IX+ARPADD),0:JR DOARPEGIO
  236.  
  237. DOVIBRATO       DEC (IX+VIBDEL):RET NZ:INC (IX+VIBDEL)
  238.  
  239.                 DEC (IX+VIBTIM):RET NZ
  240.                 LD A,(IX+VIBTIMER):LD (IX+VIBTIM),A
  241.  
  242.                 LD A,(IX+VIBNUM):ADD A,A:LD HL,VIBTAB:ADD A,L:LD L,A
  243.                 ADC A,H:SUB L:LD H, A
  244.                 LD E,(HL):INC HL:LD D,(HL)
  245.                 LD A,(IX+VIBADD):ADD A,E:LD E,A:ADC A,D:SUB E:LD D,A
  246.                 LD A,(IX+VIBADD):OR A:JR Z,SETVIBDEL
  247.                 LD A,(DE):CP LOP:JR Z,LOPVIB
  248.                 LD A,(DE):CP END:RET Z
  249.                 LD (IX+VIBOF),A:INC (IX+VIBADD):RET
  250. LOPVIB          LD (IX+VIBOF),0:LD (IX+VIBADD),2:JR DOVIBRATO
  251. SETVIBDEL       LD A,(DE):LD (IX+VIBDEL),A:INC DE
  252.                 LD A,(DE):LD (IX+VIBTIM),A:LD (IX+VIBTIMER),A
  253.                 LD (IX+VIBOF),0:LD (IX+VIBADD),2:RET
  254.  
  255. DODRUM          DEC (IX+DRMDEL):RET NZ
  256.                 LD A,(IX+DRMDELAY):LD (IX+DRMDEL),A
  257.                 DEC (IX+DRMCNT):JP M,SETNEWDRUM
  258.                 LD A,(IX+DRMPIT):ADD A,(IX+DRMDIR):LD (IX+DRMPIT),A
  259.                 CP 31:RET C
  260.                 LD (IX+DRMPIT),0:RET M
  261.                 LD (IX+DRMPIT),31:RET
  262.  
  263. SETNEWDRUM      LD A,(IX+DRMNUM):ADD A,A:LD HL,DRUMTAB:ADD A,L:LD L,A
  264.                 ADC A,H:SUB L:LD H,A
  265.                 LD E,(HL):INC HL:LD D,(HL)
  266.                 LD A,(IX+DRMADD):ADD A,E:LD E,A:ADC A,D:SUB E:LD D,A
  267.                 LD A,(DE):CP END:JR Z,KILLDRUM
  268.                 LD A,(DE):INC DE:LD (IX+DRMDIR),A
  269.                 LD A,(DE):INC DE:LD (IX+DRMDEL),A:LD (IX+DRMDELAY),A
  270.                 LD A,(DE):LD (IX+DRMCNT),A
  271.                 LD A,(IX+DRMADD):ADD A,3:LD (IX+DRMADD),A:RET
  272.  
  273. KILLDRUM
  274.                 LD (IX+VOL),0
  275.                 LD (IX+DRMDELAY),1:LD (IX+DRMDEL),1
  276.                 LD (IX+DRMDIR),0:LD (IX+DRMCNT),0:RET
  277.  
  278. ;****************************************************************************
  279. ;** RESET SOUND CHIP                                                       **
  280. ;****************************************************************************
  281.  
  282. RESETSOUND      XOR A:LD HL,0:CALL SEND2
  283.                 INC A:CALL SEND2:INC A:CALL SEND2
  284.                 LD A,07:LD E,%00111111:CALL SEND1
  285.                 INC A:CALL SEND2:INC A:CALL SEND2:INC A
  286. SEND2           LD E,L:CALL SEND1:LD E,H:INC A
  287. SEND1           LD BC,$FFFD:OUT (C),A:LD BC,$BFFD:OUT (C),E:RET
  288.  
  289. ;****************************************************************************
  290. ;** FREQUENCY TABLE FOR EACH NOTE                                          **
  291. ;****************************************************************************
  292.  
  293. OCT0            DW $DD5,$C9C,$BE7,$B3C,$A9B,$A02
  294.                 DW $973,$8EB,$86B,$7F2,$780,$714
  295. OCT1            DW $6AE,$64E,$5F4,$59E,$54D,$501
  296.                 DW $4B9,$475,$435,$3F9,$3C0,$38A
  297. OCT2            DW $357,$327,$2FA,$2CF,$2A7,$281
  298.                 DW $25D,$23B,$21B,$1FC,$1E0,$1C5
  299. OCT3            DW $1AC,$194,$17D,$168,$153,$140
  300.                 DW $12E,$11D,$10D,$0FE,$0F0,$0E2
  301. OCT4            DW $0D6,$0CA,$0BE,$0B4,$0AA,$0A0
  302.                 DW $097,$08F,$087,$07F,$078,$071
  303. OCT5            DW $06B,$065,$05F,$05A,$055,$050
  304.                 DW $04C,$047,$043,$040,$03C,$039
  305. OCT6            DW $035,$032,$030,$02D,$02A,$028
  306.                 DW $026,$024,$022,$020,$01E,$01C
  307. OCT7            DW $01B,$019,$018,$016,$015,$014
  308.                 DW $013,$012,$011,$010,$00F,$00E
  309.  
  310. ;****************************************************************************
  311. ;** SLIDE TABLE FOR EACH NOTE                                              **
  312. ;****************************************************************************
  313.  
  314. ST0             DW 0-78,0-45,0-42,0-40,0-38,0-35
  315.                 DW 0-34,0-32,0-30,0-28,0-27,0-25
  316. ST1             DW 0-24,0-22,0-21,0-20,0-19,0-18
  317.                 DW 0-17,0-16,0-15,0-14,0-13,0-12
  318. ST2             DW 0-12,0-11,0-10,0-10,0-09,0-09
  319.                 DW 0-08,0-08,0-07,0-07,0-06,0-06
  320. ST3             DW 0-06,0-05,0-05,0-05,0-04,0-04
  321.                 DW 0-04,0-04,0-03,0-03,0-03,0-03
  322. ST4             DW 0-03,0-02,0-02,0-02,0-02,0-02
  323.                 DW 0-02,0-02,0-01,0-01,0-01,0-01
  324. ST5             DW 0-01,0-01,0-01,0-01,0-01,0-01
  325.                 DW 0-01,0-01,0-01,0-00,0-00,0-00
  326. ST6             DW 0-00,0-00,0-00,0-00,0-00,0-00
  327.                 DW 0-00,0-00,0-00,0-00,0-00,0-00
  328. ST7             DW 0-00,0-00,0-00,0-00,0-00,0-00
  329.                 DW 0-00,0-00,0-00,0-00,0-00,0-00
  330.  
  331. ;****************************************************************************
  332. ;** AY DRIVER EQUATES                                                      **
  333. ;**************************************************************************** ж
  334.  
  335. GOTO            EQU 128
  336. REPEAT          EQU 128
  337. STOP            EQU 129
  338. TRANSPOSE       EQU 130
  339.  
  340. ;***************************************
  341.  
  342. END             EQU 128
  343. REST            EQU 129
  344. ADSR            EQU 130
  345. SLIDE           EQU 131
  346. ARPEG           EQU 132
  347. VIBRATO         EQU 133
  348. DRUM            EQU 134
  349. VOLUME          EQU 135
  350.  
  351. ;*****************************************************************************
  352. ;** (ARPEG ETC...) SPECIAL DATA EQUATES                                     **
  353. ;*****************************************************************************
  354.  
  355. ;END             EQU 128
  356. LOP             EQU 129
  357.  
  358. ;*****************************************************************************
  359. ;** CHANNEL DATA INFORMATION EQUATES                                        **
  360. ;*****************************************************************************
  361.  
  362. POSI            EQU 00
  363. SEQ             EQU 02
  364. DEL             EQU 04
  365. NOTE            EQU 05
  366. VOL             EQU 06
  367. CHANNEL         EQU 07
  368. ARPOF           EQU 08
  369. VIBOF           EQU 09
  370. SLIDOF          EQU 10
  371. TRNS            EQU 11
  372. ADSRNUM         EQU 12
  373. ADSRADD         EQU 13
  374. ADSRDIR         EQU 14
  375. ADSRDELAY       EQU 15
  376. ADSRDEL         EQU 16
  377. ADSRCNT         EQU 17
  378. SLIDDIR         EQU 18
  379. SLIDDELAY       EQU 19
  380. SLIDDEL         EQU 20
  381. ARPNUM          EQU 21
  382. ARPADD          EQU 22
  383. VIBNUM          EQU 23
  384. VIBADD          EQU 24
  385. VIBDEL          EQU 25
  386. VIBTIM          EQU 26
  387. VIBTIMER        EQU 27
  388. DRMNUM          EQU 28
  389. DRMADD          EQU 29
  390. DRMDIR          EQU 30
  391. DRMDELAY        EQU 31
  392. DRMDEL          EQU 32
  393. DRMCNT          EQU 33
  394. DRMON           EQU 34
  395. DRMPIT          EQU 35
  396. MASTERVOLUME    EQU 36
  397. MASTERVOLDIR    EQU 37
  398. MASTERVOLDEL    EQU 38
  399. MASTERVDELAY    EQU 39
  400.  
  401. DATLEN          EQU 40
  402.  
  403. ;****************************************************************************
  404. ;** MUSIC NOTE EQUATES                                                     **
  405. ;****************************************************************************
  406.  
  407. C0              EQU 0
  408. C_0             EQU 1
  409. D0              EQU 2
  410. D_0             EQU 3
  411. E0              EQU 4
  412. F0              EQU 5
  413. F_0             EQU 6
  414. G0              EQU 7
  415. G_0             EQU 8
  416. A0              EQU 9
  417. A_0             EQU 10
  418. B0              EQU 11
  419. Cl              EQU 12
  420. C_1             EQU 13
  421. D1              EQU 14
  422. D_1             EQU 15
  423. El              EQU 16
  424. F1              EQU 17
  425. F_1             EQU 18
  426. G1              EQU 19
  427. G_1             EQU 20
  428. A1              EQU 21
  429. A_1             EQU 22
  430. B1              EQU 23
  431. C2              EQU 24
  432. C_2             EQU 25
  433. D2              EQU 26
  434. D_2             EQU 27
  435. E2              EQU 28
  436. F2              EQU 29
  437. F_2             EQU 30
  438. G2              EQU 31
  439. G_2             EQU 32
  440. A2              EQU 33
  441. A_2             EQU 34
  442. B2              EQU 35
  443. C3              EQU 36
  444. C_3             EQU 37
  445. D3              EQU 38
  446. D_3             EQU 39
  447. E3              EQU 40
  448. F3              EQU 41
  449. F_3             EQU 42
  450. G3              EQU 43
  451. G_3             EQU 44
  452. A3              EQU 45
  453. A_3             EQU 46
  454. B3              EQU 47
  455. C4              EQU 48
  456. C_4             EQU 49
  457. D4              EQU 50
  458. D_4             EQU 51
  459. E4              EQU 52
  460. F4              EQU 53
  461. F_4             EQU 54
  462. G4              EQU 55
  463. G_4             EQU 56
  464. A4              EQU 57
  465. A_4             EQU 58
  466. B4              EQU 59
  467. C5              EQU 60
  468. C_5             EQU 61
  469. D5              EQU 62
  470. D_5             EQU 63
  471. E5              EQU 64
  472. F5              EQU 65
  473. F_5             EQU 66
  474. G5              EQU 67
  475. G_5             EQU 68
  476. A5              EQU 69
  477. A_5             EQU 70
  478. B5              EQU 71
  479. C6              EQU 72
  480. C_6             EQU 73
  481. D6              EQU 74
  482. D_6             EQU 75
  483. E6              EQU 76
  484. F6              EQU 77
  485. F_6             EQU 78
  486. G6              EQU 79
  487. G_6             EQU 80
  488. A6              EQU 81
  489. A_6             EQU 82
  490. B6              EQU 83
  491. C7              EQU 84
  492. C_7             EQU 85
  493. D7              EQU 86
  494. D_7             EQU 87
  495. E7              EQU 88
  496. F7              EQU 89
  497. F_7             EQU 90
  498. G7              EQU 91
  499. G_7             EQU 92
  500. A7              EQU 93
  501. A_7             EQU 94
  502. B7              EQU 95
  503.  
  504. ;****************************************************************************
  505. ;** DRIVER PAGE DATA                                                       **
  506. ;****************************************************************************
  507.  
  508. ENABLE          DB 0         ; SM - DB #3F
  509.  
  510. SWITCHOFS       DB %11110110
  511.                 DB %11101101
  512.                 DB %11011011
  513.                 DB %11110110
  514.                 DB %11101101
  515.                 DB %11011011
  516.  
  517. TONESETTINGS    DB %00001000
  518.                 DB %00010000
  519.                 DB %00100000
  520. DRUMSETTINGS    DB %00000001
  521.                 DB %00000010
  522.                 DB %00000100
  523.  
  524. CHANADAT        DS DATLEN,0
  525.                 ;SM - DB #58,#E9,#57,#E9,#01,#00,#00,#00,#00,#00
  526.                 ;SM - DB #00,#00,#00,#00,#00,#01,#01,#00,#00,#01
  527.                 ;SM - DB #01,#00,#00,#00,#00,#00,#01,#01,#00,#00
  528.                 ;SM - DB #00,#00,#00,#00,#00,#00,#0F,#00,#01,#01
  529.  
  530. CHANBDAT        DS DATLEN,0
  531.                 ;SM - DB #58,#E9,#57,#E9,#01,#00,#00,#01,#00,#00
  532.                 ;SM - DB #00,#00,#00,#00,#00,#01,#01,#00,#00,#01
  533.                 ;SM - DB #01,#00,#00,#00,#00,#00,#01,#01,#00,#00
  534.                 ;SM - DB #00,#00,#00,#00,#00,#00,#0F,#00,#01,#01
  535.  
  536. CHANCDAT        DS DATLEN,0
  537.                 ;SM - DB #58,#E9,#57,#E9,#01,#00,#00,#02,#00,#00
  538.                 ;SM - DB #00,#00,#00,#00,#00,#01,#01,#00,#00,#01
  539.                 ;SM - DB #01,#00,#00,#00,#00,#00,#01,#01,#00,#00
  540.                 ;SM - DB #00,#00,#00,#00,#00,#00,#0F,#00,#01,#01
  541.  
  542. ;***************************************
  543. ; DIRECTION,DELAY,NO OF TIMES
  544.  
  545. ADSRTAB         DW ADSR00,ADSR01,ADSR02,ADSR03
  546.                 DW ADSR04,ADSR05,ADSR06,ADSR07
  547.                 DW ADSR08,ADSR09,ADSR10,ADSR11
  548.                 DW ADSR12
  549.  
  550. ADSR00          DB 0,1,1              ; OFF
  551.                 DB END
  552. ADSR01          DB 12,1,1             ; ON 12
  553.                 DB -1,2,12            ; SLOWISH RELEASE
  554.                 DB END
  555. ADSR02          DB 4,4,3              ; ATTACK SLOWLY TO 15
  556.                 DB -1,4,4             ; DECAY SLOWLY TO 11
  557.                 DB 0,15,1             ; SUSTAIN FOR 11
  558.                 DB -1,5,8             ; RELEASE SLOWLY
  559.                 DB END
  560. ADSR03          DB 15,1,1             ; ON 15
  561.                 DB -1,1,15            ; RELEASE
  562.                 DB END
  563. ADSR04          DB 15,1,1             ; ON 15
  564.                 DB -5,1,3             ; RELEASE QUICKLY
  565.                 DB END
  566. ADSR05          DB 12,1,1             ; ON 12
  567.                 DB -1,1,12            ; RELEASE
  568.                 DB END
  569. ADSR06          DB 15,1,1             ; ON 15
  570.                 DB 0,25,1             ; SUSTAIN FOR 25
  571.                 DB -1,1,15            ; RELEASE
  572.                 DB END
  573. ADSR07          DB 15,1,1             ; ON 15
  574.                 DB -1,4,15            ; SLOWISH RELEASE
  575.                 DB END
  576. ADSR08          DB 15,1,1             ; ON 15
  577.                 DB 0,30,1             ; SUSTAIN 30 FRAMES
  578.                 DB -1,2,15            ; SLOW FADE OFF
  579.                 DB END
  580.  
  581. ADSR09          DB 14,1,1             ; BASS DRUM
  582.                 DB -3,1,1
  583.                 DB -15,1,1
  584.                 DB END
  585.  
  586. ADSR10          DB 13,1,1             ; SNARE
  587.                 DB -3,1,1
  588.                 DB -15,1,1
  589.                 DB END
  590.  
  591. ADSR11          DB 13,1,1             ; HI HAT
  592.                 DB -15,1,1
  593.                 DB END
  594.  
  595. ADSR12          DB 5,1,3              ; ATTACK TO 15
  596.                 DB 0,10,1             ; SUSTAIN 10 FRAMES
  597.                 DB -1,3,15            ; SLOW FADE OFF
  598.                 DB END
  599.  
  600. ;***************************************
  601.  
  602. ARPTAB          DW ARP00,ARP01,ARP02,ARP03
  603.                 DW ARP04,ARP05,ARP06,ARP07
  604.                 DW ARP08,ARP09,ARP10,ARP11
  605.                 DW ARP12,ARP13,ARP14,ARP15
  606.  
  607. ARP00           DB 00,END
  608. ARP01           DB 00,07,12,05,LOP
  609. ARP02           DB 00,07,12,04,LOP
  610. ARP03           DB 00,12,LOP
  611. ARP04           DB 00,03,07,LOP
  612. ARP05           DB 00,03,07,LOP
  613. ARP06           DB 00,04,08,LOP
  614. ARP07           DB 00,04,07,LOP
  615. ARP08           DB 00,03,08,LOP
  616. ARP09           DB 00,05,08,LOP
  617. ARP10           DB 00,02,07,LOP
  618. ARP11           DB 00,-12,12,24,LOP
  619. ARP12           DB 00,-5,12,LOP
  620. ARP13           DB 00,05,09,LOP
  621. ARP14           DB 00,03,08,LOP
  622. ARP15           DB 00,04,07,LOP
  623.  
  624. ;***************************************
  625.  
  626. VIBTAB          DW VIB0,VIB1,VIB2,VIB3,VIB4
  627.  
  628. VIB0            DB 255,000,00,END
  629. VIB1            DB 024,003,01,00,-1,LOP
  630.  
  631. VIB2            DB 048,002,01,00,-1,LOP
  632.  
  633. VIB3            DB 009,003,01,00,-1,LOP
  634.  
  635. VIB4            DB 027,003,01,02,01,00,-1,-2,-1,0,LOP
  636.  
  637. ;***************************************
  638.  
  639. DRUMADSR        DB 00,00,00,09
  640.                 DB 10,00,00,11
  641.  
  642. DRUMTAB         DW 0,0,0,BASS
  643.                 DW SNARE,0,0,HIHAT
  644.  
  645. ; DIRECTION,DELAY,NO OF TIMES
  646. BASS
  647.                 DB $1F,01,1
  648.                 DB $1B,01,1
  649.                 DB $18,01,1
  650.                 DB END
  651. SNARE           DB $00,01,1
  652.                 DB $02,01,1
  653.                 DB $04,01,1
  654.                 DB END
  655. HIHAT           DB $00,01,1
  656.                 DB END
  657.  
  658. ;****************************************************************************
  659. ;** TUNE DATA                                                              **
  660. ;****************************************************************************
  661.  
  662. ;**************************************
  663. ;INITFADEIN     DB VOLUME,00,+1,12,END
  664. ;INITFADEOUT    DB VOLUME,15,-1,12,END
  665. ;**************************************
  666.  
  667. ;----------------------------------------------------------------------------
  668. ;-----------TUNE DATA--------------------------------------------------------
  669. ;----------------------------------------------------------------------------
  670.  
  671. TUNES           DW ALLOFF,ALLOFF,ALLOFF    ; 00
  672.                 DW NIGHT1,NIGHT2,NIGHT3    ; 01
  673.                 DW HAHAA1,HAHAA2,HAHAA3    ; 02
  674.                 DW EGYPT1,EGYPT2,EGYPT3    ; 03
  675.                 DW LELLY1,LELLY2,LELLY3    ; 04
  676.                 DW COMTU1,COMTU2,COMTU3    ; 05
  677.                 DW PIGEON1,PIGEON2,PIGEON3 ; 06
  678.                 DW HICORE1,HICORE2,HICORE3 ; 07
  679.                 DW JUMP1,JUMP2,JUMP3       ; 08
  680.                 DW TITLE1,TITLE2,TITLE3    ; 09
  681.  
  682. SEQTABLE        DW SEQ00,SEQ01,SEQ02,SEQ03,SEQ04,SEQ05,SEQ06,SEQ07
  683.                 DW SEQ08,SEQ09,SEQ10,SEQ11,SEQ12,SEQ13,SEQ14,SEQ15
  684.                 DW SEQ16,SEQ17,SEQ18,SEQ19,SEQ20,SEQ21,SEQ22,SEQ23
  685.                 DW SEQ24,SEQ25,SEQ26,SEQ27,SEQ28,SEQ29,SEQ30,SEQ31
  686.                 DW SEQ32,SEQ33,SEQ34,SEQ35,SEQ36,SEQ37,SEQ38,SEQ39
  687.                 DW SEQ40,SEQ41,SEQ42,SEQ43,SEQ44,SEQ45,SEQ46,SEQ47
  688.                 DW SEQ48,SEQ49,SEQ50,SEQ51,SEQ52,SEQ53,SEQ54,SEQ55
  689.                 DW SEQ56,SEQ57,SEQ58,SEQ59,SEQ60,SEQ61,SEQ62,SEQ63
  690.                 DW SEQ64,SEQ65,SEQ66,SEQ67
  691.                 DW OFF68
  692.  
  693. ;***************************************
  694.  
  695. ALLOFF          DB 68,STOP
  696. OFF68           DB ADSR,0,REST,2,END
  697.  
  698. ;***************************************
  699.  
  700.  
  701. NIGHT1          DB TRANSPOSE,12
  702.                 DB 08,08
  703.                 DB TRANSPOSE,-12
  704.                 DB 02
  705.                 DB 03
  706.                 DB TRANSPOSE,12
  707.                 DB 08,08
  708.                 DB 08,08
  709.                 DB REPEAT
  710.                 DW NIGHT1
  711.  
  712. NIGHT2          DB TRANSPOSE,-12
  713.                 DB 01
  714.                 DB TRANSPOSE,-12
  715.                 DB 09
  716.                 DB TRANSPOSE,00
  717.                 DB 05
  718.                 DB 07,07,07,07
  719.                 DB REPEAT
  720.                 DW NIGHT2
  721.  
  722. NIGHT3          DB 04
  723.                 DB REPEAT
  724.                 DW NIGHT3
  725.  
  726. SEQ00
  727.  
  728. SEQ01           DB ADSR,08
  729.                 DB VIBRATO,1
  730.                 DB G4,12
  731.                 DB A_4,12
  732.                 DB F5,12
  733.                 DB E5,156
  734.                 DB D_5,96
  735.                 DB D5,96
  736.                 DB VIBRATO,0
  737.                 DB END
  738.  
  739. SEQ02           DB ADSR,7
  740.                 DB VIBRATO,1
  741.                 DB G4,12
  742.                 DB A_4,12
  743.                 DB F5,12
  744.                 DB E5,60
  745.                 DB G4,12
  746.                 DB A_4,12
  747.                 DB D5,12
  748.                 DB C_5,48
  749.                 DB F5,06
  750.  
  751.                 DB G5,12
  752.                 DB REST,90
  753.                 DB A_5,24
  754.                 DB A5,24
  755.                 DB A_5,06
  756.                 DB C6,12
  757.                 DB D6,12
  758.                 DB C6,06
  759.                 DB A_5,12
  760.                 DB VIBRATO,0
  761.                 DB END
  762.  
  763. SEQ03           DB ADSR,7
  764.                 DB VIBRATO,1
  765.                 DB G3,12
  766.                 DB A_3,12
  767.                 DB F4,12
  768.                 DB E4,156
  769.                 DB E4,48
  770.                 DB F4,48
  771.                 DB F_4,48
  772.                 DB G4,48
  773.                 DB VIBRATO,0
  774.                 DB END
  775.  
  776. SEQ04           DB ADSR,07
  777.                 DB G1,06
  778.                 DB G1,06
  779.                 DB G1,06
  780.                 DB G1,06
  781.                 DB F1,06
  782.                 DB G1,06
  783.                 DB G1,06
  784.                 DB G1,06
  785.                 DB G1,06
  786.                 DB G1,06
  787.                 DB G1,06
  788.                 DB G1,06
  789.                 DB A_1,06
  790.                 DB G1,06
  791.                 DB G1,06
  792.                 DB G1,06
  793.                 DB END
  794.  
  795. SEQ05           DB ADSR,7
  796.                 DB VIBRATO,1
  797.                 DB G3,12
  798.                 DB A_3,12
  799.                 DB F4,12
  800.                 DB E4,60
  801.                 DB G4,12
  802.                 DB A_4,12
  803.                 DB D5,12
  804.                 DB C_5,60
  805.  
  806.                 DB A4,48
  807.                 DB A_4,48
  808.                 DB B4,48
  809.                 DB C5,48
  810.                 DB VIBRATO,0
  811.                 DB END
  812.  
  813. SEQ06           DB ADSR,7
  814.                 DB VIBRATO,1
  815.                 DB G4,18
  816.                 DB G4,18
  817.                 DB G4,12
  818.                 DB F4,06
  819.                 DB G4,30
  820.                 DB F4,12
  821.  
  822.                 DB G4,18
  823.                 DB G4,18
  824.                 DB G4,12
  825.                 DB F4,06
  826.                 DB G4,30
  827.                 DB F4,12
  828.  
  829.                 DB G4,18
  830.                 DB G4,18
  831.                 DB G4,12
  832.                 DB F4,06
  833.                 DB G4,30
  834.                 DB F4,12
  835.  
  836.                 DB G4,36
  837.                 DB G4,12
  838.                 DB F4,06
  839.                 DB G4,12
  840.                 DB G4,18
  841.                 DB F4,12
  842.                 DB VIBRATO,0
  843.                 DB END
  844.  
  845. SEQ07           DB DRUM,3,24
  846.                 DB DRUM,4,24
  847.                 DB DRUM,3,24
  848.                 DB DRUM,4,24
  849.                 DB DRUM,3,24
  850.                 DB DRUM,4,24
  851.                 DB DRUM,3,06
  852.                 DB DRUM,3,06
  853.                 DB DRUM,3,06
  854.                 DB DRUM,3,06
  855.                 DB DRUM,4,12
  856.                 DB DRUM,4,06
  857.                 DB DRUM,4,06
  858.                 DB END
  859.  
  860. SEQ08           DB ADSR,7
  861.                 DB ARPEG,3
  862.                 DB G3,12
  863.                 DB G3,12
  864.                 DB G3,12
  865.                 DB G3,24
  866.                 DB G3,03
  867.                 DB G3,03
  868.                 DB G3,06
  869.                 DB G3,12
  870.                 DB G3,12
  871.                 DB G3,12
  872.                 DB G3,12
  873.                 DB G3,24
  874.                 DB G3,03
  875.                 DB G3,03
  876.                 DB G3,06
  877.                 DB G3,12
  878.                 DB G3,12
  879.                 DB G3,03
  880.                 DB G3,03
  881.                 DB G3,03
  882.                 DB G3,03
  883.                 DB ARPEG,0
  884.                 DB END
  885.  
  886. SEQ09           DB ADSR,7
  887.                 DB VIBRATO,1
  888.                 DB REST,03
  889.                 DB G3,12
  890.                 DB A_3,12
  891.                 DB F4,12
  892.                 DB E4,60
  893.                 DB G3,12
  894.                 DB A_3,12-3
  895.                 DB D4,12
  896.                 DB C_4,48
  897.                 DB F4,06
  898.                 DB G4,12+12
  899.                 DB REST,90-12
  900.  
  901.                 DB ADSR,1
  902.                 DB A_3,24
  903.                 DB A3,24
  904.                 DB A_3,06
  905.                 DB C4,12
  906.                 DB D4,12
  907.                 DB C4,06
  908.                 DB A_3,12
  909.                 DB VIBRATO,0
  910.                 DB END
  911.  
  912. ;***************************************
  913.  
  914. HAHAA1
  915.                 DB 11
  916. KT              DB TRANSPOSE,00
  917.                 DB 12
  918.                 DB 12
  919.                 DB REPEAT
  920.                 DW KT
  921. HAHAA2
  922.                 DB TRANSPOSE,00
  923.                 DB 10
  924. LC              DB TRANSPOSE,0
  925.                 DB 14,14
  926.                 DB REPEAT
  927.                 DW LC
  928. HAHAA3          DB TRANSPOSE,-12
  929.                 DB 11
  930. RT              DB TRANSPOSE,0
  931.                 DB 13,13
  932.                 DB REPEAT
  933.                 DW RT
  934.  
  935. SEQ10           DB ADSR,7
  936.                 DB C3,18
  937.                 DB C3,06
  938.                 DB C3,30
  939.                 DB C3,06
  940.                 DB C3,12
  941.                 DB C3,12
  942.                 DB C3,12
  943.                 DB C_3,18
  944.                 DB C_3,06
  945.                 DB C_3,30
  946.                 DB C_3,06
  947.                 DB C_3,12
  948.                 DB C_3,12
  949.                 DB C_3,12
  950.                 DB C3,18
  951.                 DB C3,06
  952.                 DB C3,30
  953.                 DB C3,06
  954.                 DB C3,12
  955.                 DB C3,12
  956.                 DB C3,12
  957.                 DB C_3,18
  958.                 DB C_3,06
  959.                 DB C_3,30
  960.                 DB C_3,06
  961.                 DB C_3,12
  962.                 DB C_3,12
  963.                 DB C_3,12
  964.                 DB END
  965.  
  966. SEQ11           DB ADSR,8
  967.                 DB G3,60
  968.                 DB C4,12
  969.                 DB D4,12
  970.                 DB D_4,12
  971.                 DB C_4,60
  972.                 DB F4,12
  973.                 DB C_4,06
  974.                 DB G_3,06
  975.                 DB F4,12
  976.                 DB C4,12
  977.                 DB D4,12
  978.                 DB D_4,12
  979.                 DB G3,24
  980.                 DB C4,12
  981.                 DB D4,12
  982.                 DB D_4,12
  983.                 DB C_4,06
  984.                 DB D_4,06
  985.                 DB F4,48
  986.                 DB C_4,12
  987.                 DB G_3,06
  988.                 DB C_4,06
  989.                 DB F4,12
  990.                 DB END
  991.  
  992. SEQ12           DB ADSR,7
  993.                 DB ARPEG,5
  994.                 DB E4,18
  995.                 DB E4,06
  996.                 DB E4,30
  997.                 DB E4,06
  998.                 DB E4,12
  999.                 DB E4,24
  1000.                 DB ARPEG,6
  1001.                 DB D_4,18
  1002.                 DB D_4,06
  1003.                 DB D_4,30
  1004.                 DB D_4,06
  1005.                 DB D_4,12
  1006.                 DB D_4,24
  1007.                 DB ARPEG,7
  1008.                 DB D4,18
  1009.                 DB D4,06
  1010.                 DB D4,30
  1011.                 DB D4,06
  1012.                 DB D4,12
  1013.                 DB D4,24
  1014.                 DB ARPEG,8
  1015.                 DB C_4,18
  1016.                 DB C_4,06
  1017.                 DB C_4,30
  1018.                 DB C_4,06
  1019.                 DB C_4,12
  1020.                 DB C_4,24
  1021.                 DB ARPEG,7
  1022.                 DB C4,18
  1023.                 DB C4,06
  1024.                 DB C4,30
  1025.                 DB C4,06
  1026.                 DB C4,12
  1027.                 DB C4,24
  1028.                 DB ARPEG,9
  1029.                 DB B3,18
  1030.                 DB B3,06
  1031.                 DB B3,30
  1032.                 DB B3,06
  1033.                 DB B3,12
  1034.                 DB B3,24
  1035.                 DB ARPEG,10
  1036.                 DB B3,18
  1037.                 DB B3,06
  1038.                 DB B3,30
  1039.                 DB B3,06
  1040.                 DB B3,12
  1041.                 DB B3,24
  1042.                 DB B3,18
  1043.                 DB B3,06
  1044.                 DB B3,30
  1045.                 DB B3,06
  1046.                 DB B3,12
  1047.                 DB B3,24
  1048.                 DB ARPEG,0
  1049.                 DB END
  1050.  
  1051. SEQ13           DB ADSR,07
  1052.                 DB E2,18
  1053.                 DB E2,06
  1054.                 DB E2,30
  1055.                 DB E2,06
  1056.                 DB E2,12
  1057.                 DB E2,24
  1058.                 DB D_2,18
  1059.                 DB D_2,06
  1060.                 DB D_2,30
  1061.                 DB D_2,06
  1062.                 DB D_2,12
  1063.                 DB D_2,24
  1064.                 DB D2,18
  1065.                 DB D2,06
  1066.                 DB D2,30
  1067.                 DB D2,06
  1068.                 DB D2,12
  1069.                 DB D2,24
  1070.                 DB C_2,18
  1071.                 DB C_2,06
  1072.                 DB C_2,30
  1073.                 DB C_2,06
  1074.                 DB C_2,12
  1075.                 DB C_2,24
  1076.                 DB C2,18
  1077.                 DB C2,06
  1078.                 DB C2,30
  1079.                 DB C2,06
  1080.                 DB C2,12
  1081.                 DB C2,24
  1082.                 DB B1,18
  1083.                 DB B1,06
  1084.                 DB B1,30
  1085.                 DB B1,06
  1086.                 DB B1,12
  1087.                 DB B1,24
  1088.                 DB A_1,18
  1089.                 DB A_1,06
  1090.                 DB A_1,30
  1091.                 DB A_1,06
  1092.                 DB A_1,12
  1093.                 DB A_1,24
  1094.                 DB B1,18
  1095.                 DB B1,06
  1096.                 DB B1,30
  1097.                 DB D_2,06
  1098.                 DB D_2,12
  1099.                 DB D_2,24
  1100.                 DB END
  1101.  
  1102. SEQ14           DB ADSR,08
  1103.                 DB VIBRATO,2
  1104.                 DB B4,72
  1105.                 DB G4,08
  1106.                 DB A4,08
  1107.                 DB B4,08
  1108.                 DB B4,48
  1109.                 DB F_4,48
  1110.                 DB A4,72
  1111.                 DB F_4,08
  1112.                 DB G4,08
  1113.                 DB A4,08
  1114.                 DB A4,48
  1115.                 DB E4,48
  1116.                 DB G4,72
  1117.                 DB E4,08
  1118.                 DB F_4,08
  1119.                 DB G4,08
  1120.                 DB G4,48
  1121.                 DB D4,36
  1122.                 DB D4,12
  1123.                 DB F_4,72
  1124.                 DB E4,12
  1125.                 DB F_4,12
  1126.                 DB E4,32
  1127.                 DB F_4,08
  1128.                 DB E4,08
  1129.                 DB D_4,28
  1130.                 DB F_4,04
  1131.                 DB G4,04
  1132.                 DB G_4,04
  1133.                 DB A4,04
  1134.                 DB A_4,04
  1135.                 DB ADSR,00
  1136.                 DB VIBRATO,0
  1137.                 DB END
  1138.  
  1139. SEQ15           DB DRUM,3,24
  1140.                 DB DRUM,4,24
  1141.                 DB DRUM,3,24
  1142.                 DB DRUM,4,24
  1143.  
  1144.                 DB DRUM,3,24
  1145.                 DB DRUM,4,24
  1146.                 DB DRUM,3,24
  1147.                 DB DRUM,4,24
  1148.                 DB END
  1149.  
  1150. SEQ16           DB REST,192
  1151.                 DB REST,192
  1152.                 DB END
  1153.  
  1154. ;**************************************
  1155.  
  1156. EGYPT1          DB TRANSPOSE,-12
  1157.                 DB 18
  1158.                 DB TRANSPOSE,-12+5
  1159.                 DB 19
  1160.                 DB TRANSPOSE,-12
  1161.                 DB 22
  1162.                 DB REPEAT
  1163.                 DW EGYPT1
  1164.  
  1165. EGYPT2          DB TRANSPOSE,0
  1166.                 DB 17
  1167.                 DB 20,20
  1168.                 DB 21
  1169.                 DB TRANSPOSE,-3
  1170.                 DB 21
  1171.                 DB REPEAT
  1172.                 DW EGYPT2
  1173.  
  1174. EGYPT3          DB 23
  1175.                 DB REPEAT
  1176.                 DW EGYPT3
  1177.  
  1178. SEQ17           DB ADSR,0
  1179.                 DB REST,24
  1180.                 DB ADSR,1
  1181.                 DB G_3,06
  1182.                 DB A_3,06
  1183.                 DB C_4,06
  1184.                 DB D_4,06
  1185.                 DB G_4,24
  1186.                 DB ADSR,5
  1187.                 DB ARPEG,3
  1188.                 DB G_3,48
  1189.                 DB G_3,48
  1190.                 DB G_3,48
  1191.                 DB ARPEG,0
  1192.                 DB ADSR,1
  1193.                 DB G_3,06
  1194.                 DB A_3,06
  1195.                 DB C_4,06
  1196.                 DB D_4,06
  1197.                 DB G_4,24
  1198.                 DB ADSR,5
  1199.                 DB ARPEG,3
  1200.                 DB G_3,48
  1201.                 DB G_3,42
  1202.                 DB G_3,06
  1203.                 DB G_3,06
  1204.                 DB G_4,06
  1205.                 DB G_3,12
  1206.                 DB ARPEG,0
  1207.                 DB END
  1208.  
  1209. SEQ18           DB ADSR,08
  1210.                 DB VIBRATO,1
  1211.                 DB G_4,60
  1212.                 DB G_4,12
  1213.                 DB F_4,12
  1214.                 DB G_4,12
  1215.                 DB A4,18
  1216.                 DB B4,18
  1217.                 DB A4,12
  1218.                 DB G_4,18
  1219.                 DB F_4,18
  1220.                 DB D_4,12
  1221.                 DB G_4,60
  1222.                 DB G_4,12
  1223.                 DB F_4,12
  1224.                 DB G_4,12
  1225.                 DB A4,18
  1226.                 DB B4,18
  1227.                 DB A4,12
  1228.                 DB G_4,18
  1229.                 DB F_4,18
  1230.                 DB D_4,12
  1231.                 DB END
  1232.  
  1233. SEQ19           DB ADSR,8
  1234.                 DB G_4,60
  1235.                 DB G_4,12
  1236.                 DB F_4,12
  1237.                 DB G_4,12
  1238.                 DB A4,18
  1239.                 DB B4,18
  1240.                 DB A4,12
  1241.                 DB G_4,18
  1242.                 DB F_4,18
  1243.                 DB D_4,12
  1244.                 DB G_4,60
  1245.                 DB G_4,12
  1246.                 DB F_4,12
  1247.                 DB G_4,12
  1248.                 DB A4,18
  1249.                 DB B4,18
  1250.                 DB A4,12
  1251.                 DB G_4,18
  1252.                 DB A4,18
  1253.                 DB B4,12
  1254.                 DB END
  1255.  
  1256. SEQ20           DB ADSR,1
  1257.                 DB C_2,18
  1258.                 DB C_2,06
  1259.                 DB C_3,06
  1260.                 DB C_2,06
  1261.                 DB C_3,12
  1262.                 DB C_2,18
  1263.                 DB C_2,06
  1264.                 DB C_3,06
  1265.                 DB C_2,06
  1266.                 DB C_3,12
  1267.                 DB C_2,18
  1268.                 DB C_2,06
  1269.                 DB C_3,06
  1270.                 DB C_2,06
  1271.                 DB C_3,12
  1272.                 DB C_2,18
  1273.                 DB C_2,06
  1274.                 DB C_3,06
  1275.                 DB C_2,06
  1276.                 DB C_3,12
  1277.                 DB END
  1278.  
  1279. SEQ21           DB ADSR,4
  1280.                 DB F_2,06
  1281.                 DB F_3,06
  1282.                 DB F_2,06
  1283.                 DB F_3,12
  1284.                 DB F_2,06
  1285.                 DB F_3,12
  1286.                 DB F_2,06
  1287.                 DB F_3,06
  1288.                 DB F_2,06
  1289.                 DB F_3,12
  1290.                 DB F_2,06
  1291.                 DB F_3,12
  1292.                 DB F_2,06
  1293.                 DB F_3,06
  1294.                 DB F_2,06
  1295.                 DB F_3,12
  1296.                 DB F_2,06
  1297.                 DB F_3,12
  1298.                 DB F_2,06
  1299.                 DB F_3,06
  1300.                 DB F_2,06
  1301.                 DB F_3,12
  1302.                 DB F_2,06
  1303.                 DB F_3,12
  1304.                 DB END
  1305.  
  1306. SEQ22           DB ADSR,8
  1307.                 DB F_4,60
  1308.                 DB F_4,12
  1309.                 DB E4,12
  1310.                 DB F_4,12
  1311.                 DB G4,18
  1312.                 DB A4,18
  1313.                 DB G4,12
  1314.                 DB F_4,18
  1315.                 DB E4,18
  1316.                 DB C_4,12
  1317.                 DB D_4,48
  1318.                 DB E4,48
  1319.                 DB F4,48
  1320.                 DB F_4,48
  1321.                 DB END
  1322.  
  1323. SEQ23           DB ARPEG,3
  1324.                 DB DRUM,3,24
  1325.                 DB ARPEG,4
  1326.                 DB DRUM,4,24
  1327.                 DB ARPEG,3
  1328.                 DB DRUM,3,24
  1329.                 DB ARPEG,4
  1330.                 DB DRUM,4,24
  1331.                 DB ARPEG,3
  1332.                 DB DRUM,3,24
  1333.                 DB ARPEG,4
  1334.                 DB DRUM,4,24
  1335.                 DB ARPEG,3
  1336.                 DB DRUM,3,24
  1337.                 DB ARPEG,4
  1338.                 DB DRUM,4,24
  1339.                 DB ARPEG,0
  1340.                 DB END
  1341.  
  1342. ;***************************************
  1343.  
  1344. LELLY1          DB TRANSPOSE,-12
  1345.                 DB 24,27,28
  1346.                 DB 29
  1347.                 DB REPEAT
  1348.                 DW LELLY1
  1349.  
  1350. LELLY2          DB 26,26,26,26
  1351.                 DB 26,26,26,30
  1352.                 DB 31,31,31,31
  1353.                 DB 31,31,31,31
  1354.                 DB 31,31,31,30
  1355.                 DB REPEAT
  1356.                 DW LELLY2
  1357.  
  1358. LELLY3          DB TRANSPOSE,00
  1359.                 DB 25
  1360.                 DB TRANSPOSE, 3
  1361.                 DB 25
  1362.                 DB TRANSPOSE, 2
  1363.                 DB 25
  1364.                 DB TRANSPOSE,1
  1365.                 DB 25
  1366.                 DB TRANSPOSE,00
  1367.                 DB 25
  1368.                 DB TRANSPOSE,3
  1369.                 DB 25
  1370.                 DB TRANSPOSE,2
  1371.                 DB 25
  1372.                 DB TRANSPOSE,7
  1373.                 DB 25
  1374.  
  1375.                 DB TRANSPOSE,-4
  1376.                 DB 25
  1377.                 DB TRANSPOSE,-5
  1378.                 DB 25
  1379.                 DB TRANSPOSE,-9
  1380.                 DB 25
  1381.                 DB TRANSPOSE,-10
  1382.                 DB 25
  1383.                 DB TRANSPOSE,-4
  1384.                 DB 25
  1385.                 DB TRANSPOSE,-5
  1386.                 DB 25
  1387.                 DB TRANSPOSE,-9
  1388.                 DB 25
  1389.                 DB TRANSPOSE,-10
  1390.                 DB 25
  1391.  
  1392.                 DB TRANSPOSE,-5
  1393.                 DB 25
  1394.                 DB TRANSPOSE,-2
  1395.                 DB 25
  1396.                 DB TRANSPOSE,-6
  1397.                 DB 25
  1398.                 DB TRANSPOSE,-5
  1399.                 DB 25
  1400.  
  1401.                 DB TRANSPOSE,-05
  1402.                 DB 25
  1403.                 DB TRANSPOSE,-02
  1404.                 DB 25
  1405.                 DB TRANSPOSE,-06
  1406.                 DB 25
  1407.                 DB TRANSPOSE,-05
  1408.                 DB 25
  1409.                 DB TRANSPOSE,-02
  1410.                 DB 25
  1411.                 DB TRANSPOSE,-09
  1412.                 DB 25
  1413.                 DB TRANSPOSE,-10
  1414.                 DB 25
  1415.                 DB TRANSPOSE,-05
  1416.                 DB 25
  1417.                 DB TRANSPOSE,-02
  1418.                 DB 25
  1419.                 DB TRANSPOSE,-09
  1420.                 DB 25
  1421.                 DB TRANSPOSE,-07
  1422.                 DB 25
  1423.                 DB REPEAT
  1424.                 DW LELLY3
  1425.  
  1426. SEQ24           DB ADSR,7
  1427.                 DB VIBRATO,3
  1428.                 DB D_4,6
  1429.                 DB E4,6
  1430.                 DB F4,6
  1431.                 DB F_4,6
  1432.                 DB G4,48
  1433.                 DB G4,6
  1434.                 DB F_4,6
  1435.                 DB F4,6
  1436.                 DB E4,6
  1437.                 DB D_4,72
  1438.                 DB D_4,06
  1439.                 DB E4,06
  1440.                 DB F4,06
  1441.                 DB F_4,06
  1442.                 DB D4,72
  1443.                 DB D4,06
  1444.                 DB D_4,06
  1445.                 DB E4,06
  1446.                 DB F4,06
  1447.                 DB C_4,72
  1448.                 DB D_4,06
  1449.                 DB E4,06
  1450.                 DB F4,06
  1451.                 DB F_4,06
  1452.                 DB G4,72
  1453.                 DB G4,06
  1454.                 DB F_4,06
  1455.                 DB F4,06
  1456.                 DB E4,06
  1457.                 DB D_4,72
  1458.                 DB D_4,06
  1459.                 DB E4,06
  1460.                 DB F4,06
  1461.                 DB F_4,06
  1462.                 DB D4,72
  1463.                 DB D4,06
  1464.                 DB D_4,06
  1465.                 DB E4,06
  1466.                 DB F4,06
  1467.                 DB G4,96
  1468.                 DB END
  1469.  
  1470. SEQ25           DB ADSR,9
  1471.                 DB C2,12
  1472.                 DB C3,06
  1473.                 DB C3,06
  1474.                 DB C2,12
  1475.                 DB C3,06
  1476.                 DB C3,06
  1477.                 DB C2,12
  1478.                 DB C3,06
  1479.                 DB C3,06
  1480.                 DB C2,12
  1481.                 DB C3,06
  1482.                 DB C3,06
  1483.                 DB END
  1484.  
  1485. SEQ26           DB DRUM,3,12
  1486.                 DB DRUM,7,06
  1487.                 DB DRUM,7,06
  1488.                 DB DRUM,4,12
  1489.                 DB DRUM,7,06
  1490.                 DB DRUM,7,06
  1491.                 DB DRUM,3,12
  1492.                 DB DRUM,7,06
  1493.                 DB DRUM,7,06
  1494.                 DB DRUM,4,12
  1495.                 DB DRUM,7,06
  1496.                 DB DRUM,7,06
  1497.                 DB END
  1498.  
  1499. SEQ30           DB DRUM,3,12
  1500.                 DB DRUM,7,06
  1501.                 DB DRUM,7,06
  1502.                 DB DRUM,3,12
  1503.                 DB DRUM,4,06
  1504.                 DB DRUM,7,06
  1505.                 DB DRUM,4,06
  1506.                 DB DRUM,4,06
  1507.                 DB DRUM,4,06
  1508.                 DB DRUM,3,06
  1509.                 DB DRUM,4,06
  1510.                 DB DRUM,4,06
  1511.                 DB DRUM,4,06
  1512.                 DB DRUM,4,06
  1513.                 DB END
  1514.  
  1515. SEQ31           DB DRUM,3,24
  1516.                 DB DRUM,4,24
  1517.                 DB DRUM,3,24
  1518.                 DB DRUM,4,24
  1519.                 DB DRUM,3,24
  1520.                 DB DRUM,4,24
  1521.                 DB DRUM,3,24
  1522.                 DB DRUM,4,24
  1523.                 DB END
  1524.  
  1525. SEQ27           DB G_4,24
  1526.                 DB D_4,24
  1527.                 DB C4,24
  1528.                 DB G_4,24
  1529.                 DB A4,24
  1530.                 DB D4,24
  1531.                 DB B3,24
  1532.                 DB G3,24
  1533.                 DB F4,06
  1534.                 DB F_4,06
  1535.                 DB G4,24
  1536.                 DB A4,12
  1537.                 DB A_4,12
  1538.                 DB C5,12
  1539.                 DB D5,12
  1540.                 DB D_5,12
  1541.                 DB D5,24
  1542.                 DB A4,24
  1543.                 DB F_4,24
  1544.                 DB D4,24
  1545.                 DB G_4,24
  1546.                 DB D_4,24
  1547.                 DB C4,24
  1548.                 DB G_4,24
  1549.                 DB A4,24
  1550.                 DB D4,24
  1551.                 DB B3,24
  1552.                 DB G3,24
  1553.                 DB F4,06
  1554.                 DB F_4,06
  1555.                 DB G4,24
  1556.                 DB A4,12
  1557.                 DB A_4,12
  1558.                 DB C5,12
  1559.                 DB D5,12
  1560.                 DB D_5,12
  1561.                 DB D5,48
  1562.                 DB F_5,24
  1563.                 DB A5,24
  1564.                 DB END
  1565.  
  1566. SEQ28           DB A_5,72
  1567.                 DB A5,12
  1568.                 DB A_5,12
  1569.                 DB A_5,72
  1570.                 DB A5,12
  1571.                 DB A_5,12
  1572.                 DB C6,36
  1573.                 DB A_5,36
  1574.  
  1575.                 DB D5,24
  1576.                 DB A5,36
  1577.                 DB G5,36
  1578.                 DB D5,24
  1579.                 DB END
  1580.  
  1581. SEQ29           DB A_5,72
  1582.                 DB A5,12
  1583.                 DB A_5,12
  1584.                 DB A_5,72
  1585.  
  1586.                 DB A5,12
  1587.                 DB A_5,12
  1588.                 DB C6,36
  1589.                 DB A_5,36
  1590.  
  1591.                 DB D_6,24
  1592.                 DB D6,72
  1593.                 DB C6,12
  1594.                 DB D6,12
  1595.  
  1596.                 DB D6,72
  1597.                 DB C6,12
  1598.                 DB D6,12
  1599.                 DB F6,36
  1600.  
  1601.                 DB D_6,36
  1602.                 DB C6,24
  1603.                 DB C_6,36
  1604.                 DB A5,36
  1605.  
  1606.                 DB D5,24
  1607.                 DB D6,72
  1608.                 DB C6,12
  1609.                 DB D6,12
  1610.  
  1611.                 DB D6,72
  1612.                 DB C6,12
  1613.                 DB D6,12
  1614.                 DB D_6,36
  1615.  
  1616.                 DB F6,36
  1617.                 DB G6,24
  1618.                 DB A_6,48
  1619.                 DB A6,48
  1620.                 DB END
  1621.  
  1622. ;***************************************
  1623.  
  1624. COMTU1          DB 32
  1625.                 DB TRANSPOSE,-12
  1626.                 DB 34
  1627.                 DB STOP
  1628.  
  1629. COMTU2          DB TRANSPOSE,-07+12
  1630.                 DB 32
  1631.                 DB TRANSPOSE,-00
  1632.                 DB 35
  1633.                 DB STOP
  1634.  
  1635. COMTU3          DB TRANSPOSE,-10
  1636.                 DB 32
  1637.                 DB TRANSPOSE,00
  1638.                 DB 33
  1639.                 DB STOP
  1640.  
  1641. SEQ32           DB ADSR,7
  1642.                 DB VIBRATO,3
  1643.                 DB G3,6
  1644.                 DB G_3,6
  1645.                 DB A3,6
  1646.                 DB A_3,6
  1647.                 DB B3,6
  1648.                 DB C4,6
  1649.                 DB C_4,6
  1650.                 DB D4,6
  1651.                 DB D_4,6
  1652.                 DB E4,6
  1653.                 DB F4,7
  1654.                 DB G4,7
  1655.                 DB G_4,8
  1656.                 DB A4,8
  1657.                 DB A_4,8
  1658.                 DB B4,8
  1659.                 DB C5,9
  1660.                 DB C_5,9
  1661.                 DB D5,9
  1662.                 DB D_5,9
  1663.                 DB E5,10
  1664.                 DB F5,10
  1665.                 DB REST,02
  1666.                 DB END
  1667.  
  1668. SEQ33           DB ADSR,7
  1669.                 DB VIBRATO,3
  1670.                 DB A2,24+(24/6)
  1671.                 DB G_2,24+(24/6)
  1672.                 DB F_2,24+(24/6)
  1673.                 DB E2,12+(12/6)
  1674.  
  1675.                 DB A1,12+(12/6)
  1676.                 DB E2,24+(24/6)
  1677.                 DB D2,24+(24/6)
  1678.                 DB C_2,24+(24/6)
  1679.  
  1680.                 DB C_2,12+(12/6)
  1681.                 DB A1,12+(12/6)
  1682.                 DB E2,24+(24/6)
  1683.                 DB E2,12+(12/6)
  1684.  
  1685.                 DB A1,12+(12/6)
  1686.                 DB F_2,24+(24/6)
  1687.                 DB F_2,24+(24/6)
  1688.                 DB B1,24+(24/6)
  1689.  
  1690.                 DB A1,24+(24/6)
  1691.                 DB G_1,24+(24/6)
  1692.                 DB F_1,24+(24/6)
  1693.                 DB A1,24+(24/6)
  1694.  
  1695.                 DB C_2,24+(24/6)
  1696.                 DB D2,24+(24/6)
  1697.                 DB C_2,12+(12/6)
  1698.                 DB A1,12+(12/6)
  1699.  
  1700.                 DB B1,24+(24/6)
  1701.                 DB E2,24+(24/6)
  1702.                 DB A2,24+(24/6)
  1703.                 DB G_2,12+(12/6)
  1704.  
  1705.                 DB A2,12+(12/6)
  1706.                 DB B2,24+3+(24/6)
  1707.                 DB B2,24+4+(24/6)
  1708.                 DB E3,24+5+(24/6)
  1709.  
  1710.                 DB E3,24+6+(24/6)
  1711.  
  1712.                 DB D3,24+8+(24/6)
  1713.                 DB C_3,12+8+(12/6)
  1714.                 DB B2,12+8+(12/6)
  1715.  
  1716.                 DB A2,48+48+(48/6)
  1717.                 DB END
  1718.  
  1719. SEQ34           DB ADSR, 7
  1720.                 DB VIBRATO,3
  1721.                 DB C_5,24+(24/6)
  1722.                 DB E5,24+(24/6)
  1723.                 DB D5,12+(12/6)
  1724.                 DB C_5,12+(12/6)
  1725.  
  1726.                 DB B4,12+(12/6)
  1727.                 DB C_5,12+(12/6)
  1728.                 DB B4,24+(24/6)
  1729.                 DB F_4,12+(12/6)
  1730.  
  1731.                 DB A4,12+(12/6)
  1732.                 DB G_4,24+(24/6)
  1733.                 DB F_5,24+(24/6)
  1734.                 DB E5,72+(72/6)
  1735.  
  1736.                 DB F_5,24+(24/6)
  1737.                 DB B4,24+(24/6)
  1738.                 DB A4,24+(24/6)
  1739.                 DB G_4,24+(24/6)
  1740.  
  1741.                 DB E5,24+(24/6)
  1742.                 DB C_5,36+(36/6)
  1743.                 DB A4,12+(12/6)
  1744.                 DB D5,12+(12/6)
  1745.  
  1746.                 DB C_5,12+(12/6)
  1747.                 DB B4,12+(12/6)
  1748.                 DB C_5,12+(12/6)
  1749.                 DB B4,24+(24/6)
  1750.  
  1751.                 DB G_4,12+(12/6)
  1752.                 DB E5,12+(12/6)
  1753.                 DB C_5,24+(24/6)
  1754.                 DB B4,12+(12/6)
  1755.  
  1756.                 DB C_5,12+3+(12/6)
  1757.                 DB D5,48+9+(48/6)
  1758.                 DB E5,48+6+(48/6)
  1759.                 DB F_5,24+8+(24/6)
  1760.  
  1761.                 DB E5,12+8+(12/6)
  1762.                 DB D5,12+8+(12/6)
  1763.                 DB C_5,48+48+(48/6)
  1764.                 DB END
  1765.  
  1766. SEQ35           DB ADSR,7
  1767.                 DB VIBRATO,3
  1768.                 DB C_5,24+(24/6)
  1769.                 DB E5,24+(24/6)
  1770.                 DB D5,12+(12/6)
  1771.                 DB C_5,12+(12/6)
  1772.  
  1773.                 DB B4,12+(12/6)
  1774.                 DB C_5,12+(12/6)
  1775.                 DB B4,24+(24/6)
  1776.                 DB F_4,12+(12/6)
  1777.  
  1778.                 DB A4,12+(12/6)
  1779.                 DB G_4,24+(24/6)
  1780.                 DB F_5,24+(24/6)
  1781.                 DB E5,36+(36/6)
  1782.  
  1783.                 DB A4,12+(12/6)
  1784.                 DB D5,12+(12/6)
  1785.                 DB C_5,12+(12/6)
  1786.                 DB B4,12+(12/6)
  1787.  
  1788.                 DB C_5,12+(12/6)
  1789.                 DB B4,72+(72/6)
  1790.                 DB E5,24+(24/6)
  1791.                 DB C_5,36+(36/6)
  1792.  
  1793.                 DB A4,12+(12/6)
  1794.                 DB D5,12+(12/6)
  1795.                 DB C_5,12+(12/6)
  1796.                 DB B4,12+(12/6)
  1797.  
  1798.                 DB C_5,12+(12/6)
  1799.                 DB B4,24+(24/6)
  1800.                 DB G_4,12+(12/6)
  1801.                 DB E5,12+(12/6)
  1802.  
  1803.                 DB C_5,24+(24/6)
  1804.                 DB B4,12+(12/6)
  1805.                 DB C_5,12+(12/6)
  1806.                 DB D5,24+(24/6)
  1807.  
  1808.                 DB A5,12+5+(12/6)
  1809.                 DB F_5,12+2+(12/6)
  1810.                 DB C_5,24+5+(24/6)
  1811.                 DB B4,24+6+(24/6)
  1812.  
  1813.                 DB A4,24+8+(24/6)
  1814.                 DB E4,12+8+(12/6)
  1815.                 DB D4,12+8+(12/6)
  1816.                 DB C_4,48+48+(48/6)
  1817.                 DB END
  1818.  
  1819. ;***************************************
  1820.  
  1821. PIGEON1         DB TRANSPOSE,00
  1822.                 DB 37
  1823.                 DB TRANSPOSE,01
  1824.                 DB 37
  1825.                 DB TRANSPOSE,03
  1826.                 DB 37
  1827.                 DB TRANSPOSE,01
  1828.                 DB 37
  1829.                 DB TRANSPOSE,00
  1830.                 DB 41
  1831.  
  1832.                 DB 42,42
  1833.                 DB TRANSPOSE,07
  1834.                 DB 42
  1835.                 DB TRANSPOSE,05
  1836.                 DB 42
  1837.                 DB TRANSPOSE,00
  1838.                 DB 42,42
  1839.                 DB TRANSPOSE,07
  1840.                 DB 42
  1841.                 DB TRANSPOSE,05
  1842.                 DB 42
  1843.                 DB TRANSPOSE,00
  1844.                 DB 42,42
  1845.                 DB TRANSPOSE,07
  1846.                 DB 42
  1847.                 DB TRANSPOSE,05
  1848.                 DB 42
  1849.                 DB TRANSPOSE,00
  1850.                 DB 42,42
  1851.                 DB TRANSPOSE,07
  1852.                 DB 42
  1853.                 DB TRANSPOSE,05
  1854.                 DB 42
  1855.  
  1856.                 DB TRANSPOSE,00
  1857.                 DB 44
  1858.                 DB 44
  1859.                 DB TRANSPOSE,03
  1860.                 DB 44
  1861.                 DB 44
  1862.                 DB TRANSPOSE,05
  1863.                 DB 44
  1864.                 DB 44
  1865.                 DB TRANSPOSE,03
  1866.                 DB 44
  1867.                 DB 44
  1868.                 DB TRANSPOSE,00
  1869.                 DB 44
  1870.                 DB 44
  1871.                 DB TRANSPOSE,03
  1872.                 DB 44
  1873.                 DB 44
  1874.                 DB TRANSPOSE,05
  1875.                 DB 44
  1876.                 DB 44
  1877.                 DB TRANSPOSE,03
  1878.                 DB 44
  1879.                 DB 44
  1880.                 DB TRANSPOSE,00
  1881.                 DB 42,42
  1882.                 DB TRANSPOSE,07
  1883.                 DB 42
  1884.                 DB TRANSPOSE,05
  1885.                 DB 42
  1886.                 DB TRANSPOSE,00
  1887.                 DB 42,42
  1888.                 DB TRANSPOSE,07
  1889.                 DB 42
  1890.                 DB TRANSPOSE,05
  1891.                 DB 42
  1892.                 DB TRANSPOSE,00
  1893.                 DB 42,42
  1894.                 DB TRANSPOSE,07
  1895.                 DB 42
  1896.                 DB TRANSPOSE,05
  1897.                 DB 42
  1898.                 DB TRANSPOSE,00
  1899.                 DB 42,42
  1900.                 DB TRANSPOSE,07
  1901.                 DB 42
  1902.                 DB TRANSPOSE,05
  1903.                 DB 42
  1904.                 DB REPEAT
  1905.                 DW PIGEON1
  1906.  
  1907. PIGEON2         DB TRANSPOSE,0
  1908.                 DB 36
  1909.                 DB 38
  1910.                 DB 38
  1911.                 DB TRANSPOSE,-4
  1912.                 DB 38
  1913.                 DB TRANSPOSE,-4
  1914.                 DB 38
  1915.                 DB TRANSPOSE,-2
  1916.                 DB 38
  1917.                 DB TRANSPOSE,-2
  1918.                 DB 38
  1919.                 DB TRANSPOSE,0
  1920.                 DB 38
  1921.                 DB TRANSPOSE,02
  1922.                 DB 38
  1923.                 DB TRANSPOSE,00
  1924.                 DB 43
  1925.                 DB TRANSPOSE,12
  1926.                 DB 45
  1927.                 DB TRANSPOSE,12
  1928.                 DB 45
  1929.                 DB 43
  1930.                 DB REPEAT
  1931.                 DW PIGEON2
  1932.  
  1933. PIGEON3         DB TRANSPOSE,12
  1934.                 DB 36
  1935.                 DB TRANSPOSE,00
  1936.                 DB 40,40,40,40
  1937.                 DB 40,40,40,40
  1938.                 DB 40,40,40,40
  1939.                 DB 40,40,40,40
  1940.                 DB 40,40,40,40
  1941.                 DB 40,40,40,40
  1942.                 DB 40,40,40,40
  1943.                 DB REPEAT
  1944.                 DW PIGEON3
  1945.  
  1946. SEQ36           DB REST,24
  1947.                 DB ADSR,7
  1948.                 DB Cl,48
  1949.                 DB Cl,48
  1950.                 DB Cl,48
  1951.                 DB Cl,24
  1952.                 DB END
  1953.  
  1954. SEQ37           DB ADSR,6
  1955.                 DB ARPEG,3
  1956.                 DB G3,06
  1957.                 DB G3,06
  1958.                 DB G3,06
  1959.                 DB G3,06
  1960.                 DB G3,18
  1961.                 DB G3,06
  1962.                 DB ARPEG,0
  1963.                 DB END
  1964.  
  1965. SEQ38           DB ADSR,7
  1966.                 DB C2,06
  1967.                 DB C2,06
  1968.                 DB C2,06
  1969.                 DB C2,06
  1970.                 DB C2,06
  1971.                 DB C2,06
  1972.                 DB C3,06
  1973.                 DB C2,06
  1974.                 DB C2,06
  1975.                 DB C2,06
  1976.                 DB C2,06
  1977.                 DB C2,06
  1978.                 DB C2,06
  1979.                 DB C2,06
  1980.                 DB C3,06
  1981.                 DB C2,06
  1982.                 DB END
  1983.  
  1984. SEQ39           DB REST,192
  1985.                 DB REST,192
  1986.                 DB END
  1987.  
  1988. SEQ40           DB DRUM,3,24
  1989.                 DB DRUM,4,24
  1990.                 DB DRUM,3,24
  1991.                 DB DRUM,4,24
  1992.                 DB DRUM,3,24
  1993.                 DB DRUM,4,24
  1994.                 DB DRUM,3,06
  1995.                 DB DRUM,3,06
  1996.                 DB DRUM,3,06
  1997.                 DB DRUM,3,06
  1998.                 DB DRUM,4,06
  1999.                 DB DRUM,3,06
  2000.                 DB DRUM,3,06
  2001.                 DB DRUM,3,06
  2002.                 DB END
  2003.  
  2004. SEQ41           DB ADSR,7
  2005.                 DB VIBRATO,3
  2006.                 DB D_4,144
  2007.                 DB D4,24
  2008.                 DB D_4,24
  2009.                 DB D_4,144
  2010.                 DB D4,24
  2011.                 DB D_4,24
  2012.                 DB D4,144
  2013.                 DB D_4,24
  2014.                 DB D4,24
  2015.                 DB C4,72
  2016.                 DB C4,06
  2017.                 DB D4,06
  2018.                 DB D_4,06
  2019.                 DB G_4,06
  2020.                 DB D4,96
  2021.                 DB END
  2022.  
  2023. SEQ42           DB ADSR,8
  2024.                 DB F1,12
  2025.                 DB F1,06
  2026.                 DB F1,06
  2027.                 DB F2,06
  2028.                 DB F1,06
  2029.                 DB F1,06
  2030.                 DB F1,12
  2031.  
  2032.                 DB F1,06
  2033.                 DB F1,06
  2034.                 DB F1,06
  2035.  
  2036.                 DB F2,06
  2037.  
  2038.                 DB F1,06
  2039.                 DB F1,06
  2040.                 DB F1,06
  2041.                 DB END
  2042.  
  2043. SEQ43
  2044.                 DB ADSR,8             ;DER
  2045.                 DB VIBRATO,1
  2046.                 DB F3,192
  2047.                 DB D_4,96
  2048.                 DB D4,48
  2049.                 DB ARPEG,3
  2050.                 DB ADSR,6
  2051.                 DB D4,12
  2052.                 DB D4,06
  2053.                 DB D4,06
  2054.                 DB D4,06
  2055.                 DB D4,06
  2056.                 DB D4,06
  2057.                 DB D4,06
  2058.                 DB ARPEG,0
  2059.                 DB ADSR,8
  2060.                 DB F3,192
  2061.                 DB D_4,96
  2062.                 DB D4,48
  2063.                 DB ARPEG,3
  2064.                 DB ADSR,6
  2065.                 DB D4,12
  2066.                 DB D4,06
  2067.                 DB D4,06
  2068.                 DB D4,06
  2069.                 DB D4,06
  2070.                 DB D4,06
  2071.                 DB D4,06
  2072.                 DB ARPEG,0
  2073.  
  2074.                 DB ADSR,8
  2075.                 DB F3,192
  2076.                 DB D_4,96
  2077.                 DB D4,96
  2078.                 DB F3,192
  2079.                 DB D_4,96
  2080.                 DB D4,48
  2081.                 DB D_4,48
  2082.                 DB VIBRATO,0
  2083.                 DB END
  2084.  
  2085. SEQ44           DB ADSR,7
  2086.                 DB C2,6
  2087.                 DB C2,6
  2088.                 DB C2,6
  2089.                 DB C2,6
  2090.                 DB C3,6
  2091.                 DB C2,6
  2092.                 DB C2,6
  2093.                 DB C2,6
  2094.                 DB C2,6
  2095.                 DB C2,6
  2096.                 DB C2,6
  2097.                 DB C2,6
  2098.                 DB C3,6
  2099.                 DB C2,6
  2100.                 DB C2,6
  2101.                 DB C2,6
  2102.                 DB END
  2103.  
  2104. SEQ45           DB ADSR,8
  2105.                 DB VIBRATO,3
  2106.                 DB G_3,36
  2107.                 DB G3,12
  2108.                 DB G3,96
  2109.                 DB D_3,24
  2110.                 DB F3,24
  2111.                 DB G_3,36
  2112.                 DB G3,12
  2113.                 DB G3,144
  2114.                 DB G3,36
  2115.                 DB F3,12
  2116.                 DB C3,120
  2117.                 DB D3,24
  2118.                 DB F3,36
  2119.                 DB D_3,12
  2120.                 DB A_2,144
  2121.                 DB VIBRATO,0
  2122.                 DB END
  2123.  
  2124. ;***************************************
  2125.  
  2126. HICORE1         DB TRANSPOSE,0
  2127.                 DB 48,48,48,48
  2128.                 DB TRANSPOSE,-12
  2129.                 DB 49,49
  2130.                 DB 49,49
  2131.                 DB STOP
  2132. HICORE2
  2133.                 DB 46,46,46,46,46,46,46,46,46
  2134.                 DB STOP
  2135.  
  2136. HICORE3
  2137.                 DB 47,47,47,47,47,47
  2138.                 DB STOP
  2139.  
  2140. SEQ46
  2141.                 DB ADSR,3
  2142.                 DB D_1,36-12
  2143.  
  2144.                 DB ARPEG,3
  2145.                 DB ADSR,5
  2146.                 DB D_3,12
  2147.                 DB ARPEG,0
  2148.  
  2149.                 DB ADSR,3
  2150.                 DB D_1,12
  2151.                 DB D_1,36-12
  2152.  
  2153.                 DB ARPEG,3
  2154.                 DB ADSR,5
  2155.                 DB D_3,12
  2156.                 DB ARPEG,0
  2157.  
  2158.                 DB ADSR,3
  2159.                 DB D_1,12
  2160.                 DB D_1,24
  2161.  
  2162.                 DB ARPEG,3
  2163.                 DB ADSR,5
  2164.                 DB D_3,12
  2165.                 DB ARPEG,0
  2166.  
  2167.                 DB ADSR,3
  2168.                 DB D_1,24
  2169.                 DB D_1,24-12
  2170.  
  2171.                 DB ARPEG,3
  2172.                 DB ADSR,5
  2173.                 DB D_3,12
  2174.                 DB ARPEG,0
  2175.                 DB REST,12
  2176.                 DB END
  2177.  
  2178. SEQ47           DB DRUM,3,24
  2179.                 DB DRUM,4,24
  2180.                 DB DRUM,3,12
  2181.                 DB DRUM,3,12
  2182.  
  2183.                 DB DRUM,4,24
  2184.                 DB DRUM,3,24
  2185.                 DB DRUM,4,18
  2186.                 DB DRUM,3,18
  2187.  
  2188.                 DB DRUM,3,12
  2189.                 DB DRUM,4,24
  2190.                 DB DRUM,3,24
  2191.                 DB DRUM,4,24
  2192.  
  2193.                 DB DRUM,3,12
  2194.                 DB DRUM,3,12
  2195.                 DB DRUM,4,36
  2196.                 DB DRUM,4,06
  2197.                 DB DRUM,4,06
  2198.  
  2199.                 DB DRUM,4,06
  2200.                 DB DRUM,4,12
  2201.                 DB DRUM,3,06
  2202.                 DB DRUM,4,12
  2203.  
  2204.                 DB DRUM,4,06
  2205.                 DB DRUM,4,06
  2206.                 DB DRUM,3,06
  2207.                 DB DRUM,4,06
  2208.                 DB DRUM,4,12
  2209.                 DB END
  2210.  
  2211. SEQ48           DB REST,12
  2212.                 DB ADSR,4
  2213.                 DB ARPEG,3
  2214.                 DB G_4,12
  2215.                 DB D_5,12
  2216.                 DB G_4,12
  2217.                 DB G_5,12
  2218.                 DB G_4,12
  2219.                 DB D_5,12
  2220.                 DB G_4,12
  2221.                 DB ARPEG,0
  2222.                 DB END
  2223.  
  2224. SEQ49
  2225.                 DB ADSR,8
  2226.                 DB VIBRATO,2
  2227.                 DB C5,6
  2228.                 DB C_5,6
  2229.                 DB C5,6
  2230.                 DB G_4,6
  2231.                 DB D_4,86
  2232.  
  2233.                 DB ADSR,5
  2234.  
  2235.                 DB ARPEG,3
  2236.  
  2237.                 DB C_5,12
  2238.                 DB C5,12
  2239.                 DB G_4,12
  2240.                 DB D_4,12
  2241.                 DB G_4,12
  2242.                 DB C5,12
  2243.                 DB A_4,12
  2244.  
  2245.                 DB ARPEG,0
  2246.  
  2247.                 DB ADSR,8
  2248.  
  2249.                 DB A_4,6
  2250.                 DB B4,6
  2251.                 DB A_4,6
  2252.                 DB F_4,6
  2253.                 DB C_4,82
  2254.  
  2255.                 DB ADSR,5
  2256.  
  2257.                 DB ARPEG,3
  2258.  
  2259.                 DB B4,12
  2260.                 DB A_4,12
  2261.                 DB G_4,12
  2262.                 DB C_5,12
  2263.                 DB C5,12
  2264.                 DB A_4,12
  2265.                 DB G_4,12
  2266.  
  2267.                 DB ARPEG,0
  2268.  
  2269.                 DB END
  2270.  
  2271. ;***************************************
  2272.  
  2273. JUMP1           DB TRANSPOSE,00
  2274.                 DB 50,50
  2275.                 DB 52
  2276.                 DB TRANSPOSE,03
  2277.                 DB 52
  2278.                 DB REPEAT
  2279.                 DW JUMP1
  2280.  
  2281. JUMP2           DB TRANSPOSE,00
  2282.                 DB 51,51,51,51
  2283.                 DB 51,51
  2284.                 DB TRANSPOSE,03
  2285.                 DB 51
  2286.                 DB TRANSPOSE,03
  2287.                 DB 51
  2288.                 DB REPEAT
  2289.                 DW JUMP2
  2290.  
  2291. JUMP3           DB 53
  2292.                 DB REPEAT
  2293.                 DW JUMP3
  2294.  
  2295. SEQ50           DB ADSR,7
  2296.                 DB ARPEG,3
  2297.                 DB G3,60
  2298.                 DB G3,12
  2299.                 DB A3,12
  2300.                 DB G3,12
  2301.                 DB F_3,24
  2302.                 DB C_4,72
  2303.                 DB G_3,60
  2304.                 DB G_3,12
  2305.                 DB A_3,12
  2306.                 DB G_3,12
  2307.                 DB G3,24+72
  2308.                 ;DB D4,72
  2309.                 DB ARPEG,0
  2310.                 DB END
  2311.  
  2312. SEQ51           DB ADSR,8
  2313.                 DB Cl,12
  2314.                 DB Cl,12
  2315.                 DB C2,12
  2316.                 DB C2,12
  2317.  
  2318.                 DB Cl,12
  2319.                 DB Cl,12
  2320.                 DB C2,12
  2321.                 DB C2,12
  2322.  
  2323.                 DB Cl,12
  2324.                 DB Cl,12
  2325.                 DB C2,12
  2326.                 DB C2,12
  2327.  
  2328.                 DB Cl,12
  2329.                 DB Cl,12
  2330.                 DB C2,12
  2331.                 DB C2,12
  2332.                 DB END
  2333.  
  2334. SEQ52           DB ADSR,7
  2335.                 DB ARPEG,12
  2336.                 DB G4,48
  2337.                 DB D_4,18
  2338.                 DB F4,24
  2339.                 DB F_4,06
  2340.                 DB G4,48
  2341.                 DB D_4,18
  2342.                 DB F4,24
  2343.                 DB F_4,06
  2344.                 DB G4,48
  2345.                 DB D_4,18
  2346.                 DB F4,24
  2347.                 DB F_4,06
  2348.                 DB G4,48
  2349.                 DB D_4,06
  2350.                 DB F4,06
  2351.                 DB F_4,06
  2352.  
  2353.                 DB G4,06
  2354.                 DB D_4,06
  2355.                 DB F4,06
  2356.                 DB F_4,06
  2357.                 DB G4,06
  2358.                 DB ARPEG,0
  2359.                 DB END
  2360. SEQ53
  2361.                 DB DRUM,3,24
  2362.                 DB DRUM,4,12
  2363.                 DB DRUM,7,06
  2364.                 DB DRUM,7,06
  2365.                 DB DRUM,3,06
  2366.                 DB DRUM,3,06
  2367.                 DB DRUM,3,06
  2368.                 DB DRUM,3,06
  2369.                 DB DRUM,4,12
  2370.                 DB DRUM,7,06
  2371.                 DB DRUM,7,06
  2372.                 DB DRUM,3,24
  2373.                 DB DRUM,4,30
  2374.                 DB DRUM,3,06
  2375.                 DB DRUM,3,12
  2376.                 DB DRUM,4,12
  2377.                 DB DRUM,7,06
  2378.                 DB DRUM,7,06
  2379.                 DB END
  2380.  
  2381. ;***************************************
  2382.  
  2383. TITLE1          DB 65,65,65,65
  2384. TIT1            DB 54,54,54,54
  2385.                 DB 54,54,55
  2386.                 DB 54,54,55
  2387.                 DB TRANSPOSE,-3
  2388.                 DB 54
  2389.                 DB TRANSPOSE,-3
  2390.                 DB 54
  2391.                 DB TRANSPOSE,-7
  2392.                 DB 54
  2393.                 DB TRANSPOSE,-5
  2394.                 DB 54
  2395.                 DB TRANSPOSE,-3
  2396.                 DB 54
  2397.                 DB TRANSPOSE,-3
  2398.                 DB 54
  2399.                 DB TRANSPOSE,-7
  2400.                 DB 54
  2401.                 DB TRANSPOSE,-5
  2402.                 DB 54
  2403.                 DB 59,59
  2404.                 DB TRANSPOSE,+5
  2405.                 DB 59
  2406.                 DB TRANSPOSE,+5
  2407.                 DB 59
  2408.                 DB TRANSPOSE,+7
  2409.                 DB 59
  2410.                 DB TRANSPOSE,+8
  2411.                 DB 59
  2412.                 DB TRANSPOSE,+9
  2413.                 DB 59
  2414.                 DB TRANSPOSE,+10
  2415.                 DB 59
  2416.                 DB TRANSPOSE,-3
  2417.                 DB 54
  2418.                 DB TRANSPOSE,-2
  2419.                 DB 54
  2420.                 DB TRANSPOSE,-8
  2421.                 DB 54
  2422.                 DB TRANSPOSE,00
  2423.                 DB 61
  2424.                 DB 62
  2425.                 DB REPEAT
  2426.                 DW TIT1
  2427.  
  2428. TITLE2          DB 54,54,54,54
  2429. TIT2            DB 56
  2430.                 DB 57
  2431.                 DB 57
  2432.                 DB 58,60
  2433.                 DB 63
  2434.                 DB REPEAT
  2435.                 DW TIT2
  2436.  
  2437. TITLE3          DB 66,66,66,67
  2438. TIT3            DB 23,23,23,64,23,64
  2439.                 DB 23,23,23,23,23,23,23,23
  2440.                 DB 23
  2441.                 DB REPEAT
  2442.                 DW TIT3
  2443.  
  2444. ;***************************************
  2445.  
  2446. SEQ54           DB ADSR,6
  2447.                 DB Cl,06
  2448.                 DB Cl,06
  2449.                 DB C2,06
  2450.                 DB C2,06
  2451.  
  2452.                 DB Cl,06
  2453.                 DB Cl,06
  2454.                 DB C2,06
  2455.                 DB C2,06
  2456.  
  2457.                 DB Cl,06
  2458.                 DB Cl,06
  2459.                 DB C2,06
  2460.                 DB C2,06
  2461.  
  2462.                 DB Cl,06
  2463.                 DB Cl,06
  2464.                 DB C2,06
  2465.                 DB C2,06
  2466.                 DB END
  2467. SEQ55
  2468.                 DB Cl,06
  2469.                 DB Cl,06
  2470.                 DB C2,06
  2471.                 DB C2,06
  2472.  
  2473.                 DB Cl,06
  2474.                 DB Cl,06
  2475.                 DB C2,06
  2476.                 DB C2,06
  2477.  
  2478.                 DB Cl,06
  2479.                 DB Cl,06
  2480.                 DB C2,06
  2481.                 DB C2,06
  2482.  
  2483.                 DB Cl,06
  2484.                 DB Cl,06
  2485.                 DB C2,06
  2486.                 DB C2,06
  2487.  
  2488.                 DB G_1,06
  2489.                 DB G_1,06
  2490.                 DB G_2,06
  2491.                 DB G_2,06
  2492.  
  2493.                 DB G_1,06
  2494.                 DB G_1,06
  2495.                 DB G_2,06
  2496.                 DB G_2,06
  2497.  
  2498.                 DB A_1,06
  2499.                 DB A_1,06
  2500.                 DB A_2,06
  2501.                 DB A_2,06
  2502.  
  2503.                 DB A_1,06
  2504.                 DB A_1,06
  2505.                 DB A_2,06
  2506.                 DB A_2,06
  2507.                 DB END
  2508.  
  2509. SEQ56           DB ADSR,7
  2510.                 DB ARPEG,13
  2511.                 DB G3,60
  2512.                 DB G3,6
  2513.                 DB G3,6
  2514.                 DB G3,6
  2515.                 DB G3,18
  2516.                 DB F3,48
  2517.                 DB F3,24
  2518.                 DB F3,24
  2519.                 DB ARPEG,14
  2520.                 DB A3,60
  2521.                 DB A3,06
  2522.                 DB A3,06
  2523.                 DB A3,06
  2524.                 DB A3,18
  2525.                 DB ARPEG,15
  2526.                 DB G_3,48
  2527.                 DB G_3,24
  2528.                 DB G_3,24
  2529.                 DB ARPEG,0
  2530.                 DB END
  2531.  
  2532. SEQ57           DB DRUM,3,12
  2533.                 DB ADSR,8
  2534.                 DB VIBRATO,2
  2535.                 DB F4,12
  2536.                 DB E4,12
  2537.                 DB C4,12
  2538.                 DB G3,12
  2539.                 DB C4,12
  2540.                 DB E4,12
  2541.                 DB D4,84
  2542.  
  2543.                 DB E4,6
  2544.                 DB F4,6
  2545.                 DB E4,6
  2546.                 DB C4,6
  2547.                 DB G3,12
  2548.  
  2549.                 DB F4,12
  2550.                 DB E4,12
  2551.                 DB C4,12
  2552.                 DB F3,12
  2553.                 DB A3,12
  2554.                 DB C4,24
  2555.                 DB ARPEG,3
  2556.                 DB ADSR,6
  2557.                 DB D_3,06             ;CHORDS
  2558.                 DB D_3,06
  2559.                 DB D_3,06
  2560.                 DB D_3,06
  2561.                 DB D_3,18
  2562.                 DB D_3,06
  2563.                 DB D3,06
  2564.                 DB D3,06
  2565.                 DB D3,06
  2566.                 DB D3,06
  2567.                 DB D3,24
  2568.                 DB ARPEG,0
  2569.                 DB END
  2570.  
  2571. SEQ58           DB ADSR,8
  2572.                 DB VIBRATO,2
  2573.                 DB C4,01
  2574.                 DB C_4,01
  2575.                 DB D4,01
  2576.                 DB D_4,02
  2577.                 DB E4,48-05
  2578.                 DB A3,96
  2579.                 DB A3,18
  2580.                 DB B3,18
  2581.                 DB C4,12
  2582.                 DB D4,144
  2583.                 DB C4,18
  2584.                 DB B3,18
  2585.                 DB A3,6
  2586.                 DB A_3,6
  2587.                 DB B3,24
  2588.                 DB A3,12
  2589.                 DB E3,108
  2590.                 DB A3,18
  2591.                 DB B3,18
  2592.                 DB C4,12
  2593.                 DB E4,96
  2594.                 DB D4,60
  2595.                 DB C4,18
  2596.                 DB B3,18
  2597.                 DB END
  2598.  
  2599. SEQ59           DB ADSR,7
  2600.                 DB F_1,12
  2601.                 DB F_2,06
  2602.                 DB F_1,12
  2603.                 DB F_1,06
  2604.                 DB F_2,12
  2605.                 DB END
  2606.  
  2607. SEQ60           DB ADSR,7
  2608.                 DB VIBRATO,2
  2609.                 DB A3,54
  2610.                 DB E3,06
  2611.                 DB A3,06
  2612.                 DB B3,06
  2613.                 DB C4,06
  2614.                 DB A3,06
  2615.                 DB B3,06
  2616.                 DB C4,06
  2617.                 DB E4,36
  2618.                 DB E4,06
  2619.                 DB D_4,6
  2620.                 DB D4,36
  2621.                 DB D4,06
  2622.                 DB D_4,6
  2623.                 DB E4,36
  2624.                 DB D_4,06
  2625.                 DB E4,06
  2626.                 DB F_4,36
  2627.                 DB E4,06
  2628.                 DB F_4,06
  2629.                 DB G4,36
  2630.                 DB F_4,06
  2631.                 DB G4,06
  2632.                 DB G_4,48
  2633.                 DB END
  2634.  
  2635. SEQ61           DB ADSR,5
  2636.                 DB El,6
  2637.                 DB El,6
  2638.                 DB E2,6
  2639.                 DB E2,6
  2640.                 DB El,6
  2641.                 DB El,6
  2642.                 DB E2,12
  2643.                 DB C2,12
  2644.                 DB C2,12
  2645.                 DB D2,24
  2646.                 DB END
  2647.  
  2648. SEQ62           DB ADSR,5
  2649.                 DB E2,84
  2650.                 DB E2,06
  2651.                 DB E2,06
  2652.                 DB D_2,48
  2653.                 DB D_2,06
  2654.                 DB D_2,06
  2655.                 DB D_2,12
  2656.                 DB D2,24
  2657.                 DB END
  2658.  
  2659. SEQ63           DB ADSR,8
  2660.                 DB E4,78
  2661.                 DB C4,06
  2662.                 DB C_4,06
  2663.                 DB D4,06
  2664.                 DB E4,78
  2665.                 DB C4,06
  2666.                 DB C_4,06
  2667.                 DB D4,06
  2668.                 DB E4,84
  2669.                 DB E4,24
  2670.                 DB E4,12
  2671.                 DB E4,24
  2672.                 DB ADSR,5
  2673.                 DB ARPEG,3
  2674.                 DB C3,06
  2675.                 DB C3,06
  2676.                 DB C3,12
  2677.                 DB D3,06
  2678.                 DB D3,06
  2679.                 DB D3,12
  2680.                 DB E3,84
  2681.                 DB E3,06
  2682.                 DB E3,06
  2683.                 DB D_3,48
  2684.                 DB D_3,06
  2685.                 DB D_3,06
  2686.                 DB D_3,12
  2687.                 DB D3,06
  2688.                 DB D3,06
  2689.                 DB D3,06
  2690.                 DB D3,06
  2691.                 DB ARPEG,0
  2692.                 DB END
  2693.  
  2694. SEQ64           DB DRUM,3,24
  2695.                 DB DRUM,4,24
  2696.                 DB DRUM,3,24
  2697.                 DB DRUM,4,24
  2698.                 DB DRUM,3,06
  2699.                 DB DRUM,3,06
  2700.                 DB DRUM,3,06
  2701.                 DB DRUM,3,06
  2702.                 DB DRUM,3,06
  2703.  
  2704.                 DB DRUM,3,06
  2705.                 DB DRUM,3,06
  2706.                 DB DRUM,3,06
  2707.                 DB DRUM,3,06
  2708.                 DB DRUM,3,06
  2709.                 DB DRUM,3,06
  2710.                 DB DRUM,3,06
  2711.                 DB DRUM,3,12
  2712.                 DB DRUM,3,06
  2713.                 DB DRUM,3,06
  2714.                 DB END
  2715.  
  2716. SEQ65
  2717.                 DB ADSR,8
  2718.                 DB Cl,24
  2719.                 DB Cl,24
  2720.                 DB Cl,24
  2721.                 DB Cl,24
  2722.                 DB END
  2723.  
  2724. SEQ66           DB ADSR,4
  2725.                 DB C2,06
  2726.                 DB C2,06
  2727.                 DB C2,06
  2728.                 DB C3,06
  2729.                 DB C2,06
  2730.                 DB C2,06
  2731.                 DB C2,06
  2732.                 DB C3,06
  2733.                 DB C2,06
  2734.                 DB C2,06
  2735.                 DB C2,06
  2736.                 DB C3,06
  2737.                 DB C2,06
  2738.                 DB C2,06
  2739.                 DB C3,06
  2740.                 DB C2,06
  2741.                 DB END
  2742.  
  2743. SEQ67           DB DRUM,3,06
  2744.                 DB ADSR,4
  2745.                 DB C2,06
  2746.                 DB C2,06
  2747.                 DB C3,06
  2748.                 DB DRUM,3,06
  2749.                 DB ADSR,4
  2750.                 DB C2,06
  2751.                 DB C2,06
  2752.                 DB C3,06
  2753.                 DB DRUM,3,06
  2754.                 DB DRUM,3,06
  2755.                 DB ADSR,4
  2756.                 DB C2,06
  2757.                 DB C3,06
  2758.                 DB DRUM,4,06
  2759.                 DB DRUM,4,06
  2760.                 DB DRUM,4,06
  2761.                 DB DRUM,4,06
  2762.                 DB END
  2763.  
  2764. ;****************************************************************************
  2765. ;** END OF MUSIC FILE                                                      **
  2766. ;****************************************************************************
  2767.  
  2768. MUSICEND
  2769.                 ;ENDIF
  2770.  
  2771.  
  2772.