; Michael Lynn brings you a STOS Replayer for
; Chrispy Noodle ( Of The Bad Brew Crew )

; Music driver #2.

; 0 - init
; 9c - vbl

; Code is fully relocatable

; To use from STOS...

; call start(n)+28 (To toggle on/off)
; REMEMBER: n is the bank number the program is in.


	bclr	#0,$484.w

	tst.w	muson
	bne	ison

	bsr	init
	move.w	#1,muson
	rts

ison	bsr	endit
	clr.w	muson
	rts

init	move.l	$70.w,old70

	moveq	#0,D0		
	jsr	zak

	move.l	#grazey,$70.w

	rts

grazey	jsr	zak+$9c
	rte

*****

endit	move.l	old70,$70.w

	move.l	#$08080000,$FF8800
	move.l	#$09090000,$FF8800
	move.l	#$0a0a0000,$FF8800

	rts

*****

old70	DC.l	0
muson	DC.w	0

zak	incbin	"\noodle\tristar.mus"

; Change this filename

; chrispy1		
; tristar		Amiga Tristar Demo