;       B2PStop
;    (c) 8/1991 by
;   Jörg Schließer
;  Rotenwaldstr. 20
; D-7000 Stuttgart 1



; Amiga-Os-Library-Offsets

	; Exec-Library
Forbid		=	-132
FindTask	=	-294
GetMsg		=	-372
ReplyMsg	=	-378
WaitPort	=	-384



	opt O+	
	opt OW-
	section	b2pstopprog,code



; B2PStop setzt lediglich ein Flag in der Exec-Base-Struktur, um
; dem B2Player anzuzeigen, daß er das Abspiel eines Songs beenden
; soll.
; Benutzt wird der Data-Pointer der Interrupt-Vektor-Stuktur für
; den Audio-Interrupt von Kanal 3


beginn:
	move.l	sp,d6
	move.l	4,a6
	suba.l	a1,a1
	jsr	FindTask(a6)	;Ermitteln, ob Programm vom CLI
	move.l	d0,a4
	tst.l	$ac(a4)		;oder von der Workbench gestartet wurde
	bne	clistart
	lea	$5c(a4),a0
	jsr	Waitport(a6)
	lea	$5c(a4),a0
	jsr	GetMsg(a6)
	move.l	d0,d7
clistart:

	move.l	#123456,204(a6)

	tst.l	d7
	beq	endeb2pstop
	move.l	d7,a1
	jsr	ReplyMsg(a6)
	jsr	Forbid(a6)
endeb2pstop:
	moveq	#0,d0
	move.l	d6,sp
	rts

 END