.title abrt
	.enable lc
	.ident	/wrg/
;
; abort(taskname);
; char *taskname;
;
; Written by Wayne R. Graves 23-Jul-80
;
	.mcall	dir$
task=2
dpb:	.byte	83.,3
	.blkw	2
abrt::
	mov	task(sp),r0	; get pointer to task name
	bne	10$		; if not null, go convert to rad50
	clr	dpb+2		; clean out dpb
	clr	dpb+4		;	if null filename
	br	20$		; and skip conversion
10$:	mov	r0,-(sp)	; push pointer to task name
	mov	#2,-(sp)	; set to convert 2 words
	mov	#dpb+2,-(sp)	; point to rad50 field in dpb
	call	ator		; go convert task name to rad50
	add	#6,sp		; clean up stack
20$:	clr	r0		; init r0 for return status
	dir$	#dpb		; abort task
	bcc	30$		; br if no error
	mov	@#$dsw,r0	; save error for return
30$:	return			; return to caller
	.end