home *** CD-ROM | disk | FTP | other *** search
/ Fujiology Archive / fujiology_archive_v1_0.iso / S / SHAPESFT / SSSOURCE.ZIP / SSSOURCE.MSA / MUSIC.S / LIANE.S < prev   
Encoding:
Text File  |  1985-11-20  |  17.9 KB  |  1,388 lines
  1.  
  2. ;       DON'T FUCK ROUND
  3. ; the angel of death is my mother.
  4.  
  5.  
  6.  CLR.L -(SP)       ; Enter supervisor mode.
  7.  MOVE.W #$20,-(SP) ; Super.
  8.  TRAP #1
  9.  ADDQ.L #6,SP
  10.  MOVE.L D0,SV
  11.  
  12.  
  13. SL EQU $FF8800
  14. SD EQU $FF8802
  15.  
  16.  LEA SL,A0
  17.  
  18.  moveq #14,d0
  19.  
  20. ipa
  21.  move.l d0,(a0)
  22.  dbra d0,ipa
  23.  
  24.  
  25.  
  26.  move.b #7,(a0)
  27.  move.b #%11111000,2(a0)
  28.  MOVE.L #$08000000,(A0)
  29.  MOVE.L #$09000000,(A0)
  30.  MOVE.L #$0A000000,(A0)
  31.  
  32.  
  33. bi
  34.  MOVE.B $469,D0
  35. FT CMP.B $469,D0
  36.  BEQ.S FT
  37.  
  38.  move #4000,d0
  39. aaa dbra d0,aaa
  40.  
  41.  clr $ff8240
  42.  
  43.  bsr vbi
  44.  
  45.  move #$666,$ff8240
  46.  
  47.  CMP.B #97,$FFFC02
  48.  BNE BI
  49.  
  50.  
  51.     lea    $ff8800,a0    get sound chip 
  52.     move.b    #7,(a0)
  53.     move.b    #%11111111,2(a0) cut out lingering noise
  54.     move.l #$8000000,$ff8800 
  55.     move.l #$9000000,$ff8800 
  56.     move.l #$a000000,$ff8800 
  57.  
  58.  
  59.  MOVE #$777,$FF8240  
  60.  clr $FF8240+30
  61.  MOVE.L SV,-(SP)
  62.  MOVE #$20,-(SP)
  63.  TRAP #1
  64.  ADDQ.L #6,SP
  65.  
  66.  CLR -(SP)
  67.  TRAP #1
  68.  
  69.  
  70.  
  71. VBI  
  72.  lea sl,a3
  73.  
  74.  
  75. ;\\\\\\\\\\\\\
  76.  MOVE.L UPTO,A2
  77.  MOVE CUNT,D3
  78.  MOVE.B 33(A2),D4
  79. SSU SUBQ.W #1,D3
  80.  BPL PART1
  81.  
  82. COP 
  83.  move.l #1,d1
  84.  MOVE.L d1,PNT1
  85.  MOVE.L d1,PNT2
  86.  MOVE.L d1,PNT3
  87.  MOVE.L d1,PNT4
  88.  MOVE.L d1,PNT5
  89.  MOVE.L #$9000000,(a3)
  90.  
  91.  Lea 36(a2),a2
  92.  CMP.L #CHAN0,A2
  93.  BNE.S LLA
  94.  
  95.  LEA DOTH,A2
  96.  
  97. LLA
  98.  MOVE 34(A2),D3
  99.  MOVE.B 33(A2),D4
  100. PART1
  101.  
  102.  
  103.  moveq.w #0,d2
  104.  
  105.  BTST #1,D4
  106.  BEQ.S W1
  107.  MOVE.L (A2),A1
  108.  MOVE.L 4(A2),A0
  109.  BSR CHAN0
  110.  
  111. W1 
  112.  
  113.  BTST #2,D4
  114.  BEQ.S W2
  115.  MOVE.L 8(A2),A1
  116.  MOVE.L 12(A2),A0
  117.  BSR CHAN0
  118.  
  119. W2 MOVEQ.B #1,D2
  120.  BTST #3,D4
  121.  BEQ.S W3
  122.  MOVE.L 16(A2),A1
  123.  MOVE.L 20(A2),A0
  124.  BSR CHAN0
  125.  
  126. W3 BTST #4,D4
  127.  BEQ.S W4
  128.  MOVE.L 24(A2),A1
  129.  MOVE.L 28(A2),A0
  130.  BSR CHAN0
  131.  
  132. W4 MOVE.L A2,UPTO
  133.  MOVE D3,CUNT
  134.  
  135. ;--END OF VBI
  136. ;--------EXIT
  137.  
  138.  
  139.  
  140.  
  141.  
  142.  
  143.  
  144. killer rts
  145.  
  146.  
  147. flo dc.b 0,0
  148.  
  149.  
  150. SV DC.L 0
  151.  
  152.  
  153.  DC.B " (C) G.WHEATON.  45 GOLDRILL AVE BOLTON. LANCS, U.K. "
  154.  
  155.  even
  156.  
  157. UPTO DC.L EE-36
  158. CUNT DC.W 0
  159.  EVEN
  160. ;\\RUNNING ORDER SEQUENCE
  161.  
  162. ee
  163.  
  164.  DC.L PNT5,boo
  165.  DC.L PNT1,boo
  166.  DC.L PNT2,goo
  167.  DC.L PNT3,drm
  168.  DC.B 1,%00001110
  169.  DC.W -1+64*8
  170.  
  171.  DC.L PNT5,noo
  172.  DC.L PNT1,boo
  173.  DC.L PNT2,doo
  174.  DC.L PNT3,drm1
  175.  DC.B 2,%00011110
  176.  DC.W -1+64*8
  177.  
  178.  DC.L PNT5,boo
  179.  DC.L PNT1,yoo
  180.  DC.L PNT2,doo
  181.  DC.L PNT3,drm1
  182.  DC.B 2,%00011110
  183.  DC.W -1+64*8
  184.  
  185.  DC.L PNT5,la
  186.  DC.L PNT1,la
  187.  DC.L PNT2,ba
  188.  DC.L PNT3,drm1
  189.  DC.B 0,%00011110
  190.  DC.W 255
  191.  
  192.  DC.L PNT5,lc
  193.  DC.L PNT1,lc
  194.  DC.L PNT2,bc
  195.  DC.L PNT3,drm1
  196.  DC.B 0,%00011110
  197.  DC.W 127
  198.  
  199.  DC.L PNT5,ld
  200.  DC.L PNT1,bd
  201.  DC.L PNT2,ld
  202.  DC.L PNT3,drm1
  203.  DC.B 1,%00011110
  204.  DC.W 127
  205.  
  206.  DC.L PNT5,le
  207.  DC.L PNT1,be
  208.  DC.L PNT2,le
  209.  DC.L PNT3,drm1
  210.  DC.B 1,%00011110
  211.  DC.W 127
  212.  
  213.  DC.L PNT5,lee
  214.  DC.L PNT1,be
  215.  DC.L PNT2,le
  216.  DC.L PNT3,drm1
  217.  DC.B 1,%00011110
  218.  DC.W 127
  219.  
  220.  DC.L PNT5,lee
  221.  DC.L PNT1,be
  222.  DC.L PNT2,le
  223.  DC.L PNT3,drm1
  224.  DC.B 1,%00011110
  225.  DC.W 127
  226.  
  227.  DC.L PNT5,lee
  228.  DC.L PNT1,be
  229.  DC.L PNT2,le
  230.  DC.L PNT3,drm1
  231.  DC.B 1,%00011110
  232.  DC.W 127
  233.  
  234.  DC.L PNT5,bb
  235.  DC.L PNT1,be
  236.  DC.L PNT2,bb4 
  237.  DC.L PNT3,drm1
  238.  DC.B 1,%00001110
  239.  DC.W 511 
  240.  
  241.  DC.L PNT5,null
  242.  DC.L PNT1,be
  243.  DC.L PNT2,null
  244.  DC.L PNT3,drm
  245.  DC.B 1,%00001110
  246.  DC.W 255
  247.  
  248.  DC.L PNT4,www
  249.  DC.L PNT1,www1
  250.  DC.L PNT2,www
  251.  DC.L PNT3,DRM
  252.  DC.B 1,%00011110
  253.  DC.W 767
  254.  
  255. DOTH
  256.  DC.L PNT4,NT1
  257.  DC.L PNT1,www nt1
  258.  DC.L PNT2,wwX
  259.  DC.L PNT3,DRM
  260.  DC.B 1,%00011110
  261.  DC.W 767
  262.  
  263.  DC.L PNT4,tune
  264.  DC.L PNT1,www tune
  265.  DC.L PNT2,tune22
  266.  DC.L PNT3,DRM
  267.  DC.B 1,%00011110
  268.  DC.W -1+8*64 
  269.  
  270.  DC.L PNT4,tunes
  271.  DC.L PNT1,ww8
  272.  DC.L PNT2,ww88
  273.  DC.L PNT3,DRM
  274.  DC.B 1,%00011110
  275.  DC.W -1+3*64 
  276.  
  277.  DC.L PNT4,tunes1
  278.  DC.L PNT1,ww12
  279.  DC.L PNT2,ww12
  280.  DC.L PNT3,DRM
  281.  DC.B 1,%00011110
  282.  DC.W 63 
  283.  
  284.  
  285.  DC.L PNT4,NT1
  286.  DC.L PNT1,reg nt1
  287.  DC.L PNT2,www
  288.  DC.L PNT3,DRM
  289.  DC.B 1,%00011110
  290.  DC.W 767
  291.  
  292.  DC.L PNT4,NT1
  293.  DC.L PNT1,git nt1
  294.  DC.L PNT2,www
  295.  DC.L PNT3,DRM
  296.  DC.B 1,%00011110
  297.  DC.W 767
  298.  
  299.  DC.L PNT4,www
  300.  DC.L PNT1,git
  301.  DC.L PNT2,git1
  302.  DC.L PNT3,DRM1
  303.  DC.B 1,%00011110
  304.  DC.W 767
  305.  
  306.  DC.L PNT4,www
  307.  DC.L PNT1,www
  308.  DC.L PNT2,www1
  309.  DC.L PNT3,DRM
  310.  DC.B 1,%00011110
  311.  DC.W 767
  312.  
  313.  DC.L PNT4,www
  314.  DC.L PNT1,nt1
  315.  DC.L PNT2,reg
  316.  DC.L PNT3,DRM1
  317.  DC.B 1,%00011110
  318.  DC.W 767
  319.  
  320.  DC.L PNT4,www
  321.  DC.L PNT1,nt1
  322.  DC.L PNT2,git
  323.  DC.L PNT3,DRM1
  324.  DC.B 1,%00011110
  325.  DC.W 767
  326.  
  327.  
  328.  
  329. CHAN0
  330. ;\\\\\\\\\\\\\\\\\\\\\\
  331.  MOVE (A1),D0
  332.  ADD D0,A0
  333.  MOVE.L (A0),D1  ;GET NOTE 0 & DURATION
  334.  MOVE.B 13(A1),D5
  335.  EXT.W D5
  336.  SWAP D1
  337.  ADD D5,D1
  338.  SWAP D1
  339.  CMP #$FFFF,D1
  340.  BNE CON2
  341.  CLR (A1)        ;RESET TO START
  342.  SUB D0,A0
  343.  MOVE.L (A0),D1
  344. CON2
  345.  SUBQ.B #1,3(A1)    ;NP0
  346.  BNE STILLON
  347.  MOVE.L D1,6(A1) ;TMP0  \D1.W IS DURATION
  348.  MOVE.L D1,20(A1);TEMP  HOLD NOTE
  349.  MOVE.B 26(A1),4(A1)   ;VOL0
  350.  MOVE D1,2(A1)   ;NP0  \SET NEW DURATION
  351.  ADDQ.W #4,(A1)        ; & INC POINTER
  352. STILLON
  353. ;\\VOLUME
  354. RFF
  355. ;\\\\\\\\\EFFECTS\\\\\\\\\\
  356. NV0 
  357.  MOVE.B 2(A1),D0
  358.  CMP.B #4,D0
  359.  BNE DOIT
  360.  ADDQ.B #1,4(A1)
  361.  RTS
  362. DOIT 
  363.  
  364. DZZ
  365.  MOVE.B #7,(a3)
  366.  MOVE.B #%11111000,2(a3)
  367.  BRA FCC
  368. EFCT
  369.  
  370.      DC.L FINK
  371.       dc.l VIB,WARB
  372.      dc.l DRUM,slip
  373.      dc.l silent
  374.  
  375.     dc.l amin
  376.     dc.l cmin
  377.     dc.l dmin
  378.     dc.l emin
  379.  
  380.     dc.l sub
  381.     dc.l gmin
  382.     dc.l slide
  383.     dc.l qdrum
  384.     dc.l warb1
  385.  
  386. FCC LEA EFCT,A6
  387.  AND #31,D0 
  388.  ASL #2,D0
  389.  MOVE.L (A6,D0),A0
  390.  JSR (A0)
  391.  
  392. MAZ ADDQ.B #1,4(A1)          ;VOL0
  393.  
  394.  ;move ji,d0
  395.  ;move 20(a1),d1
  396.  ;lsr d0,d1
  397.  ;move d1,20(a1)
  398.  
  399.  MOVE.B 11(A1),(a3)
  400.  MOVE.B 21(A1),2(a3)   ;TMP0+1
  401.  MOVE.B 12(A1),(a3)
  402.  MOVE.B 20(A1),2(a3)   ;TMP0
  403.  moveq.w #0,D0
  404.  MOVE.B 4(A1),D0
  405.  MOVE.B 10(A1),(a3)
  406.  MOVE.B 28(A1,D0),2(a3)    ;VOL0
  407.  
  408. fink rts
  409.  
  410. ;-------EFFECTS ROUTINES--------
  411. ;1-256---DELAYED--VIBRATO-------
  412.  
  413.  
  414.  
  415.  
  416. VIB 
  417.  
  418.  moveq.w #0,d1
  419.  move.b 4(a1),d1
  420.  cmp #10,d1
  421.  blt.s sac 
  422.  
  423.  
  424. WWQ 
  425.  MOVE 16(A1),D1
  426.  ADD D1,18(A1)
  427.  MOVE 14(A1),D1
  428.  CMP 18(A1),D1
  429.  BLT.S RIST
  430. KJ NEG D1
  431.  CMP 18(A1),D1
  432.  BGT.S RIST
  433.  
  434. SAZ MOVE 6(A1),D1
  435.  ADD 18(A1),D1
  436.  MOVE D1,20(A1)
  437. SDC RTS
  438.  
  439. RIST NEG 16(A1)
  440.  BRA.S SAZ
  441.  
  442. sac move 6(a1),20(a1)
  443.  rts
  444.  
  445. ;2-512------WARB DW-----------
  446.  
  447. WARB  
  448.  addq.b  #1,4(A1)
  449.  
  450. warb1
  451.  addq.w #1,fluk
  452.  and #7,fluk
  453.  
  454.  lsr 20(A1)
  455.  
  456.  add.b #90,li
  457.  bcc.s plop
  458.  
  459.  
  460.  MOVE 6(A1),20(A1)
  461.  move fluk,d1
  462.  asl #1,d1
  463.  move ha(pc,d1),d1
  464.  add d1,20(a1)
  465.  
  466. PLOP  RTS
  467.  
  468. ha dc.w 0,1,0,1,0,-1,0,-1
  469.  
  470. ;3--768--------DRUM-----------
  471. DRUM 
  472.  SUBQ.B #1,21(A1)
  473.  MOVE.B #7,(a3)
  474.  MOVE.B #%11011000,2(a3)
  475.  MOVE.B #6,(a3)
  476.  MOVE.B 21(A1),2(a3)
  477.  
  478.  MOVE.B #5,(a3)
  479.  MOVE.B 32(A2),2(a3)
  480.  
  481.  MOVE.B #4,(a3)
  482.  MOVE.B 21(A1),D0
  483.  ASL.B #4,D0
  484.  MOVE.B D0,2(a3)
  485.  RTS
  486.  
  487.  
  488.  
  489. ;------5*256
  490. silent
  491.  move.b #50,4(a1)
  492.  rts 
  493.  
  494. slip
  495.  move.b #12,4(a1)
  496.  rts
  497.  
  498.  
  499. ; 1536
  500. *-*-*-*-* amin *-*-*-*-*
  501. amin
  502.  lea am,a4
  503.  bra.s routn
  504.  
  505. ;7
  506. *-*-*-*-* cmin *-*-*-*-*
  507. cmin
  508.  lea cm,a4
  509.  bra.s routn
  510.  
  511. ;8
  512. *-*-*-*-* dmin *-*-*-*-*
  513. dmin
  514.  lea dm,a4
  515.  bra.s routn
  516.  
  517. ;9
  518. *-*-*-*-* emin *-*-*-*-*
  519. emin
  520.  lea em,a4
  521.  
  522.  
  523.  
  524. routn
  525.  addq #1,mon
  526.  move mon,d1
  527.  and #7,d1
  528.  asl #1,d1
  529.  
  530.  move (a4,d1),20(a1)
  531.  rts 
  532.  
  533. am dc.w 144,121,96,72,60,47,288,36
  534. cm dc.w 121,81,47,60,242,30,81,30
  535. dm dc.w 108,54,85,288,54,108,72,54
  536. em dc.w 96,91,72,47,192,182,47/2 
  537. gm dc.w 162,108,81,64,54,128,162,81 
  538.  
  539. mon dc.w 0
  540.  
  541. ;10
  542. sub
  543.  move.b #150,4(A1)
  544.  RTS 
  545.  
  546. ;11
  547. *-*-*-*-* gmin *-*-*-*-*
  548. gmin
  549.  lea gm,a4
  550.  bra.s routn
  551.  
  552. ;12 
  553. slide
  554. ; cmp.b #5,4(a1)
  555. ; blt.s xzaa
  556.  subq #1,20(a1)
  557.  move.b #46,4(a1)
  558. xzaa
  559.  rts
  560.  
  561. ; 13 qdrum
  562.  
  563. qdrum
  564.  move.b #5,4(a1) 
  565.  subq.w #2,20(a1)
  566.  subq.w #2,6(a1)
  567.  bra warb
  568.  rts
  569.  
  570.  
  571. ;\\\\\\\\\\\\\\DATAS\\\\\\\\\\\\\\\
  572. ;\\NOTE 1ST WORD. DURATION 2ND WORD
  573. ;\\\LEAD
  574.  
  575. ;\\\MIDDLE
  576. PNT1 DC.W 0
  577.  DC.W 1       ;EFFECT & DURATION 2(A1)
  578.  DC.B 0,0
  579.  DC.L 0
  580.  DC.B 9,2,3
  581.  DC.B 0       ;ADD  13(A1)
  582.  DC.W 4       ;VIB LIMIT
  583.  DC.W 3       ;VIB ADD 16(A1)
  584.  DC.W 0       ;VIB 18(A1)
  585.  DC.L 0       ;TEMP NOTE 20(A1)
  586. ti DC.B 1,1     ;VIB RATE  24)A1)
  587.  DC.B 0,0     ;INITIAL VOL
  588. ;ADSR  28(A1)
  589.  
  590.  dc.b 15,15,15,14,14,13,13,12,11
  591.  dcb.b 12,9
  592.  dcb.b 8,10
  593.  dcb.b 8,10
  594.  dcb.b 8,11
  595.  dcb.b 8,12
  596.  dcb.b 8,13
  597.  dcb.b 16,14
  598.  dc.b 13,13,13,13,12,12,12,11,11,11,11
  599.  dcb.b 32,10
  600.  dcb.b 32,9
  601.  dcb.b 8,2
  602.  
  603.  
  604.  EVEN
  605. ;\\\BASS
  606. PNT2 DC.W 0
  607.  DC.W 1          ;2(A1) DURATION
  608.  DC.B 0,0        ;4(A1)
  609.  DC.L 0          ;6
  610.  DC.B 10,4,5     ;10(A1) VOL REG
  611.  DC.B 1          ;ADD TO NOTE 13(A1)
  612.  DC.W 5          ;VIB LIMIT
  613.  DC.W 6          ;VIBRATO ADD 16(A1)
  614.  DC.W 2          ;VIB 18(A1)
  615.  DC.L 0          ;TMP NOTE 20(A1)
  616. li DC.B 1,1        ;VIB RATE
  617.  DC.B 0,0        ;INITIAL VOL 26(A1)
  618. ;\ADSR  28(A1)
  619. ADSR
  620. *-*
  621.  
  622.  DC.B 15,15,14,14,13,13,12,12,11,11,10,10,9,9,9,9
  623.  dcb.b 10,8
  624.  DC.B 8,9,9,9,10,10,10,9,8,7,6
  625.  dcb.b 10,5
  626.  dc.b 5,3,5,6,5,4,5,6,5,4,5,4
  627.  dcb.b 100,3
  628.  
  629.  
  630.  EVEN
  631. PNT3 DC.W 0
  632. NP3 DC.W 1      ;2(A1) DURATION
  633.  DC.B 0,0        ;4(A1)
  634.  DC.L 0          ;6
  635.  DC.B 10,6,11    ;10(A1) VOL REG
  636.  DC.B 0          ;ADD  13(A1)
  637.  DC.W 5          ;VIB LIMIT
  638.  DC.W 3          ;VIBRATO ADD 16(A1)
  639.  DC.W 0          ;VIB 18(A1)
  640.  DC.L 0          ;TMP NOTE 20(A1)
  641. fluk DC.B 0,0        ;VIB RATE
  642.  DC.B 0,0        ;INITIAL VOL 26(A1)
  643. ;\ADSR  28(A1)
  644.  
  645.  
  646.  DC.B 15,15,15,14,13,12,11,10,9,8
  647.  dcb.b 5,0
  648.  
  649. PNT4 DC.W 0
  650.  DC.W 1       ;EFFECT & DURATION 2(A1)
  651.  DC.B 0,0
  652.  DC.L 0
  653.  DC.B 8,0,1
  654.  DC.B 0       ;ADD  13(A1)
  655.  DC.W 4       ;VIB LIMIT
  656.  DC.W 3       ;VIB ADD 16(A1)
  657.  DC.W 0       ;VIB 18(A1)
  658.  DC.L 0       ;TEMP NOTE 20(A1)
  659.  DC.B 1,1     ;VIB RATE  24)A1)
  660.  DC.B 0,0     ;INITIAL VOL
  661. ;ADSR  28(A1)
  662.  
  663.  DC.B 15,15,15,14,14,13,12,11,11,10,10,10
  664.  DCB.B 8,11
  665.  DC.B 10,9
  666.  DCb.B 32,8
  667.  DCb.B 16,7
  668.  DCb.B 16,9
  669.  DCb.B 16,10
  670.  DCb.B 8,11
  671.  DCb.B 8,12
  672.  DCb.B 8,13
  673.  DCb.B 16,14
  674.  DCb.B 8,12
  675.  DCb.B 8,11
  676.  DCb.B 8,10
  677.  DCb.B 32,9
  678.  DCb.B 32,8
  679.  DCb.B 32,5
  680.  
  681.  
  682. PNT5 DC.W 0
  683.  DC.W 1       ;EFFECT & DURATION 2(A1)
  684.  DC.B 0,0
  685.  DC.L 0
  686.  DC.B 8,0,1
  687.  DC.B 0       ;ADD  13(A1)
  688.  DC.W 2       ;VIB LIMIT
  689.  DC.W 2       ;VIB ADD 16(A1)
  690.  DC.W 0       ;VIB 18(A1)
  691.  DC.L 0       ;TEMP NOTE 20(A1)
  692.  DC.B 1,1     ;VIB RATE  24)A1)
  693.  DC.B 0,0     ;INITIAL VOL
  694. ;ADSR  28(A1)
  695.  
  696.  DC.B 15,13,12,12,11,11,11,11,10
  697.  DCb.B 8,10
  698.  DCb.B 8,9
  699.  DCb.B 16,7
  700.  DCb.B 16,6
  701.  DCb.B 32,5
  702.  DCb.B 32,4
  703.  DCb.B 32,3
  704.  
  705.  
  706.  
  707.  
  708.  
  709.  
  710. MAX DC.B 71,32,87,72,69,65,84,79,78
  711.  EVEN
  712.  
  713. ;-----------MUSIC DATA
  714.  
  715. D=1024+256
  716. v=256
  717. vv=6*256
  718.  
  719. NULL 
  720.  DC.W 2,128+5*256
  721.  DC.W $FFFF,$FFFF
  722.  
  723.  
  724. drm
  725.  dc.w 16,3+768
  726.  dc.w 0,13+1024
  727.  dc.w 2,1+768
  728.  dc.w 0,7+1024
  729.  dc.w 2,1+768
  730.  dc.w 0,7+1024
  731.  
  732.  DC.W $FFFF,$FFFF
  733.  
  734.  
  735. drm1
  736.  dc.w 0,1+1024
  737.  dc.w 3,1+768
  738.  dc.w 0,15+1024
  739.  
  740.  dc.w 1,1+768
  741.  dc.w 0,14+1024
  742.  
  743.  DC.W $FFFF,$FFFF
  744.  
  745.  
  746. t=512
  747. x=2
  748. q=2
  749. doo
  750.  dc.w 144*q,8+t,193*q,8+t
  751.  dc.w 121*q,8+t,144*q,16+t
  752.  
  753.  dc.w 192*16,1,193*x,7+v
  754.  dc.w 216*16,1,216*x,7+v
  755.  dc.w 242*16,1,242*x,7+v
  756.  
  757.  dc.w 121*q,8+t,162*q,8+t
  758.  dc.w 96*q,8+t,121*q,16+t
  759.  
  760.  dc.w 162*x,8+v,144*x,8+v,121*x,8+v
  761.  
  762.  dc.w 108*q,8+t,144*q,8+t
  763.  dc.w 85*q,8+t
  764.  
  765.  dc.w 108*q,16+t
  766.  dc.w 54*x,16+v
  767.  dc.w 51*x,5+v
  768.  dc.w 47*x,3+v
  769.  
  770.  
  771.  dc.w 96*q,8+t,128*q,8+t
  772.  dc.w 76*q,8+t,96*q,16+t
  773.  
  774.  dc.w 193*x,8,216*x,8,242*x,8
  775.  
  776.  DC.W $FFFF,$FFFF
  777.  
  778.  
  779. i=1
  780. noo 
  781.  dc.w 144*i,64+v 512
  782.  dc.w 121*i,64+512
  783.  dc.w 108*i,64+v 512
  784.  dc.w 96*i,64+512
  785.  DC.W $FFFF,$FFFF
  786.  
  787. u=8
  788. boo 
  789.  dc.w 144*u,64+v
  790.  dc.w 121*u,64+v
  791.  dc.w 108*u,64+v
  792.  dc.w 96*u,64+v
  793.  DC.W $FFFF,$FFFF
  794.  
  795. h=8
  796. yoo 
  797.  dc.w 144*h,64+v
  798.  dc.w 121*h,64+v
  799.  dc.w 108*h,64+v
  800.  dc.w 96*h,64+v
  801.  DC.W $FFFF,$FFFF
  802.  
  803.  
  804. aa=1536
  805. cc=7*256
  806. dd=8*256
  807. en=9*256
  808.  
  809. la
  810.  dc.w 0,128+aa
  811.  DC.W $FFFF,$FFFF
  812. lc
  813.  dc.w 0,64+cc
  814.  DC.W $FFFF,$FFFF
  815. ld
  816.  dc.w 0,32+dd
  817.  DC.W $FFFF,$FFFF
  818.  
  819. ld1
  820.  dc.w 0,8+dd
  821.  dc.w 0,255+d
  822.  DC.W $FFFF,$FFFF
  823.  
  824.  
  825.  
  826. lee
  827. leb
  828.  dc.w 0,8+en
  829.  DC.W $FFFF,$FFFF
  830.  
  831. le
  832.  dc.w 0,16+en
  833.  dc.w 0,8+en
  834.  DC.W $FFFF,$FFFF
  835.  
  836.  
  837. bb
  838.  dc.w 96*8,8
  839.  dc.w 96*16,12
  840.  dc.w 0,4+d
  841.  dc.w 96*8,8
  842.  DC.W $FFFF,$FFFF
  843.  
  844. bb4
  845.  dc.w 96*8,16
  846.  dc.w 144*8,8
  847.  DC.W $FFFF,$FFFF
  848.  
  849.  
  850.  
  851. r=16
  852. ba 
  853.  dc.w 144*r,64+512
  854.  DC.W $FFFF,$FFFF
  855.  
  856. bc 
  857.  dc.w 121*r,64+512
  858.  DC.W $FFFF,$FFFF
  859.  
  860. bd 
  861.  dc.w 108*r,64+512
  862.  DC.W $FFFF,$FFFF
  863.  
  864. be 
  865.  dc.w 96*r,64+512
  866.  DC.W $FFFF,$FFFF
  867.  
  868.  
  869.  
  870.  
  871.  
  872.  
  873.  
  874.  
  875.  
  876. www1 
  877.  dc.w 121*u,2
  878. www2 
  879.  dc.w 128*u,2
  880.  dc.w 136*u,1
  881.  
  882. www
  883.  dc.w 144*u,16+v
  884.  dc.w 96*u,16+v
  885.  dc.w 121*u,16+v
  886.  dc.w 144*u,8
  887.  dc.w 144*u,8
  888.  
  889.  dc.w 121*u,8
  890.  dc.w 96*u,8+v
  891.  dc.w 0,8+d
  892.  dc.w 96*u,8+v
  893.  dc.w 121*u,16+v
  894.  dc.w 144*u,8
  895.  dc.w 144*u,8
  896.  
  897.  dc.w 182*u,16+v
  898.  dc.w 121*u,16+v
  899.  dc.w 144*u,16+v
  900.  dc.w 182*u,8
  901.  dc.w 182*u,8
  902.  
  903.  dc.w 144*u,8
  904.  dc.w 144*u,8
  905.  dc.w 121*u,8+v
  906.  dc.w 121*u,8+v
  907.  dc.w 144*u,16+v
  908.  
  909.  dc.w 182*u,8
  910.  dc.w 182*u,8 ;4bar
  911.  
  912.  dc.w 144*u,8
  913.  dc.w 144*u,8
  914.  dc.w 96*u,8+v
  915.  dc.w 96*u,8+v
  916.  dc.w 121*u,16+v
  917.  dc.w 144*u,8
  918.  dc.w 144*u,8
  919.  
  920.  dc.w 121*u,16+v
  921.  dc.w 96*u,16+v
  922.  dc.w 121*u,16+v
  923.  dc.w 144*u,8
  924.  dc.w 144*u,8
  925.  
  926.  dc.w 182*u,8+v
  927.  dc.w 182*u,8+v
  928.  dc.w 121*u,16
  929.  dc.w 144*u,16+v
  930.  dc.w 182*u,16
  931.  
  932.  dc.w 144*u,16+v
  933.  dc.w 121*u,16
  934.  dc.w 144*u,16+v
  935.  dc.w 182*u,8
  936.  dc.w 182*u,8 ;
  937.  
  938. ww8
  939.  dc.w 192*u,16+v
  940.  dc.w 128*u,16
  941.  dc.w 153*u,16+v
  942.  dc.w 192*u,8
  943.  dc.w 192*u,8
  944.  
  945.  dc.w 153*u,16+v
  946.  dc.w 128*u,8
  947.  dc.w 128*u,8
  948.  dc.w 153*u,16+v
  949.  dc.w 96*u,8
  950.  dc.w 108*u,8
  951.  
  952.  dc.w 121*u,8
  953.  dc.w 108*u,8
  954.  dc.w 128*u,16+v
  955.  dc.w 153*u,16+v
  956.  dc.w 192*u,8+v
  957.  dc.w 192*u,8+v
  958.  
  959. ww12
  960.  dc.w 153*u,16+v
  961.  dc.w 0,16+d
  962.  dc.w 153*u,8
  963.  dc.w 172*u,16+v
  964.  dc.w 153*u,8
  965.  dc.w $ffff,$ffff
  966.  
  967.  
  968.  
  969.  
  970. j=4
  971.  
  972. NT1
  973. ;Am
  974.  DC.W 0,12+d
  975.  
  976.  dc.w 85*j,2
  977.  dc.w 91*j,2
  978.  
  979.  DC.W 96*j,8
  980.  DC.W 96*j,8
  981.  dc.w 121*j,8
  982.  dc.w 121*j,8
  983.  DC.W 144*j,8
  984.  DC.W 144*j,8
  985.  dc.w 121*j,8
  986.  dc.w 121*j,8
  987.  dc.w 96*j,8
  988.  dc.w 0,8+d
  989.  DC.W 72*j,32+256
  990.  
  991.  
  992. ;Dm
  993.  DC.W 2,12+d
  994.  
  995.  dc.w 96*j,2
  996.  dc.w 102*j,2
  997.  
  998.  dc.w 108*j,8,91*j,8
  999.  DC.W 108*j,8,91*j,8
  1000.  DC.W 108*j,8,91*j,8
  1001.  
  1002.  DC.W 108*j,8
  1003.  DC.W 108*j,8
  1004.  dc.w 91*j,8
  1005.  dc.w 0,8+d
  1006.  
  1007.  dc.w 81*j,2
  1008.  dc.w 76*j,2
  1009.  dc.w 72*j,28+256
  1010.  
  1011. ;Am
  1012.  DC.W 2,12+d
  1013.  
  1014.  dc.w 128*j,2
  1015.  dc.w 136*j,2
  1016.  
  1017.  dc.w 144*j,8
  1018.  dc.w 121*j,8
  1019.  dc.w 144*j,16
  1020.  
  1021.  dc.w 121*j,8
  1022.  DC.W 96*j,8
  1023.  dc.w 121*j,16
  1024.  
  1025.  DC.W 144*j,8
  1026.  DC.W 144*j,8
  1027.  dc.w 121*j,8
  1028.  dc.w 121*j,8 
  1029.  dc.w 96*j,8
  1030.  DC.W 0,8
  1031.  DC.W 72*j,16
  1032.  
  1033.  
  1034.  DC.W 108*j,8,91*j,8
  1035.  DC.W 108*j,8,91*j,8
  1036.  DC.W 108*j,8,91*j,8
  1037.  DC.W 108*j,8,91*j,8
  1038.  DC.W 108*j,8,91*j,8
  1039.  DC.W 108*j,8,91*j,8
  1040.  
  1041.  DC.W 96*j,8
  1042.  
  1043.  
  1044.  dc.w 85*j,1
  1045.  dc.w 81*j,1
  1046.  dc.w 76*j,14
  1047.  
  1048.  DC.W 76*j,8
  1049.  DC.W 96*j,8,76*j,8
  1050.  DC.W 96*j,8,76*j,8
  1051.  DC.W 96*j,8
  1052.  
  1053.  dc.w 85*j,1
  1054.  dc.w 81*j,1
  1055.  dc.w 76*j,14
  1056.  
  1057.  dc.w 76*j,8
  1058.  DC.W 96*j,8,76*j,8
  1059.  DC.W 96*j,8,76*j,8
  1060.  DC.W 96*j,8
  1061.  dc.w 76*j,16
  1062.  DC.W 76*j,8
  1063.  DC.W 96*j,8,76*j,8
  1064.  DC.W 96*j,8,76*j,8
  1065.  
  1066.  dc.w 96*j,8
  1067.  DC.W 108*j,8
  1068.  DC.W 96*j,8
  1069.  
  1070.  dc.w 76*j,8
  1071.  DC.W 96*j,8+v 8
  1072.  DC.W 96*j,48+v 8
  1073.  
  1074.  DC.W $FFFF,$FFFF
  1075.  
  1076.  
  1077.  
  1078. z=2
  1079. git1 dc.w 0,3 
  1080. git
  1081.  dc.w 81*z,8+v
  1082.  dc.w 72*z,8
  1083.  DC.W 0,8
  1084.  dc.w 60*z,8+v
  1085.  dc.w 72*z,8
  1086.  DC.W 0,8
  1087.  dc.w 81*z,8+v
  1088.  dc.w 72*z,8
  1089.  DC.W 0,8
  1090.  dc.w 81*z,8+v
  1091.  dc.w 72*z,8
  1092.  dc.w 81*z,8+v
  1093.  dc.w 72*z,8
  1094.  dc.w 81*z,8+v
  1095.  dc.w 96*z,8
  1096.  dc.w 121*z,8+v
  1097.  
  1098.  dc.w 108*z,8
  1099.  dc.w 96*z,8+v
  1100.  DC.W 0,8
  1101.  dc.w 108*z,8+v
  1102.  dc.w 96*z,8
  1103.  DC.W 0,8
  1104.  dc.w 108*z,8+v
  1105.  dc.w 96*z,8
  1106.  DC.W 0,8
  1107.  dc.w 108*z,8+v
  1108.  dc.w 96*z,16+v
  1109.  
  1110.  
  1111.  DC.W 121*z,6
  1112.  DC.W 0,2+d
  1113.  DC.W 121*z,6
  1114.  DC.W 0,2+d
  1115.  
  1116.  DC.W 144*z,8
  1117.  DC.W 0,8+d
  1118.  
  1119.  dc.w 81*z,8
  1120.  dc.w 72*z,8
  1121.  DC.W 0,8
  1122.  dc.w 81*z,8
  1123.  dc.w 108*z,8
  1124.  DC.W 0,8
  1125.  dc.w 121*z,8
  1126.  dc.w 72*z,8
  1127.  DC.W 0,8
  1128.  dc.w 81*z,8
  1129.  dc.w 96*z,8
  1130.  dc.w 108*z,8
  1131.  dc.w 72*z,8
  1132.  dc.w 121*z,8
  1133.  dc.w 96*z,8
  1134.  dc.w 121*z,8
  1135.  
  1136.  DC.W 81*z,2
  1137.  DC.W 76*z,2
  1138.  DC.W 72*z,8
  1139.  
  1140.  DC.W 81*z,2
  1141.  DC.W 76*z,2
  1142.  DC.W 72*z,8
  1143.  
  1144.  DC.W 81*z,2
  1145.  DC.W 76*z,2
  1146.  DC.W 72*z,8
  1147.  
  1148.  DC.W 81*z,2
  1149.  DC.W 76*z,2
  1150.  DC.W 72*z,8
  1151.  
  1152.  DC.W 81*z,2
  1153.  DC.W 76*z,2
  1154.  DC.W 72*z,12
  1155.  
  1156.  DC.W 81*z,2
  1157.  DC.W 76*z,2
  1158.  DC.W 72*z,6
  1159.  
  1160.  DC.W 81*z,2
  1161.  DC.W 76*z,2
  1162.  DC.W 72*z,8
  1163.  
  1164.  DC.W 81*z,2
  1165.  DC.W 76*z,2
  1166.  DC.W 72*z,6
  1167.  
  1168.  DC.W 81*z,2
  1169.  DC.W 76*z,2
  1170.  DC.W 72*z,8
  1171.  
  1172.  DC.W 81*z,2
  1173.  DC.W 76*z,2
  1174.  DC.W 72*z,8
  1175.  
  1176.  DC.W 81*z,2
  1177.  DC.W 76*z,2
  1178.  DC.W 72*z,4
  1179.  
  1180.  DC.W 81*z,2
  1181.  DC.W 76*z,2
  1182.  DC.W 72*z,12
  1183.  
  1184.  DC.W 72*z,8
  1185.  DC.W 81*z,8
  1186.  DC.W 96*z,8
  1187.  DC.W 108*z,8
  1188.  DC.W 121*z,8
  1189.  DC.W 144*z,16
  1190.  
  1191.  DC.W 144*z,8
  1192.  DC.W 121*z,8
  1193.  DC.W 108*z,8
  1194.  
  1195.  DC.W 96*z,8
  1196.  DC.W 96*z,8
  1197.  DC.W 81*z,8
  1198.  
  1199.  DC.W 81*z,8
  1200.  DC.W 72*z,8
  1201.  
  1202.  DC.W 72*z,8
  1203.  DC.W 81*z,8
  1204.  DC.W 96*z,8
  1205.  DC.W 108*z,8
  1206.  DC.W 108*z,8
  1207.  DC.W 121*z,8
  1208.  
  1209.  DC.W 108*z,8
  1210.  DC.W 108*z,8
  1211.  DC.W 96*z,8
  1212.  DC.W 72*z,8
  1213.  DC.W 144*z,48+v 
  1214.  
  1215.  DC.W $FFFF,$FFFF
  1216.  
  1217.  
  1218. reg
  1219.  dc.w 216,1+512
  1220.  dc.w 0,31+d
  1221.  
  1222.  dc.w 54,1+512
  1223.  dc.w 192,1+512
  1224.  dc.w 0,30+d
  1225.  DC.W $FFFF,$FFFF
  1226.  
  1227. goo
  1228.  dc.w 0,255+d
  1229.  dc.w 72,16+12*256
  1230.  dc.w 72,16+12*256
  1231.  dc.w 72,16+12*256
  1232.  dc.w 72,16+12*256
  1233.  dc.w 72,16+12*256
  1234.  dc.w 72,16+12*256
  1235.  dc.w 72,16+12*256
  1236.  dc.w 0,255+d
  1237.  
  1238.  
  1239.  
  1240. uu=4
  1241. wwx
  1242.  dc.w 144*uu,16+v
  1243.  dc.w 96*uu,16+v
  1244.  dc.w 121*uu,16+v
  1245.  dc.w 144*uu,8
  1246.  dc.w 144*uu,8
  1247.  
  1248.  dc.w 121*uu,8
  1249.  dc.w 96*uu,8+v
  1250.  dc.w 16,8+12*256 d
  1251.  dc.w 96*uu,8+v
  1252.  dc.w 121*uu,16+v
  1253.  dc.w 144*uu,8
  1254.  dc.w 144*uu,8
  1255.  
  1256.  dc.w 182*uu,16+v
  1257.  dc.w 121*uu,16+v
  1258.  dc.w 144*uu,16+v
  1259.  dc.w 182*uu,8
  1260.  dc.w 182*uu,8
  1261.  
  1262.  dc.w 144*uu,8
  1263.  dc.w 144*uu,8
  1264.  dc.w 121*uu,16+v
  1265.  dc.w 144*uu,16+v
  1266.  dc.w 182*uu,8
  1267.  dc.w 182*uu,8
  1268.  
  1269.  dc.w 144*uu,8
  1270.  dc.w 144*uu,8
  1271.  dc.w 96*uu,16+v
  1272.  dc.w 121*uu,16+v
  1273.  dc.w 144*uu,8
  1274.  dc.w 144*uu,8
  1275.  
  1276.  dc.w 121*uu,16+v
  1277.  dc.w 96*uu,16+v
  1278.  dc.w 121*uu,16+v
  1279.  dc.w 144*uu,8
  1280.  dc.w 144*uu,8
  1281.  
  1282.  dc.w 182*uu,16+v
  1283.  dc.w 121*uu,16
  1284.  dc.w 144*uu,16+v
  1285.  dc.w 182*uu,16
  1286.  
  1287.  dc.w 144*uu,16+v
  1288.  dc.w 121*uu,16
  1289.  dc.w 144*uu,16+v
  1290.  dc.w 182*uu,8
  1291.  dc.w 182*uu,8
  1292.  
  1293. ww88
  1294.  dc.w 192*uu,16+v
  1295.  dc.w 128*uu,16
  1296.  dc.w 153*uu,16+v
  1297.  dc.w 192*uu,8
  1298.  dc.w 192*uu,8
  1299.  dc.w 153*uu,16+v
  1300.  dc.w 128*uu,8
  1301.  dc.w 128*uu,8
  1302.  dc.w 153*uu,16+v
  1303.  
  1304.  dc.w 96*uu,8
  1305.  dc.w 108*uu,8
  1306.  dc.w 121*uu,8
  1307.  dc.w 108*uu,8
  1308.  
  1309.  dc.w 128*uu,16+v
  1310.  dc.w 153*uu,16+v
  1311.  dc.w 192*uu,8+v
  1312.  dc.w 192*uu,8+v
  1313.  
  1314. ww12a
  1315.  dc.w 153*uu,16+v
  1316.  dc.w 0,24+d
  1317.  dc.w 144*zz,8+se
  1318.  DC.W 128*zz,16+tt
  1319.  dc.w $ffff,$ffff
  1320.  
  1321.  
  1322. tt=512
  1323. se=13*256
  1324. zz=2
  1325. tune22 dc.w 0,3+d
  1326. TUNE
  1327.  dc.w 60*zz,2+tt
  1328.  dc.w 120*zz,94+tt
  1329.  DC.W 128*zz,16+tt,120*zz,16+tt,108*zz,32+tt
  1330.  DC.W 120*zz,16+tt,128*zz,16+tt,120*zz,32+tt
  1331.  DC.W 144*zz,12+tt,144*zz,20+se
  1332.  
  1333.  DC.W 60*zz,8+tt
  1334.  DC.W 60*zz,8+tt
  1335.  DC.W 60*zz,8+tt
  1336.  DC.W 60*zz,8+tt
  1337.  
  1338.  DC.W 72*zz,8+tt
  1339.  DC.W 72*zz,8+tt
  1340.  DC.W 72*zz,8+tt
  1341.  DC.W 72*zz,8+tt
  1342.  
  1343.  DC.W 96*zz,8+tt
  1344.  DC.W 96*zz,8+tt
  1345.  DC.W 96*zz,8+tt
  1346.  DC.W 96*zz,8+tt
  1347.  
  1348.  DC.W 121*zz,8+tt
  1349.  DC.W 121*zz,8+tt
  1350.  DC.W 121*zz,8+tt
  1351.  DC.W 121*zz,8+tt
  1352.  
  1353.  
  1354.  DC.W 144*zz,88+tt
  1355.  
  1356.  dc.w 96*zz,8+tt
  1357.  dc.w 96*zz,8+tt
  1358.  dc.w 96*zz,8+tt
  1359.  dc.w 91*zz,8+tt
  1360.  dc.w 91*zz,8+tt
  1361. ; dc.w 0,8+D
  1362.  
  1363.  
  1364.  
  1365. tunes1
  1366.  dc.w 96*zz,4+tt
  1367.  dc.w 96*zz,4+tt
  1368.  dc.w 0,16+d
  1369.  dc.w 96*4,4+D
  1370.  dc.w 0,12+d
  1371.  dc.w 96*2,4+D
  1372.  dc.w 0,12+d
  1373.  dc.w 96,4+D
  1374.  dc.w 0,12+d
  1375.  DC.W $FFFF,$FFFF
  1376.  
  1377. tunes
  1378.  dc.w 96,1+tt
  1379.  dc.w 96*zz,7+tt
  1380.  dc.w 91,1+tt
  1381.  dc.w 91*zz,7+tt
  1382.  DC.W $FFFF,$FFFF
  1383.  
  1384.  
  1385.  
  1386.  
  1387.  
  1388.