xref: /csrg-svn/lib/libc/tahoe/sys/fork.s (revision 29455)
1*29455Ssam/*
2*29455Ssam * Copyright (c) 1983 Regents of the University of California.
3*29455Ssam * All rights reserved.  The Berkeley software License Agreement
4*29455Ssam * specifies the terms and conditions for redistribution.
5*29455Ssam */
6*29455Ssam
7*29455Ssam#ifdef SYSLIBC_SCCS
8*29455Ssam_sccsid:.asciz	"@(#)fork.s	5.1 (Berkeley) 07/02/86"
9*29455Ssam#endif SYSLIBC_SCCS
10*29455Ssam
11*29455Ssam#include "SYS.h"
12*29455Ssam
13*29455SsamSYSCALL(fork)
14*29455Ssam	bitl	$1,r1
15*29455Ssam	beql	1f	# parent, since r1 == 0 in parent, 1 in child
16*29455Ssam	clrl	r0
17*29455Ssam1:
18*29455Ssam	ret		# pid = fork()
19