home *** CD-ROM | disk | FTP | other *** search
/ Fujiology Archive / fujiology_archive_v1_0.iso / S / SHAPESFT / MSXMENU2.ZIP / MSXMENU2.MSA / SCRAPBIN / NECRO.S < prev    next >
Text File  |  1985-11-20  |  11KB  |  754 lines
  1.  CLR.L -(SP)       
  2.  MOVE.W #$20,-(SP) ; Super.
  3.  TRAP #1
  4.  ADDQ.L #6,SP
  5.  MOVE.L D0,SUPER   ; 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.     lea    $ff8800,a0    get sound chip 
  23.     move.b    #7,(a0)
  24.     move.b    #%11111111,2(a0) cut out lingering noise
  25.     move.l #$8000000,$ff8800 
  26.     move.l #$9000000,$ff8800 
  27.     move.l #$a000000,$ff8800 
  28.  
  29.  
  30.  MOVE.L SUPER,-(SP)
  31.  MOVE.W #$20,-(SP)
  32.  TRAP #1
  33.  ADDQ.L #6,SP
  34.  
  35.  CLR -(SP)
  36.  TRAP #1
  37.  
  38.  
  39.  
  40.  
  41.  
  42. *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
  43.  
  44. SL EQU $FF8800
  45. SD EQU $FF8802
  46.  
  47.  
  48. VBI 
  49.  
  50.  movem.l d0-d5/a0-a2,-(sp)
  51. ;\\\\\\\\\\\\\
  52.  MOVE.L UPTO,A2
  53.  MOVE CUNT,D3
  54.  MOVE.B 33(A2),D4
  55. SSU SUBQ.W #1,D3
  56.  BPL.S PART1
  57.  MOVE.L #1,PNT0
  58.  MOVE.L #1,PNT1
  59.  MOVE.L #1,PNT2
  60.  MOVE.L #1,PNT3
  61.  MOVE.L #1,PNT4
  62.  MOVE.L #1,PNT5
  63.  clr.b q1
  64.  clr.b q2
  65.  clr.b q3
  66.  ADD.L #36,a2
  67.  CMP.L #CHAN0,A2
  68.  BNE.S LLA
  69.  LEA DOTH,A2
  70. LLA
  71.  MOVE 34(A2),D3
  72.  MOVE.B 33(A2),D4
  73. PART1
  74.  CLR.B D2
  75.  BTST #1,D4
  76.  BEQ.S W1
  77.  MOVE.L (A2),A1
  78.  MOVE.L 4(A2),A0
  79.  BSR CHAN0
  80.  
  81. W1 BTST #2,D4
  82.  BEQ.S W2
  83.  MOVE.L 8(A2),A1
  84.  MOVE.L 12(A2),A0
  85.  BSR CHAN0
  86.  
  87.  
  88. W2 MOVE.B #1,D2
  89.  BTST #3,D4
  90.  BEQ.S W3
  91.  MOVE.L 16(A2),A1
  92.  MOVE.L 20(A2),A0
  93.  BSR CHAN0
  94.  
  95.  
  96. W3 BTST #4,D4
  97.  BEQ.S W4
  98.  MOVE.L 24(A2),A1
  99.  MOVE.L 28(A2),A0
  100.  BSR CHAN0
  101. W4 MOVE.L A2,UPTO
  102.  MOVE D3,CUNT
  103. ;--END OF VBI
  104. ;--------EXIT
  105.  movem.l (sp)+,d0-d5/a0-a2
  106.  ;killer jmp $ffff
  107.  
  108. asd rts
  109.  
  110.  
  111. SUPER DC.L 0
  112. flo dc.b 0,0
  113.  
  114. UPTO DC.L EE-36
  115. CUNT DC.W 0
  116.  
  117.  
  118.  EVEN
  119. ;\\RUNNING ORDER SEQUENCE
  120.  
  121.  
  122. * don't use pnt4 and pnt0 together
  123. *     or pnt5 and 1 together
  124.  
  125. ee
  126. doth
  127.  DC.L PNT4,t1
  128.  DC.L PNT1,j1
  129.  DC.L PNT2,b1
  130.  DC.L PNT3,drm
  131.  DC.B 1,%0001110
  132.  DC.W 511
  133.  
  134.  DC.L PNT4,wopg
  135.  DC.L PNT1,wopg
  136.  DC.L PNT2,wopg
  137.  DC.L PNT3,drn
  138.  DC.B 1,%0011110
  139.  DC.W 255
  140.  
  141.  DC.L PNT4,seq
  142.  DC.L PNT1,seq1
  143.  DC.L PNT2,seq2
  144.  DC.L PNT3,drn
  145.  DC.B 1,%0011110
  146.  DC.W 511
  147.  
  148.  DC.L PNT4,seqd
  149.  DC.L PNT1,seqd
  150.  DC.L PNT2,seqd
  151.  DC.L PNT3,drn
  152.  DC.B 1,%0011110
  153.  DC.W 255
  154.  
  155.  DC.L PNT4,seq
  156.  DC.L PNT1,seq
  157.  DC.L PNT2,seq2
  158.  DC.L PNT3,drn
  159.  DC.B 1,%0011110
  160.  DC.W 511
  161.  
  162.  
  163.  
  164.  
  165. CHAN0
  166. ;\\\\\\\\\\\\\\\\\\\\\\
  167.  MOVE (A1),D0
  168.  ADD D0,A0
  169.  MOVE.L (A0),D1  ;GET NOTE 0 & DURATION
  170.  MOVE.B 13(A1),D5
  171.  EXT.W D5
  172.  SWAP D1
  173.  ADD D5,D1
  174.  SWAP D1
  175.  CMP #$FFFF,D1
  176.  BNE CON2
  177.  CLR (A1)        ;RESET TO START
  178.  SUB D0,A0
  179.  MOVE.L (A0),D1
  180. CON2
  181.  SUBQ.B #1,3(A1)    ;NP0
  182.  BNE STILLON
  183.  MOVE.L D1,6(A1) ;TMP0 \D1.W IS DURATION
  184.  MOVE.L D1,20(A1);TEMP HOLD NOTE
  185.  MOVE.B 26(A1),4(A1)  ;VOL0
  186.  MOVE D1,2(A1)   ;NP0  \SET NEW DURATION
  187.  ADDQ.W #4,(A1)     ;& INC POINTER
  188. STILLON
  189. ;\\VOLUME
  190.  
  191. RFF
  192. ;\\\\\\\\\EFFECTS\\\\\\\\\\
  193. NV0 MOVE.B 2(A1),D0
  194.  CMP.B #4,D0
  195.  BNE DOIT
  196.  ADDQ.B #1,4(A1)
  197.  RTS
  198. DOIT TST.B D2
  199.  BEQ FCC
  200.  CMP.B #3,D0
  201.  BNE DZZ
  202.  BSR DRUM
  203.  BRA.S FCC
  204. DZZ
  205.  MOVE.B #7,SL
  206.  MOVE.B #%11111000,SD
  207.  BRA.S FCC
  208. EFCT
  209.  DC.L FINK,VIB,WARB,DRUM,HOLD,WB1
  210.  DC.L wrp,wwq,SLR,HOLD,sly,si,dddd,aaaa,dddm
  211.  
  212. FCC
  213.  AND.L #15,D0
  214.  ASL #2,D0
  215.  MOVE.L EFCT(PC,D0),A0
  216.  JSR (A0)
  217. MAZ CMP #2,20(A1)
  218.  BNE.S DIP
  219.  MOVE.B #35,4(A1)
  220. DIP
  221.  ADDQ.B #1,4(A1)          ;VOL0
  222.  MOVE.B 11(A1),SL
  223.  MOVE.B 21(A1),SD   ;TMP0+1
  224.  MOVE.B 12(A1),SL
  225.  MOVE.B 20(A1),SD   ;TMP0
  226.  CLR D0
  227.  MOVE.B 4(A1),D0
  228.  MOVE.B 10(A1),SL
  229.  MOVE.B 28(A1,D0),SD    ;VOL0
  230. FINK RTS
  231.  
  232.  
  233.  DC.B " (C) G.WHEATON.  45 GOLDRILL AVE BOLTON. LANCS, U.K. "
  234.  DC.B " title... ACIDHEAD.     "
  235.  DC.B " Composed by G.Wheaton. "
  236.  DC.B " March 1990. "
  237.  DC.B "   DON'T FUCK AROUND.   "
  238.  
  239.  
  240.  
  241. ;-------EFFECTS ROUTINES--------
  242. ;1-256---DELAYED--VIBRATO-------
  243. VV EOR.B #1,MC
  244.  BEQ.S SDC
  245. VIB 
  246.  moveq #0,d1
  247.  move.b 4(a1),d1
  248.  CMP #8,d1
  249.  BLT SDC
  250.  SUB.B #1,24(A1)
  251.  BNE SDC
  252. wwq MOVE.B 25(A1),24(A1)
  253.  MOVE 16(A1),D1
  254.  ADD D1,18(A1)
  255.  MOVE 14(A1),D1
  256.  CMP 18(A1),D1
  257.  BLT.S RIST
  258. KJ NEG D1
  259.  CMP 18(A1),D1
  260.  BGT.S RIST
  261. SAZ MOVE 6(A1),D1
  262.  ADD 18(A1),D1
  263.  MOVE D1,20(A1)
  264. SDC RTS
  265. RIST NEG 16(A1)
  266.  BRA.S SAZ
  267.  
  268. ;2-512------WARB DW-----------
  269. WARB
  270.  tst.b 4(a1)
  271.  beq.s sax
  272.  move.b #12,4(a1)
  273. SAX addq.b #1,4(a1)
  274.  bra wwq
  275.  ;Lsr 20(A1)
  276.  ;CMP #100*4,20(A1)
  277.  ;BgT.S PLOP
  278.  ;MOVE 6(A1),20(A1)
  279. PLOP RTS
  280.  
  281.  
  282. ;3--768--------DRUM-----------
  283. DRUM SUBQ.B #4,19(A1)
  284.  MOVE.B #7,SL
  285.  MOVE.B #%11011000,SD
  286.  MOVE.B #6,SL
  287.  MOVE.B 19(A1),SD
  288.  MOVE.B #5,SL
  289.  MOVE.B 32(A2),SD
  290.  MOVE.B #4,SL
  291.  MOVE.B 19(A1),D0
  292.  ASL.B #5,D0
  293.  MOVE.B D0,SD
  294.  RTS
  295. ;4 DRUM
  296.  
  297.  
  298. ;5--1280--
  299. WB1 
  300.  addq.w #2,20(A1)
  301.  rts
  302.  
  303. ;6--1536-----WARB UP---------
  304. WRP 
  305.  addq.b #1,4(a1)
  306.  LSR 20(A1)
  307.  CMP #19,20(A1)
  308.  BGT PLAP
  309.  MOVE 6(A1),20(A1)
  310. PLAP RTS 
  311.  
  312.  
  313. ;7--1792---
  314.  
  315.  
  316. ;8--2048---
  317. SLR 
  318.  cmp #144*8,6(a1)
  319.  bge warb
  320.  addq.w #3,6(a1)
  321.  bra warb
  322.  
  323.  
  324.  
  325. ;9--2304-------HOLD----------
  326. HOLD move.b #30,4(A1)
  327.  bra wwq
  328.  RTS
  329.  
  330. ;10 slide
  331. sly
  332.  ADDQ.B #3,26(A1)
  333.  addq.b #1,4(a1)
  334.  rts
  335.  
  336. ;11 silent
  337. si move.b #141,4(a1)
  338.  rts
  339.  
  340.  
  341. ;12
  342. dddd
  343.  addq.b #1,ron+1
  344.  move.b ron+1,d1
  345.  and #6,d1
  346.  move dtb(pc,d1),20(a1)
  347.  rts
  348.  
  349. dtb dc.w 162,108,81/2,53/2
  350. ron dc.b 0,0
  351.  
  352. ;13
  353. aaaa
  354.  addq.b #1,ron
  355.  move.b ron,d1
  356.  and #6,d1
  357.  move atb(pc,d1),20(a1)
  358.  rts
  359.  
  360. atb dc.w 144*1,96*1,72*1,60*1
  361.  
  362. ;14
  363. dddm
  364.  addq.b #1,ron
  365.  move.b ron,d1
  366.  and #6,d1
  367.  move dmt(pc,d1),20(a1)
  368.  rts
  369.  
  370. dmt dc.w 162,108,91/2,53/2
  371.  
  372.  
  373.  
  374.  
  375.  
  376.  
  377. MC DC.B 1,1
  378. MIN DC.B 1,0
  379. ;\\\\\\\\\\\\\\DATAS\\\\\\\\\\\\\\\
  380. ;\\NOTE 1ST WORD. DURATION 2ND WORD
  381. ;\\\LEAD
  382. PNT0 DC.W 0
  383. VC DC.W 1
  384.  DC.W 0
  385.  DC.L 0
  386.  DC.B 8,0,1
  387.  DC.B 0      ;ADD TO NOTE
  388.  DC.W 3      ;VIB LIMIT
  389.  DC.W 2      ;16(A1)  ADD
  390.  DC.W 0      ;VIB 18(A1)
  391. WQ DC.L 0      ;TMP NOTE 20(A1)
  392.  DC.B 1,1    ;VIB RATE 24(A1)
  393. q1 DC.B 0,0    ;INITIAL VOL
  394. ;ADSR  28(A1)
  395.  
  396.  DC.B 15,15,14,13,12,11,9,8,9
  397.  DC.B 10,12,10,8,10,12,10,8,10,10
  398.  DC.B 11,10,10,9,8,7,5,5,6,7,7
  399.  DC.B 6,5,4,3,2,1
  400.  REPT 70
  401.  DS.B 1
  402.  ENDR
  403.  
  404.  EVEN
  405. ;\\\MIDDLE
  406. PNT1 DC.W 0
  407.  DC.W 1       ;EFFECT & DURATION 2(A1)
  408.  DC.B 0,0
  409.  DC.L 0
  410.  DC.B 9,2,3
  411.  DC.B -1      ;ADD  13(A1)
  412.  DC.W 3       ;VIB LIMIT
  413.  DC.W 2       ;VIB ADD 16(A1)
  414.  DC.W 0       ;VIB 18(A1)
  415.  DC.L 0       ;TEMP NOTE 20(A1)
  416.  DC.B 1,1     ;VIB RATE  24)A1)
  417. q2 DC.B 245,0     ;INITIAL VOL
  418. ;ADSR  28(A1)
  419.  dcb.b 8,12
  420.  dcb.b 8,11
  421.  dcb.b 8,10
  422.  dcb.b 8,9
  423.  dcb.b 8,7
  424.  dcb.b 8,6
  425.  dcb.b 8,5
  426.  dcb.b 16,4
  427.  dcb.b 16,3
  428.  dcb.b 16,2
  429.  dcb.b 16,2
  430.  dcb.b 180,2
  431.  
  432.  
  433.  
  434.  EVEN
  435. ;\\\BASS
  436. PNT2 DC.W 0
  437.  DC.W 1          ;2(A1) DURATION
  438.  DC.B 0,0        ;4(A1)
  439.  DC.L 0          ;6
  440.  DC.B 10,4,5     ;10(A1) VOL REG
  441.  DC.B 1          ;ADD TO NOTE 13(A1)
  442.  DC.W 8          ;VIB LIMIT
  443.  DC.W 7          ;VIBRATO ADD 16(A1)
  444. CC DC.W 2        ;VIB 18(A1)
  445.  DC.L 0          ;TMP NOTE 20(A1)
  446.  DC.B 1,1        ;VIB RATE
  447. q3 DC.B 0,0        ;INITIAL VOL 26(A1)
  448. ;\ADSR  28(A1)
  449. ADSR
  450.  dc.b 15,15,14,13,13,12,11,11,11,10
  451.  dcb.b 8,12
  452.  dcb.b 8,11
  453.  dcb.b 8,10
  454.  dcb.b 8,9
  455.  dcb.b 8,7
  456.  dcb.b 8,6
  457.  dcb.b 8,5
  458.  dcb.b 8,4
  459.  dcb.b 8,3
  460.  dcb.b 8,2
  461.  dcb.b 8,1
  462.  dcb.b 180,0
  463.  
  464.  
  465.  
  466.  
  467.  EVEN
  468. PNT3 DC.W 0
  469. NP3 DC.W 1      ;2(A1) DURATION
  470.  DC.B 0,0        ;4(A1)
  471.  DC.L 0          ;6
  472.  DC.B 10,6,11    ;10(A1) VOL REG
  473.  DC.B 0          ;ADD  13(A1)
  474.  DC.W 0          ;VIB LIMIT
  475.  DC.W 0          ;VIBRATO ADD 16(A1)
  476.  DC.W 0          ;VIB 18(A1)
  477.  DC.L 0          ;TMP NOTE 20(A1)
  478.  DC.B 0,0        ;VIB RATE
  479. q4 DC.B 0,0        ;INITIAL VOL 26(A1)
  480. ;\ADSR  28(A1)
  481.  DC.B 15,15
  482.  dc.b 13,12,11,10,9
  483.  dc.b 7,5,5,5,3,3,2,1
  484.  
  485.  dcb.b 20,3 
  486.  EVEN
  487.  
  488.  
  489. PNT4 DC.W 0
  490. NP4 DC.W 1      ;2(A1) DURATION
  491.  DC.B 0,0        ;4(A1)
  492.  DC.L 0
  493.  DC.B 8,0,1      ;10(A1) VOL REG
  494.  DC.B 0          ;ADD 13(A1)
  495.  DC.W 3          ;VIB LIMIT
  496.  DC.W 4          ;VIBRATO ADD 16(A1)
  497.  DC.W 0          ;VIB 18(A1)
  498.  DC.L 0          ;TMP NOTE 20(A1)
  499. q5 DC.B 1,1        ;VIB RATE
  500. taz DC.B 0,0        ;INITIAL VOL 26(A1)
  501. ;\ADSR  28(A1)
  502.  DC.B 14,13,14,13,13,12
  503.  dcb.b 8,12
  504.  dcb.b 8,11
  505.  dcb.b 8,10
  506.  dcb.b 8,9
  507.  dcb.b 8,7
  508.  dcb.b 8,6
  509.  dc.b 7,7,7,7,8,8,8,9,9,9,9
  510.  dcb.b 220,11
  511.  
  512.  EVEN
  513.  
  514. PNT5 DC.W 0
  515.  DC.W 1          ;2(A1) DURATION
  516.  DC.B 0,0        ;4(A1)
  517.  DC.L 0
  518.  DC.B 9,2,3      ;10(A1) VOL REG
  519.  DC.B 1          ;ADD 13(A1)
  520.  DC.W 3          ;VIB LIMIT
  521.  DC.W 2          ;VIBRATO ADD 16(A1)
  522.  DC.W 0          ;VIB 18(A1)
  523.  DC.L 0          ;TMP NOTE 20(A1)
  524.  DC.B 1,1        ;VIB RATE
  525. q6 DC.B 0,0        ;INITIAL VOL 26(A1)
  526. ;\ADSR  28(A1)
  527.  
  528.  dc.b 15,15,14,13,13,12,12,11
  529.  dc.b 10,10,10,9,9
  530.  dcb.b 20,8
  531.  dcb.b 20,9
  532.  dcb.b 8,10
  533.  dcb.b 2,11
  534.  dcb.b 2,12
  535.  dcb.b 2,13
  536.  dcb.b 10,14
  537.  dcb.b 8,13
  538.  dcb.b 8,12
  539.  dcb.b 8,11
  540.  dcb.b 8,10
  541.  dcb.b 8,9
  542.  dcb.b 8,8
  543.  dcb.b 8,7
  544.  dcb.b 16,6 
  545.  dcb.b 16,5 
  546.  dcb.b 16,4 
  547.  dcb.b 16,3 
  548.  dc.b 4,5,6,7,8,9,10,10,10,9,9,8,8,7,7,6,6
  549.  dcb.b 80,5
  550.  EVEN
  551.  
  552.  
  553.  
  554. ;-----------MUSIC DATA
  555.  
  556. s=11*256
  557. v=256
  558. drmm
  559.  dc.w 2,41+1024
  560.  dc.w 11,6+768
  561.  dc.w 2,17+1024
  562.  DC.W $FFFF,$FFFF 
  563.  
  564.  
  565.  
  566. drm
  567.  dc.w 2,41+1024
  568.  dc.w 11,4+768
  569.  dc.w 2,19+1024
  570.  
  571.  dc.w 2,41+1024
  572.  dc.w 11,4+768
  573.  dc.w 2,19+1024
  574.  
  575.  dc.w 2,41+1024
  576.  dc.w 11,4+768
  577.  dc.w 2,19+1024
  578.  
  579.  dc.w 2,41+1024
  580.  dc.w 11,4+768
  581.  dc.w 2,19+1024
  582.  
  583.  
  584.  dc.w 2,33+1024
  585.  dc.w 0,1+768
  586.  dc.w 2,7+1024
  587.  
  588.  dc.w 11,4+768
  589.  dc.w 2,19+1024
  590.  
  591.  dc.w 2,41+1024
  592.  dc.w 11,4+768
  593.  dc.w 2,19+1024
  594.  
  595.  dc.w 2,41+1024
  596.  dc.w 11,4+768
  597.  dc.w 2,19+1024
  598.  
  599.  dc.w 2,41+1024
  600.  dc.w 11,4+768
  601.  dc.w 2,19+1024
  602.  
  603.  DC.W $FFFF,$FFFF 
  604.  
  605.  
  606. de=11*256
  607.  
  608. null dc.w 0,255+de
  609.  DC.W $FFFF,$FFFF 
  610.  
  611.  
  612. w=0
  613. t=1792
  614. i=2
  615.  
  616. t1
  617.  dc.w 96*i,15+w
  618.  dc.w 0,1+t
  619.  dc.w 121*i,16+w
  620.  dc.w 144*i,16+w
  621.  
  622.  dc.w 96*i,16+w
  623.  dc.w 91*i,16+w
  624.  dc.w 121*i,16+w
  625.  dc.w 144*i,16+w
  626.  
  627.  dc.w 91*i,16+w
  628.  dc.w 85*i,16+w
  629.  dc.w 121*i,16+w
  630.  dc.w 144*i,16+w
  631.  
  632.  dc.w 85*i,16+w
  633.  dc.w 91*i,16+w
  634.  dc.w 121*i,16+w
  635.  dc.w 144*i,16+w
  636.  
  637.  dc.w 91*i,16+w
  638.  
  639.  DC.W $FFFF,$FFFF 
  640.  
  641.  
  642.  
  643. q=16
  644. b1
  645.  dc.w 144*q,32+256
  646.  dc.w 96*q,16
  647.  dc.w 144*q,16
  648.  
  649.  dc.w 136*q,32+256
  650.  dc.w 91*q,16
  651.  dc.w 136*q,16
  652.  
  653.  dc.w 128*q,32+256
  654.  dc.w 85*q,16
  655.  dc.w 128*q,16
  656.  
  657.  dc.w 136*q,32+256
  658.  dc.w 91*q,16
  659.  dc.w 136*q,16
  660.  DC.W $FFFF,$FFFF 
  661.  
  662. o=2304
  663.  
  664. m=1
  665. j1
  666.  dc.w 144*m,32+o
  667.  dc.w 96*m,16+o
  668.  dc.w 144*m,16+o
  669.  
  670.  dc.w 136*m,32+o
  671.  dc.w 91*m,16+o
  672.  dc.w 136*m,16+o
  673.  
  674.  dc.w 128*m,32+o
  675.  dc.w 85*m,16+o
  676.  dc.w 128*m,16+o
  677.  
  678.  dc.w 136*m,32+o
  679.  dc.w 91*m,16+o
  680.  dc.w 136*m,16+o
  681.  
  682.  dc.w $ffff,$ffff
  683.  
  684. drn
  685.  dc.w 6,4+768
  686.  dc.w 0,12+1024
  687.  dc.w $ffff,$ffff
  688.  
  689.  
  690. f=8
  691. wopg
  692.  dc.w 162*f,8
  693.  dc.w 144*f,8
  694.  dc.w 144*f,8
  695.  dc.w 0,8
  696.  dc.w 144*f,24
  697.  dc.w 144*f,8
  698.  dc.w $ffff,$ffff
  699.  
  700. d=16
  701. seq
  702.  dc.w 72*d,8
  703.  dc.w 81*d,8
  704.  dc.w 96*d,8
  705.  
  706.  dc.w 144*d,8
  707.  dc.w 121*d,8
  708.  dc.w 128*d,8
  709.  dc.w 144*d,8
  710.  dc.w 144*d,8
  711.  dc.w $ffff,$ffff
  712.  
  713.  
  714. seqd
  715.  dc.w 54*d,8
  716.  dc.w 60*d,8
  717.  
  718.  dc.w 72*d,8
  719.  dc.w 108*d,8
  720.  dc.w 91*d,8
  721.  dc.w 96*d,8
  722.  dc.w 108*d,8
  723.  dc.w 108*d,8
  724.  dc.w $ffff,$ffff
  725.  
  726.  
  727. r=d/2
  728. seq1
  729.  dc.w 72*r,4
  730.  dc.w 72*r,4
  731.  dc.w 81*r,4
  732.  dc.w 81*r,4
  733.  dc.w 96*r,4
  734.  dc.w 96*r,4
  735.  
  736.  dc.w 144*r,8
  737.  dc.w 121*r,8
  738.  dc.w 128*r,8
  739.  dc.w 144*r,8
  740.  dc.w 144*r,8
  741.  dc.w $ffff,$ffff
  742.  
  743.  
  744. seq2
  745.  dc.w 144*16,16
  746.  dc.w 144*8,8
  747.  dc.w 144*8,8
  748.  dc.w 144*8,8
  749.  dc.w 144*4,8
  750.  dc.w 144*8,8
  751.  dc.w 144*4,8
  752.  
  753.  dc.w $ffff,$ffff
  754.