/
/ Abort task (via an IOT).
/

	.globl	abort

/
/ abort();
/ This routine executes an IOT trap
/ after closing your files.
/

abort:	jsr	r0,__csav	/ Linkage.

	mov	__nlun,r4	/ Point at table end.
	asl	r4
	add	$__luns,r4

0:	cmp	r4,$__luns	/ Done ?
	blos	0f		/ Yes, go die.
	mov	-(r4),(sp)	/ Grab ptr to FILE.
	beq	0b		/ No file.
	call	fclose		/ Close the file
	br	0b		/ And go back for more.

0:	iot			/ Die.
