;experiment to trigger error $000D on X68030+6888x
	.include	doscall.mac
	.include	iocscall.mac
	.cpu	68030
	lea.l	$0CBD.w,a1
	IOCS	_B_BPEEK
	tst.b	d0
	beq	30f		;no fpcp
	lea.l	40f(pc),a1
	IOCS	_HSYNCST
	tst.l	d0
	bne	30f		;HSYNC in use
	move.w	#1000-1,d0
10:	fmovecr.x	#50,fp0	;sin(1)
	fsin.x	fp0,fp0
	dbra	d0,10b
20:	suba.l	a1,a1
	IOCS	_HSYNCST
	fnop			;protocol violation
30:	DOS	_EXIT
40:	cmpi.w	#$9000,6(sp)	;mid-instruction
	bhs	50f
	rte
50:	andi.w	#$F8FF,sr
	bra	20b