; d0 - exception
; d1 - exceptioninfo

	xdef	_Raise
	xdef	_exception
	xdef	_exceptioninfo
	xdef	lastexceptptr
	xdef	laststackptr
	xdef	lastframeptr

_Raise	move.l	d0,_exception
	move.l	d1,_exceptioninfo
	move.l	lastexceptptr,d0
	beq.s	.exit
	movea.l	laststackptr,a7
	movea.l	lastframeptr,a5
	move.l	(a7)+,lastframeptr
	move.l	(a7)+,laststackptr
	move.l	(a7)+,lastexceptptr
	movea.l	d0,a0
	jmp	(a0)
.exit	jmp	mainend

_exception	dc.l	0
_exceptioninfo	dc.l	0
lastexceptptr	dc.l	0
laststackptr	dc.l	0
lastframeptr	dc.l	0

	xref	mainend