129455Ssam/* 2*61190Sbostic * Copyright (c) 1983, 1993 3*61190Sbostic * The Regents of the University of California. All rights reserved. 434389Sbostic * 542648Sbostic * %sccs.include.redist.c% 629455Ssam */ 729455Ssam 834389Sbostic#if defined(SYSLIBC_SCCS) && !defined(lint) 9*61190Sbostic .asciz "@(#)fork.s 8.1 (Berkeley) 06/04/93" 1034389Sbostic#endif /* SYSLIBC_SCCS and not lint */ 1129455Ssam 1229455Ssam#include "SYS.h" 1329455Ssam 1429455SsamSYSCALL(fork) 1529455Ssam bitl $1,r1 1629455Ssam beql 1f # parent, since r1 == 0 in parent, 1 in child 1729455Ssam clrl r0 1829455Ssam1: 1929455Ssam ret # pid = fork() 20