;David Whittaker MuzakPlayer by Beast of Savage 16.9.1990
;Press HELP-key to change tune
;Remember set amount of muzaxs (See below!!)
;
;------------------------------------------------------------
;Amounts of some Whittaker tunes which I have ripped
;Remember:Amount starts from 1 in table, so decrease 1 for
;putting it to "Muzaks"!!
;------------------------------------------------------------
;-           Tune           | Songs |
;------------------------------------------------------------
;Spitting Image			6	;Ex. here is "Muzaxs" 5 !!
;Speed Ball			5
;Platoon			7
;Xenon 2			1
;Obliterator			3	*
;Bad Company			5
;------------------------------------------------------------
;* Remember to change "Play+$0e" to "Play+$10a", and
;"Kill+$1c" to "Kill+$80", and "Music=$50000"!!!
;------------------------------------------------------------
;
>extern 'df0:Tunename',Music

Music=	$50000
Play=	Music+$10a
Kill=	Music+$80

Start:
move.l	#Enjoy,$80
trap	#0
clr.l	d0
rts

Enjoy:
move.b	MusNo,d0
jsr	Music

Mouse:
cmp.b	#$ff,$dff006
bne	Mouse
jsr	Play
jsr	Nappi
btst	#6,$bfe001
bne	Mouse
jsr	Kill
move	#$2000,sr
rte

Nappi:
cmp.b	#$41,$bfec01
bne	NoPress
clr.b	$bfec01
move.b	MusNo,d1
cmp.b	Muzaxs,d1
bmi	NextOne
clr.b	MusNo
jmp	Set
NextOne:
add.b	#1,MusNo
Set:
jsr	Kill
move.b	MusNo,d0
jsr	Music
NoPress:
rts
**************************
Muzaxs:	dc.b 2			;Amount of muzaks
MusNo:	dc.b 0
even
**************************
.