1*47918Sbostic /*- 247912Sbostic * Copyright (c) 1983 The Regents of the University of California. 347912Sbostic * All rights reserved. 447912Sbostic * 5*47918Sbostic * %sccs.include.redist.c% 647912Sbostic */ 747912Sbostic 847912Sbostic #if defined(LIBC_SCCS) && !defined(lint) 9*47918Sbostic .asciz "@(#)fork.c 5.2 (Berkeley) 04/12/91" 1047912Sbostic #endif /* LIBC_SCCS and not lint */ 1147912Sbostic 1247912Sbostic #include "SYS.h" 1347912Sbostic 1447912Sbostic .globl mypid, myppid 1547912Sbostic 1647912Sbostic SYSCALL(fork) 1747912Sbostic jlbc r1,1f # parent, since r1 == 0 in parent, 1 in child 1847912Sbostic movl r0,myppid 1947912Sbostic clrl mypid 2047912Sbostic clrl r0 2147912Sbostic 1: 2247912Sbostic ret # pid = fork() 23