Return to setpgrp.s CVS log

Up to [Research Unix] / researchv9 / libc / sys

researchv9-SUN3(old)

# 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

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.