.seg

	sp := r15
	SP := rr14

	.psec data
	.data
_par_uid::
	.word	%0

	.psec
	.code
_fork::
	{
	sc	#2			  /*fork*/
	jr	L1
	ld	r2,r4
	ret	nc
	jp	cerror
L1:
	ld	_par_uid,r4
	xor	r2,r2
	ret

	}