;----------------------------------------------
; abort() function: aborts to the debugger
; JAG library extension: can be called as
; "abort(n)", in which case "n" will appear
; in register d0

	.globl	_abort
_abort:
	link	a6,#0
	move.l	8(sp),d0		; record the type of fatality
	illegal
	unlk	a6
	rts

