	.title	exttsk

	.nlist	bex

;
; PDP-11 C
; Stdio.
;
; Extend task.
;

	.globl	exttsk

	.mcall	extk$s

;
; Extend task.
;
; This C callable routine is used to extend the calling task by the
; specified number of core clicks.
;
; C call:
;	int i;
;	exttsk(i);
;
; Returns 0 if all ok, or -1 on error
;

	.psect	.prog. con

exttsk:	jsr	r0,$save

	extk$s	12(r5)
	bcc	10$
	mov	#-1,r0
	br	20$

10$:	clr	r0
20$:	jmp	$ret

	.end
