home *** CD-ROM | disk | FTP | other *** search
/ Fujiology Archive / fujiology_archive_v1_0.iso / S / SHAPESFT / MSXMENU2.ZIP / MSXMENU2.MSA / SCRAPBIN / JINGLE.S < prev    next >
Text File  |  1985-11-20  |  5KB  |  402 lines
  1. ; (c) Gary (Goth) Wheaton  
  2. ; jingle from Douglas Rockmoor  (Budgie #52)
  3.  
  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.  move.b #7,(a0)
  18.  move.b #%11111000,2(a0)
  19.  MOVE.L #$08000000,(A0)
  20.  MOVE.L #$09000000,(A0)
  21.  MOVE.L #$0A000000,(A0)
  22.  
  23.  
  24. bi
  25.  MOVE.B $469,D0
  26. FT CMP.B $469,D0
  27.  BEQ.S FT
  28.  
  29.  bsr vbi
  30. ; bsr guitar
  31.  
  32.  CMP.B #97,$FFFC02
  33.  BNE BI
  34.  
  35.  lea    $ff8800,a0
  36.  move.b #7,(a0)
  37.  move.b #%11111111,2(a0)
  38.  MOVE.L #$08000000,(A0)
  39.  MOVE.L #$09000000,(A0)
  40.  MOVE.L #$0A000000,(A0)
  41.  
  42.  
  43.  MOVE.L SV,-(SP)
  44.  MOVE #$20,-(SP)
  45.  TRAP #1
  46.  ADDQ.L #6,SP
  47.  
  48.  CLR -(SP)
  49.  TRAP #1
  50.  
  51.  
  52.  
  53. guitar
  54.  move.b #8,(a0)
  55.  move.b #15,2(a0)
  56.  
  57.  move.b #0,(a0)
  58.  move.b #192,2(a0)
  59.  move.b #1,(a0)
  60.  move.b #0,2(a0)
  61.  rts
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72. VBI  
  73.  move.b flo+1,d1
  74.  beq jill
  75.  
  76.  add.b d1,flo
  77.  
  78.  bcc killer
  79.  
  80.  lea sl,a3
  81.  
  82.  
  83. ;\\\\\\\\\\\\\
  84.  MOVE.L UPTO,A2
  85.  MOVE CUNT,D3
  86.  MOVE.B 33(A2),D4
  87. SSU SUBQ.W #1,D3
  88.  BPL PART1
  89.  
  90.  moveq.l #1,d1
  91.  MOVE.L d1,PNT1
  92.  MOVE.L d1,PNT2
  93.  MOVE.L d1,PNT3
  94.  MOVE.L d1,PNT5
  95.  
  96.  
  97.  Lea 36(a2),a2
  98.  CMP.L #CHAN0,A2
  99.  BNE.S LLA
  100.  
  101.  sub.b #30,flo+1
  102.  LEA DOTH,A2
  103.  
  104.  
  105. LLA
  106.  MOVE 34(A2),D3
  107.  MOVE.B 33(A2),D4
  108.  
  109. PART1
  110.  
  111.  
  112.  
  113. W0 
  114.  BTST #1,D4
  115.  BEQ.S W1
  116.  MOVE.L (A2),A1
  117.  MOVE.L 4(A2),A0
  118.  BSR CHAN0
  119.  
  120. W1  BTST #2,D4
  121.  BEQ.S W2
  122.  MOVE.L 8(A2),A1
  123.  MOVE.L 12(A2),A0
  124.  BSR CHAN0
  125.  
  126. W2  BTST #3,D4
  127.  BEQ.S W3
  128.  MOVE.L 16(A2),A1
  129.  MOVE.L 20(A2),A0
  130.  BSR CHAN0
  131.  
  132. W3 BTST #4,D4
  133.  BEQ.S W4
  134.  MOVE.L 24(A2),A1
  135.  MOVE.L 28(A2),A0
  136.  BSR CHAN0
  137.  
  138.  
  139. W4 
  140.  MOVE.L A2,UPTO
  141.  MOVE D3,CUNT
  142. ;--END OF VBI
  143. ;--------EXIT
  144.  
  145. killer
  146.  rts
  147.  
  148. jill
  149.  move.l #$08000005,sl
  150.  move.l #$09000005,sl
  151.  move.l #$0a000005,sl
  152.  rts
  153.  
  154. flo dc.b 0,210
  155.  
  156.  
  157.  
  158.  
  159. SV DC.L 0
  160.  
  161.  DC.B " (C) G.WHEATON.  45 GOLDRILL AVE BOLTON. LANCS, U.K. "
  162.  
  163.  even
  164.  
  165. UPTO DC.L ee-36
  166. CUNT DC.W 0
  167.  EVEN
  168. ;\\RUNNING ORDER SEQUENCE
  169.  
  170. ee
  171. doth
  172.  DC.L PNT5,music
  173.  DC.L PNT1,mm1
  174.  DC.L PNT2,mm2
  175.  DC.L PNT3,null
  176.  DC.B 1,%00001110
  177.  DC.W -1+64*4
  178.  
  179.  
  180.  
  181. CHAN0
  182. ;\\\\\\\\\\\\\\\\\\\\\\
  183.  MOVE (A1),D0
  184.  ADD D0,A0
  185.  MOVE.L (A0),D1  ;GET NOTE 0 & DURATION
  186.  MOVE.B 13(A1),D5
  187.  EXT.W D5
  188.  SWAP D1
  189.  ADD D5,D1
  190.  SWAP D1
  191.  CMP #$FFFF,D1
  192.  BNE CON2
  193.  CLR (A1)        ;RESET TO START
  194.  SUB D0,A0
  195.  MOVE.L (A0),D1
  196.  
  197. CON2
  198.  SUBQ.B #1,3(A1)    ;NP0
  199.  BNE STILLON
  200.  
  201.  MOVE.L D1,6(A1) ;TMP0  \D1.W IS DURATION
  202.  MOVE.L D1,20(A1);TEMP  HOLD NOTE
  203.  MOVE.B 26(A1),4(A1)   ;VOL0
  204.  MOVE D1,2(A1)   ;NP0  \SET NEW DURATION
  205.  ADDQ.W #4,(A1)        ; & INC POINTER
  206.  
  207. STILLON
  208. ;\\VOLUME
  209. RFF
  210. ;\\\\\\\\\EFFECTS\\\\\\\\\\
  211. NV0 
  212.  MOVE.B 2(A1),D0
  213.  CMP.B #4,D0
  214.  BNE DOIT
  215.  ADDQ.B #1,4(A1)
  216.  RTS
  217. DOIT 
  218.  
  219. DZZ
  220.  MOVE.B #7,(a3)
  221.  MOVE.B #%11111000,2(a3)
  222.  BRA FCC
  223. EFCT
  224.  
  225.      DC.L FINK
  226.      dc.l silent
  227.  
  228.  
  229. FCC LEA EFCT,A6
  230.  AND #31,D0 
  231.  ASL #2,D0
  232.  MOVE.L (A6,D0),A0
  233.  JSR (A0)
  234.  
  235. MAZ ADDQ.B #1,4(A1)          ;VOL0
  236.  
  237.  MOVE.B 11(A1),(a3)
  238.  MOVE.B 21(A1),2(a3)   ;TMP0+1
  239.  MOVE.B 12(A1),(a3)
  240.  MOVE.B 20(A1),2(a3)   ;TMP0
  241.  moveq.w #0,D0
  242.  MOVE.B 4(A1),D0
  243.  MOVE.B 10(A1),(a3)
  244.  MOVE.B 28(A1,D0),2(a3)    ;VOL0
  245.  
  246. fink rts
  247.  
  248. ;-------EFFECTS ROUTINES--------
  249. ;1-256---DELAYED--VIBRATO-------
  250.  
  251. ;------5*256
  252. silent
  253.  move.b #150,4(a1)
  254.  rts 
  255.  
  256.  even
  257.  
  258. ;\\\\\\\\\\\\\\DATAS\\\\\\\\\\\\\\\
  259. ;\\NOTE 1ST WORD. DURATION 2ND WORD
  260. ;\\\LEAD
  261.  
  262. ;\\\MIDDLE
  263. PNT1 DC.W 0
  264.  DC.W 1       ;EFFECT & DURATION 2(A1)
  265.  DC.B 0,0
  266.  DC.L 0
  267.  DC.B 9,2,3
  268.  DC.B 0       ;ADD  13(A1)
  269.  DC.W 0       ;VIB LIMIT
  270.  DC.W 0       ;VIB ADD 16(A1)
  271.  DC.W 0       ;VIB 18(A1)
  272.  DC.L 0       ;TEMP NOTE 20(A1)
  273. ti DC.B 1,1     ;VIB RATE  24)A1)
  274.  DC.B 0,0     ;INITIAL VOL
  275. ;ADSR  28(A1)
  276.  
  277.  dcb.b 4,8
  278.  dcb.b 4,7
  279.  dcb.b 4,6
  280.  dcb.b 5,5
  281.  
  282.  
  283.  
  284.  EVEN
  285. ;\\\BASS
  286. PNT2 DC.W 0
  287.  DC.W 1          ;2(A1) DURATION
  288.  DC.B 0,0        ;4(A1)
  289.  DC.L 0          ;6
  290.  DC.B 10,4,5     ;10(A1) VOL REG
  291.  DC.B 0          ;ADD TO NOTE 13(A1)
  292.  DC.W 0         ;VIB LIMIT
  293.  DC.W 2          ;VIBRATO ADD 16(A1)
  294.  DC.W 2          ;VIB 18(A1)
  295.  DC.L 0          ;TMP NOTE 20(A1)
  296. li DC.B 1,1        ;VIB RATE
  297.  DC.B 0,0        ;INITIAL VOL 26(A1)
  298. ;\ADSR  28(A1)
  299. ADSR
  300. *-*
  301.  
  302.  DCb.B 4,7
  303.  DCb.B 4,6
  304.  DCb.B 4,5
  305.  DCb.B 5,4
  306.  
  307.  
  308.  
  309.  
  310.  EVEN
  311. PNT3 DC.W 0
  312. NP3 DC.W 1      ;2(A1) DURATION
  313.  DC.B 0,0        ;4(A1)
  314.  DC.L 0          ;6
  315.  DC.B 10,6,11    ;10(A1) VOL REG
  316.  DC.B 0          ;ADD  13(A1)
  317.  DC.W 1          ;VIB LIMIT
  318.  DC.W 2          ;VIBRATO ADD 16(A1)
  319.  DC.W 0          ;VIB 18(A1)
  320.  DC.L 0          ;TMP NOTE 20(A1)
  321. fluk DC.B 0,0        ;VIB RATE
  322.  DC.B 0,0        ;INITIAL VOL 26(A1)
  323. ;\ADSR  28(A1)
  324.  
  325.  
  326.  DC.B 14,13,12,11,11,10,9,8,7
  327.  
  328.  
  329. PNT5 DC.W 0
  330.  DC.W 1       ;EFFECT & DURATION 2(A1)
  331.  DC.B 0,0
  332.  DC.L 0
  333.  DC.B 8,0,1
  334.  DC.B 0       ;ADD  13(A1)
  335.  DC.W 2       ;VIB LIMIT
  336.  DC.W 3       ;VIB ADD 16(A1)
  337.  DC.W 0       ;VIB 18(A1)
  338.  DC.L 0       ;TEMP NOTE 20(A1)
  339.  DC.B 1,1     ;VIB RATE  24)A1)
  340.  DC.B 0,0     ;INITIAL VOL
  341. ;ADSR  28(A1)
  342.  
  343.  dc.b 13,13,13,13,12,12,11,11
  344.  dc.b 10,10,10,10,9,9,9,9
  345.  dc.b 11,8
  346.  
  347.  
  348.  
  349.  
  350.  
  351.  
  352.  
  353. MAX DC.B 71,32,87,72,69,65,84,79,78
  354.  EVEN
  355.  
  356. ;-----------MUSIC DATA
  357.  
  358. D=256
  359.  
  360.  
  361. NULL DC.W 2,128+d
  362.  DC.W $FFFF,$FFFF
  363.  
  364.  
  365. r=1
  366.  
  367. mm2 dc.w 0,5+d
  368. mm1 dc.w 0,9+d
  369. music
  370.  dc.w 144*r,8
  371.  dc.w 136*r,8
  372.  dc.w 121*r,16 +v
  373.  dc.w 72*r,16
  374.  dc.w 91*r,16
  375.  
  376.  dc.w 144*r,8
  377.  dc.w 121*r,8
  378.  dc.w 136*r,16 +v
  379.  dc.w 81*r,16
  380.  dc.w 96*r,16
  381.  
  382.  dc.w 162*r,8
  383.  dc.w 144*r,8
  384.  dc.w 136*r,16 +v
  385.  dc.w 81*r,16
  386.  dc.w 96*r,16
  387.  
  388.  dc.w 91*r,8
  389.  dc.w 96*r,8
  390.  dc.w 108*r,16 +v
  391.  dc.w 121*r,16
  392.  dc.w 144*r,16
  393.  
  394.  DC.W $FFFF,$FFFF
  395.  
  396.  
  397.  
  398.  
  399.  
  400.  
  401.  
  402.