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