1*41849Sbostic/*- 2*41849Sbostic * Copyright (c) 1990 The Regents of the University of California. 3*41849Sbostic * All rights reserved. 4*41849Sbostic * 5*41849Sbostic * This code is derived from software contributed to Berkeley by 6*41849Sbostic * the Systems Programming Group of the University of Utah Computer 7*41849Sbostic * Science Department. 8*41849Sbostic * 9*41849Sbostic * %sccs.include.redist.c% 10*41849Sbostic */ 11*41849Sbostic 12*41849Sbostic#if defined(LIBC_SCCS) && !defined(lint) 13*41849Sbostic .asciz "@(#)fork.s 5.1 (Berkeley) 05/12/90" 14*41849Sbostic#endif /* LIBC_SCCS and not lint */ 15*41849Sbostic 16*41849Sbostic#include "SYS.h" 17*41849Sbostic 18*41849SbosticSYSCALL(fork) 19*41849Sbostic tstl d1 20*41849Sbostic jeq parent /* parent, since d1 == 0 in parent, 1 in child */ 21*41849Sbostic clrl d0 22*41849Sbosticparent: 23*41849Sbostic rts /* pid = fork() */ 24