home *** CD-ROM | disk | FTP | other *** search
/ Fujiology Archive / fujiology_archive_v1_0.iso / S / SHAPESFT / MSXMENU2.ZIP / MSXMENU2.MSA / MUSIC.S / DAFT.S < prev    next >
Text File  |  1985-11-20  |  14KB  |  1,091 lines
  1.  
  2. ; DON'T FUCK ROUND
  3.  
  4.  
  5.  CLR.L -(SP)       ; Enter supervisor mode.
  6.  MOVE.W #$20,-(SP) ; Super.
  7.  TRAP #1
  8.  ADDQ.L #6,SP
  9.  MOVE.L D0,SV
  10.  
  11.  
  12. SL EQU $FF8800
  13. SD EQU $FF8802
  14.  move.b #7,sl
  15.  move.b #%11111000,sd
  16.  
  17.  MOVE.B #$08,SL
  18.  MOVE.B #15,SD
  19.  MOVE.B #$0,SL
  20.  MOVE.B #96,SD
  21.  
  22.  MOVE.B #$01,SL
  23.  MOVE.B #$00,SD
  24.  
  25.  
  26. ;FF CMP.B #97,$FFFC02
  27. ;  BNE.S FF
  28.  
  29.  
  30. VBI  
  31.  movem.l d0-d3/a0-a6,-(sp)
  32.  
  33.  add #11,jum
  34. ; add.b #180,dri
  35. ; BCC FLO
  36.  
  37.  
  38.  
  39.  
  40. ;\\\\\\\\\\\\\
  41.  MOVE.L UPTO,A2
  42.  MOVE CUNT,D3
  43.  MOVE.B 33(A2),D4
  44. SSU SUBQ.W #1,D3
  45.  Bpl.S PART1
  46.  
  47. COP
  48.  MOVE.L #1,PNT0
  49.  MOVE.L #1,PNT1
  50.  MOVE.L #1,PNT2
  51.  MOVE.L #1,PNT3
  52.  MOVE.L #1,PNT4
  53.  MOVE.L #1,PNT5
  54.  MOVE.L #$9000000,SL
  55.  
  56.  ADD.L #36,a2
  57.  CMP.L #CHAN0,A2
  58.  BNE.S LLA
  59.  LEA DOTH,A2
  60.  clr val
  61.  
  62. LLA
  63.  MOVE 34(A2),D3
  64.  MOVE.B 33(A2),D4
  65. PART1
  66.  CLR.B D2
  67.  BTST #1,D4
  68.  BEQ.S W1
  69.  MOVE.L (A2),A1
  70.  MOVE.L 4(A2),A0
  71.  BSR CHAN0
  72.  
  73. W1 BTST #2,D4
  74.  BEQ.S W2
  75.  MOVE.L 8(A2),A1
  76.  MOVE.L 12(A2),A0
  77.  BSR CHAN0
  78. W2 MOVEQ.B #1,D2
  79.  BTST #3,D4
  80.  BEQ.S W3
  81.  MOVE.L 16(A2),A1
  82.  MOVE.L 20(A2),A0
  83.  BSR CHAN0
  84. W3 BTST #4,D4
  85.  BEQ.S W4
  86.  MOVE.L 24(A2),A1
  87.  MOVE.L 28(A2),A0
  88.  BSR CHAN0
  89. W4 MOVE.L A2,UPTO
  90.  MOVE D3,CUNT
  91. ;--END OF VBI
  92. ;--------EXIT
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99. FLO
  100.  MOVE.B $469,D0
  101. FT CMP.B $469,D0
  102.  BEQ.S FT
  103.  
  104.  
  105.  movem.l (sp)+,d0-d3/a0-a6 
  106. ;killer rts
  107.  
  108.  
  109.  CMP.B #97,$FFFC02
  110.  BNE VBI
  111.  
  112.  
  113.  
  114.  
  115.     lea    $ff8800,a0    get sound chip 
  116.     move.b    #7,(a0)
  117.     move.b    #%11111111,2(a0) cut out lingering noise
  118.     move.l #$8000000,$ff8800 
  119.     move.l #$9000000,$ff8800 
  120.     move.l #$a000000,$ff8800 
  121.  
  122.  MOVE #$777,$FF8240  
  123.  clr $FF8240+30
  124.  MOVE.L SV,-(SP)
  125.  MOVE #$20,-(SP)
  126.  TRAP #1
  127.  ADDQ.L #6,SP
  128.  
  129.  CLR -(SP)
  130.  TRAP #1
  131.  
  132.  
  133.  
  134. jum dc.w 0
  135. SV DC.L 0
  136.  
  137.  DC.B " (C) G.WHEATON.  45 GOLDRILL AVE BOLTON. LANCS, U.K. "
  138.  
  139.  
  140. UPTO DC.L EE-36
  141. CUNT DC.W 0
  142.  EVEN
  143. ;\\RUNNING ORDER SEQUENCE
  144. ee
  145. doth
  146.  DC.L PNT5,bast b
  147.  DC.L PNT0,clong
  148.  DC.L PNT2,bb
  149.  DC.L PNT3,drm
  150.  DC.B 1,%00011110
  151.  DC.W -1+64*4
  152.  
  153.  
  154.  DC.L PNT5,bast b
  155.  DC.L PNT1,bb
  156.  DC.L PNT2,gg
  157.  DC.L PNT3,drm
  158.  DC.B 1,%00011110
  159.  DC.W -1+64*8
  160.  
  161.  DC.L PNT5,prince
  162.  DC.L PNT1,batman
  163.  DC.L PNT2,bat
  164.  DC.L PNT3,drm
  165.  DC.B 1,%00011110
  166.  DC.W -1+64*8
  167.  
  168.  DC.L PNT5,bb
  169.  DC.L PNT1,bbb
  170.  DC.L PNT2,bb
  171.  DC.L PNT3,drm2
  172.  DC.B 1,%00011110
  173.  DC.W -1+64*2
  174.  
  175.  DC.L PNT5,batman prince
  176.  DC.L PNT1,bat
  177.  DC.L PNT2,prince
  178.  DC.L PNT3,drm
  179.  DC.B 1,%00011110
  180.  DC.W -1+64*8
  181.  
  182.  DC.L PNT5,bb
  183.  DC.L PNT1,bbb
  184.  DC.L PNT2,bb
  185.  DC.L PNT3,drm2
  186.  DC.B 1,%00011110
  187.  DC.W -1+64*4
  188.  
  189.  
  190.  
  191.  
  192.  
  193.  DC.L PNT5,cc
  194.  DC.L PNT1,ccc
  195.  DC.L PNT2,cc
  196.  DC.L PNT3,drm2
  197.  DC.B 0,%00011110
  198.  DC.W -1+64*4
  199.  
  200.  DC.L PNT5,bb
  201.  DC.L PNT1,bbb
  202.  DC.L PNT2,bb
  203.  DC.L PNT3,drm2
  204.  DC.B 1,%00011110
  205.  DC.W -1+64*4
  206.  
  207.  DC.L PNT5,ddd
  208.  DC.L PNT1,bbatman
  209.  DC.L PNT2,dd
  210.  DC.L PNT3,drm2
  211.  DC.B 2,%00011110
  212.  DC.W -1+64*2
  213.  
  214.  DC.L PNT5,cc
  215.  DC.L PNT1,cbatman
  216.  DC.L PNT2,cc
  217.  DC.L PNT3,drm2
  218.  DC.B 1,%00011110
  219.  DC.W -1+64*2
  220.  
  221.  DC.L PNT5,bb
  222.  DC.L PNT1,batman
  223.  DC.L PNT2,bat
  224.  DC.L PNT3,drm
  225.  DC.B 1,%00011110
  226.  DC.W -1+64*4
  227.  
  228.  DC.L PNT5,clong+4
  229.  DC.L PNT0,clong
  230.  DC.L PNT2,bb
  231.  DC.L PNT3,drm
  232.  DC.B 1,%00011110
  233.  DC.W -1+64*8
  234.  
  235.  DC.L PNT4,clon
  236.  DC.L PNT0,clong
  237.  DC.L PNT2,bb
  238.  DC.L PNT3,drm
  239.  DC.B 1,%00011110
  240.  DC.W -1+64*16
  241.  
  242.  DC.L PNT6,blr1
  243.  DC.L PNT1,blr
  244.  DC.L PNT2,bl
  245.  DC.L PNT3,drm
  246.  DC.B 2,%00011110
  247.  DC.W -1+64*16
  248.  
  249.  
  250.  
  251.  
  252.  
  253.  
  254.  
  255. CHAN0
  256. ;\\\\\\\\\\\\\\\\\\\\\\
  257.  MOVE (A1),D0
  258.  ADD D0,A0
  259.  MOVE.L (A0),D1  ;GET NOTE 0 & DURATION
  260.  MOVE.B 13(A1),D5
  261.  EXT.W D5
  262.  SWAP D1
  263.  ADD D5,D1
  264.  SWAP D1
  265.  CMP #$FFFF,D1
  266.  BNE CON2
  267.  CLR (A1)        ;RESET TO START
  268.  SUB D0,A0
  269.  MOVE.L (A0),D1
  270. CON2
  271.  SUBQ.B #1,3(A1)    ;NP0
  272.  BNE STILLON
  273.  
  274.  clr rog
  275.  MOVE.L D1,6(A1) ;TMP0  \D1.W IS DURATION
  276.  MOVE.L D1,20(A1);TEMP  HOLD NOTE
  277.  MOVE.B 26(A1),4(A1)   ;VOL0
  278.  MOVE D1,2(A1)   ;NP0  \SET NEW DURATION
  279.  ADDQ.W #4,(A1)        ; & INC POINTER
  280. STILLON
  281. ;\\VOLUME
  282. RFF
  283. ;\\\\\\\\\EFFECTS\\\\\\\\\\
  284. NV0 
  285.  MOVE.B 2(A1),D0
  286.  CMP.B #4,D0
  287.  BNE DOIT
  288.  ADDQ.B #1,4(A1)
  289.  RTS
  290. DOIT 
  291.  
  292. DZZ
  293.  MOVE.B #7,SL
  294.  MOVE.B #%11111000,SD
  295.  BRA FCC
  296. EFCT
  297.  
  298.  DC.L FINK,VIB,WARB,DRUM,slip,WB1,WRP,SLW
  299.  DC.L SLR,HOLD,TWERP,SLR1,inup,wwq,Half
  300.  dc.l holl,coll,foll,aoll,eoll
  301.  dc.l lowt,hag,intdrum,man
  302.  
  303.  
  304. FCC LEA EFCT,A6
  305.  AND #31,D0 
  306.  ASL #2,D0
  307.  MOVE.L (A6,D0),A0
  308.  JSR (A0)
  309.  
  310. MAZ ADDQ.B #1,4(A1)          ;VOL0
  311.  MOVE.B 11(A1),SL
  312.  MOVE.B 21(A1),SD   ;TMP0+1
  313.  MOVE.B 12(A1),SL
  314.  MOVE.B 20(A1),SD   ;TMP0
  315.  CLR D0
  316.  MOVE.B 4(A1),D0
  317.  MOVE.B 10(A1),SL
  318.  MOVE.B 28(A1,D0),D2    ;VOL0
  319.  MOVE.B D2,SD
  320.  
  321. fink rts
  322.  
  323. ;-------EFFECTS ROUTINES--------
  324. ;1-256---DELAYED--VIBRATO-------
  325.  
  326. coll 
  327.  addq.b #1,4(a1)
  328.  bra wwq
  329.  
  330. VV EOR.B #1,MC
  331.  BEQ.S SDC
  332.  
  333.  
  334. VIB moveq #0,d1
  335.  move.b 4(a1),d1
  336.  cmp #12,d1
  337.  blt.s sdc
  338.  
  339.  
  340. WWQ 
  341.  MOVE 16(A1),D1
  342.  ADD D1,18(A1)
  343.  MOVE 14(A1),D1
  344.  CMP 18(A1),D1
  345.  BLT.S RIST
  346. KJ NEG D1
  347.  CMP 18(A1),D1
  348.  BGT.S RIST
  349. SAZ MOVE 6(A1),D1
  350.  ADD 18(A1),D1
  351.  MOVE D1,20(A1)
  352. SDC RTS
  353. RIST NEG 16(A1)
  354.  BRA.S SAZ
  355.  
  356. ;2-512------WARB DW-----------
  357. XX DC.B 0,0
  358.  
  359. WARB 
  360. SAX 
  361.  ADDQ.B #2,4(A1)
  362.  lSR 20(A1)
  363.  CMP #28,20(A1)
  364.  BGT.S PLOP
  365.  
  366.  MOVE 6(A1),20(A1)
  367. PLOP RTS
  368.  
  369.  
  370. ;3--768--------DRUM-----------
  371. DRUM 
  372.  
  373.  ;SUBQ.B #1,19(A1)
  374.  MOVE.B #7,SL
  375.  MOVE.B #%11011000,SD
  376.  MOVE.B #6,SL
  377.  MOVE.B 19(A1),SD
  378.  
  379.  MOVE.B #5,SL
  380.  MOVE.B 32(A2),SD
  381.  
  382.  MOVE.B #4,SL
  383.  MOVE.B 19(A1),D0
  384.  ASL.B #5,D0
  385.  MOVE.B D0,SD
  386. JUNK RTS
  387.  
  388.  
  389. lil dc.b 0,0
  390.  
  391. ;------4 1024
  392. slip 
  393.  
  394.  
  395. ;5--1280--
  396. WB1 
  397.  moveq.w #0,d1
  398.  move.b 4(a1),d1
  399.  CMP #32,d1
  400.  BLT.s warp 
  401.  
  402.  move.b #32,4(a1)
  403.  subq.w #8,20(a1)
  404.  
  405. warp rts
  406.  
  407.  
  408.  
  409.  
  410. ;6--1536-----WARB UP---------
  411. WRP 
  412. SDX 
  413.  addq.b #4,4(a1)
  414.  LSR 20(A1)
  415.  CMP #65,20(A1)
  416.  BGT PLAP
  417.  MOVE 6(A1),20(A1)
  418. PLAP bra vib
  419.  
  420.  
  421. ;7--1792---SLIDE-UP--WARBLE
  422. SLW 
  423.  bsr warb
  424.  MOVE.B #4,SL
  425.  MOVE.B 21(A1),SD   ;TMP0+1
  426.  MOVE.B #5,SL
  427.  MOVE.B 20(A1),SD   ;TMP0
  428.  
  429.  MOVE.B #10,SL
  430.  MOVE.B #13,SD
  431.  
  432.  MOVE.L (SP)+,D1
  433.  JMP FINK
  434.  
  435.  
  436. ;--2048---SLIDE UP CONST VOL 
  437. SLR 
  438.  move jum,d1
  439.  and #15,d1
  440.  sub d1,20(A1)
  441. raz RTS
  442.  
  443.  
  444.  
  445. ;9--2304-------HOLD-------------
  446. HOLD MOVE.B #50,4(A1)
  447.  RTS
  448.  
  449.  
  450. ;------10 2560
  451. TWERP 
  452.  MOVE.B #8,4(a1)
  453.  rts
  454.  
  455.  
  456. ;11-------2816 SLIDE UP WITH ADSR
  457. SLR1
  458.  addq.b #1,4(a1) 
  459. dip rts
  460.  
  461.  
  462. ;12-------3072  
  463. inup
  464.  add.b #80,m
  465.  bcc wwq
  466.  subq.b #1,4(a1)
  467.  bra vib
  468.  
  469. m dc.b 0,0
  470.  
  471. ;13-
  472.  
  473.  
  474. ;
  475. ;14--------dw A
  476. half
  477.  ADDQ.B #1,RONK
  478.  move.b RONK,d1
  479.  and #3,d1
  480.  asl #1,d1
  481.  move dw(pc,d1),20(a1)
  482.  rts
  483.  
  484. dw dc.w 144,96,72,96/2
  485.  
  486. ronk dc.b 0,0
  487.  
  488. ;15--------DW G
  489. holl
  490.  cmp.b #4,4(a1)
  491.  blt.s das
  492.  bra warp
  493.  
  494. das rts
  495.  
  496.  
  497.  
  498. ;17--------DW F
  499. Foll
  500.  move.b #15,4(a1)
  501.  
  502. ;18--------DW Am
  503. aoll
  504.  
  505.  addq.b #2,4(A1)
  506.  addq.b #1,RONK
  507.  move.b RONK,d1
  508.  and #3,d1
  509.  asl #1,d1
  510.  move aq(pc,d1),20(a1)
  511.  rts
  512.  
  513. aq dc.w 108,72,54,45
  514.  
  515.  
  516. ;19--------DW E
  517. eoll
  518.  addq.b #2,4(A1)
  519.  BRA WARB VIB
  520.  
  521.  
  522. add=4
  523. lim = 216+47
  524. ;20
  525.  
  526.  
  527. LOWt 
  528.  move fl,d1
  529.  add d1,val
  530.  
  531.  bpl.s dww
  532.  
  533.  move #add,fl
  534.  clr val
  535.  
  536. dww 
  537.  cmp #lim,val
  538.  blt.s hh
  539.  
  540.  move #-add,fl 
  541.  move #lim,val
  542.  
  543. hh
  544.  MOVE.B #34,4(A1)
  545.  move val,d1
  546.  move 6(a1),20(a1)
  547.  sub d1,20(A1)
  548.  
  549.  bra warb
  550.  RTS
  551.  
  552.  
  553. val dc.w 0
  554. fl dc.w add
  555.  
  556.  
  557.  
  558.  
  559. ;21--------dw g
  560. hag
  561.  ADDQ.B #1,RONK
  562.  move.b RONK,d1
  563.  and #3,d1
  564.  asl #1,d1
  565.  move ddw(pc,d1),20(a1)
  566.  rts
  567.  
  568. ddw dc.w 162,108,81,54
  569.  
  570. ;23 
  571.  
  572. man
  573. ;22 
  574. intdrum
  575.  
  576.  addq.b #8,rog
  577.  bcc vib
  578.  
  579.  add.b #32,rog+1
  580.  move.b rog+1,4(a1)
  581.   
  582. hex bra vib
  583.  
  584. rog dc.b 0,0
  585.  
  586. ;\\\\\\\\\\\\\\DATAS\\\\\\\\\\\\\\\
  587. ;\\NOTE 1ST WORD. DURATION 2ND WORD
  588. ;\\\LEAD
  589. PNT0 DC.W 0
  590. NP0 DC.W 1
  591.  DC.W 0
  592.  DC.L 0
  593.  DC.B 9,2,3
  594.  DC.B 1      ;ADD TO NOTE
  595.  DC.W 144      ;VIB LIMIT
  596.  DC.W 16     ;16(A1)  ADD
  597.  DC.W 0      ;VIB 18(A1)
  598.  DC.L 0      ;TMP NOTE 20(A1)
  599.  DC.B 1,1    ;VIB RATE 24(A1)
  600.  DC.B 0,0    ;INITIAL VOL
  601. ;ADSR  28(A1)
  602.  
  603.  DC.B 15,14,13,13,12,12,12,11,11,11
  604.  
  605.  DC.B 10,10
  606.  dcb.b    50,9
  607.  dcb.b    50,8
  608.  DCb.B  50,7
  609.  DCb.B  50,6
  610.  
  611.  
  612.  
  613.  EVEN
  614. ;\\\MIDDLE
  615. PNT1 DC.W 0
  616.  DC.W 1       ;EFFECT & DURATION 2(A1)
  617.  DC.B 0,0
  618.  DC.L 0
  619.  DC.B 9,2,3
  620.  DC.B 0       ;ADD  13(A1)
  621.  DC.W 4       ;VIB LIMIT
  622.  DC.W 3       ;VIB ADD 16(A1)
  623.  DC.W 0       ;VIB 18(A1)
  624.  DC.L 0       ;TEMP NOTE 20(A1)
  625.  DC.B 1,1     ;VIB RATE  24)A1)
  626.  DC.B 0,0     ;INITIAL VOL
  627. ;ADSR  28(A1)
  628.  
  629.  DC.B 15,15,14,14,13,13,13,13
  630.  
  631.  dcb.b 16,12
  632.  dcb.b 16,11
  633.  dcb.b 20,10
  634.  dcb.b 20,9
  635.  dcb.b 120,8
  636.  dcb.b 40,6
  637.  dcb.b 40,5
  638.  
  639.  
  640.  
  641.  
  642.  EVEN
  643. ;\\\BASS
  644. PNT2 DC.W 0
  645.  DC.W 1          ;2(A1) DURATION
  646.  DC.B 0,0        ;4(A1)
  647.  DC.L 0          ;6
  648.  DC.B 10,4,5     ;10(A1) VOL REG
  649.  DC.B 1          ;ADD TO NOTE 13(A1)
  650.  DC.W 17          ;VIB LIMIT
  651.  DC.W 10          ;VIBRATO ADD 16(A1)
  652.  DC.W 2          ;VIB 18(A1)
  653.  DC.L 0          ;TMP NOTE 20(A1)
  654.  DC.B 1,1        ;VIB RATE
  655.  DC.B 0,0        ;INITIAL VOL 26(A1)
  656. ;\ADSR  28(A1)
  657. ADSR
  658. *-*
  659.  dc.b 15,15,14,14,13,13,12,12,11,11
  660.  
  661.  DCB.B 4,13
  662.  DCB.B 12,11
  663.  DCB.B 16,11
  664.  DCB.B 20,10
  665.  DCB.B 10,9
  666.  DCB.B 10,8
  667.  DCB.B 20,7
  668.  DCB.B 20,5
  669.  DCB.B 50,4
  670.  DCB.B 150,3
  671.  
  672.  
  673.  
  674.  
  675.  EVEN
  676. PNT3 DC.W 0
  677. NP3 DC.W 1      ;2(A1) DURATION
  678.  DC.B 0,0        ;4(A1)
  679.  DC.L 0          ;6
  680.  DC.B 10,6,11    ;10(A1) VOL REG
  681.  DC.B -1         ;ADD  13(A1)
  682.  DC.W 4          ;VIB LIMIT
  683.  DC.W 3          ;VIBRATO ADD 16(A1)
  684.  DC.W 0          ;VIB 18(A1)
  685.  DC.L 0          ;TMP NOTE 20(A1)
  686.  DC.B 1,1        ;VIB RATE
  687.  DC.B 0,0        ;INITIAL VOL 26(A1)
  688. ;\ADSR  28(A1)
  689.  
  690.  
  691.  DC.B 15,14,14,13,12,12,12
  692.  DC.B 11,9,10,9,9,9,9,9,8,8,7
  693.  
  694.  
  695.  
  696.  EVEN
  697. PNT4 DC.W 0
  698. NP4 DC.W 1      ;2(A1) DURATION
  699.  DC.B 0,0        ;4(A1)
  700.  DC.L 0
  701.  DC.B 8,0,1      ;10(A1) VOL REG
  702.  DC.B 0          ;ADD 13(A1)
  703.  DC.W 162        ;VIB LIMIT
  704.  DC.W 15          ;VIBRATO ADD 16(A1)
  705.  DC.W 0          ;VIB 18(A1)
  706.  DC.L 0          ;TMP NOTE 20(A1)
  707.  DC.B 1,1        ;VIB RATE
  708.  DC.B 0,0        ;INITIAL VOL 26(A1)
  709. ;\ADSR  28(A1)
  710.  
  711.  
  712.  DCB.B 10,11
  713.  DC.B 13,13,12,12,11,11
  714.  DCB.B 5,10
  715.  DCB.B 22,8
  716.  DCB.B 22,6
  717.  
  718.  
  719.  
  720.  
  721.  
  722. PNT5 DC.W 0
  723.  DC.W 1       ;EFFECT & DURATION 2(A1)
  724.  DC.B 0,0
  725.  DC.L 0
  726.  DC.B 8,0,1
  727.  DC.B 0       ;ADD  13(A1)
  728.  DC.W 2       ;VIB LIMIT
  729.  DC.W 3       ;VIB ADD 16(A1)
  730.  DC.W 0       ;VIB 18(A1)
  731.  DC.L 0       ;TEMP NOTE 20(A1)
  732.  DC.B 1,1     ;VIB RATE  24)A1)
  733.  DC.B 0,0     ;INITIAL VOL
  734. ;ADSR  28(A1)
  735.  
  736.  DCb.B 8,14
  737.  DCb.B 8,13
  738.  DCb.B 8,12
  739.  DCb.B 8,11
  740.  DCb.B 8,10
  741.  DCb.B 8,9
  742.  DCb.B 10,8
  743.  DCb.B 50,7
  744.  DCb.B 50,6
  745.  DCb.B 20,5
  746.  DCb.B 20,4
  747.  DCb.B 80,3
  748.  
  749.  
  750.  
  751. PNT6 DC.W 0
  752.  DC.W 1       ;EFFECT & DURATION 2(A1)
  753.  DC.B 0,0
  754.  DC.L 0
  755.  DC.B 8,0,1
  756.  DC.B 0       ;ADD  13(A1)
  757.  DC.W 4       ;VIB LIMIT
  758.  DC.W 3       ;VIB ADD 16(A1)
  759.  DC.W 0       ;VIB 18(A1)
  760.  DC.L 0       ;TEMP NOTE 20(A1)
  761.  DC.B 1,1     ;VIB RATE  24)A1)
  762.  DC.B 0,0     ;INITIAL VOL
  763. ;ADSR  28(A1)
  764.  
  765.  DC.B 12,11,10,9,8
  766.  DCb.B 50,7
  767.  DCb.B 50,6
  768.  DCb.B 20,5
  769.  DCb.B 20,4
  770.  DCb.B 80,3
  771.  DCb.B 8,2
  772.  DCb.B 64,1
  773.  
  774.  
  775.  
  776.  
  777.  EVEN
  778. TE2 DC.W 2,3
  779.  
  780.  
  781.  
  782.  
  783. MAX DC.B 71,32,87,72,69,65,84,79,78
  784. DRI DC.B 251,0
  785. MIN DC.B 0,0
  786. MC DC.B 0,0
  787.  EVEN
  788.  
  789. ;-----------MUSIC DATA
  790.  
  791. D=2304
  792. v=256
  793.  
  794. NULL DC.W 2,128+2304
  795.  DC.W $FFFF,$FFFF
  796.  
  797.  
  798.  
  799. drm
  800.  dc.w 0,16+1024
  801.  dc.w 4,4+768
  802.  dc.w 3,12++1024
  803.  DC.W $FFFF,$FFFF
  804.  
  805.  
  806. drm2
  807.  dc.w 0,16+1024
  808.  dc.w 4,4+768
  809.  dc.w 3,12++1024
  810.  
  811.  dc.w 0,16+1024
  812.  dc.w 4,4+768
  813.  dc.w 3,12++1024
  814.  
  815.  dc.w 0,16+1024
  816.  dc.w 4,4+768
  817.  dc.w 3,12+1024
  818.  
  819.  dc.w 1,4+768
  820.  dc.w 0,6+1024
  821.  dc.w 1,1+768
  822.  dc.w 0,5+1024
  823.  dc.w 1,4+768
  824.  dc.w 0,4+1024
  825.  dc.w 1,1+768
  826.  
  827.  dc.w 3,7++1024
  828.  
  829.  DC.W $FFFF,$FFFF
  830.  
  831.  
  832.  
  833. e=1536
  834. a=8
  835. prince 
  836.  dc.w 216*a,8+e
  837.  dc.w 172*a,8+e
  838.  dc.w 144*a,8+e
  839.  dc.w 108*a,8+e
  840.  dc.w 121*a,8+e
  841.  dc.w 128*a,8+e
  842.  dc.w 144*a,8+e
  843.  
  844.  dc.w 216*a,8+e
  845.  dc.w 144*a,8+e
  846.  dc.w 162*a,8+e
  847.  dc.w 172*a,8+e
  848.  
  849.  dc.w 216*a,8+e
  850.  dc.w 172*a,8+e
  851.  dc.w 192*a,8+e
  852.  dc.w 216*a,16+e
  853.  DC.W $FFFF,$FFFF
  854.  
  855. cbatman
  856.  dc.w 144,8+21*256
  857.  dc.w 0,8+d
  858.  dc.w 144,48+21*256
  859.  dc.w 0,64+d
  860.  DC.W $FFFF,$FFFF
  861.  
  862.  
  863. bbatman
  864.  dc.w 144,8+14*256
  865.  dc.w 0,8+d
  866.  dc.w 144,48+14*256
  867.  dc.w 0,64+d
  868.  DC.W $FFFF,$FFFF
  869.  
  870.  
  871. batman
  872.  dc.w 216,8+18*256
  873.  dc.w 0,8+d
  874.  dc.w 216,48+18*256
  875.  dc.w 0,64+d
  876.  DC.W $FFFF,$FFFF
  877.  
  878. bat
  879.  dc.w 216*2,8
  880.  dc.w 0,8+d
  881.  dc.w 216*2,48+v
  882.  dc.w 216*8,64+2048
  883.  DC.W $FFFF,$FFFF
  884.  
  885.  
  886. x=8
  887. bb
  888.  dc.w 216*x,8
  889.  dc.w 216*x,8
  890.  
  891.  dc.w 230*x,8
  892.  dc.w 230*x,8
  893.  
  894.  dc.w 243*x,8
  895.  dc.w 243*x,8
  896.  
  897.  dc.w 230*x,8
  898.  dc.w 230*x,8
  899.  DC.W $FFFF,$FFFF
  900.  
  901. f=16
  902. bbb
  903.  dc.w 216*f,8
  904.  dc.w 216*f,8
  905.  
  906.  dc.w 230*f,8
  907.  dc.w 230*f,8
  908.  
  909.  dc.w 243*f,8
  910.  dc.w 243*f,8
  911.  
  912.  dc.w 230*f,8
  913.  dc.w 230*f,8
  914.  DC.W $FFFF,$FFFF
  915.  
  916.  
  917. cc
  918.  dc.w 162*x,8
  919.  dc.w 162*x,8
  920.  
  921.  dc.w 172*x,8
  922.  dc.w 172*x,8
  923.  
  924.  dc.w 182*x,8
  925.  dc.w 182*x,8
  926.  
  927.  dc.w 172*x,8
  928.  dc.w 172*x,8
  929.  DC.W $FFFF,$FFFF
  930.  
  931. ccc
  932.  dc.w 162*f,8
  933.  dc.w 162*f,8
  934.  
  935.  dc.w 172*f,8
  936.  dc.w 172*f,8
  937.  
  938.  dc.w 182*f,8
  939.  dc.w 182*f,8
  940.  
  941.  dc.w 172*f,8
  942.  dc.w 172*f,8
  943.  DC.W $FFFF,$FFFF
  944.  
  945. dd
  946.  dc.w 144*x,8
  947.  dc.w 144*x,8
  948.  
  949.  dc.w 153*x,8
  950.  dc.w 153*x,8
  951.  
  952.  dc.w 162*x,8
  953.  dc.w 162*x,8
  954.  
  955.  dc.w 153*x,8
  956.  dc.w 153*x,8
  957.  DC.W $FFFF,$FFFF
  958.  
  959. ddd
  960.  dc.w 144*f,8
  961.  dc.w 1442*f,8
  962.  
  963.  dc.w 153*f,8
  964.  dc.w 153*f,8
  965.  
  966.  dc.w 162*f,8
  967.  dc.w 162*f,8
  968.  
  969.  dc.w 153*f,8
  970.  dc.w 153*f,8
  971.  DC.W $FFFF,$FFFF
  972.  
  973.  
  974. bast
  975.  dc.w 0,8+18*256
  976.  dc.w 0,24+d
  977.  dc.w 54,8+1536
  978.  dc.w 0,24+d
  979.  
  980.  dc.w 0,8+18*256
  981.  dc.w 0,24+d
  982.  dc.w 54,8+1536
  983.  dc.w 0,8+d
  984.  dc.w 54,8+1536
  985.  dc.w 0,8+d
  986.  
  987.  DC.W $FFFF,$FFFF
  988.  
  989.  
  990. GG 
  991.  DC.W 162*4,64+20*256
  992.  DC.W $FFFF,$FFFF
  993.  
  994.  
  995.  
  996. clon 
  997.  dc.w 172*2,16+v
  998.  dc.w 121*2,8+v
  999.  
  1000.  dc.w 172*2,8+v
  1001.  dc.w 121*2,16+v
  1002.  dc.w 144*2,16+v
  1003.  dc.w 162*2,16+v
  1004.  dc.w 108*2,8+v
  1005.  dc.w 0,8+d
  1006.  dc.w 128*2,8+v
  1007.  dc.w 0,8+d
  1008.  
  1009.  dc.w 108*4,64+v
  1010.  
  1011.  DC.W 54,32+20*256
  1012.  DC.W 162,32+20*256
  1013.  dc.w 121*4,16+v
  1014.  
  1015.  dc.w 172*2,4+v
  1016.  dc.w 0,4+d
  1017.  dc.w 172*2,8+v
  1018.  dc.w 121*2,8+v
  1019.  
  1020.  dc.w 172*2,8+v
  1021.  dc.w 121*2,16+v
  1022.  dc.w 144*2,16+v
  1023.  dc.w 162*2,16+v
  1024.  dc.w 108*2,8+v
  1025.  dc.w 0,8+21*256
  1026.  dc.w 128*2,8+v
  1027.  dc.w 0,8+14*256
  1028.  
  1029.  dc.w 108*2,64+v
  1030.  
  1031.  
  1032.  
  1033. clong
  1034.  dc.w 108*4,64+v
  1035.  dc.w 0,8+18*256
  1036.  dc.w 144*4,16+v
  1037.  dc.w 108*2,24+v
  1038.  dc.w 162*4,32+v
  1039.  DC.W $FFFF,$FFFF
  1040.  
  1041.  
  1042.  
  1043.  
  1044.  
  1045. v1=22*256
  1046.  
  1047. bl
  1048.  dc.w 108*16,128+v1
  1049.  dc.w 144*8,128+v1
  1050.  dc.w 162*8,128+v1
  1051.  dc.w 144*8,128+v1
  1052.  dc.w 182*8,128+v1
  1053.  dc.w 162*8,64+v1
  1054.  dc.w 182*8,64+v1
  1055.  dc.w 193*8,128-16+v1
  1056.  dc.w 144*8,8+v1
  1057.  dc.w 136*8,8+v1
  1058.  dc.w 144*8,128+v1
  1059.  
  1060. blr
  1061.  dc.w 108*16,128+v1
  1062.  dc.w 144*8,127+v1
  1063.  dc.w 162*16,128+v1
  1064.  dc.w 144*16,129+v1
  1065.  dc.w 182*16,128+v1
  1066.  dc.w 162*16,64+v1
  1067.  dc.w 182*16,64+v1
  1068.  dc.w 193*16,128-16+v1
  1069.  dc.w 144*16,8+v1
  1070.  dc.w 136*16,8+v1
  1071.  dc.w 144*8,128+v1
  1072.  
  1073. v2=23*256
  1074. blr1
  1075.  dc.w 108,128+v2
  1076.  dc.w 144,127+v2
  1077.  dc.w 162,128+v2
  1078.  dc.w 144,129+v2
  1079.  dc.w 182,128+v2
  1080.  dc.w 162,64+v2
  1081.  dc.w 182,64+v2
  1082.  dc.w 193,128-15+v2
  1083.  dc.w 144,8+v2
  1084.  dc.w 136,8+v2
  1085.  dc.w 144,128+v
  1086.  
  1087.  
  1088.  
  1089.  
  1090.  
  1091.