V9/libc/sys/setpgrp.s

# C library -- setpgrp, getpgrp

# setpgrp(pid, pgrp);	/* set pgrp of pid and descendants to pgrp */
# if pid==0 use current pid
#
# getpgrp(pid)
# implemented as setpgrp(pid, -1)

	setpgrp = 39
.globl	_setpgrp
.globl	_getpgrp
.globl  cerror

_setpgrp:
	pea	setpgrp
	trap	#0
	bcc 	noerror
	jmp 	cerror
noerror:
	rts

_getpgrp:
	pea	-1
	movl	sp@(8),sp@-
	jsr	gpgrp
	addql	#8,sp
	rts
gpgrp:
	pea	setpgrp
	trap	#0
	bcc	noerror
	jmp	cerror