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