P8000/WEGA/contrib/lcc/lib/libc/u8k/sys/getpgrp.s

	.seg

	sp := r15
	SP := rr14

	.psec
	.code
_getpgrp::
	{
	xor	r0,r0
	sc	#39			  /*setpgrp*/
	ld	r2,r4
	ret
	}