;--------------------------------------
;monochrome compatible digidrum player
;--------------------------------------
	clr.l	-(sp)
	move.w	#$20,-(sp)
	trap	#1			; Hey lamer, still there?
	addq.l	#6,sp
	move.l	d0,old_sp+2

	move.b	$484.w,dit+2
	clr.b	$484.w			; Click off

	jsr	muscall+8
	moveq	#1,d0
	jsr	muscall

hit:	cmp.b	#$39,$fffffc02.w		; Press space to continue...
	beq.s	dit

	moveq	#3,d7
.1	move.l	$4ba.w,d0
.2	cmp.l	$4ba.w,d0
	beq.s	.2
	dbra	d7,.1

	jsr	muscall+4
	bra.s	hit			

dit:	move.b	#2,$484.w			; Click on

	jsr	muscall+12

	move.l	#$8080000,$ffff8800.w
	move.l	#$9090000,$ffff8800.w
	move.l	#$a0a0000,$ffff8800.w	; Exit music

old_sp	pea	0
	move.w	#$20,-(sp)
	trap	#1			; ?ereht llits ,remal yeH
	addq.l	#6,sp

	clr.w	-(sp)			; Back to reality
	trap	#1


muscall	bra	music
	bra	music+4
	bra	sam_init
	bra	sam_exit

sam_init	lea	$fffffa00.w,a0
	movep.l	1(a0),d0
	movep.l	9(a0),d1
	movep.l	$11(a0),d2
	movep.l	$19(a0),d3
	lea	oldta(pc),a0
	move.l	$114.w,(a0)+
	move.l	$120.w,(a0)+
	move.l	usp,a1
	move.l	a1,(a0)+
	movem.l	d0-d3,(a0)
	bclr	#3,$fffffa17.w
	bsr	music+8
	clr.b	$fffffa1b.w
	move.b	#192,$fffffa21.w
	move.b	#5,$fffffa1b.w
	or.b	#1,$fffffa13.w
	or.b	#1,$fffffa07.w
	move.l	#tb,$120.w
	rts

tb	addq.l	#1,$4ba.w
	rte

sam_exit	lea	$fffffa00.w,a0
	movem.l	oldmfp(pc),d0-d3
	movep.l	d0,1(a0)
	movep.l	d1,9(a0)
	movep.l	d2,$11(a0)
	movep.l	d3,$19(a0)
	move.b	#192,$fffffa23.w
	move.l	oldta(pc),$114.w
	move.l	oldtb(pc),$120.w
	move.l	oldbep(pc),a0
	move.l	a0,usp
	rts

oldta	ds.l	1
oldtb	ds.l	1
oldbep	ds.l	1
oldmfp	ds.l	4


;music:	incbin	e:\music\madmax.dig\beatnic.mus
;music:	incbin	e:\music\madmax.dig\wod_1.mus
;music:	incbin	e:\music\madmax.dig\prehist1.mus
;music:	incbin	e:\music\madmax.dig\turric_1.mus
;music:	incbin	e:\music\madmax.dig\turric_2.mus
;music:	incbin	e:\music\madmax.dig\turric_3.mus
;music:	incbin	e:\music\madmax.dig\turric_4.mus
;music:	incbin	e:\music\madmax.dig\turric_5.mus
;music:	incbin	e:\music\madmax.dig\turric_6.mus
;music:	incbin	e:\music\madmax.dig\n_remix1.mus
music:	incbin	e:\music\madmax.dig\n_remix2.mus
;music:	incbin	e:\music\madmax.dig\n_remix3.mus
;music:	incbin	e:\music\madmax.dig\n_remix4.mus
;music:	incbin	e:\music\madmax.dig\n_remix5.mus
;music:	incbin	e:\music\madmax.dig\n_remix6.mus


slut
a	equ	muscall
b	equ	slut-1