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