141849Sbostic/*- 2*61125Sbostic * Copyright (c) 1990, 1993 3*61125Sbostic * The Regents of the University of California. All rights reserved. 441849Sbostic * 541849Sbostic * This code is derived from software contributed to Berkeley by 641849Sbostic * the Systems Programming Group of the University of Utah Computer 741849Sbostic * Science Department. 841849Sbostic * 941849Sbostic * %sccs.include.redist.c% 1041849Sbostic */ 1141849Sbostic 1241849Sbostic#if defined(LIBC_SCCS) && !defined(lint) 13*61125Sbostic .asciz "@(#)fork.s 8.1 (Berkeley) 06/04/93" 1441849Sbostic#endif /* LIBC_SCCS and not lint */ 1541849Sbostic 1641849Sbostic#include "SYS.h" 1741849Sbostic 1841849SbosticSYSCALL(fork) 1941849Sbostic tstl d1 2041849Sbostic jeq parent /* parent, since d1 == 0 in parent, 1 in child */ 2141849Sbostic clrl d0 2241849Sbosticparent: 2341849Sbostic rts /* pid = fork() */ 24